/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:07 by OpenVMS SDL EV3-3 */ /* Source: 18-SEP-2009 02:17:15 $1$DGA8085:[STARLET.SRC]STARLET.SDL;1 */ /********************************************************************************************************************************/ /*** MODULE STARLET ***/ #ifndef __STARLET_LOADED #define __STARLET_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif #ifdef __NEW_STARLET struct _va_range; struct _cluevthndl; struct _fabdef; struct _generic_64; struct _ieee; struct _iosb; struct _iosa; struct _lksb; struct _rabdef; struct _secid; struct _ios_icc; struct _acmesb; #endif /* */ /* SYSTEM SERVICE ENTRY POINT DESCRIPTIONS */ /* */ /* */ /* $ACM[W] */ /* */ /* Authentication and Credentials Management */ /* */ /* $ACM[W] [efn], func, [contxt], itmlst, acmsb, */ /* [astadr], [astprm] */ /* */ /* efn = number of event flag to set at service completion */ /* (read only, passed by value) */ /* func = function code and modifiers specifying action */ /* to be performed */ /* (read only, passed by value) */ /* contxt = context longword, used to maintain service state */ /* across iterative calls */ /* (modify, passed by reference) */ /* itmlst = list of item descriptors */ /* (read only, passed by reference) */ /* acmsb = ACM status block */ /* (write only, passed by reference) */ /* astadr = procedure value for AST routine to be called at */ /* service completion */ /* (execute only, passed by reference) */ /* astprm = value to be passed as an argument to the AST routine */ /* (passed by value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$acm SYS$ACM #ifdef __cplusplus /* Define structure prototypes */ struct _acmesb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$acm( unsigned int efn, unsigned int func, int *contxt, void *itmlst, struct _acmesb *acmsb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$acm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$acmw SYS$ACMW #ifdef __cplusplus /* Define structure prototypes */ struct _acmesb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$acmw( unsigned int efn, unsigned int func, int *contxt, void *itmlst, struct _acmesb *acmsb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$acmw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ADD_HOLDER */ /* */ /* Add Holder Record To The Rights Database */ /* */ /* $ADD_HOLDER id, holder, [attrib] */ /* */ /* id = identifier longword to associate the */ /* holder record with */ /* holder = address of the holder identifier quadword */ /* attrib = attributes longword to grant to the holder */ #define sys$add_holder SYS$ADD_HOLDER #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$add_holder( unsigned int id, struct _generic_64 *holder, unsigned int attrib); #else /* __OLD_STARLET */ int sys$add_holder(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADD_IDENT */ /* */ /* Add Identifier To The Rights Database */ /* */ /* $ADD_IDENT name, [id], [attrib], [resid] */ /* */ /* name = address of the identifier name character */ /* string descriptor */ /* id = identifier longword to associate with 'name' */ /* attrib = attributes longword to grant to the */ /* identifier */ /* resid = address of a longword to return the assigned */ /* identifier */ /* */ #define sys$add_ident SYS$ADD_IDENT #ifdef __NEW_STARLET int sys$add_ident( void *name, unsigned int id, unsigned int attrib, unsigned int *resid); #else /* __OLD_STARLET */ int sys$add_ident(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADD_MAPPING */ /* */ /* Add Mapping record to Mapping database */ /* */ /* $ADD_MAPPING initmlst */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* */ #define sys$add_mapping SYS$ADD_MAPPING #ifdef __NEW_STARLET int sys$add_mapping( void *initmlst); #else /* __OLD_STARLET */ int sys$add_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADD_PROXY */ /* */ /* Add proxy record */ /* */ /* $ADD_PROXY rem_node, rem_user, local_user, [flags] */ /* */ /* rem_node in address of remote node descriptor */ /* rem_user in address of remote user descriptor */ /* local_user in address of local user descriptor */ /* flags in proxy service flags */ /* */ #define sys$add_proxy SYS$ADD_PROXY #ifdef __NEW_STARLET int sys$add_proxy( void *rem_node, void *rem_user, void *local_user, unsigned int flags); #else /* __OLD_STARLET */ int sys$add_proxy(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADJSTK */ /* */ /* Adjust Outer Mode Stack Pointer */ /* */ /* $ADJSTK [acmode] ,[adjust] ,newadr */ /* */ /* acmode = access mode for which to adjust stack pointer */ /* adjust = 16-bit signed adjustment value */ /* newadr = address of longword to store updated value */ /* */ #define sys$adjstk SYS$ADJSTK #ifdef __NEW_STARLET int sys$adjstk( unsigned int acmode, short int adjust, void *(*(newadr))); #else /* __OLD_STARLET */ int sys$adjstk(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADJWSL */ /* */ /* Adjust Working Set Limit */ /* */ /* $ADJWSL [pagcnt] ,[wsetlm] */ /* */ /* pagcnt = number of pages to add to working set (if positive). */ /* Number of pages to subtract from working set (if */ /* negative). */ /* wsetlm = address of longword to receive new working set limit, */ /* or current working set limit if pagcnt not specified. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$adjwsl SYS$ADJWSL #ifdef __NEW_STARLET int sys$adjwsl( int pagcnt, unsigned int *wsetlm); #else /* __OLD_STARLET */ int sys$adjwsl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ALLOC */ /* */ /* Allocate Device */ /* */ /* $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] */ /* */ /* devnam = address of device name or logical name string */ /* descriptor */ /* phylen = address of word to receive length of physical name */ /* phybuf = address of physical name buffer descriptor */ /* acmode = access mode associated with allocated device */ /* flags = options flags longword */ /* */ #define sys$alloc SYS$ALLOC #ifdef __NEW_STARLET int sys$alloc( void *devnam, unsigned short int *phylen, void *phybuf, unsigned int acmode, unsigned int flags); #else /* __OLD_STARLET */ int sys$alloc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ASCEFC */ /* */ /* Associate Common Event Flag Cluster */ /* */ /* $ASCEFC efn ,name ,[prot] ,[perm] */ /* */ /* efn = number of any event flag in the cluster with which to */ /* associate */ /* name = address of the text name string descriptor */ /* prot = protection indicator for the cluster */ /* 0 -> default, any process in group */ /* 1 -> only owner's UIC */ /* perm = permanent indicator */ /* 0 -> temporary cluster */ /* 1 -> permanent cluster */ /* */ #define sys$ascefc SYS$ASCEFC #ifdef __NEW_STARLET int sys$ascefc( unsigned int efn, void *name, char prot, char perm); #else /* __OLD_STARLET */ int sys$ascefc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ASCTIM */ /* */ /* Convert Binary Time to ASCII String */ /* */ /* $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] */ /* */ /* timlen = address of a word to receive the number of characters */ /* inserted into the output buffer. */ /* timbuf = address of a character string descriptor describing */ /* the buffer to receive the converted time. */ /* timadr = address of the quadword containing the 64-bit time to */ /* be converted to ASCII. If 0, use current time. */ /* cvtflg = conversion indicator */ /* 0 -> return full date and time */ /* 1 -> return converted time only */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$asctim SYS$ASCTIM #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$asctim( unsigned short int *timlen, void *timbuf, struct _generic_64 *timadr, char cvtflg); #else /* __OLD_STARLET */ int sys$asctim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ASCTOID */ /* */ /* Ascii To Identifier Conversion */ /* */ /* $ASCTOID name, [id], [attrib] */ /* */ /* name = address of the identifier name character */ /* string descriptor to be converted */ /* id = address to return the identifier longword */ /* attrib = address to return the attributes longword */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$asctoid SYS$ASCTOID #ifdef __NEW_STARLET int sys$asctoid( void *name, unsigned int *id, unsigned int *attrib); #else /* __OLD_STARLET */ int sys$asctoid(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ASCUTC */ /* */ /* Convert Binary UTC time into ASCII time string */ /* */ /* $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] */ /* */ /* timlen = Length (in bytes) of the ASCII string */ /* returned by $ASCUTC. The timelen argument */ /* is the address of a word containing this length. */ /* timbuf = Buffer into which $ASCUTC writes the ASCII string. */ /* The timbuf argument is the address of a character */ /* string descriptor pointing to the bufer. The */ /* buffer length specified in the timbuf argument, */ /* together rwith the cvtflg argument, controls what */ /* information is returned. */ /* utcadr = Time value that $ASCUTC is to convert. The utcadr */ /* argument is the address of this 128-bit time value. */ /* Relative times are not permitted. If utcadr is */ /* not specified ( ie 0 ), $ASCUTC returns the current */ /* date and time. */ /* cvtflg = Conversion indicator specifying which date and time */ /* fields $ASCUTC should return. The cvtflg argument is */ /* a longword value, which is interpreted as Boolean. */ /* The value 1 specifies that ASCUTC should return only */ /* the hour,minute,second, and hundreths of a second fields. */ /* The default value 0 specifies that $ASCUTC should return */ /* the full date and time. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ascutc SYS$ASCUTC #ifdef __NEW_STARLET int sys$ascutc( unsigned short int *timlen, void *timbuf, unsigned int utcadr [4], char cvtflg); #else /* __OLD_STARLET */ int sys$ascutc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ASSIGN */ /* */ /* Assign I/O Channel */ /* */ /* $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] */ /* */ /* devnam = address of device name or logical name string */ /* descriptor */ /* chan = address of word to receive channel number assigned */ /* acmode = access mode associated with channel */ /* mbxnam = address of mailbox logical name string descriptor, if */ /* mailbox associated with device */ /* flags = optional channel flags longword for specifying options */ /* for the $ASSIGN operation */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$assign SYS$ASSIGN #ifdef __NEW_STARLET int sys$assign( void *devnam, unsigned short int *chan, unsigned int acmode, void *mbxnam, __optional_params); #else /* __OLD_STARLET */ int sys$assign(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $AUDIT_EVENT */ /* */ /* Audit Security Relevant Event */ /* */ /* $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* flags = input flags longword */ /* */ /* itmlst = address of list of item descriptors */ /* */ /* audsts = address of longword to receive final completion status */ /* */ /* astadr = address of AST completion routine */ /* */ /* astprm = unsigned longword to be passed to AST routine */ /* */ #define sys$audit_event SYS$AUDIT_EVENT #ifdef __NEW_STARLET int sys$audit_event( unsigned int efn, unsigned int flags, void *itmlst, unsigned int *audsts, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$audit_event(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$audit_eventw SYS$AUDIT_EVENTW #ifdef __NEW_STARLET int sys$audit_eventw( unsigned int efn, unsigned int flags, void *itmlst, unsigned int *audsts, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$audit_eventw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $BINTIM */ /* */ /* Convert ASCII String to Binary Time */ /* */ /* $BINTIM timbuf ,timadr */ /* */ /* timbuf = address of string descriptor for ASCII time string */ /* timadr = address of quadword to receive 64-bit binary time */ /* value */ /* */ /* Absolute time strings are specified in the format: */ /* dd-mmm-yyyy hh:mm:ss.cc */ /* Delta time strings are specified in the format: */ /* dddd hh:mm:ss.cc */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$bintim SYS$BINTIM #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$bintim( void *timbuf, struct _generic_64 *timadr); #else /* __OLD_STARLET */ int sys$bintim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $BINUTC */ /* */ /* Convert ASCII UTC time to a binary format */ /* */ /* $BINUTC timbuf, utcadr */ /* */ /* timbuf = Buffer that holds the ASCII time to be converted. */ /* The timbuf argument specifies the address of a */ /* character string descriptor pointing to the VMS */ /* time string. The VMS time string specifies the */ /* absolute time to be converted by $BINUTC. */ /* utcadr = Time value that $BINUTC has converted. The */ /* utcadr argument is the address of the utc_date_time */ /* which receives the converted time. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$binutc SYS$BINUTC #ifdef __NEW_STARLET int sys$binutc( void *timbuf, unsigned int utcadr [4]); #else /* __OLD_STARLET */ int sys$binutc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $BRDCST */ /* */ /* Broadcast */ /* */ /* $BRDCST msgbuf ,[devnam] */ /* */ /* msgbuf = address of message buffer string descriptor */ /* devnam = terminal device name string descriptor. If 0, send */ /* message to all terminals. If first word in */ /* descriptor is 0, send message to all allocated */ /* terminals. */ /* */ #define sys$brdcst SYS$BRDCST #ifdef __NEW_STARLET int sys$brdcst( void *msgbuf, void *devnam, unsigned int flags, unsigned int carcon); #else /* __OLD_STARLET */ int sys$brdcst(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $BRKTHRU */ /* */ /* Write to terminal breakthru */ /* */ /* $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb], */ /* ($BRKTHRUW) [carcon], [flags], [reqid], [timout], */ /* [astadr], [astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* msgbuf = address of message buffer descriptor */ /* */ /* sendto = address of send address descriptor */ /* */ /* sndtyp = value to describe sendto */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* carcon = carriage control */ /* */ /* flags = flags to modify broadcast */ /* */ /* reqid = broadcast class requestor id */ /* */ /* timout = address of timeout value */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as an argument */ /* */ /* */ #define sys$brkthru SYS$BRKTHRU #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$brkthru( unsigned int efn, void *msgbuf, void *sendto, unsigned int sndtyp, struct _iosb *iosb, unsigned int carcon, unsigned int flags, unsigned int reqid, unsigned int timout, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$brkthru(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$brkthruw SYS$BRKTHRUW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$brkthruw( unsigned int efn, void *msgbuf, void *sendto, unsigned int sndtyp, struct _iosb *iosb, unsigned int carcon, unsigned int flags, unsigned int reqid, unsigned int timout, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$brkthruw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CANCEL */ /* */ /* Cancel I/O on Channel */ /* */ /* $CANCEL chan */ /* */ /* chan = number of the channel on which I/O is to be canceled */ /* */ #define sys$cancel SYS$CANCEL #ifdef __NEW_STARLET int sys$cancel( unsigned short int chan); #else /* __OLD_STARLET */ int sys$cancel(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CANCEL_SELECTIVE */ /* */ /* Selective Cancel I/O on Channel */ /* */ /* $CANCEL_SELECTIVE chan, [iosblst], [lenlst] */ /* */ /* chan = number of the channel on which I/O is to be canceled */ /* iosblst = address of a vector of IOSB pointers */ /* lenlst = number of entries in the vector pointed by iosblst */ /* */ #define sys$cancel_selective SYS$CANCEL_SELECTIVE #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cancel_selective( unsigned short int chan, struct _iosb *(*(iosblst)), unsigned int lenlst); #else /* __OLD_STARLET */ int sys$cancel_selective(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CANEVTAST */ /* */ /* Cancel an Event AST Routine */ /* */ /* $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] */ /* ,[evtid] */ /* */ /* evtnam = address of descriptor of event name */ /* */ /* evtadr = address of entry mask of event AST routine */ /* */ /* evtfac = address of event facility code */ /* */ /* acmode = access mode of event declaration */ /* */ /* flags = address of optional flags */ /* */ /* reqid = user provided identification of this request */ /* */ /* evtid = unique identification of this request */ /* */ #define sys$canevtast SYS$CANEVTAST #ifdef __NEW_STARLET int sys$canevtast( void *evtnam, int (*evtadr)(void), unsigned int *evtfac, unsigned int acmode, unsigned int *flags, unsigned int reqid, unsigned int evtid); #else /* __OLD_STARLET */ int sys$canevtast(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CANEXH */ /* */ /* Cancel Exit Handler */ /* */ /* $CANEXH [desblk] */ /* */ /* desblk = address of exit control block describing exit handler */ /* to be deleted. If 0, delete all. */ /* */ #define sys$canexh SYS$CANEXH #ifdef __NEW_STARLET int sys$canexh( void *desblk); #else /* __OLD_STARLET */ int sys$canexh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CANTIM */ /* */ /* Cancel Timer Request */ /* */ /* $CANTIM [reqidt] ,[acmode] */ /* */ /* reqidt = request identification for request to be canceled. */ /* If 0, all requests canceled. */ /* acmode = access mode of requests to be canceled */ /* */ #define sys$cantim SYS$CANTIM #ifdef __NEW_STARLET int sys$cantim( unsigned __int64 reqidt, unsigned int acmode); #else /* __OLD_STARLET */ int sys$cantim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CANWAK */ /* */ /* Cancel Wakeup */ /* */ /* $CANWAK [pidadr] ,[prcnam] */ /* */ /* pidadr = address of process identification of process for */ /* which wakeups are to be canceled */ /* prcnam = address of process name string descriptor */ /* */ #define sys$canwak SYS$CANWAK #ifdef __NEW_STARLET int sys$canwak( unsigned int *pidadr, void *prcnam); #else /* __OLD_STARLET */ int sys$canwak(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CHANGE_ACL */ /* */ /* Set or modify an object's ACL */ /* */ /* $CHANGE_ACL [chan], objtyp, [objnam], */ /* itmlst, [acmode], [iosb], */ /* [contxt] , [routin], [orbadr] */ /* */ /* chan = number of a channel assigned to the object or */ /* 0 if object is specified by the objnam parameter */ /* */ /* objtyp = address of an object type code */ /* */ /* objnam = address of object name */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* acmode = address of a byte containing the access mode in */ /* which the arguments will be validated */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* contxt = address of a context long word (used for iterative */ /* calls or a multi-entry item list) */ /* */ /* routin = address of routine to be executed in kernel mode */ /* (obsolete) */ /* */ /* orbadr = address of a user supplied ORB */ /* */ #define sys$change_acl SYS$CHANGE_ACL #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$change_acl( unsigned short int chan, unsigned int *objtyp, void *objnam, void *itmlst, unsigned int *acmode, struct _iosb *iosb, unsigned int *contxt, int (*routin)(void), void *orbadr); #else /* __OLD_STARLET */ int sys$change_acl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CHANGE_CLASS objtyp, [objnam], itmlst */ /* [acmode], [orbadr] */ /* */ /* Modify an objects access class */ /* */ /* objtyp = address of an object type code */ /* */ /* objnam = address of an object name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* acmode = address of a byte containing the access mode in */ /* which the arguments will be validated */ /* */ /* orbadr = address of routine to be executed in kernel mode */ /* */ /* */ #define sys$change_class SYS$CHANGE_CLASS #ifdef __NEW_STARLET int sys$change_class( unsigned int *objtyp, void *objnam, void *itmlst, unsigned int acmode, void *orbadr); #else /* __OLD_STARLET */ int sys$change_class(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CHECK_ACCESS */ /* */ /* $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt], */ /* [clsnam], [objpro], [usrpro] */ /* */ /* Check User Access to an Object */ /* */ /* objtyp = address of an object type code */ /* */ /* objnam = address of an object name descriptor */ /* */ /* usrnam = address of a user name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* contxt = address of longword for UAI context */ /* */ /* clsnam = address of object class name descriptor */ /* */ /* objpro = address of object profile descriptor(ORB TLV or channel) */ /* */ /* usrpro = address of user profile descriptor (ARB TLV) */ /* */ #define sys$check_access SYS$CHECK_ACCESS #ifdef __NEW_STARLET int sys$check_access( unsigned int *objtyp, void *objnam, void *usrnam, void *itmlst, unsigned int *contxt, void *clsnam, void *objpro, void *usrpro); #else /* __OLD_STARLET */ int sys$check_access(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CHECK_FEN */ /* */ /* Check if floating point enabled for current image */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$check_fen SYS$CHECK_FEN #ifdef __NEW_STARLET int sys$check_fen( __optional_params); #else /* __OLD_STARLET */ int sys$check_fen(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CHECK_PRIVILEGE[W] */ /* */ /* Check for process privilege and perform security audit. */ /* */ /* $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] */ /* */ /* efn = event flag to set on asynchronous service completion */ /* prvadr = address of quadword privilege mask or longword identifier */ /* altprv = address of quadword privilege mask to check against */ /* flags = control flags */ /* itmlst = address of a list of item descriptors */ /* audsts = longword to receive final completion status */ /* astadr = address of AST routine to call on service completion */ /* astprm = longword to pass to AST routine */ /* */ #define sys$check_privilege SYS$CHECK_PRIVILEGE #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$check_privilege( unsigned int efn, struct _generic_64 *prvadr, struct _generic_64 *altprv, unsigned int flags, void *itmlst, unsigned int *audsts, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$check_privilege(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$check_privilegew SYS$CHECK_PRIVILEGEW #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$check_privilegew( unsigned int efn, struct _generic_64 *prvadr, struct _generic_64 *altprv, unsigned int flags, void *itmlst, unsigned int *audsts, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$check_privilegew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CHKPRO */ /* */ /* Check Access Protection */ /* */ /* $CHKPRO itmlst, [objpro], [usrpro] */ /* */ /* itmlst = address of a list of item descriptors */ /* objpro = address of object handle descriptor (ORB TLV) */ /* usrpro = address of user handle descriptor (ARB TLV) */ /* */ #define sys$chkpro SYS$CHKPRO #ifdef __NEW_STARLET int sys$chkpro( void *itmlst, void *objpro, void *usrpro); #else /* __OLD_STARLET */ int sys$chkpro(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CLEAR_SYSTEM_EVENT */ /* */ /* Clear System Event Notification */ /* */ /* $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] */ /* */ /* handle = address of handle */ /* */ /* acmode = access mode of AST */ /* */ /* event = code indicating type of event */ /* */ #define sys$clear_system_event SYS$CLEAR_SYSTEM_EVENT #ifdef __NEW_STARLET int sys$clear_system_event( unsigned __int64 *handle, unsigned int acmode, unsigned int event); #else /* __OLD_STARLET */ int sys$clear_system_event(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CLEAR_UNWIND_TABLE */ /* */ /* Clears unwind table (UT) information. */ /* */ /* $CLEAR_UNWIND_TABLE code_base_va */ /* */ /* code_base_va = process virtual address of the start of a registered code region */ /* */ #define sys$clear_unwind_table SYS$CLEAR_UNWIND_TABLE #ifdef __NEW_STARLET int sys$clear_unwind_table( unsigned __int64 code_base_va); #else /* __OLD_STARLET */ int sys$clear_unwind_table(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CLRCLUEVT */ /* */ /* Clear Cluster Event Notification */ /* */ /* $CLRCLUEVT [handle], [acmode], [event] */ /* */ /* handle = address of handle */ /* */ /* acmode = access mode of AST */ /* */ /* event = code indicating type of event */ /* */ #define sys$clrcluevt SYS$CLRCLUEVT #ifdef __NEW_STARLET int sys$clrcluevt( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *handle, #else unsigned __int64 handle, #endif unsigned int acmode, unsigned int event); #else /* __OLD_STARLET */ int sys$clrcluevt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CLREF */ /* */ /* Clear Event Flag */ /* */ /* $CLREF efn */ /* */ /* efn = number of event flag to be cleared */ /* */ #define sys$clref SYS$CLREF #ifdef __NEW_STARLET int sys$clref( unsigned int efn); #else /* __OLD_STARLET */ int sys$clref(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CLOSE */ /* */ /* Close File */ /* */ /* $CLOSE fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$close SYS$CLOSE #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$close( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$close(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CMEXEC */ /* */ /* Change to Executive Mode */ /* */ /* $CMEXEC routin ,[arglst] */ /* */ /* routin = address of the routine to be executed in executive */ /* mode */ /* arglst = address of argument list to be supplied to the */ /* routine */ /* */ #define sys$cmexec SYS$CMEXEC #ifdef __NEW_STARLET int sys$cmexec( int (*routin)(__unknown_params), unsigned int *arglst); #else /* __OLD_STARLET */ int sys$cmexec(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CMEXEC_64 */ /* */ /* Change to Executive Mode with Quadword Argument List */ /* */ /* $CMEXEC_64 routin_64 ,[arglst_64] */ /* */ /* routin_64 = address of the routine to be executed in executive */ /* mode */ /* arglst_64 = address of quadword argument list to be supplied to the */ /* routine */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$cmexec_64 SYS$CMEXEC_64 #ifdef __NEW_STARLET int sys$cmexec_64( int (*routin_64)(__unknown_params), unsigned __int64 *arglst_64); #else /* __OLD_STARLET */ int sys$cmexec_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CMKRNL */ /* */ /* Change to Kernel Mode */ /* */ /* $CMKRNL routin ,[arglst] */ /* */ /* routin = address of routine to be executed in kernel mode */ /* */ /* arglst = address of argument list to be supplied to routine */ /* */ #define sys$cmkrnl SYS$CMKRNL #ifdef __NEW_STARLET int sys$cmkrnl( int (*routin)(__unknown_params), unsigned int *arglst); #else /* __OLD_STARLET */ int sys$cmkrnl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CMKRNL_64 */ /* */ /* Change to Kernel Mode with Quadword Argument List */ /* */ /* $CMKRNL_64 routin_64 ,[arglst_64] */ /* */ /* routin_64 = address of routine to be executed in kernel mode */ /* */ /* arglst_64 = address of quadword argument list to be supplied to routine */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$cmkrnl_64 SYS$CMKRNL_64 #ifdef __NEW_STARLET int sys$cmkrnl_64( int (*routin_64)(__unknown_params), unsigned __int64 *arglst_64); #else /* __OLD_STARLET */ int sys$cmkrnl_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $CONNECT */ /* */ /* Connect File */ /* */ /* $CONNECT rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$connect SYS$CONNECT #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$connect( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$connect(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CNTREG */ /* */ /* Contract Program/Control Region */ /* */ /* $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] */ /* */ /* pagcnt = number of pages to be deleted from end of region */ /* */ /* retadr = address of 2-longword array to receive virtual */ /* addresses of starting and ending page of deleted area */ /* */ /* acmode = access mode for which service is performed */ /* */ /* region = region indicator */ /* 0 -> program (P0) region 1 -> control (P1) region */ /* */ #define sys$cntreg SYS$CNTREG #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cntreg( unsigned int pagcnt, struct _va_range *retadr, unsigned int acmode, char region); #else /* __OLD_STARLET */ int sys$cntreg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $CPU_CAPABILITIES */ /* */ /* Modify CPU user capabilities */ /* */ /* $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] */ /* */ /* cpu_id = CPUID number of processor to be affected by changes */ /* select_mask = address of bitmask indicating which capabilities */ /* are to be involved in the specified operation */ /* modify_mask = address of bitmask indicating final state */ /* of those capabilities specified in select_mask */ /* prev_mask = address of user quadword that will hold the */ /* previous states of the individual capabilities */ /* flags = address of behavioral flags for this operation */ /* */ #define sys$cpu_capabilities SYS$CPU_CAPABILITIES #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cpu_capabilities( int cpu_id, struct _generic_64 *select_mask, struct _generic_64 *modify_mask, struct _generic_64 *prev_mask, struct _generic_64 *flags); #else /* __OLD_STARLET */ int sys$cpu_capabilities(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $CPU_TRANSITION */ /* $CPU_TRANSITIONW */ /* */ /* CPU State Transitions */ /* */ /* $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm */ /* $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm */ /* Inputs: tran_code - Transition code of operation to be initiated */ /* cpu_id - CPU ID of processor to affected */ /* nodename - ASCII descriptor name equivalent to node ID */ /* node_id - Galactic node ID */ /* flags - Quadword pointer to longword behavioral flags */ /* efn - Event flag number for completion notification */ /* iosb - IOSB block address for completion notification */ /* astadr - Address of AST routine name on completion */ /* astprm - AST parameter to be passed back on completion */ /* timout - Timeout count in seconds */ /* */ #define sys$cpu_transition SYS$CPU_TRANSITION #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cpu_transition( int tran_code, int cpu_id, void *nodename, int node_id, unsigned int flags, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int timout); #else /* __OLD_STARLET */ int sys$cpu_transition(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$cpu_transitionw SYS$CPU_TRANSITIONW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cpu_transitionw( int tran_code, int cpu_id, void *nodename, int node_id, unsigned int flags, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int timout); #else /* __OLD_STARLET */ int sys$cpu_transitionw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $CREATE */ /* */ /* Create File */ /* */ /* $CREATE fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$create SYS$CREATE #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$create(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CREATE_MAPPING */ /* */ /* Create Mapping record database */ /* */ /* $CREATE_MAPPING */ /* */ #define sys$create_mapping SYS$CREATE_MAPPING #ifdef __NEW_STARLET int sys$create_mapping(void); #else /* __OLD_STARLET */ int sys$create_mapping(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CREATE_PROXY */ /* */ /* Create proxy database */ /* */ /* $CREATE_PROXY */ /* */ /* */ #define sys$create_proxy SYS$CREATE_PROXY #ifdef __NEW_STARLET int sys$create_proxy(void); #else /* __OLD_STARLET */ int sys$create_proxy(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $CREATE_UID */ /* */ /* Create a Universal Identifier */ /* */ /* $CREATE_UID UID */ /* */ /* UID = address of the 16 byte buffer to receive the UID. */ /* */ #define sys$create_uid SYS$CREATE_UID #ifdef __NEW_STARLET int sys$create_uid( unsigned int uid [4]); #else /* __OLD_STARLET */ int sys$create_uid(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CREATE_BUFOBJ */ /* */ /* Create I/O Buffer Object */ /* */ /* $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle */ /* */ /* inadr = address of 2-longword array containing starting and ending */ /* virtual addresses of existing VA to include in buffer object */ /* */ /* retadr = address of 2-longword array to receive addresses */ /* actually included in the buffer object */ /* */ /* acmode = access mode of owner of buffer object */ /* */ /* flags = request option flags */ /* */ /* Bit Meaning (if set) */ /* */ /* 0 Return system virtual address of buffer object in RETADR */ /* (Caller must be in kernel mode) */ /* */ /* buffer_handle = address of a quadword to receive the buffer handle */ /* that identifies the created buffer object */ /* */ #define sys$create_bufobj SYS$CREATE_BUFOBJ #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_bufobj( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int flags, struct _generic_64 *buffer_handle); #else /* __OLD_STARLET */ int sys$create_bufobj(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CREATE_BUFOBJ_64 */ /* */ /* Create I/O Buffer Object */ /* */ /* $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, */ /* buffer_handle_64 */ /* */ /* start_va_64 = Starting address of existing address to include in buffer object */ /* */ /* length_64 = Byte length of addresses to include in buffer object */ /* */ /* acmode = access mode of owner of buffer object */ /* */ /* flags = request option flags */ /* */ /* Flag Meaning (if specified) */ /* */ /* CBO_M_RETSVA Return system virtual address of buffer object in return_va_64 */ /* (Caller must be in kernel mode) */ /* CBO_M_SVA_32 Create buffer object window in 32-bit (S0/S1) system space */ /* */ /* return_va_64 = Address of buffer object created */ /* */ /* return_length_64 = Length of buffer object created */ /* */ /* buffer_handle_64 = address of a quadword to receive the buffer handle */ /* that identifies the created buffer object */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_bufobj_64 SYS$CREATE_BUFOBJ_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_bufobj_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, struct _generic_64 *buffer_handle_64); #else /* __OLD_STARLET */ int sys$create_bufobj_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CREATE_GFILE */ /* */ /* Create Permanent Global Disk File Section */ /* */ /* $CREATE_GFILE gsdnam_64, ident_64, file_offset_64, length_64, chan, acmode, flags, */ /* return_length_64[, fault_cluster] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* file_offset_64 = Byte offset into file to start section */ /* */ /* length_64 = Byte length of section to create */ /* */ /* chan = Number of channel on which file is accessed */ /* */ /* acmode = Access mode for section */ /* */ /* flags = Section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_CRF Copy-on-reference section */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write section */ /* */ /* return_length_64 = Length of section created */ /* */ /* fault_cluster = Page fault cluster size in bytes */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_gfile SYS$CREATE_GFILE #ifdef __cplusplus /* Define structure prototypes */ struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_gfile( void *gsdnam_64, struct _secid *ident_64, unsigned __int64 file_offset_64, unsigned __int64 length_64, unsigned short int chan, unsigned int acmode, unsigned int flags, unsigned __int64 *return_length_64, __optional_params); #else /* __OLD_STARLET */ int sys$create_gfile(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CREATE_GDZRO */ /* */ /* Create Permanent Global Demand Zero Section */ /* */ /* $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mask] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* length_64 = Byte length of section to create */ /* */ /* acmode = Access mode for section */ /* */ /* flags = Section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_SYSGBL System global section */ /* */ /* SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from */ /* */ /* reserved_length_64 = Length of memory reserved for this global section */ /* */ /* rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_gdzro SYS$CREATE_GDZRO #ifdef __cplusplus /* Define structure prototypes */ struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_gdzro( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, __optional_params ); #else /* __OLD_STARLET */ int sys$create_gdzro(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CREATE_GPFILE */ /* */ /* Create Permanent Global Page File Section */ /* */ /* $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* length_64 = Byte length of section to create */ /* */ /* acmode = Access mode for section */ /* */ /* flags = Section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_SYSGBL System global section */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_gpfile SYS$CREATE_GPFILE #ifdef __cplusplus /* Define structure prototypes */ struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_gpfile( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 length_64, unsigned int acmode, unsigned int flags); #else /* __OLD_STARLET */ int sys$create_gpfile(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CREATE_GPFN */ /* */ /* Create Permanent Global Page Frame Section */ /* */ /* $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* start_pfn = Page frame number of first page in section */ /* */ /* page_count = Number of page frames in section */ /* */ /* acmode = Access mode for section */ /* */ /* flags = Section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_ARGS64 All arguments are passed as 64-bits */ /* SEC$M_SYSGBL System global section */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_gpfn SYS$CREATE_GPFN #ifdef __cplusplus /* Define structure prototypes */ struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_gpfn( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 start_pfn, unsigned __int64 page_count, unsigned int acmode, unsigned int flags); #else /* __OLD_STARLET */ int sys$create_gpfn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $CREATE_RDB */ /* */ /* Create The Rights Database */ /* */ /* $CREATE_RDB [sysid] */ /* */ /* sysid = address of the quadword system identifier */ /* to store in the maintenance record */ /* */ #define sys$create_rdb SYS$CREATE_RDB #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_rdb( struct _generic_64 *sysid); #else /* __OLD_STARLET */ int sys$create_rdb(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CREATE_REGION_64 */ /* */ /* Create Virtual Address Region */ /* */ /* $CREATE_REGION_64 length_64, region_prot, flags, return_region_id_64, return_va_64, */ /* return_length_64[, start_va_64] */ /* */ /* length_64 = Byte length of region to create */ /* */ /* region_prot = Protection on region */ /* */ /* flags = Region characteristics */ /* */ /* return_region_id_64 = Region id associated with newly created region */ /* */ /* return_va_64 = Starting address of region created */ /* */ /* return_length_64 = Length of region created */ /* */ /* start_va_64 = Starting address to create region */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$create_region_64 SYS$CREATE_REGION_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_region_64( unsigned __int64 length_64, unsigned int region_prot, unsigned int flags, struct _generic_64 *return_region_id, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params); #else /* __OLD_STARLET */ int sys$create_region_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $CREATE_USER_PROFILE */ /* */ /* Create a user security profile. */ /* */ /* $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] */ /* */ /* usrnam = address of username descriptor (optional with CHP$M_NOACCESS) */ /* itmlst = address of item list */ /* flags = flags longword */ /* usrpro = address of buffer to receive user profile (opaque byte string) */ /* usrprolen = address of longword to receive user profile length */ /* contxt = address of longword to receive UAI context */ /* */ #define sys$create_user_profile SYS$CREATE_USER_PROFILE #ifdef __NEW_STARLET int sys$create_user_profile( void *usrnam, void *itmlst, unsigned int flags, void *usrpro, unsigned int *usrprolen, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$create_user_profile(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CRELNM */ /* */ /* Create Logical Name */ /* */ /* $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] */ /* */ /* attr = address of logical name attributes */ /* */ /* Attribute Meaning */ /* LNM$M_CONFINE Logical name not to be copied into sub-process */ /* LNM$M_NO_ALIAS Logical name can not be aliased */ /* LNM$M_CRELOG Logical name created using $CRELOG */ /* */ /* tabnam = address of logical name table string descriptor */ /* */ /* lognam = address of logical name string descriptor */ /* */ /* acmode = address of access mode for logical name */ /* */ /* itmlst = address of a list of item descriptors */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crelnm SYS$CRELNM #ifdef __NEW_STARLET int sys$crelnm( unsigned int *attr, void *tabnam, void *lognam, unsigned char *acmode, void *itmlst); #else /* __OLD_STARLET */ int sys$crelnm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRELNT */ /* */ /* Create Logical Name Table */ /* */ /* $CRELNT [attr], [resnam], [reslen], [quota], */ /* [promsk], [tabnam], [acmode], [partab], [uic] */ /* */ /* attr = address of logical name table attributes */ /* */ /* resnam = address of descriptor of a buffer to receive the */ /* created table's name */ /* */ /* reslen = address of word to recieve length of created table's */ /* name */ /* */ /* quota = address of quota associated with logical name table */ /* */ /* promsk = address of protection mask */ /* */ /* tabnam = address of descriptor of logical name table name to be created */ /* */ /* partab = address of name of table parent string descriptor */ /* */ /* acmode = address of access mode for logical name */ /* */ /* uic = owner of table created in response to remote request */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crelnt SYS$CRELNT #ifdef __NEW_STARLET int sys$crelnt( unsigned int *attr, void *resnam, unsigned short int *reslen, unsigned int *quota, unsigned short int *promsk, void *tabnam, void *partab, unsigned char *acmode, __optional_params); #else /* __OLD_STARLET */ int sys$crelnt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRELOG */ /* */ /* Create Logical Name */ /* */ /* $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] */ /* */ /* tblflg = logical name table number */ /* 0 -> system (default) 1 -> group 2 -> process */ /* */ /* lognam = address of logical name string descriptor */ /* */ /* eqlnam = address of equivalence name string descriptor */ /* */ /* acmode = access mode for logical name (process table only) */ /* */ #define sys$crelog SYS$CRELOG #ifdef __NEW_STARLET int sys$crelog( unsigned int tblflg, void *lognam, void *eqlnam, unsigned int acmode); #else /* __OLD_STARLET */ int sys$crelog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CREMBX */ /* */ /* Create Mailbox and Assign Channel */ /* */ /* $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] */ /* */ /* prmflg = permanent flag */ /* 0 -> temporary (default) 1 -> permanent */ /* */ /* chan = address of word to receive channel */ /* */ /* maxmsg = maximum message size that may be received */ /* */ /* bufquo = number of bytes that can be used to buffer messages */ /* */ /* promsk = protection mask */ /* */ /* acmode = access mode of created mailbox */ /* */ /* lognam = address of logical name string descriptor for mailbox */ /* */ /* flags = optional flags for mailbox creation and channel assignment */ /* */ #define sys$crembx SYS$CREMBX #ifdef __NEW_STARLET int sys$crembx( char prmflg, unsigned short int *chan, unsigned int maxmsg, unsigned int bufquo, unsigned int promsk, unsigned int acmode, void *lognam, __optional_params); #else /* __OLD_STARLET */ int sys$crembx(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CREPRC */ /* */ /* Create Process */ /* */ /* $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr] */ /* ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] */ /* ,[node], [home_rad]. [lt_limit] */ /* */ /* pidadr = address of longword to return id of created process */ /* */ /* image = address of string descriptor for image name */ /* */ /* input = address of string descriptor for SYS$INPUT */ /* */ /* output = address of string descriptor for SYS$OUTPUT */ /* */ /* error = address of string descriptor for SYS$ERROR */ /* */ /* prvadr = address of quadword privilege list */ /* */ /* quota = address of quota list */ /* */ /* prcnam = address of string descriptor for process name */ /* */ /* baspri = base priority (0-31) */ /* */ /* uic = user identification code. If 0, create a subprocess */ /* */ /* mbxunt = mailbox unit for termination message */ /* */ /* stsflg = status and mode flag bits */ /* */ /* Bit Meaning */ /* */ /* 0 disable resource wait mode */ /* 1 enable system service failure exception mode */ /* 2 inhibit process swapping */ /* 3 disable accounting messages */ /* 4 batch process */ /* 5 cause created process to hibernate */ /* 6 allow login without authorization file check */ /* 7 process is a network connect object */ /* 22 start process on specified home rad */ /* 26 set kernel thread limit for the process */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* node = address of string descriptor for SCS node name */ /* */ /* home_rad = RAD to start process on, if bit 22 in stsflg is set */ /* */ /* kt_limit = kernel thread limit of the process, if bit 26 in stsflg is set */ #define sys$creprc SYS$CREPRC #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$creprc( unsigned int *pidadr, void *image, void *input, void *output, void *error, struct _generic_64 *prvadr, unsigned int *quota, void *prcnam, unsigned int baspri, unsigned int uic, unsigned short int mbxunt, unsigned int stsflg, __optional_params ); #else /* __OLD_STARLET */ int sys$creprc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CRETVA */ /* */ /* Create Virtual Address Space */ /* */ /* $CRETVA inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual address of pages to be created */ /* */ /* retadr = address of a 2-longword array to receive starting and */ /* ending virtual address of pages actually created */ /* */ /* acmode = access mode for the new pages (protection is */ /* read/write for acmode and more privileged modes) */ /* */ #define sys$cretva SYS$CRETVA #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cretva( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$cretva(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CRETVA_64 */ /* */ /* Create Virtual Address Space */ /* */ /* $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_length_64 */ /* [, page_prot] */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* length_64 = Byte length of addresses to create */ /* */ /* acmode = access mode for the new pages (protection is */ /* read/write for acmode and more privileged modes) */ /* */ /* flags = Address space creation flags */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* page_prot = desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$cretva_64 SYS$CRETVA_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$cretva_64( struct _generic_64 *region_id_64, void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params); #else /* __OLD_STARLET */ int sys$cretva_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC */ /* */ /* Create and Map Section */ /* */ /* $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident] */ /* ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of space to map section */ /* */ /* retadr = address of 2-longword array to receive addresses */ /* actually mapped */ /* */ /* acmode = access mode of owner of pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_GBL Global section */ /* SEC$M_CRF Copy-on-reference section */ /* SEC$M_DZRO Demand zero pages */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_PERM Permanent section */ /* SEC$M_PFNMAP Physical page frame section */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write section */ /* */ /* gsdnam = address of global section name string descriptor */ /* */ /* ident = address of quadword containing version id and match control */ /* */ /* relpag = relative page number within section */ /* */ /* chan = number of channel on which file is accessed */ /* */ /* pagcnt = number of pages in section */ /* */ /* vbn = virtual block number of beginning of section or */ /* physical page frame number of beginning of section */ /* */ /* prot = protection mask */ /* */ /* pfc = page fault cluster size */ /* */ #define sys$crmpsc SYS$CRMPSC #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int flags, void *gsdnam, struct _secid *ident, unsigned int relpag, unsigned short int chan, unsigned int pagcnt, unsigned int vbn, unsigned int prot, unsigned int pfc); #else /* __OLD_STARLET */ int sys$crmpsc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CRMPSC_FILE_64 */ /* */ /* Create and Map Private Disk File Section */ /* */ /* $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags, */ /* return_va_64, return_length_64 */ /* [, fault_cluster[, start_va_64[, page_prot]]] */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* file_offset_64 = Byte offset into file to start section */ /* */ /* length_64 = Byte length of addresses to create */ /* */ /* chan = number of channel on which file is accessed */ /* */ /* acmode = access mode for the new pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_CRF Copy-on-reference section */ /* SEC$M_DZRO Demand zero pages */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_WRT Read/write section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* fault_cluster = Page fault cluster size in bytes */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_file_64 SYS$CRMPSC_FILE_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_file_64( struct _generic_64 *region_id_64, unsigned __int64 file_offset_64, unsigned __int64 length_64, unsigned short int chan, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_file_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC_GFILE_64 */ /* */ /* Create and Map Global Disk File Section */ /* */ /* $CRMPSC_GFILE_64 gsdnam_64, ident_64, file_offset_64, length_64, chan, region_id_64, */ /* section_offset_64, acmode, flags, return_va_64, return_length_64 */ /* [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* file_offset_64 = Byte offset into file to start section */ /* */ /* length_64 = Byte length of section to create */ /* */ /* chan = number of channel on which file is accessed */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* section_offset_64 = Relative byte within global section to start mapping */ /* */ /* acmode = access mode for the new pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_CRF Copy-on-reference section */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_PERM Permanent section */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* fault_cluster = Page fault cluster size in bytes */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* map_length_64 = Byte length of address space to map */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_gfile_64 SYS$CRMPSC_GFILE_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_gfile_64( void *gsdnam_64, struct _secid *ident_64, unsigned __int64 file_offset_64, unsigned __int64 length_64, unsigned short int chan, struct _generic_64 *region_id_64, unsigned __int64 section_offset_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_gfile_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC_GDZRO_64 */ /* */ /* Create and Map Global Demand Zero Section */ /* */ /* $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, */ /* acmode, flags, return_va_64, return_length_64 */ /* [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* length_64 = Byte length of section to create */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* section_offset_64 = Relative byte within global section to start mapping */ /* */ /* acmode = access mode for the new pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_PERM Permanent section */ /* SEC$M_SYSGBL System global section */ /* SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* map_length_64 = Byte length of address space to map */ /* */ /* reserved_length_64 = Length of memory reserved for this global section */ /* */ /* rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_gdzro_64 SYS$CRMPSC_GDZRO_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_gdzro_64( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 length_64, struct _generic_64 *region_id_64, unsigned __int64 section_offset_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_gdzro_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC_GPFILE_64 */ /* */ /* Create and Map Global Page File Section */ /* */ /* $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, */ /* acmode, flags, return_va_64, return_length_64 */ /* [, start_va_64[, map_length_64[, page_prot]]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* length_64 = Byte length of section to create */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* section_offset_64 = Relative byte within global section to start mapping */ /* */ /* acmode = access mode for the new pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_PERM Permanent section */ /* SEC$M_SYSGBL System global section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* map_length_64 = Byte length of address space to map */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_gpfile_64 SYS$CRMPSC_GPFILE_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_gpfile_64( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 length_64, struct _generic_64 *region_id_64, unsigned __int64 section_offset_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_gpfile_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC_GPFN_64 */ /* */ /* Create and Map Global Page Frame Section */ /* */ /* $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, page_count, region_id_64, relative_page, */ /* acmode, flags, return_va_64, return_length_64 */ /* [, start_va_64[, map_page_count[, page_prot]]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* prot = Protection mask */ /* */ /* start_pfn = Page frame number of first page in section */ /* */ /* page_count = Number of page frames in section */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* relative_page = Relative page within global section to start mapping */ /* */ /* acmode = Access mode of owner of mapped pages */ /* */ /* flags = Flags overriding default section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_ARGS64 All arguments are passed as 64-bits */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write mapping of section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* map_page_count = Number of page frames to map */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_gpfn_64 SYS$CRMPSC_GPFN_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_gpfn_64( void *gsdnam_64, struct _secid *ident_64, unsigned int prot, unsigned __int64 start_pfn, unsigned __int64 page_count, struct _generic_64 *region_id_64, unsigned __int64 relative_page, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_gpfn_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $CRMPSC_PFN_64 */ /* */ /* Create and Map Private Page Frame Section */ /* */ /* $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags, */ /* return_va_64, return_length_64 */ /* [, start_va_64[, page_prot]] */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* start_pfn = Page frame number of first page in section */ /* */ /* page_count = Number of page frames in section */ /* */ /* acmode = access mode for the new pages */ /* */ /* flags = section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_ARGS64 All arguments are passed as 64-bits */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_GRANHINT Set granularity hints on pages */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_WRT Read/write section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$crmpsc_pfn_64 SYS$CRMPSC_PFN_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$crmpsc_pfn_64( struct _generic_64 *region_id_64, unsigned __int64 start_pfn, unsigned __int64 page_count, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$crmpsc_pfn_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DACEFC */ /* */ /* Disassociate Common Event Flag Cluster */ /* */ /* $DACEFC efn */ /* */ /* efn = number of any event flag in the cluster */ /* */ #define sys$dacefc SYS$DACEFC #ifdef __NEW_STARLET int sys$dacefc( unsigned int efn); #else /* __OLD_STARLET */ int sys$dacefc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DALLOC */ /* */ /* Deallocate Device */ /* */ /* $DALLOC [devnam] ,[acmode] */ /* */ /* devnam = address of device name descriptor. If 0, deallocate all */ /* */ /* acmode = access mode associated with device */ /* */ #define sys$dalloc SYS$DALLOC #ifdef __NEW_STARLET int sys$dalloc( void *devnam, unsigned int acmode); #else /* __OLD_STARLET */ int sys$dalloc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DASSGN */ /* */ /* Deassign I/O Channel */ /* */ /* $DASSGN chan */ /* */ /* chan = number of channel to be deassigned */ /* */ #define sys$dassgn SYS$DASSGN #ifdef __NEW_STARLET int sys$dassgn( unsigned short int chan); #else /* __OLD_STARLET */ int sys$dassgn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DCLAST */ /* */ /* Declare AST */ /* */ /* $DCLAST astadr ,[astprm] ,[acmode] */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* acmode = access mode for which the AST is to be declared */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$dclast SYS$DCLAST #ifdef __NEW_STARLET int sys$dclast( void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int acmode); #else /* __OLD_STARLET */ int sys$dclast(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DCLCMH */ /* */ /* Declare Change Mode or Compatibility Mode Handler */ /* */ /* $DCLCMH addres ,[prvhnd] ,[type] */ /* */ /* addres = address of handler */ /* */ /* prvhnd = address of longword to receive previous handler address */ /* */ /* type = handler type indicator */ /* 0 -> change mode (current mode) 1 -> compatibility mode */ /* */ #define sys$dclcmh SYS$DCLCMH #ifdef __NEW_STARLET int sys$dclcmh( int (*addres)(__unknown_params), void *(*(prvhnd)), char type); #else /* __OLD_STARLET */ int sys$dclcmh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DCLEVT */ /* */ /* Declare an Event */ /* */ /* $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags] */ /* ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] */ /* */ /* evtnam = address of descriptor of event name */ /* */ /* rcvacl = address of descriptor of ACL */ /* */ /* evtfac = address of event facility code */ /* */ /* acmode = access mode of event declaration */ /* */ /* flags = optional flags */ /* */ /* evtdata = address of descriptor of optional event data */ /* */ #define sys$dclevt SYS$DCLEVT #ifdef __NEW_STARLET int sys$dclevt( void *evtnam, void *rcvacl, unsigned int *evtfac, unsigned int acmode, unsigned int flags, void *evtdata, unsigned int nullarg1, unsigned int nullarg2, unsigned int nullarg3, unsigned int nullarg4); #else /* __OLD_STARLET */ int sys$dclevt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DCLEXH */ /* */ /* Declare Exit Handler */ /* */ /* $DCLEXH desblk */ /* */ /* desblk = address of exit control block containing: */ /* */ /* +-------------------------------+ */ /* | forward link | */ /* +-------------------------------+ */ /* | exit handler address | */ /* +-------------------------------+ */ /* | argument count | */ /* +-------------------------------+ */ /* | address to store reason | */ /* +-------------------------------+ */ /* | additional arguments | */ /* +-- for exit handler, --+ */ /* | if any | */ /* +-------------------------------+ */ /* */ #define sys$dclexh SYS$DCLEXH #ifdef __NEW_STARLET int sys$dclexh( void *desblk); #else /* __OLD_STARLET */ int sys$dclexh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DEFINE_MAPPING */ /* */ /* Define Mapping record types in the Mapping database */ /* */ /* $DEFINE_MAPPING initmlst [,outitmlst] */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* outitmlst = address of a list of item descriptors for information */ /* from the operation */ /* */ #define sys$define_mapping SYS$DEFINE_MAPPING #ifdef __NEW_STARLET int sys$define_mapping( void *initmlst, void *outitmlst); #else /* __OLD_STARLET */ int sys$define_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DELETE */ /* */ /* Delete Record */ /* */ /* $DELETE rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$delete SYS$DELETE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$delete( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$delete(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DELETE_BITMAP */ /* */ /* Delete a Write Bitmap */ /* */ /* $DELETE_BITMAP handle */ /* */ #define sys$delete_bitmap SYS$DELETE_BITMAP #ifdef __NEW_STARLET int sys$delete_bitmap( unsigned int handle); #else /* __OLD_STARLET */ int sys$delete_bitmap(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DELETE_INTRUSION */ /* */ /* Delete intrusion record */ /* */ /* $DELETE_INTRUSION user_criteria, [flags] */ /* */ /* user_criteria in address of user criteria descriptor */ /* flags in intrusion service flags */ /* */ #define sys$delete_intrusion SYS$DELETE_INTRUSION #ifdef __NEW_STARLET int sys$delete_intrusion( void *user_criteria, unsigned int flags); #else /* __OLD_STARLET */ int sys$delete_intrusion(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DELETE_MAPPING */ /* */ /* Delete Mapping record from Mapping database */ /* */ /* $DELETE_MAPPING initmlst */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* */ #define sys$delete_mapping SYS$DELETE_MAPPING #ifdef __NEW_STARLET int sys$delete_mapping( void *initmlst); #else /* __OLD_STARLET */ int sys$delete_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DELETE_PROXY */ /* */ /* Delete proxy record */ /* */ /* $DELETE_PROXY rem_node, rem_user, local_user, [flags] */ /* */ /* rem_node in address of remote node descriptor */ /* rem_user in address of remote user descriptor */ /* local_user in address of local user descriptor */ /* flags in proxy service flags */ /* */ #define sys$delete_proxy SYS$DELETE_PROXY #ifdef __NEW_STARLET int sys$delete_proxy( void *rem_node, void *rem_user, void *local_user, unsigned int flags); #else /* __OLD_STARLET */ int sys$delete_proxy(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DELLNM */ /* */ /* Delete Logical Name and/or Table */ /* */ /* $DELLNM [tabnam], [lognam], [acmode] */ /* */ /* tabnam = address of descriptor of logical name table name string */ /* */ /* lognam = address of descriptor of logical name string */ /* */ /* acmode = address of access mode for logical name */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$dellnm SYS$DELLNM #ifdef __NEW_STARLET int sys$dellnm( void *tabnam, void *lognam, unsigned char *acmode); #else /* __OLD_STARLET */ int sys$dellnm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DELLOG */ /* */ /* Delete Logical Name */ /* */ /* $DELLOG [tblflg] ,[lognam] ,[acmode] */ /* */ /* tblflg = logical name table number */ /* 0 -> system 1 -> group 2 -> process */ /* */ /* lognam = address of logical name string descriptor. If 0, */ /* delete all names */ /* */ /* acmode = access mode of logical name (process table only) */ /* */ #define sys$dellog SYS$DELLOG #ifdef __NEW_STARLET int sys$dellog( unsigned int tblflg, void *lognam, unsigned int acmode); #else /* __OLD_STARLET */ int sys$dellog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DELMBX */ /* */ /* Delete Mailbox */ /* */ /* $DELMBX chan */ /* */ /* chan = channel number assigned to the mailbox */ /* */ #define sys$delmbx SYS$DELMBX #ifdef __NEW_STARLET int sys$delmbx( unsigned short int chan); #else /* __OLD_STARLET */ int sys$delmbx(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DELPRC */ /* */ /* Delete Process */ /* */ /* $DELPRC [pidadr] ,[prcnam] ,[flags] */ /* */ /* pidadr = address of longword containing id of process to be deleted */ /* */ /* prcnam = address of string descriptor for process name to be deleted */ /* */ /* flags = optional flags longword for specifying options */ /* */ #define sys$delprc SYS$DELPRC #ifdef __NEW_STARLET int sys$delprc( unsigned int *pidadr, void *prcnam, __optional_params); #else /* __OLD_STARLET */ int sys$delprc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DELTVA */ /* */ /* Delete Virtual Address Space */ /* */ /* $DELTVA inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to delete */ /* */ /* retadr = address of 2-longword array to receive starting and */ /* ending addresses of pages actually deleted */ /* */ /* acmode = access mode for which service is performed */ /* */ #define sys$deltva SYS$DELTVA #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$deltva( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$deltva(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DELTVA_64 */ /* */ /* Delete Virtual Address Space */ /* */ /* $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* start_va_64 = Starting address of address space to delete */ /* */ /* length_64 = Byte length of addresses to delete */ /* */ /* acmode = access mode for which service is performed */ /* */ /* return_va_64 = Address of address space deleted */ /* */ /* return_length_64 = Length of address space deleted */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$deltva_64 SYS$DELTVA_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$deltva_64( struct _generic_64 *region_id_64, void *start_va_64, unsigned __int64 length_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$deltva_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DELETE_BUFOBJ */ /* */ /* Delete I/O Buffer Object */ /* */ /* $DELETE_BUFOBJ buffer_handle */ /* */ /* buffer_handle = address of a quadword that contains the buffer handle */ /* identifying the buffer object to be deleted */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$delete_bufobj SYS$DELETE_BUFOBJ #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$delete_bufobj( struct _generic_64 *buffer_handle); #else /* __OLD_STARLET */ int sys$delete_bufobj(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DELETE_REGION_64 */ /* */ /* Delete Virtual Address Region */ /* */ /* $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* acmode = Access mode for which service is performed */ /* */ /* return_va_64 = Address of address space deleted */ /* */ /* return_length_64 = Length of address space deleted */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$delete_region_64 SYS$DELETE_REGION_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$delete_region_64( struct _generic_64 *region_id_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$delete_region_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DEQ */ /* */ /* Dequeue Lock */ /* */ /* $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] */ /* */ /* lkid = lock ID of the lock to be dequeued */ /* */ /* valblk = address of the lock value block */ /* */ /* acmode = access mode of the locks to be dequeued */ /* */ /* flags = optional flags. */ /* */ /* LCK$M_DEQALL */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$deq SYS$DEQ #ifdef __NEW_STARLET int sys$deq( unsigned int lkid, void *valblk, unsigned int acmode, unsigned int flags); #else /* __OLD_STARLET */ int sys$deq(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DEVICE_SCAN */ /* */ /* Wildcard device scan */ /* */ /* $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] */ /* */ /* return_devnam = address of descriptor of returned device name buffer */ /* */ /* retlen = address to store length of device name returned */ /* */ /* search_devnam = address of descriptor of search device name */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* contxt = address of quadword context structures */ /* */ /* */ #define sys$device_scan SYS$DEVICE_SCAN #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$device_scan( void *return_devnam, unsigned short int *retlen, void *search_devnam, void *itmlst, struct _generic_64 *contxt); #else /* __OLD_STARLET */ int sys$device_scan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DGBLSC */ /* */ /* Delete Global Section */ /* */ /* $DGBLSC [flags] ,gsdnam ,[ident] */ /* */ /* flags = type of section */ /* 0 -> group section SEC$M_SYSGBL -> system section */ /* */ /* gsdnam = address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident = address of quadword containing version id and match control */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$dgblsc SYS$DGBLSC #ifdef __cplusplus /* Define structure prototypes */ struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$dgblsc( unsigned int flags, void *gsdnam, struct _secid *ident); #else /* __OLD_STARLET */ int sys$dgblsc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DIAGNOSE */ /* System Service for Diagnostics Programmers */ /* */ /* $DIAGNOSE function, P2, [cpu_id, [flags]] */ /* */ /* function = DIAG$SETAFF or DIAG$_ACTVCPUS */ /* */ /* P2 = enable flag if function is DIAG$SETAFF, or */ /* address to return actvcpus in if function */ /* is DIAG$_ACTVCPUS */ /* */ /* cpu_id = CPU number to set affinity to */ /* */ /* flags = masks governing the checking to do, whether */ /* affinity is set for image or process duration, */ /* whether to set affinity to primary cpu. */ /* */ #define sys$diagnose SYS$DIAGNOSE #ifdef __NEW_STARLET int sys$diagnose( unsigned int function, unsigned int p2, unsigned int cpu_id, unsigned int flags); #else /* __OLD_STARLET */ int sys$diagnose(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DISABLE_VP_USE */ /* */ /* Disable Use of the Vector Processor */ /* */ /* $DISABLE_VP_USE flags ,[curflg] ,[prvflg] */ /* */ /* flags = mask of facility(ies) that disabled vector use */ /* */ /* curflg = address of longword to receive current flags */ /* */ /* prvflg = address of longword to receive previous flags */ /* */ #define sys$disable_vp_use SYS$DISABLE_VP_USE #ifdef __NEW_STARLET int sys$disable_vp_use( unsigned int flags, unsigned int *curflg, unsigned int *prvflg); #else /* __OLD_STARLET */ int sys$disable_vp_use(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DISABLE_VP_USE_INT */ /* */ /* Disable Use of the Vector Processor, internal form */ /* */ /* $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] */ /* */ /* flags = mask of facility(ies) that disabled vector use */ /* */ /* curflg = address of longword to receive current flags */ /* */ /* prvflg = address of longword to receive previous flags */ /* */ #define sys$disable_vp_use_int SYS$DISABLE_VP_USE_INT #ifdef __NEW_STARLET int sys$disable_vp_use_int( unsigned int flags, unsigned int *curflg, unsigned int *prvflg); #else /* __OLD_STARLET */ int sys$disable_vp_use_int(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DISCONNECT */ /* */ /* Disconnect Record Stream */ /* */ /* $DISCONNECT rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$disconnect SYS$DISCONNECT #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$disconnect( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$disconnect(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DISMOU */ /* */ /* Dismount Volume */ /* */ /* $DISMOU [devnam], [flags], [itmlst] */ /* */ /* devnam = optional address of device name string descriptor */ /* */ /* flags = 32-bit status mask selecting options for the dismount */ /* The symbols for the flags are defined by the $DMTDEF */ /* macro. */ /* */ /* Flag Meaning */ /* */ /* DMT$M_NOUNLOAD Do not unload the volume. */ /* */ /* DMT$M_UNIT Dismount the specified device, rather */ /* than the entire volume set. */ /* */ /* itmlst = optional address of a list of item identifiers */ /* */ #define sys$dismou SYS$DISMOU #ifdef __NEW_STARLET int sys$dismou( void *devnam, unsigned int flags, __optional_params); #else /* __OLD_STARLET */ int sys$dismou(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DISPLAY */ /* */ /* Display File */ /* */ /* $DISPLAY fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$display SYS$DISPLAY #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$display( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$display(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DISPLAY_PROXY */ /* */ /* Display proxy record */ /* */ /* $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user, */ /* default_user, local_users, [flags], [context] */ /* */ /* rem_node in address of remote node descriptor */ /* rem_user in address of remote user descriptor */ /* buffer_sizes out address of array of words to receive output string lengths */ /* proxy_node out address of descriptor to receive matching proxy node */ /* proxy_user out address of descriptor to receive matching proxy user */ /* default_user out address of descriptor to receive default user */ /* local_users out address of array of blocks to receive local users */ /* flags in proxy service flags */ /* context in out address of optional longword context */ /* */ #define sys$display_proxy SYS$DISPLAY_PROXY #ifdef __NEW_STARLET int sys$display_proxy( void *rem_node, void *rem_user, unsigned short int buffer_sizes [4], void *proxy_node, void *proxy_user, void *default_user, unsigned int *local_users, unsigned int flags, unsigned int *context); #else /* __OLD_STARLET */ int sys$display_proxy(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DLCEFC */ /* */ /* Delete Common Event Flag Cluster */ /* */ /* $DLCEFC name */ /* */ /* name = address of cluster name string descriptor */ /* */ #define sys$dlcefc SYS$DLCEFC #ifdef __NEW_STARLET int sys$dlcefc( void *name); #else /* __OLD_STARLET */ int sys$dlcefc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DNS */ /* */ /* DNS Clerk system service */ /* */ /* $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] */ /* ($DNSW) */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* dnsb = address of quadword I/O status block to receive final */ /* completion status */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ #define sys$dns SYS$DNS #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$dns( unsigned int efn, unsigned int func, void *itmlst, struct _iosb *dnsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$dns(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$dnsw SYS$DNSW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$dnsw( unsigned int efn, unsigned int func, void *itmlst, struct _iosb *dnsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$dnsw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $EMAA */ /* */ /* Call Entity Management Assist Agent */ /* */ /* $EMAA */ /* */ #define sys$emaa SYS$EMAA #ifdef __NEW_STARLET int sys$emaa( void *arglist, unsigned int *invokeid); #else /* __OLD_STARLET */ int sys$emaa(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ENABLE_VP_USE */ /* */ /* Enable Use of the Vector Processor */ /* */ /* $ENABLE_VP_USE flags ,[curflg] ,[prvflg] */ /* */ /* flags = mask of facility(ies) that disabled vector use */ /* */ /* curflg = address of longword to receive current flags */ /* */ /* prvflg = address of longword to receive previous flags */ /* */ #define sys$enable_vp_use SYS$ENABLE_VP_USE #ifdef __NEW_STARLET int sys$enable_vp_use( unsigned int flags, unsigned int *curflg, unsigned int *prvflg); #else /* __OLD_STARLET */ int sys$enable_vp_use(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ENABLE_VP_USE_INT */ /* */ /* Enable Use of the Vector Processor, internal form */ /* */ /* $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] */ /* */ /* flags = mask of facility(ies) that disabled vector use */ /* */ /* curflg = address of longword to receive current flags */ /* */ /* prvflg = address of longword to receive previous flags */ /* */ #define sys$enable_vp_use_int SYS$ENABLE_VP_USE_INT #ifdef __NEW_STARLET int sys$enable_vp_use_int( unsigned int flags, unsigned int *curflg, unsigned int *prvflg); #else /* __OLD_STARLET */ int sys$enable_vp_use_int(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ENQ */ /* */ /* Enqueue Lock Request */ /* */ /* $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid] */ /* ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] */ /* ,[range] ,[priority] */ /* */ /* efn = event flag to be set at completion */ /* */ /* lkmode = type of lock mode requested. Modes are: */ /* */ /* LCK$K_NLMODE null lock */ /* LCK$K_CRMODE concurrent read */ /* LCK$K_CWMODE concurrent write */ /* LCK$K_PRMODE protected read */ /* LCK$K_PWMODE protected write */ /* LCK$K_EXMODE exclusive lock */ /* */ /* lksb = address of the lock status block or extended lock status block */ /* */ /* flags = flags defining the characteristics of the lock. These are: */ /* */ /* LCK$M_NOQUEUE */ /* LCK$M_SYNCSTS */ /* LCK$M_SYSTEM */ /* LCK$M_VALBLK */ /* LCK$M_CONVERT */ /* */ /* resnam = address of string descriptor of the resource name */ /* (32-bit or 64-bit descriptor) */ /* */ /* parid = lock ID of the parent lock */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* blkast = address of entry mask of blocking AST routine */ /* */ /* acmode = Access mode to be associated with the lock */ /* */ /* rsdm_id = address of resource domain id */ /* */ /* range = optional range to be locked within resource */ /* */ /* priority = optional priority of request */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$enq SYS$ENQ #ifdef __NEW_STARLET int sys$enq( unsigned int efn, unsigned int lkmode, void *lksb, unsigned int flags, void *resnam, unsigned int parid, void (*astadr)(__unknown_params), unsigned __int64 astprm, void (*blkast)(__unknown_params), unsigned int acmode, unsigned int rsdm_id, __optional_params ); #else /* __OLD_STARLET */ int sys$enq(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$enqw SYS$ENQW #ifdef __NEW_STARLET int sys$enqw( unsigned int efn, unsigned int lkmode, void *lksb, unsigned int flags, void *resnam, unsigned int parid, void (*astadr)(__unknown_params), unsigned __int64 astprm, void (*blkast)(__unknown_params), unsigned int acmode, unsigned int rsdm_id, __optional_params ); #else /* __OLD_STARLET */ int sys$enqw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $ENTER */ /* */ /* Enter File */ /* */ /* $ENTER fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$enter SYS$ENTER #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$enter( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$enter(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ERAPAT */ /* */ /* Generate a security erase pattern. */ /* */ /* $ERAPAT type, [count], patadr */ /* */ /* type = type of security erase */ /* */ /* count = iteration count (seed for erase pattern) */ /* */ /* patadr = address of longword to receive erase pattern */ /* */ #define sys$erapat SYS$ERAPAT #ifdef __NEW_STARLET int sys$erapat( int type, unsigned int count, unsigned int *patadr); #else /* __OLD_STARLET */ int sys$erapat(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ERASE */ /* */ /* Erase File */ /* */ /* $ERASE fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$erase SYS$ERASE #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$erase( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$erase(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $EVDPOSTEVENT */ /* */ /* Post Event to EVD */ /* */ /* $EVDPOSTEVENT EVENT */ /* */ #define sys$evdpostevent SYS$EVDPOSTEVENT #ifdef __NEW_STARLET int sys$evdpostevent( void *event); #else /* __OLD_STARLET */ int sys$evdpostevent(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $EXIT */ /* */ /* Exit image */ /* */ /* $EXIT [code] */ /* */ /* code = longword completion status */ /* */ #define sys$exit SYS$EXIT #ifdef __NEW_STARLET int sys$exit( unsigned int code); #else /* __OLD_STARLET */ int sys$exit(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $EXPREG */ /* */ /* Expand Program/Control Region */ /* */ /* $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] */ /* */ /* pagcnt = number of pages to add to end of specified region */ /* */ /* retadr = address of 2-longword array to receive virtual */ /* addresses of starting and ending pages */ /* */ /* acmode = access mode of the new pages */ /* */ /* region = region indicator */ /* 0 -> program (P0) region 1 -> control (P1) region */ /* */ #define sys$expreg SYS$EXPREG #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$expreg( unsigned int pagcnt, struct _va_range *retadr, unsigned int acmode, char region); #else /* __OLD_STARLET */ int sys$expreg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $EXPREG_64 */ /* */ /* Expand Addresses Within a Region */ /* */ /* EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 */ /* [, page_prot] */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* length_64 = Byte length of addresses */ /* */ /* acmode = access mode for the new pages (protection is */ /* read/write for acmode and more privileged modes) */ /* */ /* flags = Address space creation flags */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$expreg_64 SYS$EXPREG_64 #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$expreg_64( struct _generic_64 *region_id_64, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params); #else /* __OLD_STARLET */ int sys$expreg_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $EXTEND */ /* */ /* Extend File */ /* */ /* $EXTEND fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$extend SYS$EXTEND #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$extend( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$extend(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $FAO */ /* */ /* Formatted ASCII Output */ /* */ /* $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] */ /* */ /* ctrstr = address of string descriptor for control string */ /* (32-bit or 64-bit descriptor) */ /* */ /* outlen = address of word in which to store output length */ /* */ /* outbuf = address of output buffer string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* p1... = variable number of arguments to FAO */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$fao SYS$FAO #ifdef __NEW_STARLET int sys$fao( void *ctrstr, unsigned short int *outlen, void *outbuf, __optional_params); #else /* __OLD_STARLET */ int sys$fao(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $FAOL */ /* */ /* Formatted ASCII Output With List Parameter */ /* */ /* $FAOL ctrstr ,[outlen] ,outbuf ,prmlst */ /* */ /* ctrstr = address of string descriptor for control string */ /* (32-bit or 64-bit descriptor) */ /* */ /* outlen = address of word to receive output string length */ /* */ /* outbuf = address of output buffer string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* prmlst = address of a list of longword parameters */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$faol SYS$FAOL #ifdef __NEW_STARLET int sys$faol( void *ctrstr, unsigned short int *outlen, void *outbuf, void *prmlst); #else /* __OLD_STARLET */ int sys$faol(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $FAOL_64 */ /* */ /* Formatted ASCII Output With Quadword List Parameter */ /* */ /* $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 */ /* */ /* ctrstr_64 = address of string descriptor for control string */ /* (32-bit or 64-bit descriptor) */ /* */ /* outlen_64 = address of word to receive output string length */ /* */ /* outbuf_64 = address of output buffer string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* prmlst_64 = address of a list of quadword parameters */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$faol_64 SYS$FAOL_64 #ifdef __NEW_STARLET int sys$faol_64( void *ctrstr_64, unsigned short int *outlen_64, void *outbuf_64, void *prmlst_64); #else /* __OLD_STARLET */ int sys$faol_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $FILES_64 */ /* */ /* Call the Files-64 file system */ /* */ /* $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* fsb = address of File System Block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ #define sys$files_64 SYS$FILES_64 #ifdef __NEW_STARLET int sys$files_64( unsigned int efn, unsigned short int func, void *fsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$files_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $FILESCAN */ /* */ /* Scan a string and identify a file specification */ /* */ /* $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] */ /* */ /* srcstr = address of string descriptor for source string */ /* valuelst = address of a list of item descriptors */ /* fldflags = address of a longword to receive flags */ /* auxout = address of string descriptor for output string */ /* retlen = address to store length of returned output string */ /* */ #define sys$filescan SYS$FILESCAN #ifdef __NEW_STARLET int sys$filescan( void *srcstr, void *valuelst, unsigned int *fldflags, void *auxout, unsigned short int *retlen); #else /* __OLD_STARLET */ int sys$filescan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FIND */ /* */ /* Find Record in File */ /* */ /* $FIND rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$find SYS$FIND #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$find( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$find(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FIND_HELD */ /* */ /* Find Identifiers Held By Holder */ /* */ /* $FIND_HELD holder, [id], [attrib], [contxt] */ /* */ /* holder = address of a quadword which specifies the holder */ /* id of the records to find */ /* id = address to return the identifier longword */ /* attrib = address to return the holder attributes longword */ /* contxt = address of a longword containing the record stream */ /* context. initially should be zero, value output */ /* on first call, value input on subsequent calls. */ /* */ #define sys$find_held SYS$FIND_HELD #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$find_held( struct _generic_64 *holder, unsigned int *id, unsigned int *attrib, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$find_held(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FIND_HOLDER */ /* */ /* Find Holder Of Identifier */ /* */ /* $FIND_HOLDER id, [holder], [attrib], [contxt] */ /* */ /* id = identifier longword whose holder records */ /* are to be found */ /* holder = address to return the holder id quadword */ /* attrib = address to return the attributes longword */ /* contxt = address of a longword containing the record stream */ /* context. initially should be zero, value output */ /* on first call, value input on subsequent calls. */ /* */ #define sys$find_holder SYS$FIND_HOLDER #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$find_holder( unsigned int id, struct _generic_64 *holder, unsigned int *attrib, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$find_holder(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FINISH_RDB */ /* */ /* Clean up RMS Stream */ /* */ /* $FINISH_RDB contxt */ /* */ /* contxt = address of a longword containing the record stream */ /* context. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$finish_rdb SYS$FINISH_RDB #ifdef __NEW_STARLET int sys$finish_rdb( unsigned int *contxt); #else /* __OLD_STARLET */ int sys$finish_rdb(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $FORCEX */ /* */ /* Force Exit */ /* */ /* $FORCEX [pidadr] ,[prcnam] ,[code] */ /* */ /* pidadr = address of process id of process to be forced to exit */ /* */ /* prcnam = address of process name descriptor for forced process */ /* */ /* code = longword completion status for exit service */ /* */ #define sys$forcex SYS$FORCEX #ifdef __NEW_STARLET int sys$forcex( unsigned int *pidadr, void *prcnam, unsigned int code); #else /* __OLD_STARLET */ int sys$forcex(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FORGE_WORD */ /* */ /* Forge random word. */ /* */ /* $FORGE_WORD [minlen], [maxlen], [mindata], [flags], [retdata], outlen, outstr */ /* */ /* minlen minimum word length to return */ /* maxlen maximum word length to return */ /* mindata minimum amount of data to return (in decibits) */ /* flags miscellaneous flags */ /* retdata longword to receive actual amount of information in word */ /* outlen word to receive length of returned word */ /* outstr address of buffer to receive word */ /* */ #define sys$forge_word SYS$FORGE_WORD #ifdef __NEW_STARLET int sys$forge_word( unsigned int minlen, unsigned int maxlen, unsigned int mindata, unsigned int flags, unsigned int *retdata, unsigned short int *outlen, void *outstr); #else /* __OLD_STARLET */ int sys$forge_word(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FORMAT_ACL */ /* */ /* Format an Access Control list Entry */ /* */ /* $FORMAT_ACL acl-entry, [acl-length], acl-string, */ /* [line-width], [term-desc], [line-indent], */ /* [bit-names], [routin] */ /* */ /* acl-entry = address of a descriptor of a buffer which */ /* contains the ACE */ /* */ /* acl-length = address of a word to receive the length of */ /* the output string */ /* */ /* acl-string = address of a descriptor of a buffer into */ /* which the output string is to be stored */ /* */ /* line-width = address of the maximum line width */ /* (0 = infinite) */ /* */ /* term_desc = address of a character descriptor containing */ /* a character string to be inserted whenever */ /* the line segment length exceeds the line-width */ /* */ /* line-indent = address of the number of columns to indent */ /* the output line segment */ /* */ /* bit-names = address of a access bit name table (32 entries) */ /* */ /* routin = address of routine to be executed in kernel mode */ /* */ #define sys$format_acl SYS$FORMAT_ACL #ifdef __NEW_STARLET int sys$format_acl( void *aclent, unsigned short int *acllen, void *aclstr, unsigned short int *width, void *trmdsc, unsigned short int *indent, unsigned int *accnam, int (*routin)(__unknown_params)); #else /* __OLD_STARLET */ int sys$format_acl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf, */ /* [width], [trmdsc], [routin], [fmtflg] */ /* */ /* Format security auditing event message */ /* */ /* fmttyp = format type */ /* */ /* audmsg = address of the message to format */ /* */ /* outlen = address of a word to receive length of output string */ /* */ /* outbuf = Address of a descriptor of a buffer to receive */ /* the formatted event message */ /* */ /* width = address of a word containing the display width */ /* */ /* trmdsc = address of a descriptor containing the line */ /* terminator character(s) */ /* */ /* routin = address of an output routine */ /* */ /* fmtflg = format control flags */ #define sys$format_audit SYS$FORMAT_AUDIT #ifdef __NEW_STARLET int sys$format_audit( unsigned int fmttyp, unsigned int *audmsg, unsigned short int *outlen, void *outbuf, unsigned short int *width, void *trmdsc, int (*routin)(__unknown_params), unsigned int fmtflg); #else /* __OLD_STARLET */ int sys$format_audit(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $FORMAT_CLASS itmlst, [routin] */ /* */ /* Format access class strings */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* routin = address of routine to be executed in kernel mode */ /* */ /* */ #define sys$format_class SYS$FORMAT_CLASS #ifdef __NEW_STARLET int sys$format_class( void *itmlst, int (*routin)(__unknown_params)); #else /* __OLD_STARLET */ int sys$format_class(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FREE */ /* */ /* Free Record */ /* */ /* $FREE rab, [err], [suc] */ /* */ /* rab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$free SYS$FREE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$free( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$free(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $FREE_USER_CAPABILITY */ /* */ /* Release a global user capability bit */ /* */ /* $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] */ /* */ /* cap_num = address of cell with requested cap number to release */ /* prev_mask = address of user quadword that will hold the */ /* previous state of the reserved capabilities cell */ /* flags = address of behavioral flags for this operation */ /* */ #define sys$free_user_capability SYS$FREE_USER_CAPABILITY #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$free_user_capability( int *cap_num, struct _generic_64 *prev_mask, struct _generic_64 *flags); #else /* __OLD_STARLET */ int sys$free_user_capability(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $FLUSH */ /* */ /* Flush Record */ /* */ /* $FLUSH rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$flush SYS$FLUSH #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$flush( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$flush(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_BITMAP_INFO */ /* */ /* GET Information about a Write Bitmap */ /* */ /* $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst */ /* */ #define sys$get_bitmap_info SYS$GET_BITMAP_INFO #ifdef __NEW_STARLET int sys$get_bitmap_info( unsigned int handle, unsigned short int chan, void *devnam, void *name, unsigned int index, void *itmlst); #else /* __OLD_STARLET */ int sys$get_bitmap_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_BITMAP_INFOW */ /* */ /* GET Information about a Write Bitmap and Wait */ /* */ /* $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status */ /* */ #define sys$get_bitmap_infow SYS$GET_BITMAP_INFOW #ifdef __NEW_STARLET int sys$get_bitmap_infow( void *devnam, void *name, unsigned int index, unsigned int handle, void *itmlst, void *status); #else /* __OLD_STARLET */ int sys$get_bitmap_infow(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_CPU_INFO */ /* */ /* GET Information about a CPU */ /* */ /* $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_cpu_info SYS$GET_CPU_INFO #ifdef __NEW_STARLET int sys$get_cpu_info( unsigned int func, unsigned int flags, unsigned int *cpu_id, unsigned int buffer_length, void *buffer_address_64, unsigned int *return_length_64); #else /* __OLD_STARLET */ int sys$get_cpu_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GET_REGION_INFO */ /* */ /* Get Information About Virtual Address Region */ /* */ /* $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length, */ /* buffer_address_64, return_length_64 */ /* */ /* function = Function code */ /* */ /* Code Meaning */ /* VA$_REGSUM_BY_ID Region summary, by ID */ /* VA$_REGSUM_BY_VA Region summary, by VA */ /* VA$_NEXT_REGSUM_BY_VA Next region summary, by VA */ /* */ /* region_id_64 = Address of quadword region id to use with */ /* VA$_REGSUM_BY_ID */ /* */ /* start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA */ /* */ /* buffer_length = Length of user buffer */ /* */ /* buffer_address_64 = Address of user REGSUM buffer */ /* */ /* return_length_64 = Length of data written to user buffer */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_region_info SYS$GET_REGION_INFO #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$get_region_info( unsigned int function, struct _generic_64 *region_id_64, void *start_va_64, void *reserved, unsigned int buffer_length, void *buffer_address_64, unsigned int *return_length_64); #else /* __OLD_STARLET */ int sys$get_region_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GET_SECURITY */ /* */ /* Get Object Securty Profile */ /* */ /* $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] */ /* */ #define sys$get_security SYS$GET_SECURITY #ifdef __NEW_STARLET int sys$get_security( void *clsnam, void *objnam, unsigned int *objhan, unsigned int flags, void *itmlst, unsigned int *contxt, unsigned int *acmode); #else /* __OLD_STARLET */ int sys$get_security(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET */ /* */ /* Get Record from File */ /* */ /* $GET rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$get SYS$GET #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$get( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$get(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_ARITH_EXCEPTION */ /* */ /* Get AXP arithmetic exception context information */ /* */ /* $GET_ARITH_EXCEPTION sigarg, mcharg, buffer */ /* */ /* sigarg = address of signal array of the exception */ /* */ /* mcharg = address of mechanism array of the exception */ /* */ /* buffer = address of buffer to return information */ /* */ #define sys$get_arith_exception SYS$GET_ARITH_EXCEPTION #ifdef __NEW_STARLET int sys$get_arith_exception( void *sigarg, void *mcharg, void *buffer); #else /* __OLD_STARLET */ int sys$get_arith_exception(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETCHN */ /* */ /* Get I/O Channel Information */ /* */ /* $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] */ /* */ /* chan = number of a channel assigned to the device */ /* */ /* prilen = address of word to receive length of primary buffer */ /* */ /* pribuf = address of primary buffer descriptor */ /* */ /* scdlen = address of word to receive length of secondary buffer */ /* */ /* scdbuf = address of secondary buffer descriptor */ /* */ #define sys$getchn SYS$GETCHN #ifdef __NEW_STARLET int sys$getchn( unsigned short int chan, unsigned short int *prilen, void *pribuf, unsigned short int *scdlen, void *scdbuf); #else /* __OLD_STARLET */ int sys$getchn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETDEV */ /* */ /* Get I/O Device Information */ /* */ /* $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] */ /* */ /* devnam = address of device name or logical name descriptor */ /* */ /* prilen = address of word to receive length of primary buffer */ /* */ /* pribuf = address of primary buffer descriptor */ /* */ /* scdlen = address of word to receive length of secondary buffer */ /* */ /* scdbuf = address of secondary buffer descriptor */ /* */ #define sys$getdev SYS$GETDEV #ifdef __NEW_STARLET int sys$getdev( void *devnam, unsigned short int *prilen, void *pribuf, unsigned short int *scdlen, void *scdbuf); #else /* __OLD_STARLET */ int sys$getdev(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GETDTI */ /* */ /* Get Distributed Transaction Information */ /* */ /* $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context, */ /* ($GETDTIW) search, itmlst */ /* */ /* efn = event flag to set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of the entry mask of an AST routine */ /* astprm = value to be passed to AST routine */ /* log_id = address of log id for TM log */ /* context = address of longword search context */ /* search = address of a list of search criteria items */ /* itmlst = address of a list of item descriptors */ /* */ #define sys$getdti SYS$GETDTI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getdti( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int log_id [4], unsigned int *contxt, void *search, void *itmlst); #else /* __OLD_STARLET */ int sys$getdti(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getdtiw SYS$GETDTIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getdtiw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int log_id [4], unsigned int *contxt, void *search, void *itmlst); #else /* __OLD_STARLET */ int sys$getdtiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETDVI */ /* */ /* Get Device/Volume Information */ /* */ /* $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr] */ /* ($GETDVIW) ,[astprm] ,[nullarg], [pathname] */ /* */ /* efn = event flag to be set at completion */ /* */ /* chan = number of a channel assigned to the device or */ /* 0 if device is specified by the devnam parameter */ /* */ /* devnam = address of device name or logical name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* nullarg = zilch */ /* */ /* pathname = optional address of a path name descriptor */ /* */ /* */ #define sys$getdvi SYS$GETDVI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getdvi( unsigned int efn, unsigned short int chan, void *devnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, struct _generic_64 *nullarg, __optional_params); #else /* __OLD_STARLET */ int sys$getdvi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getdviw SYS$GETDVIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getdviw( unsigned int efn, unsigned short int chan, void *devnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned __int64 *nullarg, __optional_params); #else /* __OLD_STARLET */ int sys$getdviw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETEVI */ /* */ /* Get Event Information */ /* */ /* $GETEVI itmlst ,[nullarg] */ /* */ /* itmlst = address of a list of item descriptors */ /* */ #define sys$getevi SYS$GETEVI #ifdef __NEW_STARLET int sys$getevi( void *itmlst, unsigned int nullarg); #else /* __OLD_STARLET */ int sys$getevi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETJPI */ /* */ /* Get Job/Process Information */ /* */ /* $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], */ /* ($GETJPIW) [astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* pidadr = address of process identification */ /* */ /* prcnam = address of process name string descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as an argument */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$getjpi SYS$GETJPI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getjpi( unsigned int efn, unsigned int *pidadr, void *prcnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getjpi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getjpiw SYS$GETJPIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getjpiw( unsigned int efn, unsigned int *pidadr, void *prcnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getjpiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETJPI_FAST */ /* */ /* Get Job/Process Information For The Current Process */ /* */ /* $GETJPI_FAST */ /* */ /* item_mask = Mask of current process info requested */ /* */ /* flags = MBZ for now */ /* */ /* return_buffer */ /* = Address of buffer to return array of longword info */ /* */ /* return_buffer_length */ /* = Length of return buffer array in bytes */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$getjpi_fast SYS$GETJPI_FAST #ifdef __NEW_STARLET int sys$getjpi_fast( unsigned __int64 item_mask, unsigned int flags, int *return_buffer, int return_buffer_length); #else /* __OLD_STARLET */ int sys$getjpi_fast(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETLKI */ /* */ /* Get Lock Information */ /* */ /* $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm], */ /* ($GETLKIW) [reserved] */ /* */ /* efn = event flag to be set at completion */ /* */ /* lkidadr = address of lock identification */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as an argument */ /* */ /* reserved = reserved parameter */ /* */ /* */ #define sys$getlki SYS$GETLKI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getlki( unsigned int efn, unsigned int *lkidadr, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int reserved); #else /* __OLD_STARLET */ int sys$getlki(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getlkiw SYS$GETLKIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getlkiw( unsigned int efn, unsigned int *lkidadr, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int reserved); #else /* __OLD_STARLET */ int sys$getlkiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETMSG */ /* */ /* Get Message */ /* */ /* $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] */ /* */ /* msgid = identification of message to be retrieved */ /* */ /* msglen = address of a word to receive length of string */ /* returned */ /* */ /* bufadr = address of buffer descriptor of buffer to receive */ /* string */ /* */ /* flags = flag bits for message content (macro default = 15) */ /* */ /* Bit Value/Meaning */ /* */ /* 0 1 Include text */ /* 0 Do not include text */ /* 1 1 Include identifier */ /* 0 Do not include identifier */ /* 2 1 Include severity */ /* 0 Do not include severity */ /* 3 1 Include component */ /* 0 Do not include component */ /* */ /* outadr = address of 4-byte array to receive the following values: */ /* */ /* Byte Contents */ /* */ /* 0 Reserved */ /* 1 Count of FAO arguments */ /* 2 User value */ /* 3 Reserved */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$getmsg SYS$GETMSG #ifdef __NEW_STARLET int sys$getmsg( unsigned int msgid, unsigned short int *msglen, void *bufadr, unsigned int flags, unsigned char outadr [4]); #else /* __OLD_STARLET */ int sys$getmsg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETPTI */ /* */ /* Get Page Table Information */ /* */ /* $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] */ /* */ /* inadr = address of two longwords containing starting */ /* and ending virtual address to operate on */ /* */ /* retadr = address of two longwords into which starting */ /* and ending address of pages operated on is returned */ /* */ /* acmode = access mode against which ownership is checked */ /* */ /* mask = mask of page table information control bits */ /* */ /* pagcnt = minimum page count */ /* */ /* */ #define sys$getpti SYS$GETPTI #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getpti( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int mask, unsigned int pagcnt); #else /* __OLD_STARLET */ int sys$getpti(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETQUI */ /* */ /* Get Queue Information */ /* */ /* $GETQUI [efn], func, [context], [itmlst], */ /* ($GETQUIW) [iosb], [astadr], [astprm] */ /* */ /* efn = event flag to be set when request completes */ /* func = code specifying function to be performed */ /* context = address of a longword containing a context number */ /* itmlst = address of a list of item descriptors for the operation */ /* iosb = address of a quadword status block to receive the final status */ /* astadr = address of an ast routine to be called when request completes */ /* astprm = 32-bit ast parameter */ /* */ #define sys$getqui SYS$GETQUI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getqui( unsigned int efn, unsigned short int func, unsigned int *context, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getqui(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getquiw SYS$GETQUIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getquiw( unsigned int efn, unsigned short int func, unsigned int *context, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getquiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETRMI */ /* */ /* Get Resource Monitor Information */ /* */ /* $GETRMI [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* nullarg = reserved argument */ /* */ /* */ #define sys$getrmi SYS$GETRMI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getrmi( unsigned int efn, unsigned int nullarg1, unsigned int nullarg2, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getrmi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETSYI */ /* */ /* Get System-Wide Information */ /* */ /* $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], */ /* ($GETSYIW) [astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* csidadr = address of cluster system identification */ /* */ /* nodename = address of node name string descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* */ /* The second and third arguments in the $GETSYI argument list are */ /* not used; they are reserved for future use. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$getsyi SYS$GETSYI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getsyi( unsigned int efn, unsigned int *csidadr, void *nodename, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getsyi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getsyiw SYS$GETSYIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getsyiw( unsigned int efn, unsigned int *csidadr, void *nodename, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getsyiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETTIM */ /* */ /* Get Time */ /* */ /* $GETTIM timadr, [flags] */ /* */ /* timadr = address of a quadword to receive 64-bit current time value */ /* flags = optional flags to modify the type of time returned (initially Smithsonian time or time-since-boot) */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$gettim SYS$GETTIM #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$gettim( struct _generic_64 *timadr, __optional_params); #else /* __OLD_STARLET */ int sys$gettim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* Get Time (High Precision) */ /* */ /* $GETTIM_PREC timadr */ /* */ /* timadr = address of a quadword to receive 64-bit current time value */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$gettim_prec SYS$GETTIM_PREC #ifdef __NEW_STARLET int sys$gettim_prec( unsigned __int64 *timadr); #else /* __OLD_STARLET */ int sys$gettim_prec(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $GET_USER_CAPABILITY */ /* */ /* Reserve a global user capability bit */ /* */ /* $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] */ /* */ /* cap_num = address of cell with requested cap number */ /* select_num = address of cell with selected cap number */ /* select_mask = address of bitmask indicating which capability */ /* bit selected by operation */ /* prev_mask = address of user quadword that will hold the */ /* previous state of the reserved capabilities cell */ /* flags = address of behavioral flags for this operation */ /* */ #define sys$get_user_capability SYS$GET_USER_CAPABILITY #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$get_user_capability( int *cap_num, int *select_num, struct _generic_64 *select_mask, struct _generic_64 *prev_mask, struct _generic_64 *flags); #else /* __OLD_STARLET */ int sys$get_user_capability(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETUTC */ /* */ /* Get UTC Time */ /* */ /* $GETUTC utcadr */ /* */ /* utcadr = address of a utc_date_time to receive 128-bit current UTC time */ /* value */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$getutc SYS$GETUTC #ifdef __NEW_STARLET int sys$getutc( unsigned int utcadr [4]); #else /* __OLD_STARLET */ int sys$getutc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GETUAI */ /* */ /* Get User Authorization Information */ /* */ /* $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] */ /* ,[astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* contxt = address of a context longword (UAF IFI & ISI) */ /* */ /* usrnam = address of user name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* */ #define sys$getuai SYS$GETUAI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getuai( unsigned int efn, unsigned int *contxt, void *usrnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$getuai(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_WBEM_INFO */ /* */ /* Get system information needed by WBEM providers */ /* */ /* $GET_WBEM_INFO itm_code, itm_param1, itm_param_buf, */ /* buf_addr, buf_len, ret_len_addr */ /* */ /* itm_code = Item code value, defined by $WBEMIDEF, wbemidef.h */ /* */ /* itm_param1 = Item code dependent input parameter value. */ /* If zero item code dependent parameters required, */ /* must be zero. */ /* If exactly one longword parameter required, */ /* parameter value. */ /* If more than one parameter required, size in */ /* bytes of the item parameter buffer. */ /* */ /* itm_param_buf = Address of item parameter buffer. Size of the */ /* buffer, in bytes, is given by the value of */ /* itm_param1. */ /* If the specified item code does not require */ /* more than a single parameter, this address */ /* must be zero. */ /* */ /* buf_addr = Address of buffer into which data is returned. */ /* Size of the buffer, in bytes, is given by buf_len. */ /* */ /* buf_len = Size of the output buffer in bytes. */ /* */ /* ret_len_addr = Address of a 32-bit longword into which the */ /* value of the number of bytes that have been */ /* written into the output buffer is returned. */ /* The caller should not assume that the remaining */ /* bytes in the output buffer have been zeroed. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_wbem_info SYS$GET_WBEM_INFO #ifdef __NEW_STARLET int sys$get_wbem_info( unsigned int itm_code, unsigned int itm_param1, void *itm_param_buf, void *buf_addr, unsigned int buf_len, unsigned int *ret_len_addr); #else /* __OLD_STARLET */ int sys$get_wbem_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* Alpha */ /* $GOTO_UNWIND_64 */ /* */ /* General Unwind Call Stack */ /* */ /* $GOTO_UNWIND_64 [target_invo_64], [target_pc_64], */ /* [newretval], [newretval2] */ /* */ /* target_invo_64 = address of longword (Alpha) or quadword (IPF) */ /* containing the invocation handle (frame pointer on */ /* Alpha) to unwind call stack */ /* */ /* target_pc_64 = address of quadword that contains the PC to be */ /* given control when the unwind is complete */ /* */ /* newretval = address of a location that contains the value to be */ /* placed in the saved R0 field of the mechanism array */ /* */ /* newretval2 = address of a location that contains the value to be */ /* placed in the saved R1 field of the mechanism array */ /* */ /* */ #define sys$goto_unwind_64 SYS$GOTO_UNWIND_64 #ifdef __NEW_STARLET int sys$goto_unwind_64( void *target_invo_64, void *(*(target_pc_64)), unsigned __int64 *newretval, unsigned __int64 *newretval2); #else /* __OLD_STARLET */ int sys$goto_unwind_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GRANTID */ /* */ /* Grant Identifier to Process */ /* */ /* $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] */ /* */ /* pidadr = address of PID of affected process */ /* prcnam = address of string descriptor of process name */ /* id = address of quadword identifier and attributes */ /* name = address of string descriptor of identifier name */ /* prvatr = address to store attributes of superseded id */ /* segment = optional segment index, by value */ /* */ #define sys$grantid SYS$GRANTID #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$grantid( unsigned int *pidadr, void *prcnam, struct _generic_64 *id, void *name, unsigned int *prvatr, unsigned int segment); #else /* __OLD_STARLET */ int sys$grantid(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GRANT_LICENSE */ /* */ /* Grant authorization to execute licensed software product. */ /* */ /* $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] */ /* */ /* prdnam = address of descriptor for software product name */ /* prducer = address of descriptor for software producer name */ /* contxt = address of context buffer (4 longwords) */ /* itmlst = address of a list of item descriptors */ /* */ #define sys$grant_license SYS$GRANT_LICENSE #ifdef __NEW_STARLET int sys$grant_license( void *prdnam, void *prducer, unsigned int contxt [4], void *itmlst); #else /* __OLD_STARLET */ int sys$grant_license(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $HASH_PASSWORD */ /* */ /* Encrypt a user password to produce a quadword hash value. */ /* */ /* $HASH_PASSWORD pwd, alg, [salt], usrnam, hash */ /* */ /* pwd = address of descriptor for plaintext password */ /* alg = algorithm to use for hash */ /* salt = salt value for use by hash algorithm */ /* usrnam = address of descriptor of username */ /* hash = address of output quadword hash buffer */ /* */ #define sys$hash_password SYS$HASH_PASSWORD #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$hash_password( void *pwd, unsigned char alg, unsigned short int salt, void *usrnam, struct _generic_64 *hash); #else /* __OLD_STARLET */ int sys$hash_password(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $HIBER */ /* */ /* Hibernate */ /* */ /* $HIBER_S */ /* */ #define sys$hiber SYS$HIBER #ifdef __NEW_STARLET int sys$hiber(void); #else /* __OLD_STARLET */ int sys$hiber(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $IDTOASC */ /* */ /* Identifier To Ascii Conversion */ /* */ /* $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] */ /* */ /* id = identifier longword to convert, or zero to */ /* find all identifiers (wildcarding) */ /* namlen = address of a word to store the length of the */ /* identifier name */ /* nambuf = address of a character string descriptor that */ /* describes the buffer to return the identifier name */ /* resid = address of a longword to return the id found */ /* while wildcarding */ /* attrib = address to return the attributes longword */ /* contxt = address of a longword containing the record stream */ /* context. initially should be zero, value output */ /* on first call, value input on subsequent calls. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$idtoasc SYS$IDTOASC #ifdef __NEW_STARLET int sys$idtoasc( unsigned int id, unsigned short int *namlen, void *nambuf, unsigned int *resid, unsigned int *attrib, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$idtoasc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $IEEE_SET_FP_CONTROL */ /* */ /* Set IEEE floating point control register */ /* */ /* $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] */ /* */ /* clrmsk = address of a quadword mask to clear */ /* setmsk = address of a quadword mask to set */ /* prvmsk = address of a quadword to return previous value */ /* */ #define sys$ieee_set_fp_control SYS$IEEE_SET_FP_CONTROL #ifdef __cplusplus /* Define structure prototypes */ struct _ieee; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ieee_set_fp_control( struct _ieee *clrmsk, struct _ieee *setmsk, struct _ieee *prvmsk); #else /* __OLD_STARLET */ int sys$ieee_set_fp_control(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $IMGACT */ /* */ /* Image Activation */ /* */ /* $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr], */ /* [retadr], [ident], [acmode] */ /* */ /* */ /* name = address of descriptor for file name string */ /* */ /* dflnam = descriptor for file name string */ /* */ /* hdrbuf = address of 512 byte buffer to write in */ /* */ /* imgctl = image activation control flags */ /* */ /* inadr = address of quadword specifying virtual address */ /* range to be mapped */ /* */ /* retadr = address of quadword specifying virtual address */ /* range actually mapped */ /* */ /* ident = address of quadword holding image section match */ /* control and identifier */ /* */ /* acmode = access mode to be the owner of the created pages */ /* */ #define sys$imgact SYS$IMGACT #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$imgact( void *name, void *dflnam, void *hdrbuf, unsigned int imgctl, struct _va_range *inadr, struct _va_range *retadr, struct _secid *ident, unsigned int acmode); #else /* __OLD_STARLET */ int sys$imgact(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $IMGFIX */ /* */ /* Image Address Fixup Service */ /* */ /* $IMGFIX */ /* */ #define sys$imgfix SYS$IMGFIX #ifdef __NEW_STARLET int sys$imgfix(void); #else /* __OLD_STARLET */ int sys$imgfix(void); #endif /* #ifdef __NEW_STARLET */ /* $INIT_VOL */ /* */ /* Initialize Volume */ /* */ /* $INIT_VOL devnam, volnam, [itmlst] */ /* */ /* devnam = device name containing volume to initialize */ /* */ /* volnam = name to initialize the volume with */ /* */ /* itmlst = address of item code list for initialization options */ /* */ #define sys$init_vol SYS$INIT_VOL #ifdef __NEW_STARLET int sys$init_vol( void *devnam, void *volnam, void *itmlst); #else /* __OLD_STARLET */ int sys$init_vol(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $IO_CLEANUP */ /* */ /* Cleanup a previously set-up I/O */ /* */ /* $IO_CLEANUP fandle */ /* */ /* fandle = fandle to clean up */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$io_cleanup SYS$IO_CLEANUP #ifdef __NEW_STARLET int sys$io_cleanup( unsigned __int64 fandl); #else /* __OLD_STARLET */ int sys$io_cleanup(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $IO_FASTPATH */ /* */ /* I/O Fastpath system service */ /* */ /* $IO_FASTPATH efn, cpu_mask, func, iosb, astadr, astprm */ /* */ /* efn = event flag number */ /* */ /* cpu_mask = either -1 wildcard or pointer to longword */ /* containing CPU mask */ /* FP$K_BALANCE_PORTS = balance fastpath ports */ /* */ /* func = fastpath function code */ /* */ /* iosb = address of I/O status block */ /* */ /* astadr = address of AST completion routine */ /* */ /* astprm = AST routine parameter */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$io_fastpath SYS$IO_FASTPATH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_fastpath( unsigned int efn, unsigned int cpu_mask, unsigned int func, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, __optional_params); #else /* __OLD_STARLET */ int sys$io_fastpath(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$io_fastpathw SYS$IO_FASTPATHW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_fastpathw( unsigned int efn, unsigned int cpu_mask, unsigned int func, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, __optional_params); #else /* __OLD_STARLET */ int sys$io_fastpathw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $IO_PERFORM */ /* */ /* Transfer data between device and buffer */ /* */ /* $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata */ /* ($IO_PERFORMW) */ /* */ /* fandle = fandle from previous $IO_SETUP */ /* */ /* chan = standard I/O channel */ /* */ /* iosadr = IOSA address */ /* */ /* bufadr = address of data buffer (64 bits) */ /* */ /* buflen = length of data buffer (64 bits) */ /* */ /* devdata= data passed to driver, e.g., media address */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$io_perform SYS$IO_PERFORM #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_perform( unsigned __int64 fandl, unsigned short int chan, struct _iosa *iosadr, void *bufadr, unsigned __int64 buflen, unsigned __int64 devdata); #else /* __OLD_STARLET */ int sys$io_perform(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$io_performw SYS$IO_PERFORMW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_performw( unsigned __int64 fandl, unsigned short int chan, struct _iosa *iosadr, void *bufadr, unsigned __int64 buflen, unsigned __int64 devdata); #else /* __OLD_STARLET */ int sys$io_performw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $IO_SETUP */ /* */ /* Set up a fast I/O */ /* */ /* $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle */ /* */ /* func = function code */ /* */ /* bufobj = data buffer object (address of (vector of 2 ints)) */ /* */ /* iosobj = IOSA buffer object (address of (vector of 2 ints)) */ /* */ /* astadr = completion AST address (address of entry) */ /* */ /* flags = flags */ /* */ /* return_fandle = address of returned fandle */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$io_setup SYS$IO_SETUP #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_setup( unsigned int func, struct _generic_64 *bufobj, struct _generic_64 *iosobj, void (*astadr)( struct _iosa *), unsigned int flags, unsigned __int64 *return_fandle); #else /* __OLD_STARLET */ int sys$io_setup(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $IPC */ /* */ /* Interprocess Communication Request */ /* */ /* $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] */ /* ($IPCW) */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* ipcb = address of Interprocess Communication Block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ /* */ #define sys$ipc SYS$IPC #ifdef __NEW_STARLET int sys$ipc( unsigned int efn, unsigned short int func, void *ipcb, void (*astadr)(__unknown_params), int astprm, __optional_params); #else /* __OLD_STARLET */ int sys$ipc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ipcw SYS$IPCW #ifdef __NEW_STARLET int sys$ipcw( unsigned int efn, unsigned short int func, void *ipcb, void (*astadr)(__unknown_params), int astprm, __optional_params); #else /* __OLD_STARLET */ int sys$ipcw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $LCKPAG */ /* */ /* Lock Pages in Memory */ /* */ /* $LCKPAG inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending addresses of pages to be locked */ /* */ /* retadr = address of 2-longword array to receive addresses of */ /* pages actually locked */ /* */ /* acmode = access mode to check against the owner of the pages */ /* */ #define sys$lckpag SYS$LCKPAG #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$lckpag( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$lckpag(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $LCKPAG_64 */ /* */ /* Lock Pages in Memory */ /* */ /* $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 */ /* */ /* start_va_64 = Starting address of address space to lock */ /* */ /* length_64 = Byte length of addresses to lock */ /* */ /* acmode = Access mode to be checked against the page owner */ /* */ /* return_va_64 = Address of address space locked */ /* */ /* return_length_64 = Length of address space locked */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$lckpag_64 SYS$LCKPAG_64 #ifdef __NEW_STARLET int sys$lckpag_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$lckpag_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $LFS */ /* */ /* Call the LFS file system */ /* */ /* $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* fsb = address of File System Block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ #define sys$lfs SYS$LFS #ifdef __NEW_STARLET int sys$lfs( unsigned int efn, unsigned short int func, void *fsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$lfs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $LKWSET */ /* */ /* Lock Pages in Working Set */ /* */ /* $LKWSET inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to be locked */ /* */ /* retadr = address of a 2-longword array to receive starting and */ /* ending virtual addresses of pages actually locked */ /* */ /* acmode = access mode to be checked against the page owner */ /* */ #define sys$lkwset SYS$LKWSET #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$lkwset( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$lkwset(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $LKWSET_64 */ /* */ /* Lock Pages in Working Set */ /* */ /* $LKWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 */ /* */ /* start_va_64 = Starting address of address space to lock */ /* */ /* length_64 = Byte length of addresses to lock */ /* */ /* acmode = Access mode to be checked against the page owner */ /* */ /* return_va_64 = Address of address space locked */ /* */ /* return_length_64 = Length of address space locked */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$lkwset_64 SYS$LKWSET_64 #ifdef __NEW_STARLET int sys$lkwset_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$lkwset_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $LOOKUP_MAPPING */ /* */ /* Find single Mapping record in Mapping database */ /* */ /* $LOOKUP_MAPPING initmlst ,[outitmlst] */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* outitmlst = address of a list of item descriptors for the operation */ /* */ #define sys$lookup_mapping SYS$LOOKUP_MAPPING #ifdef __NEW_STARLET int sys$lookup_mapping( void *initmlst, void *outitmlst); #else /* __OLD_STARLET */ int sys$lookup_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $MGBLSC */ /* */ /* Map Global Section */ /* */ /* $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending addresses of pages to be mapped */ /* */ /* retadr = address of 2-longword array to receive virtual */ /* addresses of pages mapped */ /* */ /* acmode = access mode of owner of mapped pages */ /* */ /* flags = flags overriding default section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_WRT Read/write section */ /* SEC$M_SYSGBL System global section */ /* SEC$M_EXPREG Find first available space */ /* */ /* gsdnam = address of global section name descriptor */ /* */ /* ident = address of quadword containing version id and match control */ /* */ /* relpag = relative page number within global section */ /* */ #define sys$mgblsc SYS$MGBLSC #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _secid; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$mgblsc( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int flags, void *gsdnam, struct _secid *ident, unsigned int relpag); #else /* __OLD_STARLET */ int sys$mgblsc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $MGBLSC_64 */ /* */ /* Map Global Page or Disk File Section */ /* */ /* $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64, */ /* length_64, acmode, flags, return_va_64, return_length_64 */ /* [, start_va_64[, page_prot]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* section_offset_64 = Relative byte within global section to start mapping */ /* */ /* length_64 = Byte length of section to map */ /* */ /* acmode = Access mode of owner of mapped pages */ /* */ /* flags = Flags overriding default section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write mapping of section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$mgblsc_64 SYS$MGBLSC_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$mgblsc_64( void *gsdnam_64, struct _secid *ident_64, struct _generic_64 *region_id_64, unsigned __int64 section_offset_64, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$mgblsc_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $MGBLSC_GPFN_64 */ /* */ /* Map Global Page Frame Section */ /* */ /* $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count, */ /* acmode, flags, return_va_64, return_length_64 */ /* [, start_va_64[, page_prot]] */ /* */ /* gsdnam_64 = Address of global section name string descriptor */ /* (32-bit or 64-bit descriptor) */ /* */ /* ident_64 = Address of quadword containing version id and match control */ /* */ /* region_id_64 = Address of quadword region id */ /* */ /* relative_page = Relative page within global section to start mapping */ /* */ /* page_count = Number of page frames to map */ /* */ /* acmode = Access mode of owner of mapped pages */ /* */ /* flags = Flags overriding default section characteristics */ /* */ /* Flag Meaning */ /* */ /* SEC$M_EXPREG Find first available space */ /* SEC$M_NO_OVERMAP Do not overmap existing address space */ /* SEC$M_SYSGBL System global section */ /* SEC$M_WRT Read/write mapping of section */ /* */ /* return_va_64 = Address of address space created */ /* */ /* return_length_64 = Length of address space created */ /* */ /* start_va_64 = Starting address of address space to create */ /* */ /* page_prot = Desired page protection (optional) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$mgblsc_gpfn_64 SYS$MGBLSC_GPFN_64 #ifdef __cplusplus /* Define structure prototypes */ struct _secid; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$mgblsc_gpfn_64( void *gsdnam_64, struct _secid *ident_64, struct _generic_64 *region_id_64, unsigned __int64 relative_page, unsigned __int64 page_count, unsigned int acmode, unsigned int flags, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$mgblsc_gpfn_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $MODIFY */ /* */ /* Modify File */ /* */ /* $MODIFY fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$modify SYS$MODIFY #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$modify( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$modify(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $MODIFY_MAPPING */ /* */ /* Modify Mapping record in Mapping database */ /* */ /* $MODIFY_MAPPING initmlst, moditmlst */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* moditmlst = address of a list of item descriptors for the operation */ /* */ #define sys$modify_mapping SYS$MODIFY_MAPPING #ifdef __NEW_STARLET int sys$modify_mapping( void *initmlst, void *moditmlst); #else /* __OLD_STARLET */ int sys$modify_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $MOD_HOLDER */ /* */ /* Modify Holder Record In Rights Database */ /* */ /* $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] */ /* */ /* id = identifier longword */ /* holder = address of the holder identifier quadword */ /* set_attrib = longword containing the attributes to set */ /* into the holder record */ /* clr_attrib = longword containing the attributes to clear */ /* in the holder record */ /* */ #define sys$mod_holder SYS$MOD_HOLDER #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$mod_holder( unsigned int id, struct _generic_64 *holder, unsigned int set_attrib, unsigned int clr_attrib); #else /* __OLD_STARLET */ int sys$mod_holder(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $MOD_IDENT */ /* */ /* Modify Identifier Record In Rights Database */ /* */ /* $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] */ /* */ /* id = identifier longword */ /* set_attrib = longword containing the attributes */ /* to set into the identifier record */ /* clr_attrib = longword containing the attributes */ /* to clear in the identifier record */ /* new_name = address of the new identifier name character */ /* string descriptor */ /* new_value = new identifier value longword */ /* */ #define sys$mod_ident SYS$MOD_IDENT #ifdef __NEW_STARLET int sys$mod_ident( unsigned int id, unsigned int set_attrib, unsigned int clr_attrib, void *new_name, unsigned int new_value); #else /* __OLD_STARLET */ int sys$mod_ident(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $MOUNT */ /* */ /* Mount Volume */ /* */ /* $MOUNT itmlst */ /* */ /* itmlst = Address of a list of item identifiers */ /* */ #define sys$mount SYS$MOUNT #ifdef __NEW_STARLET int sys$mount( void *itmlst); #else /* __OLD_STARLET */ int sys$mount(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $MTACCESS */ /* */ /* Installation specific accessibility routine */ /* */ /* $MTACCESS lblnam, [uic], [std_version], [access_char], */ /* [access_spec],type */ /* */ /* lblnam = On input this field is the address of the */ /* VOL1 or HDR1 label read off the magnetic tape. On */ /* output of labels this field is zero. The type */ /* of label is determined by the TYPE field. */ /* uic = This field contains the longword volme UIC passed */ /* by value. */ /* std_version = This field contains a byte value of the */ /* decimal equivalent of the version number */ /* gotten from the VOL1 label, passed by value. */ /* access_char = This field contins the byte value of the */ /* accessibility character specified by the user, */ /* passed by value. For output of labels only. */ /* access_spec = This field determines if the character passed */ /* in ACCESS_CHAR was specified by user, passed */ /* by value. It must contain one of the following */ /* values: */ /* MTA$K_CHARVALID = YES */ /* MTA$K_NOCHAR = NO */ /* For output of labels only. */ /* type = This field contains the type of accessibility to process, */ /* passed by value. It must contain one of the following */ /* values: */ /* MTA$K_INVOL1 = Input a VOL1 label */ /* MTA$K_INHDR1 = Input a HDR1 label */ /* MTA$K_OUTVOL1 = Output a VOL1 label */ /* MTA$K_OUTHDR1 = Output a HDR1 label */ /* */ #define sys$mtaccess SYS$MTACCESS #ifdef __NEW_STARLET int sys$mtaccess( unsigned int *lblnam, unsigned int uic, unsigned int std_version, unsigned int access_char, unsigned int access_spec, unsigned int type); #else /* __OLD_STARLET */ int sys$mtaccess(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $NUMTIM */ /* */ /* Convert Binary Time to Numeric Time */ /* */ /* $NUMTIM timbuf ,[timadr] */ /* */ /* timbuf = address of a 7-word buffer to receive numeric time */ /* information */ /* */ /* timadr = address of a quadword containing the 64-bit time. If */ /* 0, use current time */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$numtim SYS$NUMTIM #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$numtim( unsigned short int timbuf [7], struct _generic_64 *timadr); #else /* __OLD_STARLET */ int sys$numtim(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $NUMUTC */ /* */ /* Convert UTC Binary Time to Numeric Time */ /* */ /* $NUMUTC timbuf ,[utcadr] */ /* */ /* timbuf = address of a 11-word buffer to receive numeric time */ /* information */ /* */ /* 31 0 */ /* +---------------+---------------+ */ /* | month of year | year since 0 | 7 word Date (ala NUMTIM) */ /* +---------------+---------------+ */ /* | hour of day | day of month | */ /* +---------------+---------------+ */ /* | sec. of min. | min. of hour | */ /* +---------------+---------------+ */ /* | iDays | hund of Sec | */ /* +---------------+---------------+ */ /* | imins | ihours | 6 word Inaccuracy */ /* +---------------+---------------+ */ /* | ihund of sec | isecs | */ /* +---------------+---------------+ */ /* | TDF in Min | */ /* +---------------+ */ /* */ /* utcadr = address of a utc_date_time to convert. */ /* 0, use current time */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$numutc SYS$NUMUTC #ifdef __NEW_STARLET int sys$numutc( unsigned short int timbuf [13], unsigned int utcadr [4]); #else /* __OLD_STARLET */ int sys$numutc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $NXTVOL */ /* */ /* Go to Next Volume */ /* */ /* $NXTVOL rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$nxtvol SYS$NXTVOL #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$nxtvol( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$nxtvol(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $OPEN */ /* */ /* Open File */ /* */ /* $OPEN fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ #define sys$open SYS$OPEN #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$open( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$open(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $PARSE */ /* */ /* Parse File Name */ /* */ /* $PARSE fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$parse SYS$PARSE #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$parse( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$parse(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $PARSE_ACL */ /* */ /* Parse an Access Control list Entry */ /* */ /* $PARSE_ACL acl-string ,acl-entry ,[error-position], */ /* [bit-names], [routin] */ /* */ /* acl-string = address of a descriptor of a buffer which */ /* contains the text to be parsed */ /* */ /* acl-entry = address of a descriptor of a buffer into */ /* which the converted ACE is to be written */ /* */ /* error-position = address of a word to receive the number of */ /* characters actually processed by the service. */ /* If the service fails, this count points to */ /* the failing point in the input string. */ /* */ /* bit-names = address of a access bit name table (32 entries) */ /* */ /* routin = address of routine to be executed in kernel mode */ /* */ #define sys$parse_acl SYS$PARSE_ACL #ifdef __NEW_STARLET int sys$parse_acl( void *aclstr, void *aclent, unsigned short int *errpos, void *accnam, int (*routin)(void)); #else /* __OLD_STARLET */ int sys$parse_acl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PARSE_CLASS itmlst, [routin] */ /* */ /* Parse access class strings */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* routin = address of routine to be executed in kernel mode */ /* */ /* */ #define sys$parse_class SYS$PARSE_CLASS #ifdef __NEW_STARLET int sys$parse_class( void *itmlst, int (*routin)(void)); #else /* __OLD_STARLET */ int sys$parse_class(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_CREATE */ /* */ /* Create Persona */ /* */ /* $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* usrnam = address of user name descriptor */ /* */ /* flags = bitvector value */ /* */ /* usrpro = address of a descriptor pointing to a user profile block (TLV structure) */ /* */ /* itmlst = address of item list for modifications to persona */ /* */ #define sys$persona_create SYS$PERSONA_CREATE #ifdef __NEW_STARLET int sys$persona_create( unsigned int *persona, void *usrnam, unsigned int flags, __optional_params ); #else /* __OLD_STARLET */ int sys$persona_create(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_CREATE_INT */ /* */ /* Create Persona Internal Service */ /* */ /* $PERSONA_CREATE_INT persona, itmlst */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* itmlst = address of item list containing persona data */ /* */ #define sys$persona_create_int SYS$PERSONA_CREATE_INT #ifdef __NEW_STARLET int sys$persona_create_int( unsigned int *persona, unsigned int *itmlst); #else /* __OLD_STARLET */ int sys$persona_create_int(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_ASSUME */ /* */ /* Assume Persona */ /* */ /* $PERSONA_ASSUME persona, [flags], [previous], [acmode] */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* flags = longword value */ /* */ /* previous = address of longword to receive previous persona identifier */ /* */ /* acmode = access mode of code assuming persona */ /* */ /* */ #define sys$persona_assume SYS$PERSONA_ASSUME #ifdef __NEW_STARLET int sys$persona_assume( unsigned int *persona, unsigned int flags, __optional_params ); #else /* __OLD_STARLET */ int sys$persona_assume(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_DELETE */ /* */ /* Delete Persona */ /* */ /* $PERSONA_DELETE persona */ /* */ /* persona = address of longword holding persona identifier */ /* */ #define sys$persona_delete SYS$PERSONA_DELETE #ifdef __NEW_STARLET int sys$persona_delete( unsigned int *persona); #else /* __OLD_STARLET */ int sys$persona_delete(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_EXPORT_ARB */ /* */ /* Move Persona data to ARB structures */ /* */ /* $PERSONA_EXPORT_ARB [level] */ /* */ /* level = level of ARB_SUPPORT to be provided */ /* */ #define sys$persona_export_arb SYS$PERSONA_EXPORT_ARB #ifdef __NEW_STARLET int sys$persona_export_arb( int level); #else /* __OLD_STARLET */ int sys$persona_export_arb(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_IMPORT_ARB */ /* */ /* Load Persona Block with ARB structures data */ /* */ /* $PERSONA_IMPORT_ARB [level] */ /* */ /* level = level of ARB_SUPPORT to be provided */ /* */ #define sys$persona_import_arb SYS$PERSONA_IMPORT_ARB #ifdef __NEW_STARLET int sys$persona_import_arb( int level); #else /* __OLD_STARLET */ int sys$persona_import_arb(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_CLONE */ /* */ /* Create duplicate Persona block */ /* */ /* $PERSONA_CLONE persona */ /* */ /* persona = address of location in which to store the persona id */ /* of the clone. */ /* */ /* input_id = address of location containing the persona ID to clone */ /* OPTIONAL! */ /* */ #define sys$persona_clone SYS$PERSONA_CLONE #ifdef __NEW_STARLET int sys$persona_clone( unsigned int *persona, __optional_params); #else /* __OLD_STARLET */ int sys$persona_clone(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $PROCESS_AFFINITY */ /* */ /* Modify process affinity */ /* */ /* $PROCESS_AFFINITY [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags],[mask_length] */ /* */ /* pidadr = address of process identification of process for */ /* which affinity is to be changed */ /* prcnam = address of process name string descriptor */ /* select_mask = address of bitmask indicating which capabilities */ /* are to be involved in the specified operation */ /* modify_mask = address of bitmask indicating final state */ /* of those capabilities specified in select_mask */ /* prev_mask = address of user quadword that will hold the */ /* previous states of the individual capabilities */ /* flags = address of behavioral flags for this operation */ /* mask_length = address of user longword that will hold the */ /* common length of all bitmaps - select,modify,prev */ /* */ #define sys$process_affinity SYS$PROCESS_AFFINITY #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$process_affinity( unsigned int *pidadr, void *prcnam, struct _generic_64 *select_mask, struct _generic_64 *modify_mask, struct _generic_64 *prev_mask, struct _generic_64 *flags, __optional_params); #else /* __OLD_STARLET */ int sys$process_affinity(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $PROCESS_CAPABILITIES */ /* */ /* Modify process user capabilities */ /* */ /* $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] */ /* */ /* pidadr = address of process identification of process for */ /* which capabilities are to be modified */ /* prcnam = address of process name string descriptor */ /* select_mask = address of bitmask indicating which capabilities */ /* are to be involved in the specified operation */ /* modify_mask = address of bitmask indicating final state */ /* of those capabilities specified in select_mask */ /* prev_mask = address of user quadword that will hold the */ /* previous states of the individual capabilities */ /* flags = address of behavioral flags for this operation */ /* */ #define sys$process_capabilities SYS$PROCESS_CAPABILITIES #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$process_capabilities( unsigned int *pidadr, void *prcnam, struct _generic_64 *select_mask, struct _generic_64 *modify_mask, struct _generic_64 *prev_mask, struct _generic_64 *flags); #else /* __OLD_STARLET */ int sys$process_capabilities(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $PROCESS_SCAN */ /* */ /* Initialize Process_scan context */ /* */ /* $Process_scan pidctx , [itmlst ] */ /* */ /* pidctx = address of process ctx id */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$process_scan SYS$PROCESS_SCAN #ifdef __NEW_STARLET int sys$process_scan( unsigned int *pidctx, void *itmlst); #else /* __OLD_STARLET */ int sys$process_scan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $PSHARED_REGISTER */ /* */ /* Register a process and global section */ /* */ /* $PSHARED_REGISTER addr */ /* */ /* addr = base address of the global section to be registered */ #define sys$pshared_register SYS$PSHARED_REGISTER #ifdef __NEW_STARLET int sys$pshared_register( unsigned __int64 addr); #else /* __OLD_STARLET */ int sys$pshared_register(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PURGE_WS */ /* */ /* Purge Working Set */ /* */ /* $PURGE_WS start_va_64, length_64 */ /* */ /* start_va_64 = Starting address of address space to purge */ /* */ /* length_64 = Byte length of addresses to purge */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$purge_ws SYS$PURGE_WS #ifdef __NEW_STARLET int sys$purge_ws( void *start_va_64, unsigned __int64 length_64); #else /* __OLD_STARLET */ int sys$purge_ws(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $PURGWS */ /* */ /* Purge Working Set */ /* */ /* $PURGWS inadr */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending addresses of pages to be removed */ /* */ #define sys$purgws SYS$PURGWS #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$purgws( struct _va_range *inadr); #else /* __OLD_STARLET */ int sys$purgws(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $PUT */ /* */ /* Put Record to File */ /* */ /* $PUT rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$put SYS$PUT #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$put( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$put(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PUTMSG */ /* */ /* Put Message */ /* */ /* $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] */ /* */ /* msgvec = address of message argument vector */ /* */ /* actrtn = address of entry mask of action routine */ /* */ /* facnam = address of facility name string descriptor */ /* */ /* actprm = parameter to pass to action routine */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$putmsg SYS$PUTMSG #ifdef __NEW_STARLET int sys$putmsg( void *msgvec, void (*actrtn)(__unknown_params), void *facnam, unsigned __int64 actprm); #else /* __OLD_STARLET */ int sys$putmsg(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $QIO */ /* */ /* Queue I/O Request */ /* */ /* $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm] */ /* ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* chan = number of channel on which I/O is directed */ /* */ /* func = function code specifying action to be performed */ /* */ /* iosb = address of quadword I/O status block to receive final */ /* completion status */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ /* p1... = optional device- and function-specific parameters */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$qio SYS$QIO #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$qio( unsigned int efn, unsigned short int chan, unsigned int func, struct _iosb *iosb, void (*astadr)(__unknown_params), __int64 astprm, void *p1, __int64 p2, __int64 p3, __int64 p4, __int64 p5, __int64 p6); #else /* __OLD_STARLET */ int sys$qio(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$qiow SYS$QIOW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$qiow( unsigned int efn, unsigned short int chan, unsigned int func, struct _iosb *iosb, void (*astadr)(__unknown_params), __int64 astprm, void *p1, __int64 p2, __int64 p3, __int64 p4, __int64 p5, __int64 p6); #else /* __OLD_STARLET */ int sys$qiow(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $READ */ /* */ /* Read Block from File */ /* */ /* $READ rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$read SYS$READ #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$read( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$read(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $READEF */ /* */ /* Read Event Flag */ /* */ /* $READEF efn ,state */ /* */ /* efn = event flag number of any flag in the cluster */ /* */ /* state = address of a longword to receive current state of all */ /* flags in the cluster */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$readef SYS$READEF #ifdef __NEW_STARLET int sys$readef( unsigned int efn, unsigned int *state); #else /* __OLD_STARLET */ int sys$readef(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $READ_THREAD_UNQ */ /* */ /* Read thread unique value */ /* */ /* $READ_THREAD_UNQ contxt */ /* */ /* contxt = address of quadword in which to return the */ /* thread unique value */ /* */ #define sys$read_thread_unq SYS$READ_THREAD_UNQ #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$read_thread_unq( struct _generic_64 *contxt); #else /* __OLD_STARLET */ int sys$read_thread_unq(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REGISTRY */ /* */ /* Interface to the Registry Database */ /* */ /* $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] */ /* [,astadr] [,astprm] [,timeout] */ /* ($REGISTRYW) */ /* */ /* efn = event flag to be set at completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* ntcredentials = address of an NT user credentials buffer */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* timeout = request timeout value */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$registry SYS$REGISTRY #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$registry( unsigned int efn, unsigned int func, void *ntcredentials, void *itmlst, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$registry(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$registryw SYS$REGISTRYW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$registryw( unsigned int efn, unsigned int func, void *ntcredentials, void *itmlst, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$registryw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $RELEASE */ /* */ /* Release Record */ /* */ /* $RELEASE rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$release SYS$RELEASE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$release( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$release(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RELEASE_LICENSE */ /* */ /* Release authorization to execute licensed software product. */ /* */ /* $RELEASE_LICENSE context */ /* */ /* contxt = address of context buffer returned by */ /* $grant_license (4 longwords) */ /* */ #define sys$release_license SYS$RELEASE_LICENSE #ifdef __NEW_STARLET int sys$release_license( unsigned int *contxt); #else /* __OLD_STARLET */ int sys$release_license(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RELEASE_VP */ /* */ /* Release the Vector Processor */ /* */ /* $RELEASE_VP */ /* */ #define sys$release_vp SYS$RELEASE_VP #ifdef __NEW_STARLET int sys$release_vp(void); #else /* __OLD_STARLET */ int sys$release_vp(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RELEASE_VP_INT */ /* */ /* Release the Vector Processor, internal form */ /* */ /* $RELEASE_VP_INT */ /* */ #define sys$release_vp_int SYS$RELEASE_VP_INT #ifdef __NEW_STARLET int sys$release_vp_int(void); #else /* __OLD_STARLET */ int sys$release_vp_int(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REMOVE */ /* */ /* Remove File */ /* */ /* $REMOVE fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$remove SYS$REMOVE #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$remove( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$remove(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REM_HOLDER */ /* */ /* Remove Holder Record From Rights Database */ /* */ /* $REM_HOLDER id, holder */ /* */ /* id = identifier longword */ /* holder = address of the holder identifier quadword */ /* */ #define sys$rem_holder SYS$REM_HOLDER #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$rem_holder( unsigned int id, struct _generic_64 *holder); #else /* __OLD_STARLET */ int sys$rem_holder(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REM_IDENT */ /* */ /* Remove Identifier From Rights Database */ /* */ /* $REM_IDENT id */ /* */ /* id = identifier longword */ /* */ #define sys$rem_ident SYS$REM_IDENT #ifdef __NEW_STARLET int sys$rem_ident( unsigned int id); #else /* __OLD_STARLET */ int sys$rem_ident(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RENAME */ /* */ /* Rename File */ /* */ /* $RENAME oldfab, [err], [suc], newfab */ /* */ /* oldfab = address of oldfab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ /* newfab = address of new fab */ #define sys$rename SYS$RENAME #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$rename( struct _fabdef *oldfab, void (*err)(__unknown_params), void (*suc)(__unknown_params), struct _fabdef *newfab); #else /* __OLD_STARLET */ int sys$rename(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RESTORE_VP_EXCEPTION */ /* */ /* Restore Vector Processor Exception State */ /* */ /* $RESTORE_VP_EXCEPTION excid */ /* */ /* excid = address of a context longword */ /* */ #define sys$restore_vp_exception SYS$RESTORE_VP_EXCEPTION #ifdef __NEW_STARLET int sys$restore_vp_exception( unsigned int *excid); #else /* __OLD_STARLET */ int sys$restore_vp_exception(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RESTORE_VP_EXC_INT */ /* */ /* Restore Vector Processor Exception State */ /* */ /* $RESTORE_VP_EXC_INT excid */ /* */ /* excid = address of a context longword */ /* */ #define sys$restore_vp_exc_int SYS$RESTORE_VP_EXC_INT #ifdef __NEW_STARLET int sys$restore_vp_exc_int( unsigned int *excid); #else /* __OLD_STARLET */ int sys$restore_vp_exc_int(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RESTORE_VP_STATE */ /* */ /* Restore Mainline Vector State */ /* */ /* $RESTORE_VP_STATE */ /* */ #define sys$restore_vp_state SYS$RESTORE_VP_STATE #ifdef __NEW_STARLET int sys$restore_vp_state(void); #else /* __OLD_STARLET */ int sys$restore_vp_state(void); #endif /* #ifdef __NEW_STARLET */ /* $RESUME */ /* */ /* Resume Suspended Process */ /* */ /* $RESUME [pidadr] ,[prcnam] */ /* */ /* pidadr = address of process id of process to be resumed */ /* */ /* prcnam = address of process name string descriptor */ /* */ #define sys$resume SYS$RESUME #ifdef __NEW_STARLET int sys$resume( unsigned int *pidadr, void *prcnam); #else /* __OLD_STARLET */ int sys$resume(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REVOKID */ /* */ /* Revoke Identifier from Process */ /* */ /* $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] */ /* */ /* pidadr = address of PID of affected process */ /* prcnam = address of string descriptor of process name */ /* id = address of quadword identifier and attributes */ /* name = address of string descriptor of identifier name */ /* prvatr = address to store attributes of superseded id */ /* segment = optional segment index, by value */ /* */ #define sys$revokid SYS$REVOKID #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$revokid( unsigned int *pidadr, void *prcnam, struct _generic_64 *id, void *name, unsigned int *prvatr, unsigned int segment); #else /* __OLD_STARLET */ int sys$revokid(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $REWIND */ /* */ /* Rewind File */ /* */ /* $REWIND rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$rewind SYS$REWIND #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$rewind( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$rewind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $RMSRUNDWN */ /* */ /* RMS rundown (close all files opened by OpenVMS RMS for */ /* the image or process and halts I/O activity. */ /* */ /* $RMSRUNDWN buf-addr, type-value */ /* */ /* buf-addr = a descriptor pointing to a 22-byte buffer */ /* that is to receive the device identification */ /* (16 bytes) and the file identification (6 bytes) */ /* bytes) of an improperly closed output file. */ /* type-value = a single byte code that specifies the type of */ /* I/O rundown to be performed. */ #define sys$rmsrundwn SYS$RMSRUNDWN #ifdef __NEW_STARLET int sys$rmsrundwn( void *bufaddr, unsigned char typevalue); #else /* __OLD_STARLET */ int sys$rmsrundwn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $RUNDWN */ /* */ /* Rundown Process */ /* */ /* $RUNDWN [acmode] */ /* */ /* acmode = access mode to rundown; this and all less */ /* privileged access modes are rundown */ /* */ #define sys$rundwn SYS$RUNDWN #ifdef __NEW_STARLET int sys$rundwn( unsigned int acmode); #else /* __OLD_STARLET */ int sys$rundwn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SAVE_VP_EXCEPTION */ /* */ /* Save Vector Processor Exception State */ /* */ /* $SAVE_VP_EXCEPTION excid ,[flags] */ /* */ /* excid = address of a context longword */ /* */ /* flags = noallocation flag */ /* 0 -> allocate 1 -> don't allocate */ /* */ #define sys$save_vp_exception SYS$SAVE_VP_EXCEPTION #ifdef __NEW_STARLET int sys$save_vp_exception( unsigned int *excid, unsigned int flags); #else /* __OLD_STARLET */ int sys$save_vp_exception(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SAVE_VP_EXC_INT */ /* */ /* Save Vector Processor Exception State, internal form */ /* */ /* $SAVE_VP_EXC_INT excid ,[flags] */ /* */ /* excid = address of a context longword */ /* */ /* flags = noallocation flag */ /* 0 -> allocate 1 -> don't allocate */ /* */ #define sys$save_vp_exc_int SYS$SAVE_VP_EXC_INT #ifdef __NEW_STARLET int sys$save_vp_exc_int( unsigned int *excid, unsigned int flags); #else /* __OLD_STARLET */ int sys$save_vp_exc_int(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SCAN_INTRUSION */ /* */ /* Scan intrusion database */ /* */ /* $SCAN_INTRUSION logfail_status, failed_user, job_type, */ /* [source_terminal], [source_node], [source_user], [source_addr], */ /* [failed_password], [parent_user], [parent_id], [flags] */ /* */ /* logfail_status in login failure status */ /* failed_user in address of failed username descriptor */ /* job_type in job type index */ /* source_terminal in address of source terminal descriptor */ /* source_node in address of source nodename descriptor */ /* source_user in address of source username descriptor */ /* source_address in address of source DECnet address */ /* failed_password in address of failed password (breakin attempts only) */ /* parent_user in address of parent username */ /* parent_id in parent PID */ /* flags in intrusion service flags */ /* */ #define sys$scan_intrusion SYS$SCAN_INTRUSION #ifdef __NEW_STARLET int sys$scan_intrusion( unsigned int logfail_status, void *failed_user, unsigned int job_type, void *source_terminal, void *source_node, void *source_user, void *source_address, void *failed_password, void *parent_user, unsigned int parent_id, unsigned int flags); #else /* __OLD_STARLET */ int sys$scan_intrusion(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SCAN_MAPPING */ /* */ /* Locate Mapping records in Mapping database */ /* */ /* $SCAN_MAPPING initmlst. outitmlst [,contxt] */ /* */ /* initmlst = address of a list of item descriptors for the operation */ /* outitmlst = address of a list of item descriptors for the operation */ /* contxt = address of a context long word */ /* */ #define sys$scan_mapping SYS$SCAN_MAPPING #ifdef __NEW_STARLET int sys$scan_mapping( void *initmlst, void *outitmlst, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$scan_mapping(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SCHDWK */ /* */ /* Schedule Wakeup */ /* */ /* $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] */ /* */ /* pidadr = address of process id of process to be awakened */ /* */ /* prcnam = address of process name string descriptor */ /* */ /* daytim = address of quadword containing time to wake */ /* */ /* reptim = address of quadword containing repeat time interval */ /* */ #define sys$schdwk SYS$SCHDWK #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$schdwk( unsigned int *pidadr, void *prcnam, struct _generic_64 *daytim, struct _generic_64 *reptim); #else /* __OLD_STARLET */ int sys$schdwk(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SEARCH */ /* */ /* Search for File Name */ /* */ /* $SEARCH fab, [err], [suc] */ /* */ /* fab = address of fab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$search SYS$SEARCH #ifdef __cplusplus /* Define structure prototypes */ struct _fabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$search( struct _fabdef *fab, __optional_params ); #else /* __OLD_STARLET */ int sys$search(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETCLUEVT */ /* */ /* Set Cluster Event Notification */ /* */ /* $SETCLUEVT event, astadr, [astprm], [acmode], [handle] */ /* */ /* event = code indicating type of event */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as an argument */ /* */ /* acmode = access mode of AST */ /* */ /* handle = address of handle */ /* */ #define sys$setcluevt SYS$SETCLUEVT #ifdef __NEW_STARLET int sys$setcluevt( unsigned int event, void (*astadr)(__unknown_params), int astprm, unsigned int acmode, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *handle #else unsigned __int64 handle #endif ); #else /* __OLD_STARLET */ int sys$setcluevt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETDDIR */ /* */ /* Read and set the default directory string for the process. */ /* */ /* $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] */ /* */ /* new-dir-addr = a descriptor of the new default directory. */ /* */ /* length-addr = a word that is to receive the length of the */ /* current default directory. */ /* */ /* cur-dir-addr = descriptor of a buffer that is to receive */ /* the current default directory. */ #define sys$setddir SYS$SETDDIR #ifdef __NEW_STARLET int sys$setddir( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void *newdiraddr, unsigned short int *lengthaddr, void *curdiraddr); #else /* __OLD_STARLET */ int sys$setddir(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETDFPROT */ /* */ /* Read and write the default file protection for the process. */ /* */ /* $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] */ /* */ /* new-def-prot-addr = a word that specifies the new default file */ /* protection specification. */ /* */ /* cur-def-prot-addr = a word that is to receive the current default file */ /* protection specification. */ #define sys$setdfprot SYS$SETDFPROT #ifdef __NEW_STARLET int sys$setdfprot( unsigned short int *newdefprotaddr, unsigned short int *curdefprotaddr); #else /* __OLD_STARLET */ int sys$setdfprot(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SET_RETURN_VALUE */ /* */ /* Set return value/status in the Mechanism array */ /* */ /* $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value */ /* */ /* mechanism_arg = Address of mechanism vector */ /* */ /* return_type = Address of a longword containing one of the values */ /* specified in the Function Return Signature Encoding tables */ /* of the OpenVMS calling standard. */ /* */ /* return_value = Address of a value of the type specified by the */ /* return_type argument. The referenced value will be read */ /* as a longword, quadword, or octaword, depending on the */ /* return_type value. */ /* */ /* */ #define sys$set_return_value SYS$SET_RETURN_VALUE #ifdef __NEW_STARLET int sys$set_return_value( void *mechanism_arg, unsigned int *return_type, void *return_value); #else /* __OLD_STARLET */ int sys$set_return_value(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* $SET_SYSTEM_EVENT */ /* */ /* Set System Event Notification */ /* */ /* $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle */ /* */ /* event = code indicating type of event */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as an argument */ /* */ /* acmode = access mode of AST */ /* */ /* flags = flags longword (one example is to indicate whether the notification */ /* of the event should be done only once or should be repeated) */ /* */ /* event_handle = address of handle */ /* */ #define sys$set_system_event SYS$SET_SYSTEM_EVENT #ifdef __NEW_STARLET int sys$set_system_event( unsigned int event, void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int acmode, unsigned int flags, unsigned __int64 *handle); #else /* __OLD_STARLET */ int sys$set_system_event(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SET_IMPLICIT_AFFINITY */ /* */ /* Modify process implicit affinity */ /* */ /* $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] */ /* */ /* pidadr = address of process identification of process for */ /* which affinity is to be changed */ /* prcnam = address of process name string descriptor */ /* cpu_id = CPUID number process is to be assigned to initially */ /* prev_mask = address of user quadword that will hold the */ /* previous states of the individual capabilities */ /* */ #define sys$set_implicit_affinity SYS$SET_IMPLICIT_AFFINITY #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$set_implicit_affinity( unsigned int *pidadr, void *prcnam, struct _generic_64 *state, int cpu_id, struct _generic_64 *prev_mask); #else /* __OLD_STARLET */ int sys$set_implicit_affinity(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SET_RESOURCE_DOMAIN */ /* */ /* Set Resource Domain */ /* */ /* $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] */ /* */ /* func = join or leave function to be performed */ /* 1 - Join the System Resource Domain */ /* 2 - Join the Process Default Domain */ /* 3 - Join a new Resource Domain (not System or Process) */ /* */ /* rsdm_id = address of the Resource Domain Id */ /* */ /* domain_number = number identifying target Resource Domain */ /* */ /* nullarg = Placeholder reserved to Digital */ /* */ /* access = Access desired (defined by RSDM$M macro */ /* */ /* acmode = requested access mode */ /* */ /* */ #define sys$set_resource_domain SYS$SET_RESOURCE_DOMAIN #ifdef __NEW_STARLET int sys$set_resource_domain( unsigned int func, unsigned int *rsdm_id, unsigned int domain_number, unsigned int nullarg, unsigned int access, unsigned int acmode); #else /* __OLD_STARLET */ int sys$set_resource_domain(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SET_SECURITY */ /* */ /* Set Object Security Profile */ /* */ /* $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] */ /* */ #define sys$set_security SYS$SET_SECURITY #ifdef __NEW_STARLET int sys$set_security( void *clsnam, void *objnam, unsigned int *objhan, unsigned int flags, void *itmlst, unsigned int *contxt, unsigned int *acmode); #else /* __OLD_STARLET */ int sys$set_security(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SET_UNWIND_TABLE */ /* */ /* Register or extend and unwind table (UT) information */ /* */ /* $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size, */ /* handler_base_va, unwind_info_base, name */ /* */ /* code_base_va = The process virtual address of the start of the code region */ /* */ /* code_size = Size of code region in bytes */ /* */ /* ut_base_va = Quadword aligned process virtual address of the UT */ /* */ /* ut_size = The size of the UT in bytes */ /* */ /* handler_base_va = The handler_base_va plus the unwind information block's condition */ /* handler procedure value must add up to the process virtual address */ /* of the condition handler's function value. */ /* */ /* unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE) */ /* unwind info block (UIB) offset must add up to the process virtual */ /* address of that UIB. */ /* */ /* name = Fixed length string, passed by descriptor. */ /* */ /* flags = MUTE flags, mask word, optional */ /* */ #define sys$set_unwind_table SYS$SET_UNWIND_TABLE #ifdef __NEW_STARLET int sys$set_unwind_table( unsigned __int64 code_base_va, unsigned __int64 code_size, unsigned __int64 ut_base_va, unsigned __int64 ut_size, unsigned __int64 handler_base_va, unsigned __int64 unwind_info_base, void *name, __optional_params); #else /* __OLD_STARLET */ int sys$set_unwind_table(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETAST */ /* */ /* Set AST Enable */ /* */ /* $SETAST enbflg */ /* */ /* enbflg = AST enable indicator for current access mode */ /* 0 -> disable 1 -> enable */ /* */ #define sys$setast SYS$SETAST #ifdef __NEW_STARLET int sys$setast( char enbflg); #else /* __OLD_STARLET */ int sys$setast(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETEF */ /* */ /* Set Event Flag */ /* */ /* $SETEF efn */ /* */ /* efn = event flag number of flag to set */ /* */ #define sys$setef SYS$SETEF #ifdef __NEW_STARLET int sys$setef( unsigned int efn); #else /* __OLD_STARLET */ int sys$setef(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GETENV */ /* */ /* Get an environment variable */ /* */ /* $GETENV ItemList */ /* */ /* ItemList = address of a zero terminated item list. */ /* */ /* */ #define sys$getenv SYS$GETENV #ifdef __NEW_STARLET int sys$getenv( void *itemlist); #else /* __OLD_STARLET */ int sys$getenv(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETENV */ /* */ /* Set an environment variable */ /* */ /* $SETENV ItemList */ /* */ /* ItemList = address of a zero terminated item list. */ /* */ /* */ #define sys$setenv SYS$SETENV #ifdef __NEW_STARLET int sys$setenv( void *itemlist); #else /* __OLD_STARLET */ int sys$setenv(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETEVTAST */ /* */ /* Establish an Event AST Routine */ /* */ /* $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid] */ /* (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] */ /* ,[astprm], [nullarg] */ /* */ /* evtnam = address of descriptor of event name */ /* */ /* evtadr = address of entry mask of event AST routine */ /* */ /* evtfac = address of event facility code */ /* */ /* acmode = access mode of event declaration */ /* */ /* flags = optional flags */ /* */ /* reqid = user provided identification of this request */ /* */ /* evtid = address to receive unique identification of this request */ /* */ /* evtcrd = amount of AST credit to reserve for request */ /* */ /* efn = event flag to set when $SETEVTAST completes */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of completion AST routine */ /* */ /* astprm = value to be passed to completion AST routine */ /* */ #define sys$setevtast SYS$SETEVTAST #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setevtast( void *evtnam, int (*evtadr)(__unknown_params), unsigned int *evtfac, unsigned int acmode, unsigned int flags, unsigned int reqid, unsigned int *evtid, unsigned int evtcrd, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int nullarg); #else /* __OLD_STARLET */ int sys$setevtast(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$setevtastw SYS$SETEVTASTW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setevtastw( void *evtnam, int (*evtadr)(__unknown_params), unsigned int *evtfac, unsigned int acmode, unsigned int flags, unsigned int reqid, unsigned int *evtid, unsigned int evtcrd, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int nullarg); #else /* __OLD_STARLET */ int sys$setevtastw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETEXV */ /* */ /* Set Exception Vector */ /* */ /* $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] */ /* */ /* vector = vector number */ /* 0 -> primary vector 1 -> secondary 2 -> last chance */ /* */ /* addres = exception handler address (0 indicates deassign vector) */ /* */ /* acmode = access mode for which vector is set */ /* */ /* prvhnd = address of longword to receive previous handler address */ /* */ #define sys$setexv SYS$SETEXV #ifdef __NEW_STARLET int sys$setexv( unsigned int vector, int (*addres)(__unknown_params), unsigned int acmode, void *(*(prvhnd))); #else /* __OLD_STARLET */ int sys$setexv(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETFLT */ /* */ /* Set Fault Characteristics on Pages */ /* */ /* $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to change */ /* */ /* retadr = address of 2-longword array containing starting and */ /* ending addresses of pages which were changed */ /* */ /* acmode = access mode of request */ /* */ /* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) */ /* */ #define sys$setflt SYS$SETFLT #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setflt( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int fault_flag); #else /* __OLD_STARLET */ int sys$setflt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETFLT_64 */ /* */ /* Set Fault Characteristics on Pages */ /* */ /* $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 */ /* */ /* start_va_64 = Starting address of address space to set protection */ /* */ /* length_64 = Byte length of addresses to set protection */ /* */ /* acmode = Access mode of request */ /* */ /* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) */ /* */ /* return_va_64 = Address of address space whose protection was set */ /* */ /* return_length_64 = Length of address space whose protection was set */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$setflt_64 SYS$SETFLT_64 #ifdef __NEW_STARLET int sys$setflt_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int fault_flag, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$setflt_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SETIME */ /* */ /* Set System Time */ /* */ /* $SETIME [timadr] */ /* */ /* timadr = address of quadword containing new system time in */ /* 64-bit format. If 0, recalibrate system time using */ /* hardware time-of-year clock. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$setime SYS$SETIME #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setime( struct _generic_64 *timadr); #else /* __OLD_STARLET */ int sys$setime(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SETIMR */ /* */ /* Set Timer */ /* */ /* $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] */ /* */ /* efn = event flag to set when timer expires */ /* */ /* daytim = address of quadword containing 64-bit time value */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* reqidt = request identification of this timer request */ /* */ /* flags = only bit 0 used right now. If bit 0 is set, */ /* then this timer request is in terms of CPU time. */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$setimr SYS$SETIMR #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setimr( unsigned int efn, struct _generic_64 *daytim, void (*astadr)(__unknown_params), unsigned __int64 reqidt, unsigned int flags); #else /* __OLD_STARLET */ int sys$setimr(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SETPFM */ /* */ /* Set Page Fault Monitoring */ /* */ /* $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] */ /* */ /* pfmflg = function/subfunction bits */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* acmode = access mode for which the AST is to be declared */ /* */ /* bufcntadr = address of longword for which the number of */ /* page fault monitoring buffers allocated is stored. */ /* */ #define sys$setpfm SYS$SETPFM #ifdef __NEW_STARLET int sys$setpfm( unsigned int pfmflg, int (*astadr)(__unknown_params), int astprm, unsigned int acmode, int *bufcntadr); #else /* __OLD_STARLET */ int sys$setpfm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETPRA */ /* */ /* Set Power Recovery AST */ /* */ /* $SETPRA astadr ,[acmode] */ /* */ /* astadr = address of power recovery AST routine */ /* */ /* acmode = access mode of AST */ /* */ #define sys$setpra SYS$SETPRA #ifdef __NEW_STARLET int sys$setpra( int (*astadr)(__unknown_params), unsigned int acmode); #else /* __OLD_STARLET */ int sys$setpra(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETPRI */ /* */ /* Set Priority */ /* */ /* $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] */ /* */ /* pidadr = address of process id of process to be set */ /* */ /* prcnam = address of process name string descriptor */ /* */ /* pri = new base priority for the process */ /* */ /* prvpri = address of longword to receive previous base priority */ /* */ /* pol = address of new scheduling policy for the process */ /* */ /* prvpol = address of longword to receive previous sched policy */ /* */ #define sys$setpri SYS$SETPRI #ifdef __NEW_STARLET int sys$setpri( unsigned int *pidadr, void *prcnam, unsigned int pri, unsigned int *prvpri, unsigned int *pol, unsigned int *prvpol); #else /* __OLD_STARLET */ int sys$setpri(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETPRN */ /* */ /* Set Process Name */ /* */ /* $SETPRN [prcnam] */ /* */ /* prcnam = address of the process name string descriptor */ /* */ #define sys$setprn SYS$SETPRN #ifdef __NEW_STARLET int sys$setprn( void *prcnam); #else /* __OLD_STARLET */ int sys$setprn(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETPRT */ /* */ /* Set Protection on Pages */ /* */ /* $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to change */ /* */ /* retadr = address of 2-longword array containing starting and */ /* ending addresses of pages which were changed */ /* */ /* acmode = access mode of request */ /* */ /* prot = new protection */ /* */ /* prvprt = address of byte to receive previous protection of */ /* last page changed */ /* */ #define sys$setprt SYS$SETPRT #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setprt( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, unsigned int prot, unsigned char *prvprt); #else /* __OLD_STARLET */ int sys$setprt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETPRT_64 */ /* */ /* Set Protection on Pages */ /* */ /* $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_64, return_length_64, */ /* return_prot_64 */ /* */ /* start_va_64 = Starting address of address space to set protection */ /* */ /* length_64 = Byte length of addresses to set protection */ /* */ /* acmode = Access mode of request */ /* */ /* prot = New protection */ /* */ /* return_va_64 = Address of address space whose protection was set */ /* */ /* return_length_64 = Length of address space whose protection was set */ /* */ /* return_prot_64 = Address of longword to receive previous protection of */ /* last page changed */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$setprt_64 SYS$SETPRT_64 #ifdef __NEW_STARLET int sys$setprt_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int prot, void *(*(return_va_64)), unsigned __int64 *return_length_64, unsigned int *return_prot_64); #else /* __OLD_STARLET */ int sys$setprt_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SETPRV */ /* */ /* Set privileges. */ /* $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] */ /* */ /* enbflg = enable indicator */ /* 0 -> disable 1 -> enable */ /* */ /* prvadr = 64-bit mask defining the privileges to be enabled or */ /* disabled */ /* */ /* prmflg = permanent indicator */ /* 0 -> temporary (for this image) 1 -> permanent */ /* */ /* prvprv = address of quadword buffer to receive previous privileges */ /* */ #define sys$setprv SYS$SETPRV #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setprv( char enbflg, struct _generic_64 *prvadr, char prmflg, struct _generic_64 *prvprv); #else /* __OLD_STARLET */ int sys$setprv(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETRWM */ /* */ /* Set Resource Wait Mode */ /* */ /* $SETRWM [watflg] */ /* */ /* watflg = wait indicator */ /* 0 -> wait for resources 1 -> return failure immediately */ /* (type is NUMBER rather than BOOLEAN since WATFLG=TRUE */ /* means don't wait, which is the opposite of what is seems) */ /* */ #define sys$setrwm SYS$SETRWM #ifdef __NEW_STARLET int sys$setrwm( char watflg); #else /* __OLD_STARLET */ int sys$setrwm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETSFM */ /* */ /* Set System Service Failure Mode */ /* */ /* $SETSFM [enbflg] */ /* */ /* enbflg = enable indicator */ /* 0 -> disable generation of exceptions on service failures */ /* 1 -> generate exceptions for system service failures */ /* */ #define sys$setsfm SYS$SETSFM #ifdef __NEW_STARLET int sys$setsfm( char enbflg); #else /* __OLD_STARLET */ int sys$setsfm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETSSF */ /* */ /* Set System Service Filter */ /* */ /* $SETSSF [mask] */ /* */ /* mask = flags for services to inhibit */ /* */ #define sys$setssf SYS$SETSSF #ifdef __NEW_STARLET int sys$setssf( unsigned int mask); #else /* __OLD_STARLET */ int sys$setssf(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETSHLV */ /* */ /* Modify process default unshelving action */ /* */ /* $SETSHLV [pidadr] ,[prcnam], [shlvflg] */ /* */ /* pidadr = address of process id of process */ /* */ /* prcnam = address of name string descriptor of process */ /* */ /* shlvflg = longword containing the desired shelving mode */ /* in the bottom bit. If the bottom bit is set, */ /* then the default is not to automatically unshelve */ /* shelved files. If the bottom bit is clear, then */ /* the default is to automatically unshelve shelved */ /* files. */ /* */ #define sys$setshlv SYS$SETSHLV #ifdef __NEW_STARLET int sys$setshlv( unsigned int *pidadr, void *prcnam, unsigned int shlvflg); #else /* __OLD_STARLET */ int sys$setshlv(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETSTK */ /* */ /* SET VIRTUAL STACK LIMITS */ /* */ /* $SETSTK inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual address of stack limits to set */ /* */ /* retadr = address of a 2-longword array to receive starting and */ /* ending virtual address of stack limits to set */ /* */ /* acmode = access mode for the stack to change */ /* */ #define sys$setstk SYS$SETSTK #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setstk( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$setstk(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETSTK_64 */ /* */ /* SET VIRTUAL STACK LIMITS */ /* */ /* $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 */ /* */ /* start_va_64 = lowest address for new stack limits */ /* */ /* length_64 = length of address range for new stack limits */ /* */ /* acmode = access mode for the stack to change */ /* */ /* flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) */ /* */ /* prev_start_va_64 = pointer to lowest address for previous stack limits */ /* */ /* prev_length_64 = pointer to length of previous stack limits */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$setstk_64 SYS$SETSTK_64 #ifdef __NEW_STARLET int sys$setstk_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int flags, void *(*(prev_start_va_64)), unsigned __int64 *prev_length_64); #else /* __OLD_STARLET */ int sys$setstk_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SETSWM */ /* */ /* Set Process Swap Mode */ /* */ /* $SETSWM [swpflg] */ /* */ /* swpflg = swap indicator */ /* 0 -> enable swapping 1 -> disable swapping */ /* */ #define sys$setswm SYS$SETSWM #ifdef __NEW_STARLET int sys$setswm( char swpflg); #else /* __OLD_STARLET */ int sys$setswm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SETDTI */ /* */ /* Set Distributed Transaction Information */ /* */ /* $SETDTI [efn], [flags], iosb, [astadr], [astprm], context, */ /* ($SETDTIW) func, itmlst */ /* */ /* efn = event flag to set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of the entry mask of an AST routine */ /* astprm = value to be passed to AST routine */ /* context = address of longword search context */ /* func = function code to be performed */ /* itmlst = address of a list of item descriptors */ /* */ #define sys$setdti SYS$SETDTI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setdti( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int *contxt, unsigned short int func, void *itmlst); #else /* __OLD_STARLET */ int sys$setdti(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$setdtiw SYS$SETDTIW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setdtiw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int *contxt, unsigned short int func, void *itmlst); #else /* __OLD_STARLET */ int sys$setdtiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETUAI */ /* */ /* Modify User Authorization Information */ /* */ /* $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] */ /* ,[astprm] */ /* */ /* efn = event flag to be set at completion */ /* */ /* contxt = address of a context longword (UAF IFI & ISI) */ /* */ /* usrnam = address of user name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* */ #define sys$setuai SYS$SETUAI #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setuai( unsigned int efn, unsigned int *contxt, void *usrnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$setuai(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SHOW_INTRUSION */ /* */ /* Show intrusion record */ /* */ /* $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context] */ /* */ /* user_criteria in address of user criteria descriptor */ /* intruder in out address of intruder descriptor */ /* intruder_len out address of word to receive intruder string length */ /* breakin_block out address of intrusion block */ /* flags in intrusion service flags */ /* context in out address of optional longword context */ /* */ #define sys$show_intrusion SYS$SHOW_INTRUSION #ifdef __NEW_STARLET int sys$show_intrusion( void *user_criteria, void *intruder, unsigned short int *intruder_len, void *breakin_block, unsigned int flags, unsigned int *context); #else /* __OLD_STARLET */ int sys$show_intrusion(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SNDACC */ /* */ /* Send Message to Accounting Manager */ /* */ /* $SNDACC msgbuf ,[chan] */ /* */ /* msgbuf = address of message buffer string descriptor */ /* */ /* chan = number of channel assigned to mailbox to receive reply */ /* */ #define sys$sndacc SYS$SNDACC #ifdef __NEW_STARLET int sys$sndacc( void *msgbuf, unsigned short int chan); #else /* __OLD_STARLET */ int sys$sndacc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SNDERR */ /* */ /* Send Message to Error Logger */ /* */ /* $SNDERR msgbuf */ /* */ /* msgbuf = address of message buffer string descriptor */ /* */ #define sys$snderr SYS$SNDERR #ifdef __NEW_STARLET int sys$snderr( void *msgbuf); #else /* __OLD_STARLET */ int sys$snderr(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SNDOPR */ /* */ /* Send Message to Operator */ /* */ /* $SNDOPR msgbuf ,[chan] */ /* */ /* msgbuf = address of message buffer string descriptor */ /* */ /* chan = number of channel assigned to mailbox to receive reply */ /* */ #define sys$sndopr SYS$SNDOPR #ifdef __NEW_STARLET int sys$sndopr( void *msgbuf, unsigned short int chan); #else /* __OLD_STARLET */ int sys$sndopr(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SNDSMB */ /* */ /* Send Message to Symbiont Manager */ /* */ /* $SNDSMB msgbuf ,[chan] */ /* */ /* msgbuf = address of message buffer string descriptor */ /* */ /* chan = number of channel assigned to mailbox to receive reply */ /* */ #define sys$sndsmb SYS$SNDSMB #ifdef __NEW_STARLET int sys$sndsmb( void *msgbuf, unsigned short int chan); #else /* __OLD_STARLET */ int sys$sndsmb(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SNDJBC */ /* */ /* Send Message to Job Controller */ /* */ /* $SNDJBC [efn], func, [nullarg], [itmlst], */ /* ($SNDJBCW) [iosb], [astadr], [astprm] */ /* */ /* efn = event flag to be set when request completes */ /* func = code specifying function to be performed */ /* nullarg = reserved argument for similarity with $getxxx services */ /* itmlst = address of a list of item descriptors for the operation */ /* iosb = address of a quadword status block to receive the final status */ /* astadr = address of an ast routine to be called when request completes */ /* astprm = 32-bit ast parameter */ /* */ #define sys$sndjbc SYS$SNDJBC #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$sndjbc( unsigned int efn, unsigned short int func, unsigned int nullarg, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$sndjbc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$sndjbcw SYS$SNDJBCW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$sndjbcw( unsigned int efn, unsigned short int func, unsigned int nullarg, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$sndjbcw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SPACE */ /* */ /* Space to Record in File */ /* */ /* $SPACE rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$space SYS$SPACE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$space( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$space(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SSIO_FSYNC */ /* */ /* Synchronize file changes with the storage device for a file that */ /* has been opened for Shared Stream I/O (SSIO) access. */ /* */ /* $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] */ /* ($SSIO_FSYNCW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_fsync SYS$SSIO_FSYNC #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_fsync( unsigned int chan, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_fsync(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_fsyncw SYS$SSIO_FSYNCW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_fsyncw( unsigned int chan, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_fsyncw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_GETFL */ /* */ /* Get the current file status flags for a file that has been opened */ /* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with */ /* F_SETFL command parameter. */ /* */ /* $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] */ /* ($SSIO_GETFLW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status and file status flags (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_getfl SYS$SSIO_GETFL #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_getfl( unsigned int chan, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_getfl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_getflw SYS$SSIO_GETFLW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_getflw( unsigned int chan, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_getflw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_LSEEK */ /* */ /* Set the current file offset to a file that has been opened for */ /* Shared Stream I/O (SSIO) access. */ /* */ /* $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] */ /* ($SSIO_LSEEKW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* offset_in = signed offset value used in conjunction with the */ /* whence parameter to determine a new resultant file */ /* offset (64-bit value) */ /* */ /* whence = value that controls interpretation of offset_in */ /* Must be one of: */ /* SSIO$C_SEEK_SET: Resultant offset is offset_in */ /* SSIO$C_SEEK_CUR: Resultant offset is current value */ /* plus offset_in */ /* SSIO$C_SEEK_END: Resultant offset is current end-of- */ /* file position plus offset_in */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_lseek SYS$SSIO_LSEEK #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_lseek( unsigned int chan, __int64 offset_in, int whence, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_lseek(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_lseekw SYS$SSIO_LSEEKW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_lseekw( unsigned int chan, __int64 offset_in, int whence, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_lseekw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_READ */ /* */ /* Read a byte stream from the current file offset from a file that */ /* has been opened for Shared Stream I/O (SSIO) access */ /* */ /* $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] */ /* ($SSIO_READW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* buffer = address of data buffer to receive data (64-bit address) */ /* */ /* bufsiz = size of data buffer in bytes (64-bit value) */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_read SYS$SSIO_READ #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_read( unsigned int chan, void *buffer, unsigned __int64 bufsiz, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_read(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_readw SYS$SSIO_READW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_readw( unsigned int chan, void *buffer, unsigned __int64 bufsiz, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_readw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_SETFL */ /* */ /* Set the current file status flags for a file that has been opened */ /* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with */ /* F_SETFL command parameter. */ /* */ /* $SSIO_SETFL chan ,file_sts_flgs ,iosa ,[ast] ,[astprm] */ /* ($SSIO_SETFLW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* file_sts_flgs = desired file status flag value */ /* Only mask value that can be changed is SSIO$M_O_APPEND. */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_setfl SYS$SSIO_SETFL #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_setfl( unsigned int chan, unsigned int file_sts_flgs, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_setfl(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_setflw SYS$SSIO_SETFLW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_setflw( unsigned int chan, unsigned int file_sts_flgs, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_setflw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_SYNC */ /* */ /* Synchronize file changes that have been made via prior calls to */ /* the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on this */ /* system that have been opened for Shared Stream I/O (SSIO) access. */ /* The file changes are synchronized with the corresponding storage */ /* device. */ /* */ /* $SSIO_SYNC */ /* */ #define sys$ssio_sync SYS$SSIO_SYNC #ifdef __NEW_STARLET int sys$ssio_sync(void); #else /* __OLD_STARLET */ int sys$ssio_sync(void); #endif /* #ifdef __NEW_STARLET */ /* $SSIO_TRUNCATE */ /* */ /* Truncate (or extend) a file that has been opened for Shared */ /* Stream I/O (SSIO) access. */ /* */ /* $SSIO_TRUNCATE chan ,file_length ,iosa ,[ast] ,[astprm] */ /* ($SSIO_TRUNCATEW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* file_length = new end-of-file length (64-bit value) */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_truncate SYS$SSIO_TRUNCATE #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_truncate( unsigned int chan, unsigned __int64 file_length, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_truncate(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_truncatew SYS$SSIO_TRUNCATEW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_truncatew( unsigned int chan, __int64 file_length, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_truncatew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SSIO_WRITE */ /* */ /* Write a byte stream to the current file offset to a file that */ /* has been opened for Shared Stream I/O (SSIO) access */ /* */ /* $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] */ /* ($SSIO_WRITEW) */ /* */ /* chan = channel number for SSIO accessed file */ /* */ /* buffer = address of data buffer to receive data (64-bit address) */ /* */ /* bufsiz = size of data buffer in bytes (64-bit value) */ /* */ /* iosa = address of I/O status area (4 quadwords) to receive final */ /* completion status (64-bit address) */ /* */ /* ast = address of AST routine (64-bit address) */ /* */ /* astprm = value to be passed to AST routine as argument (64-bit value) */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ssio_write SYS$SSIO_WRITE #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_write( unsigned int chan, void *buffer, unsigned __int64 bufsiz, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_write(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ssio_writew SYS$SSIO_WRITEW #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ssio_writew( unsigned int chan, void *buffer, unsigned __int64 bufsiz, struct _iosa *iosa, void (*ast)( void *), void *astprm); #else /* __OLD_STARLET */ int sys$ssio_writew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SUSPND */ /* */ /* Suspend Process */ /* */ /* $SUSPND [pidadr] ,[prcnam], [flags] */ /* */ /* pidadr = address of process id of process to be suspended */ /* */ /* prcnam = address of name string descriptor of process */ /* */ /* flags = longword of bit flags, of which only bit 0 is */ /* currently used. If bit 0 is set, then this */ /* is a hard suspend request; if clear this is */ /* a soft suspend request. */ /* */ #define sys$suspnd SYS$SUSPND #ifdef __NEW_STARLET int sys$suspnd( unsigned int *pidadr, void *prcnam, unsigned int flags); #else /* __OLD_STARLET */ int sys$suspnd(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SYNCH */ /* */ /* Synchronize Event Completion */ /* */ /* $SYNCH [iosb] ,[efn] */ /* */ /* efn = event flag to be set at completion */ /* */ /* iosb = address of a quadword I/O status block */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$synch SYS$SYNCH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$synch( unsigned int efn, struct _iosb *iosb); #else /* __OLD_STARLET */ int sys$synch(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SUBSYSTEM */ /* */ /* Modify Protected Subsystem Attributes */ /* */ /* $SUBSYSTEM enbflg */ /* */ /* enbflg = enable indicator */ /* 0 => disable image identifiers */ /* 1 => restore image identifiers */ /* */ #define sys$subsystem SYS$SUBSYSTEM #ifdef __NEW_STARLET int sys$subsystem( unsigned int enbflg); #else /* __OLD_STARLET */ int sys$subsystem(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $TIMCON */ /* */ /* Convert between binary UTC and Smithsonian times */ /* */ /* $TIMCON smntim, utctim, cvtflg */ /* */ /* For cvtflg = 0 (Convert UTC to Smithsonian) */ /* smnadr = Address of the output quadword to be written */ /* with the UTC time converted to date_time */ /* utcadr = Address of the input 128 bit utc_date_time time to */ /* be converted */ /* cvtflg = 0 */ /* */ /* For cvtflg = 1 (Convert Smithsonian to UTC) */ /* smnadr = Address of input Smithsonian binary time to be */ /* converted (VMS Binabs time). */ /* utcadr = Address of the output 128 bit binary time to */ /* be written with the converted time */ /* cvtflg = 1 */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$timcon SYS$TIMCON #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$timcon( struct _generic_64 *smnadr, unsigned int utcadr [4], char cvtflg); #else /* __OLD_STARLET */ int sys$timcon(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $TRNLNM */ /* */ /* Translate Logical Name */ /* */ /* $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] */ /* */ /* attr = address of logical name translation attributes */ /* */ /* Attribute Meaning */ /* LNM$M_CASE_BLIND Search of string is case insensitive */ /* */ /* tabnam = address of logical name table name string descriptor */ /* */ /* lognam = address of logical name string descriptor */ /* */ /* acmode = address of access mode for logical name */ /* */ /* itmlst = address of a list of item descriptors */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$trnlnm SYS$TRNLNM #ifdef __NEW_STARLET int sys$trnlnm( unsigned int *attr, void *tabnam, void *lognam, unsigned char *acmode, void *itmlst); #else /* __OLD_STARLET */ int sys$trnlnm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $TRNLOG */ /* */ /* Translate Logical Name */ /* */ /* $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] */ /* */ /* lognam = address of logical name string descriptor */ /* */ /* rsllen = address of word to receive length of resultant name */ /* */ /* rslbuf = address of descriptor for buffer to receive resultant */ /* string */ /* */ /* table = address of byte to receive logical name table number */ /* */ /* acmode = address of byte to receive access mode of entry */ /* (process table only) */ /* */ /* dsbmsk = table search disable mask */ /* */ /* Bit Set Meaning */ /* */ /* 0 Do not search system table */ /* 1 Do not search group table */ /* 2 Do not search process table */ /* */ #define sys$trnlog SYS$TRNLOG #ifdef __NEW_STARLET int sys$trnlog( void *lognam, unsigned short int *rsllen, void *rslbuf, unsigned char *table, unsigned char *acmode, unsigned int dsbmsk); #else /* __OLD_STARLET */ int sys$trnlog(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $TRUNCATE */ /* */ /* Truncate Record */ /* */ /* $TRUNCATE rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$truncate SYS$TRUNCATE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$truncate( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$truncate(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ULKPAG */ /* */ /* Unlock Pages From Memory */ /* */ /* $ULKPAG inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to be unlocked */ /* */ /* retadr = address of a 2-longword array to receive starting and */ /* ending virtual addresses of pages actually unlocked */ /* */ /* acmode = access mode to check against the owner of the pages */ /* */ #define sys$ulkpag SYS$ULKPAG #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ulkpag( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$ulkpag(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ULKPAG_64 */ /* */ /* Unlock Pages in Memory */ /* */ /* $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 */ /* */ /* start_va_64 = Starting address of address space to unlock */ /* */ /* length_64 = Byte length of addresses to lock */ /* */ /* acmode = Access mode to be checked against the page owner */ /* */ /* return_va_64 = Address of address space unlocked */ /* */ /* return_length_64 = Length of address space unlocked */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ulkpag_64 SYS$ULKPAG_64 #ifdef __NEW_STARLET int sys$ulkpag_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$ulkpag_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $ULWSET */ /* */ /* Unlock Pages From Working Set */ /* */ /* $ULWSET inadr ,[retadr] ,[acmode] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending virtual addresses of pages to be unlocked */ /* */ /* retadr = address of a 2-longword array to receive starting and */ /* ending virtual addresses of pages actually unlocked */ /* */ /* acmode = access mode to check against the owner of the pages */ /* */ #define sys$ulwset SYS$ULWSET #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$ulwset( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode); #else /* __OLD_STARLET */ int sys$ulwset(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $ULWSET_64 */ /* */ /* Unlock Pages from Working Set */ /* */ /* $ULWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 */ /* */ /* start_va_64 = Starting address of address space to unlock */ /* */ /* length_64 = Byte length of addresses to lock */ /* */ /* acmode = Access mode to be checked against the page owner */ /* */ /* return_va_64 = Address of address space unlocked */ /* */ /* return_length_64 = Length of address space unlocked */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ulwset_64 SYS$ULWSET_64 #ifdef __NEW_STARLET int sys$ulwset_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, void *(*(return_va_64)), unsigned __int64 *return_length_64); #else /* __OLD_STARLET */ int sys$ulwset_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $UNWIND */ /* */ /* Unwind Call Stack */ /* */ /* $UNWIND [depadr] ,[newpc] */ /* */ /* depadr = address of longword containing number of logical frames */ /* (depth) to unwind call stack */ /* */ /* newpc = address to be given control when the unwind is complete */ /* */ #define sys$unwind SYS$UNWIND #ifdef __NEW_STARLET int sys$unwind( unsigned int *depadr, void *newpc); #else /* __OLD_STARLET */ int sys$unwind(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $UPDATE */ /* */ /* Update Record */ /* */ /* $UPDATE fab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$update SYS$UPDATE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$update( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$update(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $UPDSEC */ /* */ /* Update Section File on Disk */ /* */ /* $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb] */ /* ($UPDSECW) ,[astadr] ,[astprm] */ /* */ /* inadr = address of 2-longword array containing starting and */ /* ending addresses of the pages to be potentially */ /* written */ /* */ /* retadr = address of 2-longword array to receive addresses of */ /* the first and last page queued in the first I/O */ /* request */ /* */ /* acmode = access mode on behalf of which the service is */ /* performed */ /* */ /* updflg = update indicator for read/write global sections */ /* 0 -> write all read/write pages in the section */ /* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller */ /* */ /* efn = number of event flag to set when the section file is */ /* updated */ /* */ /* iosb = address of quadword I/O status block */ /* */ /* astadr = address of entry mask of an AST service routine */ /* */ /* astprm = AST parameter to be passed to the AST service routine */ /* */ #define sys$updsec SYS$UPDSEC #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$updsec( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, char updflg, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$updsec(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$updsecw SYS$UPDSECW #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$updsecw( struct _va_range *inadr, struct _va_range *retadr, unsigned int acmode, char updflg, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$updsecw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $UPDSEC_64 */ /* */ /* Update Section File on Disk */ /* */ /* $UPDSEC_64 start_va_64, length_64, acmode, updflg, efn, iosa_64 */ /* return_va_64, return_length_64[,astadr_64[, astprm_64]] */ /* */ /* start_va_64 = Starting address of address space to update */ /* */ /* length_64 = Byte length of addresses to update */ /* */ /* acmode = access mode on behalf of which the service is */ /* performed */ /* */ /* updflg = update indicator for read/write global sections */ /* 0 -> write all read/write pages in the section */ /* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller */ /* */ /* efn = number of event flag to set when the section file is */ /* updated */ /* */ /* iosa_64 = address of 4 quadword I/O status area */ /* */ /* return_va_64 = Address of address space queued in the first */ /* I/O request */ /* */ /* return_length_64 = Length of address space queued in the first */ /* I/O request */ /* */ /* astadr_64 = address of entry mask of an AST service routine */ /* */ /* astprm_64 = AST parameter to be passed to the AST service routine */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$updsec_64 SYS$UPDSEC_64 #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$updsec_64( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int updflg, unsigned int efn, struct _iosa *iosa_64, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$updsec_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$updsec_64w SYS$UPDSEC_64W #ifdef __cplusplus /* Define structure prototypes */ struct _iosa; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$updsec_64w( void *start_va_64, unsigned __int64 length_64, unsigned int acmode, unsigned int updflg, unsigned int efn, struct _iosa *iosa_64, void *(*(return_va_64)), unsigned __int64 *return_length_64, __optional_params ); #else /* __OLD_STARLET */ int sys$updsec_64w(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $VERIFY_PROXY */ /* */ /* Verify proxy record */ /* */ /* $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags */ /* */ /* rem_node in address of remote node descriptor */ /* rem_user in address of remote user descriptor */ /* proposed_user in address of optional proposed user descriptor */ /* local_user out address of descriptor to receive local user */ /* local_user_len out address of word to receive local user length */ /* flags in proxy service flags */ /* */ #define sys$verify_proxy SYS$VERIFY_PROXY #ifdef __NEW_STARLET int sys$verify_proxy( void *rem_node, void *rem_user, void *proposed_user, void *local_user, unsigned short int *local_user_len, unsigned int flags); #else /* __OLD_STARLET */ int sys$verify_proxy(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $WAIT */ /* */ /* Wait on File */ /* */ /* $WAIT rab */ /* */ /* rab = address of rab */ /* */ /* */ #define sys$wait SYS$WAIT #ifdef __NEW_STARLET int sys$wait( void *fabrab); #else /* __OLD_STARLET */ int sys$wait(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $WAITFR */ /* */ /* Wait for Single Event Flag */ /* */ /* $WAITFR efn */ /* */ /* efn = event flag number to wait for */ /* */ #define sys$waitfr SYS$WAITFR #ifdef __NEW_STARLET int sys$waitfr( unsigned int efn); #else /* __OLD_STARLET */ int sys$waitfr(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $WAKE */ /* */ /* Wake */ /* */ /* $WAKE [pidadr] ,[prcnam] */ /* */ /* pidadr = address of process id of process to be awakened */ /* */ /* prcnam = address of name string descriptor of process to be */ /* awakened */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$wake SYS$WAKE #ifdef __NEW_STARLET int sys$wake( unsigned int *pidadr, void *prcnam); #else /* __OLD_STARLET */ int sys$wake(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $WFLAND */ /* */ /* Wait for Logical AND of Event Flags */ /* */ /* $WFLAND efn ,mask */ /* */ /* efn = event flag number of any flag within the cluster */ /* */ /* mask = 32-bit mask of flags that must be set */ /* */ #define sys$wfland SYS$WFLAND #ifdef __NEW_STARLET int sys$wfland( unsigned int efn, unsigned int mask); #else /* __OLD_STARLET */ int sys$wfland(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $WFLOR */ /* */ /* Wait for Logical OR of Event Flags */ /* */ /* $WFLOR efn ,mask */ /* */ /* efn = event flag number of any flag within the cluster */ /* */ /* mask = 32-bit mask of flags, any of which must be set */ /* */ #define sys$wflor SYS$WFLOR #ifdef __NEW_STARLET int sys$wflor( unsigned int efn, unsigned int mask); #else /* __OLD_STARLET */ int sys$wflor(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $WRITE */ /* */ /* Write Block to File */ /* */ /* $WRITE rab, [err], [suc] */ /* */ /* rab = address of rab */ /* */ /* err = address of user error completion routine */ /* */ /* suc = address of user success completion routine */ /* */ #define sys$write SYS$WRITE #ifdef __cplusplus /* Define structure prototypes */ struct _rabdef; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$write( struct _rabdef *rab, __optional_params ); #else /* __OLD_STARLET */ int sys$write(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $WRITE_THREAD_UNQ */ /* */ /* Write thread unique value */ /* */ /* $WRITE_THREAD_UNQ contxt */ /* */ /* contxt = address of quadword that contains the */ /* thread unique value to be written */ /* */ #define sys$write_thread_unq SYS$WRITE_THREAD_UNQ #ifdef __NEW_STARLET int sys$write_thread_unq( unsigned int *contxt); #else /* __OLD_STARLET */ int sys$write_thread_unq(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $XFS_CLIENT */ /* */ /* Call the XFS client */ /* */ /* $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* fsb = address of File System Block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ #define sys$xfs_client SYS$XFS_CLIENT #ifdef __NEW_STARLET int sys$xfs_client( unsigned int efn, unsigned short int func, void *fsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$xfs_client(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $XFS_SERVER */ /* */ /* Call the XFS server */ /* */ /* $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] */ /* */ /* efn = number of event flag to set on completion */ /* */ /* func = function code specifying action to be performed */ /* */ /* fsb = address of File System Block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine as argument */ /* */ #define sys$xfs_server SYS$XFS_SERVER #ifdef __NEW_STARLET int sys$xfs_server( unsigned int efn, unsigned short int func, void *fsb, void (*astadr)(__unknown_params), int astprm); #else /* __OLD_STARLET */ int sys$xfs_server(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $DCLRNH */ /* */ /* Declare Restart Handler */ /* */ /* $DCLRNH desblk */ /* */ /* desblk = address of handler control block containing: */ /* */ /* +-------------------------------+ */ /* | forward link | */ /* +-------------------------------+ */ /* | restart handler address | */ /* +-------------------------------+ */ /* | argument count | */ /* +-------------------------------+ */ /* | reserved, must be zero | */ /* +-------------------------------+ */ /* | address to store event code | */ /* +-------------------------------+ */ /* | additional arguments | */ /* +-- for restart handler, --+ */ /* | if any | */ /* +-------------------------------+ */ /* */ #define sys$dclrnh SYS$DCLRNH #ifdef __NEW_STARLET int sys$dclrnh( void *desblk); #else /* __OLD_STARLET */ int sys$dclrnh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CANRNH */ /* */ /* Cancel Restart Handler */ /* */ /* $CANRNH [desblk] */ /* */ /* desblk = address of handler control block describing */ /* handler to be deleted. If 0, delete all */ /* */ #define sys$canrnh SYS$CANRNH #ifdef __NEW_STARLET int sys$canrnh( void *desblk); #else /* __OLD_STARLET */ int sys$canrnh(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ABORT_TRANS */ /* */ /* Abort a transaction */ /* */ /* $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm], */ /* ($ABORT_TRANSW) [tid], [reason], [bid]] */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = identifier of transaction to be aborted */ /* reason = optional extended abort reason code */ /* bid = identifier of transaction branch to be aborted */ /* */ #define sys$abort_trans SYS$ABORT_TRANS #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$abort_trans( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$abort_trans(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$abort_transw SYS$ABORT_TRANSW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$abort_transw( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$abort_transw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ACK_EVENT */ /* */ /* Acknowledge a resource manager transaction event */ /* */ /* $ACK_REPORT [flags], report_id, report_reply, [, [reason], */ /* [beftime], [afttime], [part_name], [rm_context], */ /* [timout]] */ /* */ /* flags = operation flags */ /* report_id = participant id value */ /* report_reply = value of completion status */ /* reason = extended abort reason code (for veto vote) */ /* beftim = lower bound of commit timestamp */ /* afttim = upper bound of commit timestamp */ /* part_name = address of participant name descriptor */ /* rm_context = RM private value to be passed to evt_rtn */ /* timout = transaction execution time-out value */ /* */ #define sys$ack_event SYS$ACK_EVENT #ifdef __NEW_STARLET int sys$ack_event( unsigned int flags, unsigned int report_id, int report_reply, __optional_params ); #else /* __OLD_STARLET */ int sys$ack_event(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ADD_BRANCH */ /* */ /* Add a transaction branch */ /* */ /* $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm], */ /* ($ADD_BRANCHW) tid, tm_name, bid */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = transaction id for this branch */ /* tm_name = address of commit domain name descriptor */ /* bid = address to receive new branch identifier */ /* */ #define sys$add_branch SYS$ADD_BRANCH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$add_branch( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], void *tm_name, unsigned int bid [4]); #else /* __OLD_STARLET */ int sys$add_branch(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$add_branchw SYS$ADD_BRANCHW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$add_branchw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], void *tm_name, unsigned int bid [4]); #else /* __OLD_STARLET */ int sys$add_branchw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** */ /* */ /* $CREATE_BRANCH */ /* */ /* Create a transaction branch */ /* */ /* $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm], */ /* ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = transaction id for this branch */ /* bid = address to receive new branch identifier */ /* timout = transaction execution time-out value */ /* acmode = access mode for $CREATE_BRANCH call */ /* tx_class= user transaction class name */ /* */ #define sys$create_branch SYS$CREATE_BRANCH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_branch( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int bid [4], __optional_params ); #else /* __OLD_STARLET */ int sys$create_branch(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$create_branchw SYS$CREATE_BRANCHW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$create_branchw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int bid [4], __optional_params ); #else /* __OLD_STARLET */ int sys$create_branchw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $CVT_FILENAME */ /* */ /* Convert a string between RMS format and file-system format. */ /* */ /* $CVT_FILENAME cvttyp, srcstr, inflags, outbuf, outlen, outflags */ /* */ /* cvttyp = value indicating conversion type (RMS-to-filesys or */ /* filesys-to-RMS) */ /* srcstr = address of string descriptor for source string */ /* inflags = mask indicating source string characteristics */ /* outbuf = address of string descriptor for output string */ /* outlen = address to store length of returned output string */ /* outflags = address of a longword to receive flags describing */ /* output string */ /* */ #define sys$cvt_filename SYS$CVT_FILENAME #ifdef __NEW_STARLET int sys$cvt_filename( unsigned int cvttyp, void *srcstr, unsigned int inflags, void *outbuf, unsigned short int *outlen, unsigned int *outflags); #else /* __OLD_STARLET */ int sys$cvt_filename(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm], */ /* ($DECLARE_RMW) rm_id, event_handler [, [part_name], */ /* [rm_context], [acmode], [tm_log_id], [event_mask]] */ /* */ /* Declare Resource Manager to DDTM */ /* */ /* efn = event flag to set upon completion */ /* flags = operation flags */ /* iosb = address of I/O status block */ /* astadr = address of entry mask of AST routine */ /* astprm = value to be passed to AST routine */ /* rm_id = address of longword to receive resource manager id */ /* event_rtn = address of entry mask of transaction event routine */ /* part_name = address of resource manager name descriptor */ /* rm_context = RM private value to be passed to evt_rtn */ /* acmode = value of access mode in which to invoke evt_rtn */ /* tm_log_id = transaction manager log id for validation checks */ /* event_mask = mask of events required by this resource manager */ /* */ #define sys$declare_rm SYS$DECLARE_RM #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$declare_rm( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int *rm_id, int (*event_handler)(__unknown_params), __optional_params ); #else /* __OLD_STARLET */ int sys$declare_rm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$declare_rmw SYS$DECLARE_RMW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$declare_rmw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int *rm_id, int (*event_handler)(__unknown_params), __optional_params ); #else /* __OLD_STARLET */ int sys$declare_rmw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $END_BRANCH */ /* */ /* End an active branch of a transaction */ /* */ /* $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], */ /* ($END_BRANCHW) tid, bid */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of a completion AST routine entry mask */ /* astprm = value to be passed to completion AST routine */ /* tid = address of transaction identifier */ /* bid = address of transaction branch identifier */ /* */ #define sys$end_branch SYS$END_BRANCH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$end_branch( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int bid [4]); #else /* __OLD_STARLET */ int sys$end_branch(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$end_branchw SYS$END_BRANCHW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$end_branchw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int bid [4]); #else /* __OLD_STARLET */ int sys$end_branchw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $END_TRANS */ /* */ /* Commit a transaction */ /* */ /* $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] */ /* ($END_TRANSW) */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = identifier of transaction to be committed */ /* */ #define sys$end_trans SYS$END_TRANS #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$end_trans( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$end_trans(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$end_transw SYS$END_TRANSW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$end_transw( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$end_transw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FINISH_RMOP */ /* */ /* Finish resource manager transaction event operation */ /* */ /* $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm], */ /* ($FINISH_RMOPW) part_id, retsts [, [reason], */ /* [beftime], [afttime] */ /* */ /* efn = event flag to set upon completion */ /* flags = operation flags */ /* iosb = address of I/O status block */ /* astadr = address of entry mask of AST routine */ /* astprm = value to be passed to AST routine */ /* part_id = participant id value */ /* retsts = value of completion status */ /* reason = extended abort reason code (for veto vote) */ /* beftim = lower bound of commit timestamp */ /* afttim = upper bound of commit timestamp */ /* */ #define sys$finish_rmop SYS$FINISH_RMOP #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$finish_rmop( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int part_id, int retsts, __optional_params ); #else /* __OLD_STARLET */ int sys$finish_rmop(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$finish_rmopw SYS$FINISH_RMOPW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$finish_rmopw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int part_id, int retsts, __optional_params ); #else /* __OLD_STARLET */ int sys$finish_rmopw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $FORGET_RM */ /* */ /* Forget a resource manager previously declared to DECdtm */ /* */ /* $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id */ /* ($FORGET_RMW) */ /* */ /* efn = event flag to set upon completion */ /* flags = operation flags */ /* iosb = address of I/O status block */ /* astadr = address of entry mask of AST routine */ /* astprm = value to be passed to AST routine */ /* rm_id = resource manager id value */ /* */ #define sys$forget_rm SYS$FORGET_RM #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$forget_rm( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int rm_id); #else /* __OLD_STARLET */ int sys$forget_rm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$forget_rmw SYS$FORGET_RMW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$forget_rmw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int rm_id); #else /* __OLD_STARLET */ int sys$forget_rmw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $GET_DEFAULT_TRANS */ /* */ /* Get the current process default transaction */ /* */ /* $GET_DEFAULT_TRANS tid */ /* */ /* tid = identifier of the process default transaction */ /* */ #define sys$get_default_trans SYS$GET_DEFAULT_TRANS #ifdef __NEW_STARLET int sys$get_default_trans( unsigned int tid [4]); #else /* __OLD_STARLET */ int sys$get_default_trans(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $GET_UNWIND_ENTRY_INFO */ /* */ /* Get fixed-up unwind entry information */ /* */ /* $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name */ /* */ /* pc = target PC */ /* */ /* get_ue_block = address of a 4-quadword block to be filled in */ /* */ /* name = Fixed length string, passed by descriptor. */ /* */ /* ... */ /* flags = address of MUTE flags, mask word, optional. */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_unwind_entry_info SYS$GET_UNWIND_ENTRY_INFO #ifdef __NEW_STARLET int sys$get_unwind_entry_info( unsigned __int64 pc, void *get_ue_block, void *name, __optional_params ); #else /* __OLD_STARLET */ int sys$get_unwind_entry_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* */ /* $JOIN_RM */ /* */ /* Join a resource manager previously started transaction */ /* */ /* $JOIN_RM [efn], [flags], iosb, [astadr], [astprm], */ /* ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] */ /* */ /* efn = event flag to set upon completion */ /* flags = operation flags */ /* iosb = address of I/O status block */ /* astadr = address of entry mask of AST routine */ /* astprm = value to be passed to AST routine */ /* rm_id = resource manager id value */ /* tid = address of transaction id */ /* part_name = participant name string */ /* rm_context = RM private value to pass to event routine */ /* timout = transaction execution time-out value */ /* */ #define sys$join_rm SYS$JOIN_RM #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$join_rm( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int rm_id, __optional_params ); #else /* __OLD_STARLET */ int sys$join_rm(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$join_rmw SYS$JOIN_RMW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$join_rmw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int rm_id, __optional_params ); #else /* __OLD_STARLET */ int sys$join_rmw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $RECOVER */ /* */ /* Recover transaction state. */ /* */ /* $RECOVER [efn], [flags], iosb, [astadr], [astprm], */ /* ($RECOVERW) recovery_prefix, event_handler, tm_log_id [, */ /* [tid], [node], [rm_context], [acmode], [max_events]] */ /* */ /* efn = event flag to set upon completion */ /* flags = operation flags */ /* iosb = address of I/O status block */ /* astadr = address of entry mask of AST routine */ /* astprm = value to be passed to AST routine */ /* recovery_prefix = address of search name descriptor */ /* event_handler = address of entry mask of recovery event routine */ /* tm_log_id = address TM log identifier */ /* tid = address of transaction identifier */ /* node = address of node name descriptor */ /* rm_context = value to be passed via event block to event_handler */ /* acmode = value of access mode in which event ASTs should be delivered */ /* max_events = value of maximum number of events to be queued concurrently */ /* */ #define sys$recover SYS$RECOVER #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$recover( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, void *recovery_prefix, int (*event_handler)(__unknown_params), unsigned int tm_log_id [4], __optional_params ); #else /* __OLD_STARLET */ int sys$recover(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$recoverw SYS$RECOVERW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$recoverw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, void *recovery_prefix, int (*event_handler)(__unknown_params), unsigned int tm_log_id [4], __optional_params ); #else /* __OLD_STARLET */ int sys$recoverw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SET_DEFAULT_TRANS */ /* */ /* Set up the process default transaction */ /* */ /* $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm], */ /* ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* new_tid = identifier of new process default transaction */ /* old_tid = identifier of superceded process default transaction */ /* */ #define sys$set_default_trans SYS$SET_DEFAULT_TRANS #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$set_default_trans( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$set_default_trans(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$set_default_transw SYS$SET_DEFAULT_TRANSW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$set_default_transw( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$set_default_transw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $START_BITMAP */ /* */ /* Create and start a write bitmap */ /* */ /* $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out */ /* */ #define sys$start_bitmap SYS$START_BITMAP #ifdef __NEW_STARLET int sys$start_bitmap( unsigned int handle_in, unsigned short int chan, void *devnam, void *name, unsigned int cluster, unsigned int flags, void *handle_out, unsigned int policy, unsigned int refcnt); #else /* __OLD_STARLET */ int sys$start_bitmap(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $START_BRANCH */ /* */ /* Start a transaction branch */ /* */ /* $START_BRANCH [efn], [flags], iosb, [astadr], [astprm], */ /* ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = transaction id for this branch */ /* tm_name = address of parent commit domain name descriptor */ /* bid = address of branch identifier */ /* timout = transaction execution time-out value */ /* acmode = access mode for $READY_TO_COMMIT call */ /* tx_class= user transaction class name */ /* */ #define sys$start_branch SYS$START_BRANCH #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$start_branch( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], void *tm_name, unsigned int bid [4], __optional_params ); #else /* __OLD_STARLET */ int sys$start_branch(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$start_branchw SYS$START_BRANCHW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$start_branchw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], void *tm_name, unsigned int bid [4], __optional_params ); #else /* __OLD_STARLET */ int sys$start_branchw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $START_TRANS */ /* */ /* Start a new transaction */ /* */ /* $START_TRANS [efn], [flags], iosb [, [astadr], [astprm], */ /* ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = identifier of transaction just started */ /* timout = transaction execution time-out value */ /* acmode = outermost access mode allowed to end the transaction */ /* tx_class= user transaction class name */ /* */ #define sys$start_trans SYS$START_TRANS #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$start_trans( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$start_trans(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$start_transw SYS$START_TRANSW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$start_transw( unsigned int efn, unsigned int flags, struct _iosb *iosb, __optional_params ); #else /* __OLD_STARLET */ int sys$start_transw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $TRANS_EVENT */ /* */ /* Start a new transaction */ /* */ /* $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm], */ /* ($TRANS_EVENTW) tid, rm_id, tx_event */ /* */ /* efn = event flag to be set at completion */ /* flags = operation flags */ /* iosb = address of a quadword I/O status block */ /* astadr = address of an entry mask of AST routine */ /* astprm = value to be passed to AST routine as an argument */ /* tid = identifier of transaction just started */ /* rm_id = value of resource manager identifier returned by $DECLARE_RM */ /* tx_event = transaction transition event */ /* */ #define sys$trans_event SYS$TRANS_EVENT #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$trans_event( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int rm_id, unsigned int tx_event); #else /* __OLD_STARLET */ int sys$trans_event(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$trans_eventw SYS$TRANS_EVENTW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$trans_eventw( unsigned int efn, unsigned int flags, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, unsigned int tid [4], unsigned int rm_id, unsigned int tx_event); #else /* __OLD_STARLET */ int sys$trans_eventw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $TSTCLUEVT */ /* */ /* Test Cluster Event Notification */ /* */ /* $TSTCLUEVT [handle], [acmode], [event] */ /* */ /* handle = address of handle */ /* */ /* acmode = access mode of AST */ /* */ /* event = code indicating type of event */ /* */ #define sys$tstcluevt SYS$TSTCLUEVT #ifdef __NEW_STARLET int sys$tstcluevt( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *handle, #else unsigned __int64 handle, #endif unsigned int acmode, unsigned int event); #else /* __OLD_STARLET */ int sys$tstcluevt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$CREATE */ /* */ /* Create a pseudo terminal */ /* */ /* PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST], */ /* [HANGUP_ASTPRM], [AST_ACMODE], INADR */ /* */ /* CHAN = Address of word to receive channel number assigned */ /* ACMODE = Access mode associated with channel */ /* CHARBUFF = Address ofa 3 - 5 longword array containing device */ /* characteristics. */ /* BUFLEN = Length of characteristics buffer in bytes either */ /* 12, 16, or 20 */ /* ASTADR = Address of entry mask of AST routine */ /* ASTPRM = Value to be passed to AST routine */ /* AST_ACMODE = Access mode for whjich the AST is to be delivered */ /* INADR = Address of 2-longword array containing starting and */ /* ending virtual address of pages to be used as */ /* I/O buffers */ #define ptd$create PTD$CREATE #ifdef __cplusplus /* Define structure prototypes */ struct _va_range; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int ptd$create( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif unsigned short int *chan, unsigned int acmode, void *charbuff, unsigned short int buflen, void (*astadr)(__unknown_params), int astprm, unsigned int ast_acmode, struct _va_range *inadr); #else /* __OLD_STARLET */ int ptd$create(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$READ */ /* */ /* Read data from the pseudo terminal */ /* */ /* PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN */ /* EFN = Number of event flag to set on completion */ /* CHAN = Word containing number of channel on which I/O is to be performed */ /* ASTADR = Address of entry mask of AST routine */ /* ASTPRM = Value to be passed to AST routine */ /* READBUF = Address character string to hold characters read */ /* READBUF_LEN = Number of character to be read from pseudo terminal */ #define ptd$read PTD$READ #ifdef __NEW_STARLET int ptd$read( unsigned int efn, unsigned short int chan, void (*astadr)(__unknown_params), int astprm, void *readbuf, unsigned int readbuf_len); #else /* __OLD_STARLET */ int ptd$read(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define ptd$readw PTD$READW #ifdef __NEW_STARLET int ptd$readw( unsigned int efn, unsigned short int chan, void (*astadr)(__unknown_params), int astprm, void *readbuf, unsigned int readbuf_len); #else /* __OLD_STARLET */ int ptd$readw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$WRITE */ /* */ /* Write data to the pseudo terminal */ /* */ /* PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, */ /* [ECHOBUF], ECHOBUF_LEN] */ /* CHAN = Word containing number of channel on which I/O is to be performed */ /* ASTADR = Address of entry mask of AST routine */ /* ASTPRM = Value to be passed to AST routine */ /* WRTBUF = Address of character string containing character to write to */ /* pseudo terminal */ /* WRTBUF_LEN = Number of characters to write to pseudo terminal */ /* ECHOBUF = Address character string to hold characters read */ /* ECHOBUF_LEN = Number of character to be read from pseudo terminal */ #define ptd$write PTD$WRITE #ifdef __NEW_STARLET int ptd$write( unsigned short int chan, void (*astadr)(__unknown_params), int astprm, void *wrtbuf, unsigned int wrtbuf_len, void *echobuf, unsigned int echobuf_len); #else /* __OLD_STARLET */ int ptd$write(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$SET_EVENT_NOTIFICATION */ /* */ /* Enable or disable terminal event notification ASTs */ /* */ /* PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], */ /* TYPE */ /* CHAN = Word containing number of channel on which I/O is to be performed */ /* ASTADR = Address of entry mask of AST routine */ /* ASTPRM = Value to be passed to AST routine */ /* ACMODE = Access mode for whjich the AST is to be delivered */ /* TYPE = Longword containing */ #define ptd$set_event_notification PTD$SET_EVENT_NOTIFICATION #ifdef __NEW_STARLET int ptd$set_event_notification( unsigned short int chan, void (*astadr)(__unknown_params), int astprm, unsigned int acmode, unsigned int type); #else /* __OLD_STARLET */ int ptd$set_event_notification(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$CANCEL */ /* */ /* Cancel queued control connection read request(s) */ /* */ /* PTD$CANCEL CHAN */ /* */ /* CHAN = Word containing number of channel on which I/O is to be performed */ #define ptd$cancel PTD$CANCEL #ifdef __NEW_STARLET int ptd$cancel( unsigned short int chan); #else /* __OLD_STARLET */ int ptd$cancel(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$DELETE */ /* */ /* Delete a pseudo terminal */ /* */ /* PTD$DELETE CHAN */ /* */ /* CHAN = Word containing number of channel on which I/O is to be performed */ #define ptd$delete PTD$DELETE #ifdef __NEW_STARLET int ptd$delete( unsigned short int chan); #else /* __OLD_STARLET */ int ptd$delete(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* PTD$DECTERM_SET_PAGE_SIZE */ /* */ /* Change terminal page length and width */ /* */ /* PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH */ /* */ /* CHAN = Word containing number of channel on which I/O is to be performed */ /* PAGE_LEN = Longword containing new page length of terminal */ /* PAGE_WIDTH = Longword containing new page width of terminal */ #define ptd$decterm_set_page_size PTD$DECTERM_SET_PAGE_SIZE #ifdef __NEW_STARLET int ptd$decterm_set_page_size( unsigned short int chan, unsigned int page_len, unsigned int page_width); #else /* __OLD_STARLET */ int ptd$decterm_set_page_size(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $POSIX_FORK_CONTROL */ /* */ /* Control POSIX fork() operations */ /* */ /* $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac */ /* */ /* cntrl = constant defining what control routine is to do */ /* */ /* when = bit array of when handler is to be called */ /* */ /* handler= handler address */ /* */ /* arg = arg value that is passed back to the handler */ /* */ /* acmode = access mode at which to make the specified callback */ #define sys$posix_fork_control SYS$POSIX_FORK_CONTROL #ifdef __NEW_STARLET int sys$posix_fork_control( unsigned int cntrl, unsigned int when, int (*handler)(__unknown_params), int arg, unsigned int acmode); #else /* __OLD_STARLET */ int sys$posix_fork_control(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $START_ALIGN_FAULT_REPORT */ /* */ /* Start user-image alignment fault reporting */ /* */ /* $START_ALIGN_FAULT_REPORT report_method, [report_buffer, buffer_length] */ /* */ /* report_method = either AFR$C_EXCEPTION or AFR$C_BUFFERED */ /* */ /* report_buffer = buffer to use to save alignment fault */ /* data if the BUFFERED method is specified. */ /* */ /* buffer_length = the size in bytes of the user buffer */ #ifdef __INITIAL_POINTER_SIZE /* Keep as __short until service interface is promoted to 64-bits. */ #pragma __required_pointer_size __short #endif #define sys$start_align_fault_report SYS$START_ALIGN_FAULT_REPORT #ifdef __NEW_STARLET int sys$start_align_fault_report( int report_method, void *report_buffer, int buffer_length); #else /* __OLD_STARLET */ int sys$start_align_fault_report(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GET_ALIGN_FAULT_DATA */ /* */ /* Get alignment fault data from the collector. */ /* */ /* $GET_ALIGN_FAULT_DATA buffer, buffer_size, return_size */ /* */ /* buffer = Buffer in which to save the alignment fault */ /* data. */ /* */ /* buffer_size = The size in bytes of the user buffer */ /* */ /* return_size = Address of a longword in which to return the */ /* size of the alignment fault data found. */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_align_fault_data SYS$GET_ALIGN_FAULT_DATA #ifdef __NEW_STARLET int sys$get_align_fault_data( void *buffer, int buffer_size, int *return_size); #else /* __OLD_STARLET */ int sys$get_align_fault_data(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $STOP_ALIGN_FAULT_REPORT */ /* */ /* Stop user-image alignment fault reporting */ /* */ /* $STOP_ALIGN_FAULT_REPORT */ /* */ #define sys$stop_align_fault_report SYS$STOP_ALIGN_FAULT_REPORT #ifdef __NEW_STARLET int sys$stop_align_fault_report(void); #else /* __OLD_STARLET */ int sys$stop_align_fault_report(void); #endif /* #ifdef __NEW_STARLET */ /* $PERM_REPORT_ALIGN_FAULT */ /* */ /* Start process permanent alignment fault reporting. */ /* */ /* $PERM_REPORT_ALIGN_FAULT */ /* */ #define sys$perm_report_align_fault SYS$PERM_REPORT_ALIGN_FAULT #ifdef __NEW_STARLET int sys$perm_report_align_fault(void); #else /* __OLD_STARLET */ int sys$perm_report_align_fault(void); #endif /* #ifdef __NEW_STARLET */ /* $PERM_DIS_ALIGN_FAULT_REPORT */ /* */ /* Start process permanent alignment fault reporting. */ /* */ /* $PERM_DIS_ALIGN_FAULT_REPORT */ /* */ #define sys$perm_dis_align_fault_report SYS$PERM_DIS_ALIGN_FAULT_REPORT #ifdef __NEW_STARLET int sys$perm_dis_align_fault_report(void); #else /* __OLD_STARLET */ int sys$perm_dis_align_fault_report(void); #endif /* #ifdef __NEW_STARLET */ /* $INIT_SYS_ALIGN_FAULT_REPORT */ /* */ /* Start system wide alignment fault reporting. */ /* */ /* $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags */ /* */ /* match_table = Array of longwords used to restrict */ /* the alignment faults reported */ /* */ /* buffer_size = The number of bytes to use to save alignment */ /* fault data. */ /* flags = can be either 0 or AFR$M_USER_INFO */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$init_sys_align_fault_report SYS$INIT_SYS_ALIGN_FAULT_REPORT #ifdef __NEW_STARLET int sys$init_sys_align_fault_report( void *match_table, int buffer_size, unsigned int flags); #else /* __OLD_STARLET */ int sys$init_sys_align_fault_report(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $GET_SYS_ALIGN_FAULT_DATA */ /* */ /* Get alignment fault data from the system wide collector. */ /* */ /* $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size */ /* */ /* buffer = Buffer in which to save the alignment fault */ /* data. */ /* */ /* buffer_size = The size in bytes of the user buffer */ /* */ /* return_size = Address of a longword in which to return the */ /* size of the alignment fault data found. */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$get_sys_align_fault_data SYS$GET_SYS_ALIGN_FAULT_DATA #ifdef __NEW_STARLET int sys$get_sys_align_fault_data( void *buffer, int buffer_size, int *return_size); #else /* __OLD_STARLET */ int sys$get_sys_align_fault_data(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $STOP_SYS_ALIGN_FAULT_REPORT */ /* */ /* Stop system-wide alignment fault reporting */ /* */ /* $STOP_SYS_ALIGN_FAULT_REPORT */ /* */ #define sys$stop_sys_align_fault_report SYS$STOP_SYS_ALIGN_FAULT_REPORT #ifdef __NEW_STARLET int sys$stop_sys_align_fault_report(void); #else /* __OLD_STARLET */ int sys$stop_sys_align_fault_report(void); #endif /* #ifdef __NEW_STARLET */ /* $RESCHED */ /* */ /* Request voluntary preemption of current process */ /* */ /* $RESCHED */ /* */ #define sys$resched SYS$RESCHED #ifdef __NEW_STARLET int sys$resched(void); #else /* __OLD_STARLET */ int sys$resched(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SCHED */ /* */ /* Control class scheduler */ /* */ /* $SCHED func, P1, P2, P3 */ /* */ /* func = function code (see CSHDEFS in STARLET) */ /* */ /* P1 = buffer address, AST entry point address, or 0 */ /* */ /* P2 = buffer length address or AST acmode or PID or 0 */ /* */ /* P3 = entry size of a single buffer element or 0 */ #define sys$sched SYS$SCHED #ifdef __NEW_STARLET int sys$sched( unsigned int func, unsigned int *p1, unsigned int *p2, unsigned int *p3); #else /* __OLD_STARLET */ int sys$sched(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SIGNAL_ARRAY_64 */ /* */ /* Return address of 64-bit signal array. */ /* */ /* $SIGNAL_ARRAY_64 mcharg, sigarg_64 */ /* */ /* mcharg = address of the mechanism array */ /* */ /* sigarg_64 = 64-bit pointer to which the address of */ /* 64-bit signal array is written. */ #define sys$signal_array_64 SYS$SIGNAL_ARRAY_64 #ifdef __NEW_STARLET int sys$signal_array_64( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *mcharg, #else unsigned __int64 mcharg, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *sigarg_64 #else unsigned __int64 sigarg_64 #endif ); #else /* __OLD_STARLET */ int sys$signal_array_64(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $AVOID_PREEMPT */ /* */ /* Enable/disable preemption avoidance */ /* */ /* $AVOID_PREEMPT enbflg */ /* */ /* enbflg = Avoid preempt enable indicator */ /* 0 -> disable 1 -> enable */ /* */ #define sys$avoid_preempt SYS$AVOID_PREEMPT #ifdef __NEW_STARLET int sys$avoid_preempt( char enbflg); #else /* __OLD_STARLET */ int sys$avoid_preempt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $SETUP_AVOID_PREEMPT */ /* */ /* Enable/disable preemption avoidance underpinnings */ /* */ /* $SETUP_AVOID_PREEMPT enbflg */ /* */ /* enbflg = Avoid preempt enable indicator */ /* 0 -> disable 1 -> enable */ /* */ #define sys$setup_avoid_preempt SYS$SETUP_AVOID_PREEMPT #ifdef __NEW_STARLET int sys$setup_avoid_preempt( char enbflg); #else /* __OLD_STARLET */ int sys$setup_avoid_preempt(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_ACCEPT */ /* */ /* Accept an ICC connection */ /* */ /* $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len] */ /* ,[User_Context] ,[Flags] */ /* */ /* Conn_Handle = Handle value associated with the Connection */ /* Accept_Buf = Address of user Accept data */ /* Accept_Len = Length of the accept data */ /* User_Context = User context value */ /* Flags = Flags argument */ /* */ #define sys$icc_accept SYS$ICC_ACCEPT #ifdef __NEW_STARLET int sys$icc_accept( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *accept_buf, #else unsigned __int64 accept_buf, #endif unsigned int accept_len, unsigned int user_context, unsigned int flags); #else /* __OLD_STARLET */ int sys$icc_accept(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_CLOSE_ASSOC */ /* */ /* Close an ICC association */ /* */ /* $ICC_CLOSE_ASSOC Assoc_Handle */ /* */ /* Assoc_Handle = Handle representing the Association to close */ /* */ #define sys$icc_close_assoc SYS$ICC_CLOSE_ASSOC #ifdef __NEW_STARLET int sys$icc_close_assoc( unsigned int assoc_handle); #else /* __OLD_STARLET */ int sys$icc_close_assoc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_CONNECT[W] */ /* */ /* Initiate an ICC Connection attempt */ /* */ /* $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle */ /* ,conn_hndl_A ,remote_assoc ,[remote_node] */ /* ,[user_context] ,[conn_buf] ,[conn_buf_len] */ /* ,[return_buf] ,[return_buf_len] ,[retlen_addr] */ /* ,[flags] */ /* */ /* ios_icc = address of a IOS_ICC (Connect version) */ /* astadr = address of entry mask of users' completion AST */ /* routine */ /* astprm = value to be passed to the AST routine as an */ /* argument */ /* Assoc_Handle = Handle representing the Association to close */ /* Conn_Hndl_A = Address to return the handle value of the */ /* opened Connection */ /* Remote_Assoc = Pointer to a descriptor describing the remote */ /* association name string */ /* Remote_Node = Pointer to a descriptor describing the remote */ /* node name string */ /* User_Context = User context value */ /* Conn_Buf = Address of a buffer containing Connect data */ /* Conn_Buf_Len = Length of the connect data in Conn_Buf */ /* Return_Buf = Address of a buffer for return data */ /* Return_Buf_Len = Length of the buffer available for return data */ /* Retlen_Addr = Address to receive the actual length of any */ /* return data */ /* Flags = Flags argument */ /* */ #define sys$icc_connect SYS$ICC_CONNECT #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_connect( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int assoc_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ unsigned int *conn_hndl_a, #else unsigned __int64 conn_hndl_a, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void *remote_assoc, void *remote_node, unsigned int user_context, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *conn_buf, #else unsigned __int64 conn_buf, #endif unsigned int conn_buf_len, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *return_buf, #else unsigned __int64 return_buf, #endif unsigned int return_buf_len, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif unsigned int *retlen_addr, unsigned int flags); #else /* __OLD_STARLET */ int sys$icc_connect(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_connectw SYS$ICC_CONNECTW #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_connectw( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int assoc_handle, unsigned int *conn_hndl_a, void *remote_assoc, void *remote_node, unsigned int user_context, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *conn_buf, #else unsigned __int64 conn_buf, #endif unsigned int conn_buf_len, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *return_buf, #else unsigned __int64 return_buf, #endif unsigned int return_buf_len, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif unsigned int *retlen_addr, unsigned int flags); #else /* __OLD_STARLET */ int sys$icc_connectw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_DISCONNECT[W] */ /* */ /* Initiate an ICC Disconnection */ /* */ /* $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm] */ /* ,[disc_buf] ,[disc_buf_len] */ /* */ /* Conn_Handle = Handle representing the Connection to terminate */ /* iosb = Address of a quadword I/O status block */ /* astadr = Address of entry mask of users' completion AST */ /* routine */ /* astprm = Value to be passed to the AST routine as an */ /* argument */ /* Disc_Buf = Address of an optional buffer containing */ /* Disconnect data */ /* Disc_Buf_Len = Length of the disconnect data in Disc_Buf */ /* */ #define sys$icc_disconnect SYS$ICC_DISCONNECT #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_disconnect( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _iosb *iosb, #else unsigned __int64 iosb, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned int astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *disc_buf, #else unsigned __int64 disc_buf, #endif unsigned int disc_buf_len); #else /* __OLD_STARLET */ int sys$icc_disconnect(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_disconnectw SYS$ICC_DISCONNECTW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_disconnectw( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _iosb *iosb, #else unsigned __int64 iosb, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned int astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *disc_buf, #else unsigned __int64 disc_buf, #endif unsigned int disc_buf_len); #else /* __OLD_STARLET */ int sys$icc_disconnectw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_REJECT */ /* */ /* Reject an ICC connection */ /* */ /* $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] */ /* ,[Reason] */ /* */ /* Conn_Handle = Handle value associated with the Connection */ /* Reject_Buf = Address of optional user Reject data */ /* Reject_Buf_Len = Length of the reject data */ /* Reason = Reason for the rejection */ /* */ #define sys$icc_reject SYS$ICC_REJECT #ifdef __NEW_STARLET int sys$icc_reject( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *reject_buf, #else unsigned __int64 reject_buf, #endif unsigned int reject_buf_len, unsigned int reason); #else /* __OLD_STARLET */ int sys$icc_reject(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_OPEN_ASSOC */ /* */ /* Open an ICC association */ /* */ /* $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name] */ /* ,[logical_table] ,[conn_rtn] ,[disc_rtn] */ /* ,[recv_rtn] ,[maxflowbufcnt] ,[prot] */ /* */ /* Assoc_Handle = Address to return the handlevalue of the */ /* opened Association */ /* Assoc_Name = Pointer to a descriptor describing the */ /* association name string */ /* Logical_Name = Pointer to a descriptor describing a logical */ /* name for use by the ICC simple registry */ /* Logical_Table = Pointer to a descriptor describing a logical */ /* name table for use by the ICC simple registry */ /* Conn_Rtn = Address of the User's Connect AST routine */ /* Disc_Rtn = Address of the User's Disconnect AST routine */ /* Recv_Rtn = Address of the User's receive AST routine */ /* Maxflowbufcnt = Maximum number of pending inbound message */ /* buffers */ /* Prot = Default protection for association */ /* */ #define sys$icc_open_assoc SYS$ICC_OPEN_ASSOC #ifdef __NEW_STARLET int sys$icc_open_assoc( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ unsigned int *assoc_handle, #else unsigned __int64 assoc_handle, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *assoc_name, #else unsigned __int64 assoc_name, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *logical_name, #else unsigned __int64 logical_name, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *logical_table, #else unsigned __int64 logical_table, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*conn_rtn)(__unknown_params), void (*disc_rtn)(__unknown_params), void (*recv_rtn)(__unknown_params), unsigned int maxflowbufcnt, unsigned int prot); #else /* __OLD_STARLET */ int sys$icc_open_assoc(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_RECEIVE[W] */ /* */ /* Receive data over an ICC connection */ /* */ /* $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] */ /* ,recv_buf ,recv_buf_len */ /* */ /* conn_handle = Handle representing the Connection the data */ /* is being transferred over */ /* ios_icc = Address of an I/O status block (16-byte ICC */ /* RECEIVE layout) */ /* astadr = Address of entry mask of users' completion AST */ /* routine */ /* astprm = Value to be passed to the AST routine as an */ /* argument */ /* recv_buf = Address of a buffer to receive the data */ /* recv_buf_len = Length of the buffer receiving the data */ /* */ #define sys$icc_receive SYS$ICC_RECEIVE #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_receive( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *recv_buf, #else unsigned __int64 recv_buf, #endif unsigned int recv_buf_len); #else /* __OLD_STARLET */ int sys$icc_receive(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_receivew SYS$ICC_RECEIVEW #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_receivew( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *recv_buf, #else unsigned __int64 recv_buf, #endif unsigned int recv_buf_len); #else /* __OLD_STARLET */ int sys$icc_receivew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_REPLY[W] */ /* */ /* Send a reply over an ICC connection */ /* */ /* $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] */ /* ,reply_buf ,reply_len */ /* */ /* conn_handle = Handle representing the Connection the data is */ /* being transferred over */ /* ios_icc = Address of an I/O status block (8-byte ICC */ /* REPLY layout) */ /* astadr = Address of entry mask of users' completion AST */ /* routine */ /* astprm = Value to be passed to the AST routine as an */ /* argument */ /* reply_buf = Address of a buffer containing the data */ /* reply_len = Length of the data in reply_buf */ /* */ #define sys$icc_reply SYS$ICC_REPLY #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_reply( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned int astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *reply_buf, #else unsigned __int64 reply_buf, #endif unsigned int reply_len); #else /* __OLD_STARLET */ int sys$icc_reply(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_replyw SYS$ICC_REPLYW #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_replyw( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned int astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *reply_buf, #else unsigned __int64 reply_buf, #endif unsigned int reply_len); #else /* __OLD_STARLET */ int sys$icc_replyw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_TRANSCEIVE[W] */ /* */ /* ICC transceive operation */ /* */ /* $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] */ /* ,send_buf ,send_len */ /* */ /* conn_handle = Handle representing the Connection the data is */ /* being transferred over */ /* ios_icc = Address of an I/O status block (20-byte ICC */ /* TRANSCEIVE layout ) */ /* astadr = Address of entry mask of users' completion AST */ /* routine */ /* astprm = Value to be passed to the AST routine as an */ /* argument */ /* send_buf = Address of a buffer conta in ing the data */ /* send_len = Length of the data in send_buf */ /* */ #define sys$icc_transceive SYS$ICC_TRANSCEIVE #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_transceive( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *send_buf, #else unsigned __int64 send_buf, #endif unsigned int send_len); #else /* __OLD_STARLET */ int sys$icc_transceive(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_transceivew SYS$ICC_TRANSCEIVEW #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_transceivew( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *send_buf, #else unsigned __int64 send_buf, #endif unsigned int send_len); #else /* __OLD_STARLET */ int sys$icc_transceivew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $ICC_TRANSMIT[W] */ /* */ /* Transmit data over an ICC connection */ /* */ /* $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] */ /* ,send_buf ,send_len */ /* */ /* conn_handle = Handle representing the Connection the data is */ /* being transferred over */ /* ios_icc = Address of a quadword I/O status block */ /* astadr = Address of entry mask of users' completion AST */ /* routine */ /* astprm = Value to be passed to the AST routine as an */ /* argument */ /* send_buf = Address of a buffer conta in ing the data */ /* send_len = Length of the data in send_buf */ /* */ #define sys$icc_transmit SYS$ICC_TRANSMIT #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_transmit( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *send_buf, #else unsigned __int64 send_buf, #endif unsigned int send_len); #else /* __OLD_STARLET */ int sys$icc_transmit(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$icc_transmitw SYS$ICC_TRANSMITW #ifdef __cplusplus /* Define structure prototypes */ struct _ios_icc; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$icc_transmitw( unsigned int conn_handle, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ struct _ios_icc *ios_icc, #else unsigned __int64 ios_icc, #endif #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void (*astadr)(__unknown_params), unsigned __int64 astprm, #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *send_buf, #else unsigned __int64 send_buf, #endif unsigned int send_len); #else /* __OLD_STARLET */ int sys$icc_transmitw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_QUERY */ /* */ /* Query Persona Information */ /* */ /* $PERSONA_QUERY persona, itmlst */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* itmlst = address of list of item descriptors */ /* */ /* */ #define sys$persona_query SYS$PERSONA_QUERY #ifdef __NEW_STARLET int sys$persona_query( #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif unsigned int *persona, void *itmlst); #else /* __OLD_STARLET */ int sys$persona_query(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_FIND */ /* */ /* Locate Persona With Characteristic */ /* */ /* $PERSONA_FIND persona, itmlst */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* itmlst = address of list of item descriptors */ /* */ /* contxt = address of a context long word (used for iterative */ /* calls or a multi-entry item list) */ /* */ /* */ /* */ #define sys$persona_find SYS$PERSONA_FIND #ifdef __NEW_STARLET int sys$persona_find( unsigned int *persona, void *itmlst, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$persona_find(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_RESERVE */ /* */ /* Reserve Persona Slot For Delegation */ /* */ /* $PERSONA_RESERVE clientPID, persona */ /* */ /* clientPID = address of longword holding client's PID */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* */ #define sys$persona_reserve SYS$PERSONA_RESERVE #ifdef __NEW_STARLET int sys$persona_reserve( unsigned int *clientpid, unsigned int *persona); #else /* __OLD_STARLET */ int sys$persona_reserve(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_DELEGATE */ /* */ /* Delegate Persona To Another Process */ /* */ /* $PERSONA_DELEGATE serverPID, persona, input_id */ /* */ /* serverPID = address of longword holding server's PID */ /* */ /* persona = address of longword holding persona identifier reserved by server */ /* */ /* input_id = address of longword holding persona identifier to delegate */ /* */ #define sys$persona_delegate SYS$PERSONA_DELEGATE #ifdef __NEW_STARLET int sys$persona_delegate( unsigned int *serverpid, unsigned int *persona, unsigned int *input_id); #else /* __OLD_STARLET */ int sys$persona_delegate(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_EXTENSION_LOOKUP */ /* */ /* Find Extension on the system */ /* */ /* $PERSONA_EXTENSION_LOOKUP extensionName, extensionID */ /* */ /* extensionName = address of string descriptor of name */ /* */ /* extensionID = address of longword the ID is written to */ /* */ /* */ #define sys$persona_extension_lookup SYS$PERSONA_EXTENSION_LOOKUP #ifdef __NEW_STARLET int sys$persona_extension_lookup( void *extensionname, unsigned int *extensionid); #else /* __OLD_STARLET */ int sys$persona_extension_lookup(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_CREATE_EXTENSION */ /* */ /* Create Persona Extension */ /* */ /* $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* extensionID = address of longword holding extension to create */ /* */ /* buffer = address of TLV buffer */ /* */ /* length = address of longword containing TLV size in bytes */ /* */ /* flags = address of a flags longword */ /* */ /* */ #define sys$persona_create_extension SYS$PERSONA_CREATE_EXTENSION #ifdef __NEW_STARLET int sys$persona_create_extension( unsigned int *persona, unsigned int *extensionid, void *buffer, unsigned int *length, unsigned int *flags); #else /* __OLD_STARLET */ int sys$persona_create_extension(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_DELETE_EXTENSION */ /* */ /* Delete An Extension From A Persona */ /* */ /* $PERSONA_DELETE_EXTENSION persona, extensionID */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* extensionID = address of longword holding extension to delete */ /* */ /* */ #define sys$persona_delete_extension SYS$PERSONA_DELETE_EXTENSION #ifdef __NEW_STARLET int sys$persona_delete_extension( unsigned int *persona, unsigned int *extensionid); #else /* __OLD_STARLET */ int sys$persona_delete_extension(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* $PERSONA_MODIFY */ /* */ /* Modify Persona */ /* */ /* $PERSONA_MODIFY persona, itmlst */ /* */ /* persona = address of longword holding persona identifier */ /* */ /* itmlst = address of list of item descriptors */ /* */ /* */ #define sys$persona_modify SYS$PERSONA_MODIFY #ifdef __NEW_STARLET int sys$persona_modify( unsigned int *persona, void *itmlst); #else /* __OLD_STARLET */ int sys$persona_modify(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SET_PROCESS_PROPERTIES[W] */ /* */ /* Set a simple value associated with a process */ /* */ /* $SET_PROCESS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property */ /* ,value, prev_value [,bufsiz] [,bufcnt] */ /* */ /* mbz1 = Reserved for future use by Digital. Must */ /* be specified as 0. */ /* pidadr = For system service logging, the address of */ /* the PID of the target process. Otherwise, 0. */ /* prcnam = For system service logging, the address of */ /* the process name descriptor of the target */ /* process. Otherwise, must be 0. */ /* property = A constant that selects which property to set */ /* value = A quadword value to set the property to */ /* prev_value = The address of a quadword which will receive the */ /* previous value of the property */ /* bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log buffer */ /* bufcnt = For PPROP$C_SS_ENABLE, the number of log buffers */ /* flags = for PPROP$C_SS_ENABLE, the associated flags */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$set_process_properties SYS$SET_PROCESS_PROPERTIES #ifdef __NEW_STARLET int sys$set_process_properties( unsigned int mbz1, unsigned int *pidadr, void *prcnam, unsigned int property, unsigned __int64 value, unsigned __int64 *prev_value, __optional_params ); #else /* __OLD_STARLET */ int sys$set_process_properties(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$set_process_propertiesw SYS$SET_PROCESS_PROPERTIESW #ifdef __NEW_STARLET int sys$set_process_propertiesw( unsigned int mbz1, unsigned int *pidadr, void *prcnam, unsigned int property, unsigned __int64 value, unsigned __int64 *prev_value, __optional_params ); #else /* __OLD_STARLET */ int sys$set_process_propertiesw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* SYS$ACQUIRE_GALAXY_LOCK */ /* */ /* $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags */ /* */ /* lock_handle - GLOCK handle */ /* timeout - timeout value in 10 microsecond units */ /* flags - flags */ #define sys$acquire_galaxy_lock SYS$ACQUIRE_GALAXY_LOCK #ifdef __NEW_STARLET int sys$acquire_galaxy_lock( unsigned __int64 lock_handle, unsigned int timeout, unsigned int flags); #else /* __OLD_STARLET */ int sys$acquire_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$CREATE_GALAXY_LOCK */ /* */ /* $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle */ /* */ /* lcktbl_handle - handle of lock table in which to create the lock */ /* name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor */ /* size - size of lock */ /* timeout - wait timeout value in 10 micro second units */ /* ipl - IPL to raise to when lock is acquired (kernel mode only) */ /* rank - rank of lock */ /* lock_handle - lock handle */ /* */ /* */ #define sys$create_galaxy_lock SYS$CREATE_GALAXY_LOCK #ifdef __NEW_STARLET int sys$create_galaxy_lock( unsigned int lcktbl_handle, void *name, unsigned int size, unsigned int timeout, unsigned int ipl, unsigned int rank, unsigned __int64 *lock_handle); #else /* __OLD_STARLET */ int sys$create_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$CREATE_GALAXY_LOCK_TABLE */ /* */ /* $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle */ /* */ /* name - pointer to name of section; 16 bytes. ASCIZ or Descriptor */ /* accmode - access mode */ /* section_size - virtual size of the section (bytes) */ /* section_type - glcktbl$c_process | glcktbl$c_system */ /* prot - page protection */ /* lock_size - size of locks in the section */ /* lcktbl_handle - handle of lock table */ /* */ #define sys$create_galaxy_lock_table SYS$CREATE_GALAXY_LOCK_TABLE #ifdef __NEW_STARLET int sys$create_galaxy_lock_table( void *name, unsigned int accmode, unsigned __int64 section_size, unsigned int section_type, unsigned int prot, unsigned int lock_size, unsigned int *lcktbl_handle); #else /* __OLD_STARLET */ int sys$create_galaxy_lock_table(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$DELETE_GALAXY_LOCK */ /* */ /* $DELETE_GALAXY_LOCK lock_handle */ /* */ /* lock_handle - lock handle */ /* */ #define sys$delete_galaxy_lock SYS$DELETE_GALAXY_LOCK #ifdef __NEW_STARLET int sys$delete_galaxy_lock( unsigned __int64 lock_handle); #else /* __OLD_STARLET */ int sys$delete_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$DELETE_GALAXY_LOCK_TABLE */ /* */ /* $DELETE_GALAXY_LOCK_TABLE lcktbl_handle */ /* */ /* lcktbl_handle - handle of lock table */ /* */ #define sys$delete_galaxy_lock_table SYS$DELETE_GALAXY_LOCK_TABLE #ifdef __NEW_STARLET int sys$delete_galaxy_lock_table( unsigned int lcktbl_handle); #else /* __OLD_STARLET */ int sys$delete_galaxy_lock_table(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$GET_GALAXY_LOCK_INFO */ /* */ /* $GET_GALAXY_LOCK_INFO lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length */ /* */ /* lock_handle - lock handle */ /* name - pointer to name of lock; 16 bytes, zero terminated */ /* timeout - wait timeout value in 10 micro second units */ /* size - size of lock */ /* ipl - IPL to raise to when lock is acquired (kernel mode only) */ /* rank - rank of lock */ /* flags - flags from lock */ /* name_length - pointer to a word where the length of the name will be returned */ /* */ #define sys$get_galaxy_lock_info SYS$GET_GALAXY_LOCK_INFO #ifdef __NEW_STARLET int sys$get_galaxy_lock_info( unsigned __int64 lock_handle, char *name, unsigned int *timeout, unsigned int *size, unsigned int *ipl, unsigned int *rank, unsigned short int *flags, __optional_params); #else /* __OLD_STARLET */ int sys$get_galaxy_lock_info(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$GET_GALAXY_LOCK_SIZE */ /* */ /* $GET_GALAXY_LOCK_SIZE min_size, max_size */ /* */ /* min_size - minimum size of a galaxy lock */ /* max_size - maximum size of a galaxy lock */ /* */ #define sys$get_galaxy_lock_size SYS$GET_GALAXY_LOCK_SIZE #ifdef __NEW_STARLET int sys$get_galaxy_lock_size( unsigned int *min_size, unsigned int *max_size); #else /* __OLD_STARLET */ int sys$get_galaxy_lock_size(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$INIT_GALAXY_LOCK */ /* */ /* $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle */ /* */ /* va - local va of memory to be initialized */ /* name - pointer to name of lock; 16 bytes, zero terminated */ /* size - size of lock */ /* timeout - wait timeout value in 10 micro second units */ /* ipl - IPL to raise to when lock is acquired (kernel mode only) */ /* rank - rank of lock */ /* lock_handle - lock handle */ /* */ /* */ #define sys$init_galaxy_lock SYS$INIT_GALAXY_LOCK #ifdef __cplusplus /* Define structure prototypes */ struct _glock; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$init_galaxy_lock( struct _glock *va, char *name, unsigned int size, unsigned int timeout, unsigned int ipl, unsigned int rank, unsigned __int64 *lock_handle); #else /* __OLD_STARLET */ int sys$init_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$INIT_GALAXY_LOCK_TABLE */ /* */ /* $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle */ /* */ /* region_va - local va of shared memory region where the locks reside */ /* reg_phys_size - physical size of the region (bytes) */ /* reg_virt_size - virtual size of the region (bytes) */ /* section_type - glcktbl$c_process | glcktbl$c_system */ /* lock_size - size of locks in the section */ /* lcktbl_handle - handle of lock table */ /* */ #define sys$init_galaxy_lock_table SYS$INIT_GALAXY_LOCK_TABLE #ifdef __NEW_STARLET int sys$init_galaxy_lock_table( void *region_va, unsigned __int64 reg_phys_size, unsigned __int64 reg_virt_size, unsigned int section_type, unsigned int lock_size, unsigned int *lcktbl_handle); #else /* __OLD_STARLET */ int sys$init_galaxy_lock_table(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$RELEASE_GALAXY_LOCK */ /* */ /* $RELEASE_GALAXY_LOCK lock_handle */ /* */ /* lock_handle - lock handle */ /* */ #define sys$release_galaxy_lock SYS$RELEASE_GALAXY_LOCK #ifdef __NEW_STARLET int sys$release_galaxy_lock( unsigned __int64 lock_handle); #else /* __OLD_STARLET */ int sys$release_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$RESET_GALAXY_LOCK */ /* */ /* $RESET_GALAXY_LOCK lock_handle */ /* */ /* lock_handle - lock handle */ /* lock_va - local address of lock */ /* */ #define sys$reset_galaxy_lock SYS$RESET_GALAXY_LOCK #ifdef __cplusplus /* Define structure prototypes */ struct _glock; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$reset_galaxy_lock( unsigned __int64 lock_handle, struct _glock *(*(lock_va))); #else /* __OLD_STARLET */ int sys$reset_galaxy_lock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$WAIT_ON_GLOCK */ /* */ /* $WAIT_ON_GLOCK lock_handle,timeout */ /* */ /* lock_handle - lock handle */ /* timeout - timeout value; overrides the value in the lock */ /* */ #define sys$wait_on_glock SYS$WAIT_ON_GLOCK #ifdef __NEW_STARLET int sys$wait_on_glock( unsigned __int64 lock_handle, unsigned int timeout); #else /* __OLD_STARLET */ int sys$wait_on_glock(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$NOTIFY_GLOCK_WAITERS */ /* */ /* $NOTIFY_GLOCK_WAITERS lock_handle,waiters */ /* */ /* lock_handle - lock handle */ /* waiters - bitmask of galaxy nodes with waiters for this lock */ /* */ #define sys$notify_glock_waiters SYS$NOTIFY_GLOCK_WAITERS #ifdef __NEW_STARLET int sys$notify_glock_waiters( unsigned __int64 lock_handle, unsigned __int64 waiters); #else /* __OLD_STARLET */ int sys$notify_glock_waiters(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $QIOSERVER */ /* */ /* QIOserver Control and Information */ /* */ /* $QIOSERVER [efn], func, [context], [itmlst], */ /* ($QIOSERVERW) [iosb], [astadr], [astprm] */ /* */ /* efn = event flag to be set when request completes */ /* func = code specifying function to be performed */ /* context = address of a longword containing a context number */ /* itmlst = address of a list of item descriptors for the operation */ /* iosb = address of a quadword status block to receive the final status */ /* astadr = address of an ast routine to be called when request completes */ /* astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$qioserver SYS$QIOSERVER #ifdef __cplusplus /* Define structure prototypes */ struct _qsrv_iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$qioserver( unsigned int efn, unsigned int func, unsigned int *context, void *itmlst, struct _qsrv_iosb *iosb, void (*astadr)(__unknown_params), __int64 astprm); #else /* __OLD_STARLET */ int sys$qioserver(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$qioserverw SYS$QIOSERVERW #ifdef __cplusplus /* Define structure prototypes */ struct _qsrv_iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$qioserverw( unsigned int efn, unsigned int func, unsigned int *context, void *itmlst, struct _qsrv_iosb *iosb, void (*astadr)(__unknown_params), __int64 astprm); #else /* __OLD_STARLET */ int sys$qioserverw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DEVICE_PATH_SCAN */ /* */ /* SCAN Device Path Information */ /* */ /* $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] */ /* */ /* chan = number of a channel assigned to the device or */ /* 0 if device is specified by the devnam parameter */ /* */ /* devnam = address of device name or logical name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* contxt = address of long word used to indicate current position of $DEVICE_PATH_SCAN */ /* */ /* nullarg = reserved argument */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$device_path_scan SYS$DEVICE_PATH_SCAN #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$device_path_scan( unsigned short int chan, void *devnam, void *itmlst, unsigned int *contxt, struct _generic_64 *nullarg); #else /* __OLD_STARLET */ int sys$device_path_scan(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $SET_DEVICE */ /* $SET_DEVICEW */ /* */ /* SET Device Information */ /* */ /* $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr], */ /* $SET_DEVICEW [astprm] ,[nullarg] */ /* */ /* efn = event flag to be set at completion */ /* */ /* chan = number of a channel assigned to the device or */ /* 0 if device is specified by the devnam parameter */ /* */ /* devnam = address of device name or logical name descriptor */ /* */ /* itmlst = address of a list of item descriptors */ /* */ /* iosb = address of a quadword I/O status block */ /* */ /* astadr = address of entry mask of AST routine */ /* */ /* astprm = value to be passed to AST routine */ /* */ /* nullarg = reserved argument */ /* */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$set_device SYS$SET_DEVICE #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$set_device( unsigned int efn, unsigned short int chan, void *devnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, struct _generic_64 *nullarg); #else /* __OLD_STARLET */ int sys$set_device(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$set_devicew SYS$SET_DEVICEW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$set_devicew( unsigned int efn, unsigned short int chan, void *devnam, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), int astprm, struct _generic_64 *nullarg); #else /* __OLD_STARLET */ int sys$set_devicew(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $IO_TRANSITION */ /* $IO_TRANSITIONW */ /* */ /* IO State Transitions */ /* */ /* $IO_TRANSITION tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm */ /* $IO_TRANSITIONW tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm */ /* */ /* Parameters: */ /* tran_code - Transition code of operation to be initiated */ /* devnam - CPU ID of processor to affected */ /* nodename - ASCII descriptor name equivalent to node ID */ /* node_id - Galactic node ID */ /* flags - Quadword pointer to longword behavioral flags */ /* efn - Event flag number for completion notification */ /* iosb - IOSB block address for completion notification */ /* astadr - Address of AST routine name on completion */ /* astprm - AST parameter to be passed back on completion */ /* contxt - Context longword */ /* */ #define sys$io_transition SYS$IO_TRANSITION #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_transition( int tran_code, void *devnam, void *nodename, int node_id, unsigned int flags, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$io_transition(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$io_transitionw SYS$IO_TRANSITIONW #ifdef __cplusplus /* Define structure prototypes */ struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$io_transitionw( int tran_code, void *devnam, void *nodename, int node_id, unsigned int flags, unsigned int efn, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm, unsigned int *contxt); #else /* __OLD_STARLET */ int sys$io_transitionw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$MAP_UIC */ /* */ /* $MAP_UIC uic, uid, gid */ /* */ /* uic - address of the UIC to look up mapping for */ /* uid - address of cell to write matching UID into */ /* gid - address of cell to write matching GID into */ /* */ #define sys$map_uic SYS$MAP_UIC #ifdef __NEW_STARLET int sys$map_uic( unsigned int *uic, unsigned int *uid, unsigned int *gid); #else /* __OLD_STARLET */ int sys$map_uic(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$MAP_UID */ /* */ /* $MAP_UIC uid, uic, username, retlen */ /* */ /* uid - address of the UID to look up mapping for */ /* uid - address of cell to write matching UIC into */ /* username - address of a string descriptor to write matching username into */ /* retlen - address of a word to write the length of the username into */ /* */ #define sys$map_uid SYS$MAP_UID #ifdef __NEW_STARLET int sys$map_uid( unsigned int *uid, unsigned int *uic, void *username, unsigned short int *retlen); #else /* __OLD_STARLET */ int sys$map_uid(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$SET_SESSION_ID - Create new POSIX session */ /* */ /* $SET_SESSION_ID sid */ /* */ /* sid - address of a longword written with the newly created Session ID. */ /* */ #define sys$set_session_id SYS$SET_SESSION_ID #ifdef __NEW_STARLET int sys$set_session_id( unsigned int *sid); #else /* __OLD_STARLET */ int sys$set_session_id(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$SET_PROCESS_GROUP - Create or change POSIX process group */ /* */ /* $SET_PROCESS_GROUP pid, pgid, retpgid */ /* */ /* pid - address of a PID that is the target of this call */ /* pgid - address of a longword Process Group ID (also a PID) to have target join */ /* retpgid - address of a longword written with PGID of a new group (also a PID) */ /* */ #define sys$set_process_group SYS$SET_PROCESS_GROUP #ifdef __NEW_STARLET int sys$set_process_group( unsigned int *pid, unsigned int *pgid, unsigned int *retpgid); #else /* __OLD_STARLET */ int sys$set_process_group(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$SET_POSIX_IDS - Set POSIX UID and GID values */ /* */ /* $SET_POSIX_IDS itmlst, flags */ /* */ /* itlmst - address of an item list 3 of POSIX ID values to set */ /* flags - flags signed longword, by value */ /* */ #define sys$set_posix_ids SYS$SET_POSIX_IDS #ifdef __NEW_STARLET int sys$set_posix_ids( void *itmlst, int flags); #else /* __OLD_STARLET */ int sys$set_posix_ids(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* SYS$LOG_SYSTEM_SERVICE - Log system service request */ /* */ /* $LOG_SYSTEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], */ /* [arglist_add],[vector_index], [prev_mode] */ /* */ /* logtype - type of log entry, e.g., SSLOG$C_SS_ENTRY */ /* bufseqnum - address to store/fetch longword sequence number assoc. */ /* with log's buffer */ /* logentry - address to fetch/store 64-bit log buffer entry address */ /* service_status - completion status of service being logged */ /* service_ra - address corresponding to return address from call to */ /* service being logged */ /* arglist_add - address of VAX-style argument list to service being logged */ /* vector_index - position of system service vector in SYS$PUBLIC_VECTORS of */ /* service being logged */ /* prev_mode - mode from which service being logged was called */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$log_system_service SYS$LOG_SYSTEM_SERVICE #ifdef __cplusplus /* Define structure prototypes */ struct _longword_unsigned; struct _generic_64; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$log_system_service( unsigned int logtyp, __optional_params ); #else /* __OLD_STARLET */ int sys$log_system_service(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif /* */ /* $GETLMI */ /* $GETLMIW */ /* */ /* Get License Management Information */ /* */ /* $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm */ /* $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm */ /* Inputs: */ /* efn - Event flag number. (optional, by value) */ /* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) */ /* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) */ /* itmlst - Item list containing information to fully describe the requested function. (required, by reference) */ /* iosb - I/O status block. (optional, by reference) */ /* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) */ /* astprm - AST parameter for the AST routine. (optional, by value) */ /* */ #define sys$getlmi SYS$GETLMI #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getlmi( unsigned int efn, struct _generic_64 *contxt, void *reserved, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$getlmi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$getlmiw SYS$GETLMIW #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$getlmiw( unsigned int efn, struct _generic_64 *contxt, void *reserved, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$getlmiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $SETLMI */ /* $SETLMIW */ /* */ /* Set License Management Information */ /* */ /* $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm */ /* $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm */ /* Inputs: */ /* efn - Event flag number. (optional, by value) */ /* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) */ /* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) */ /* itmlst - Item list containing information to fully describe the requested function. (required, by reference) */ /* iosb - I/O status block. (optional, by reference) */ /* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) */ /* astprm - AST parameter for the AST routine. (optional, by value) */ /* */ #define sys$setlmi SYS$SETLMI #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setlmi( unsigned int efn, struct _generic_64 *contxt, void *reserved, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$setlmi(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$setlmiw SYS$SETLMIW #ifdef __cplusplus /* Define structure prototypes */ struct _generic_64; struct _iosb; #endif /* #ifdef __cplusplus */ #ifdef __NEW_STARLET int sys$setlmiw( unsigned int efn, struct _generic_64 *contxt, void *reserved, void *itmlst, struct _iosb *iosb, void (*astadr)(__unknown_params), unsigned __int64 astprm); #else /* __OLD_STARLET */ int sys$setlmiw(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* $IEEE_SET_ROUNDING_MODE */ /* $IEEE_SET_PRECISION_MODE */ /* */ /* Set and retrieve the IEEE rounding/precision mode for the current kernel thread */ /* */ /* $IEEE_SET_ROUNDING_MODE( value, prev_value ) */ /* */ /* value = A longword constant specifying the rounding mode for the thread */ /* prev_value = The address of a longword which will receive the */ /* previous rounding mode */ /* */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$ieee_set_rounding_mode SYS$IEEE_SET_ROUNDING_MODE #ifdef __NEW_STARLET int sys$ieee_set_rounding_mode( int value, int *prev_value); #else /* __OLD_STARLET */ int sys$ieee_set_rounding_mode(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #define sys$ieee_set_precision_mode SYS$IEEE_SET_PRECISION_MODE #ifdef __NEW_STARLET int sys$ieee_set_precision_mode( int value, int *prev_value); #else /* __OLD_STARLET */ int sys$ieee_set_precision_mode(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $DEBUG_BREAK */ /* */ /* Manipulate hardware debug resources */ /* */ /* $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask */ /* */ /* func = what function to perform */ /* */ /* handle = address of handle */ /* */ /* addr = address to be debugged */ /* */ /* addr_mask = which bits in the address are significant */ /* */ /* mode_mask = which mode(s) are to generate an exception */ /* */ /* access_mask = are we monitoring reads or writes? */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$debug_break SYS$DEBUG_BREAK #ifdef __NEW_STARLET int sys$debug_break( unsigned __int64 func, unsigned __int64 *handle, void *addr, unsigned __int64 addr_mask, unsigned __int64 mode_mask, unsigned int access_mask); #else /* __OLD_STARLET */ int sys$debug_break(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif /* $POWER_CONTROL */ /* */ /* Manipulate the platform's power and performance settings */ /* */ /* $DEBUG_BREAK power_setting, current_value */ /* */ /* power_setting = a quadword value to specify the new power/performance setting */ /* */ /* current_value = the address of a quadword for the service to return the current */ /* setting (optional) */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __long #endif #define sys$power_control SYS$POWER_CONTROL #ifdef __NEW_STARLET int sys$power_control( unsigned __int64 power_setting, __optional_params); #else /* __OLD_STARLET */ int sys$power_control(__unknown_params); #endif /* #ifdef __NEW_STARLET */ #ifdef __INITIAL_POINTER_SIZE #pragma __required_pointer_size __short #endif #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __STARLET_LOADED */