The CDPD Public Domain Collection for CDTV 4

home *** CD-ROM | disk | FTP | other *** search

/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / binaries / arpbase.lha / arpbase.i next >

Wrap

Text File | 1993-06-15 | 32KB | 924 lines

IFND LIBRARIES_ARPBASE_I LIBRARIES_ARPBASE_I SET 1 *********************************************************************** * * AmigaDOS Resource Project -- Library Include File (Assembler) * *********************************************************************** * * History: * * Version: arpbase.i,v 34.00 02/27/88 * * Created by: SDB * Revised: SDB (v 5.00 05/31/87) * *---- Added meaningful alert numbers, revised macros, * *---- updated ArpBase structure to reflect current state. * *---- Added cheath's ASSIGN return codes as equates. * *---- plus usual grunt work (revisions, lvo's, etc.) * SDB (v6.04) * cdh V7.0 * *---- added IntuiBase and GfxBase to ArpBase * sdb V7.2 * *---- rearranged for more efficient lib code (ouch). * *---- DosBase IntuiBase and GfxBase have *all* changed! * *---- Few more alert #'s now get returned, * *---- new GURU macro replaces provincial MYALERT. * sdb v12 newstuff, see docs * cdh V14 Added dos.library offsets, everybody moves! * cdh V15 Added (volatile!) FindFirst etc offsets * cdh V19 Added structs and constants for wildcards * cdh V31 Final edit for V1.0 ARP 10/7/87 * sdb V31.00 * Final edits for release of developers materials. * Massive changes to make this file correspond * more closely with 'C' File. * * SDB V32.00 Add Stuff for version 32, ASyncRun() * Returns and data structures. * SDB V32.01 Add ERROR_NO_CLI * SDB V32.3 Add ResidentPrg stuff * SDB V33.4 Final edits for release. * SDB V35.0 PR_WANTSMESSAGE * SDB Changes now tracked in arpheaders.log *********************************************************************** * * Copyright (c) 1987/1988/1989, by Scott Ballantyne * * The arp.library, and related code and files may be freely used * by supporters of ARP. Modules in the arp.library may not be * extracted for use in independent code, but you are welcome to * provide the arp.library with your work and call on it freely. * * You are equally welcome to add new functions, improve the ones * within, or suggest additions. * * BCPL programs are not welcome to call on the arp.library. * The welcome mat is out to all others. *********************************************************************** IFND EXEC_TYPES_I INCLUDE "exec/types.i" ENDC IFND EXEC_LIBRARIES_I INCLUDE "exec/libraries.i" ENDC IFND EXEC_LISTS_I INCLUDE "exec/lists.i" ENDC IFND EXEC_SEMAPHORES_I INCLUDE "exec/semaphores.i" ENDC IFND LIBRARIES_DOS_I INCLUDE "libraries/dos.i" ENDC IFND LIBRARIES_DOS_LIB_I INCLUDE "libraries/dos_lib.i" ENDC STRUCTURE ArpBase,LIB_SIZE ; Standard library node APTR DosRootNode ; Copy of dl_Root UBYTE Flags ; Not used, yet! UBYTE ESCChar ; Character to be used for escaping LONG ArpReserved1 ; ArpLib's use only!! CPTR EnvBase ; Dummy library for MANX compatibility CPTR DosBase ; Cached DosBase CPTR GfxBase ; Cached GfxBase CPTR IntuiBase ; Cached IntuitionBase STRUCT ResLists,MLH_SIZE ; Resource trackers ULONG ResidentPrgList ; Resident Programs. STRUCT ResPrgProtection,SS_SIZE ; protection for above ULONG SegList ; Pointer to loaded libcode (a BPTR). LABEL ArpLib_SIZEOF *--------------- Following is here only for compatibility with MANX, *--------------- don't use in new code! STRUCTURE EnvLib,LIB_SIZE ; fake library for MANX CPTR EnvSpace ; access only when Forbidden! ULONG EnvSize ; size of environment ULONG EnvArpBase ; for EXPUNGE LABEL EnvLib_SIZEOF *---------- Flags bit definitions * * These are used in release 33.4, but not by the library code, instead, * individual programs which are affected check for these. Not ideal, but * such is life. * *------------------------------------------------------- BITDEF ARP,WILD_WORLD,0 ; Mixed BCPL/Normal wildcards. BITDEF ARP,WILD_BCPL,1 ; Pure bcpl. *----------- Rest of library style stuff ArpName MACRO dc.b 'arp.library',0 ds.w 0 ENDM *---------- Current arp.library version. ArpVersion EQU 39 *-------- Alert Object * The alert object is what you use if you really must return an alert * to the user. You would normally OR this with another alert number from * the alerts.h file. Generally, these should be NON deadend alerts. * * For example, if you can't open ArpLibrary: * * GURU AG_OpenLib!AO_ArpLib *---------------------------------------- AO_ArpLib EQU $00008036 ; alert object *-------- Specific Alerts you can get from ArpLib. -----------* AN_ArpLib EQU $03600000 ; alert number AN_ArpNoMem EQU $03610000 ; Arplibrary out of memory. AN_ArpInputMem EQU $03610002 ; No memory for input buffer. AN_ArpNoMakeEnv EQU $83610003 ; No memory to make EnvLib AN_ArpNoDOS EQU $83630001 ; Can't open DOS library AN_ArpNoGfx EQU $83630002 ; Can't open graphics AN_ArpNoIntuit EQU $83630003 ; Can't open intuition AN_BadPackBlues EQU $83640000 ; Bad packet returned to SendPacket() AN_Zombie EQU $83600003 ; AsyncRun() Exit code didn't. AN_ArpScattered EQU $83600002 ; Scatter loading not allowed for lib. *---------- Tiny ALERT macro, assumes ExecBase is already in A6, also that you *---------- have nothing important in d7, also that you want to return immediately. GURU MACRO * optional alert number IFNC '\1','' move.l #\1,D7 ENDC jmp _LVOAlert(a6) ENDM MYALERT MACRO * ancient compatibility GURU \1 ENDM *------------- Library Vector Offsets. * * This macro is used to define the DOS offsets without redefining the symbols- * To get the DOS symbols, INCLUDE dos_lib.i * LIBSKP MACRO COUNT_LIB SET COUNT_LIB-LIB_VECTSIZE ENDM LIBINIT *** LIBDEF _LVOPrintf ; Print formatted data on current output. LIBDEF _LVOFPrintf ; Print formatted data on file. LIBDEF _LVOPuts ; Print string\n on stdout. LIBDEF _LVOReadLine ; Get a line from stdin. LIBDEF _LVOGADS ; Get args using template LIBDEF _LVOAtol ; Convert Ascii to long int. LIBDEF _LVOEscapeString ; Handle escapes in string. LIBDEF _LVOCheckAbort ; Check for CNTRL-C LIBDEF _LVOCheckBreak ; Check for CNTRL c d e or f LIBDEF _LVOGetenv ; Get value of environment variable LIBDEF _LVOSetenv ; Set value of environment variable LIBDEF _LVOFileRequest ; Filename Requester LIBDEF _LVOCloseWindowSafely ; Closes shared IDCMP window w/o GURU LIBDEF _LVOCreatePort ; Create a message port LIBDEF _LVODeletePort ; Delete a message port LIBDEF _LVOSendPacket ; Send a dos packet LIBDEF _LVOInitStdPacket ; initialize a standard packet LIBDEF _LVOPathName ; Return Complete pathname of file/directory. LIBDEF _LVOAssign ; Assign a logical device name LIBDEF _LVODosAllocMem ; DOS compatible memory allocator LIBDEF _LVODosFreeMem ; DOS compatible memory free-er LIBDEF _LVOBtoCStr ; Copy a BCPL string to C string LIBDEF _LVOCtoBStr ; Copy a C string to BCPL string LIBDEF _LVOGetDevInfo ; Get pointer to head of DevInfo LIBDEF _LVOFreeTaskResList ; Free Tracked resources for this task LIBDEF _LVOArpExit ; Exit, freeing tracked resources. LIBDEF _LVOArpAlloc ; Allocate memory with tracking LIBDEF _LVOArpAllocMem ; Track AllocMem allocation LIBDEF _LVOArpOpen ; Track open files LIBDEF _LVOArpDupLock ; Track duped locks LIBDEF _LVOArpLock ; Track allocated locks LIBDEF _LVORListAlloc ; Like ArpAlloc for free reslist LIBDEF _LVOFindCLI ; Get a process given a task number LIBDEF _LVOQSort ; Quick Sort LIBDEF _LVOPatternMatch ; Match a string with a pattern (wildcards!) LIBDEF _LVOFindFirst ; Search directory w/wildcards LIBDEF _LVOFindNext ; Continue search w/wildcards LIBDEF _LVOFreeAnchorChain ; Free mem from FindFirst/Next LIBDEF _LVOCompareLock ; Compare two disk locks LIBDEF _LVOFindTaskResList ; Find resource list for this task LIBDEF _LVOCreateTaskResList ; Create a new nested task reslist LIBDEF _LVOFreeResList ; Free an un-attached reslist LIBDEF _LVOFreeTrackedItem ; Free a tracked item LIBDEF _LVOGetTracker ; Get a tracker node LIBDEF _LVOGetAccess ; Lock access to a node LIBDEF _LVOFreeAccess ; Allow resource to flush if lowmem LIBDEF _LVOFreeDAList ; Free a DosAllocmem list LIBDEF _LVOAddDANode ; Add a node to a DA list LIBDEF _LVOAddDADevs ; Add devices to a DA list LIBDEF _LVOStrcmp ; Compare two null-terminated strs LIBDEF _LVOStrncmp ; Compare up to N chars LIBDEF _LVOToupper ; Convert to UC LIBDEF _LVOSyncRun ; Run program as subroutine * Added V32 of arp.library LIBDEF _LVOASyncRun ; Run program in background LIBDEF _LVOLoadPrg ; As for LoadSeg(), but searches Res&Path LIBDEF _LVOPreParse ; Create tokenized PatternMatch string * V33 LIBDEF _LVOStamptoStr ; Date stamp to string LIBDEF _LVOStrtoStamp ; Date string to stamp LIBDEF _LVOObtainResidentPrg ; Get a resident program LIBDEF _LVOAddResidentPrg ; Add it LIBDEF _LVORemResidentPrg ; Remove it LIBDEF _LVOUnLoadPrg ; Check Sum code LIBDEF _LVOLMult ; long mult LIBDEF _LVOLDiv ; long division, signed LIBDEF _LVOLMod ; long % LIBDEF _LVOCheckSumPrg ; Refresh checksum for resident code LIBDEF _LVOTackOn ; Add A1 onto directory string A0 LIBDEF _LVOBaseName ; Get Filename from complete dir string LIBDEF _LVOReleaseResidentPrg ; True if code is resident and was released. * V36 LIBDEF _LVOSPrintf LIBDEF _LVOGetKeywordIndex LIBDEF _LVOArpOpenLibrary *** LIBDEF _LVOArpAllocFreq *---------- Return codes you can get from calling Assign: ASSIGN_OK EQU 0 ; Everything is cool and groovey ASSIGN_NODEV EQU 1 ; "Physical" is not valid for assignment ASSIGN_FATAL EQU 2 ; Something really icky happened ASSIGN_CANCEL EQU 3 ; Tried to cancel something that won't cancel. *--------- Size of buffer you need for ReadLine MaxInputBuf EQU 256 * Macro to declare things as unions: UNION MACRO *name,maxsize UOFFSET SET SOFFSET \1 EQU SOFFSET SOFFSET SET SOFFSET+\2 ENDM * member of union UMEMB MACRO * name \1 EQU UOFFSET ENDM ******************************* File Requester ******************************* ********************** Submit the following to FileRequest() ***************** ****************************************************************************** STRUCTURE FileRequester,0 CPTR fr_Hail ; Hailing text CPTR fr_File ; *Filename array (FCHARS+1) CPTR fr_Dir ; *Directory array (DSIZE+1) CPTR fr_Window ; Window requesting or NULL UBYTE fr_FuncFlags ; Set bitdef's below UBYTE fr_reserved1 ; Set to NULL APTR fr_Function ; Func to call for wildcards LONG fr_reserved2 ; RESERVED LABEL fr_SIZEOF ***************************************************************** * The following are the equates for fr_FuncFlags. These bits tell * FileRequest() what your fr_UserFunc is expecting, and what FileRequest() * should call it for. * * You are called like so * fr_Function(Mask, Object) * ULONG Mask * CPTR *Object * * The Mask is a copy of the flag value that caused FileRequest() to call * your function. You can use this to determine what action you need to * perform, and exactly what Object is, so you know what to do and * what to return. * BITDEF FR,DoWildFunc,7 ; Call me with a FIB and a name, ZERO return accepts. BITDEF FR,DoMsgFunc,6 ; You get all IDCMP message not for FileRequest() BITDEF FR,DoColor,5 ; Set this bit for that new and differnt look BITDEF FR,NewIDCMP,4 ; Force a new IDCMP (only if fr_Window != NULL) BITDEF FR,NewWindFunc,3 ; You get to modify the NewWindow struct. BITDEF FR,AddGadFunc,2 ; You get to add gadgets BITDEF FR,GEventFunc,1 ; Function to call if one of your gads is selected BITDEF FR,ListFunc,0 ; not implemented. FCHARS EQU 32 ; Directory name sizes DSIZE EQU 33 * The bits FR2Bxxx are in the fr_reserved1 byte. BITDEF FR2,LongPath,0 ; Specify that fr_Dir buffer is 256 ; bytes long LONG_DSIZE EQU 254 ; If FRB_LongPath, you must allocate ; LONG_DSIZE+1 rather than DSIZE+1 for ; fr_Dir buffer LONG_FSIZE EQU 126 FR_FIRST_GADGET EQU $7680 ; User gadgetID's must be less than this. ************************************************************************ ************************ PATTERN MATCHING ****************************** ************************************************************************ * structure expected by FindFirst, FindNext. * Allocate this structure and initialize it as follows: * * Set ap_BreakBits to the signal bits (CDEF) that you want to take a * break on, or NULL, if you don't want to convenience the user. * * If you want to have the FULL PATH NAME of the files you found, * allocate a buffer at the END of this structure, and put the size of * it into ap_Length. If you don't want the full path name, make sure * you set ap_Length to zero. In this case, the name of the file, and stats * are available in the ap_Info, as per usual. * * Then call FindFirst() and then afterwards, FindNext() with this structure. * You should check the return value each time (see below) and take the * appropriate action, ultimately calling FreeAnchorChain() when there are * no more files and you are done. You can tell when you are done by * checking for the normal AmigaDOS return code ERROR_NO_MORE_ENTRIES. * STRUCTURE AnchorPath,0 LABEL ap_First CPTR ap_Base ; pointer to first anchor LABEL ap_Current CPTR ap_Last ; pointer to last anchor LONG ap_BreakBits ; Bits we want to break on LONG ap_FoundBreak ; Bits we broke on. Also returns ERROR_BREAK LABEL ap_Length ; Old compatability for LONGWORD ap_Length BYTE ap_Flags ; New use for extra word. BYTE ap_Reservred WORD ap_Strlen ; This is what ap_Length used to be STRUCT ap_Info,fib_SIZEOF ; FileInfoBlock LABEL ap_Buf ; Buffer for path name, allocated by user LABEL ap_SIZEOF BITDEF AP,DOWILD,0 ; User option ALL BITDEF AP,ITSWILD,1 ; Set by FindFirst, used by FindNext ; Application can test APB_ITSWILD, too. BITDEF AP,DODIR,2 ; Bit is SET if a DIR node should be ; entered. Application can RESET this ; bit after FindFirst/FindNext to AVOID ; entering a dir. BITDEF AP,DIDDIR,3 ; Bit is SET for an "expired" dir node. BITDEF AP,NOMEMERR,4 ; Set on memory error BITDEF AP,DODOT,5 ; If set, allow conversion of '.' to CurrentDir STRUCTURE AChain,0 CPTR an_Child CPTR an_Parent LONG an_Lock STRUCT an_Info,fib_SIZEOF ; FileInfoBlock BYTE an_Flags LABEL an_String LABEL an_SIZEOF BITDEF DD,PatternBit,0 BITDEF DD,ExaminedBit,1 BITDEF DD,Completed,2 BITDEF DD,AllBit,3 * Constants used by wildcard routines, these are the pre-parsed tokens * referred to by pattern match. It is not necessary for you to do * anything about these, FindFirst() FindNext() handle all these for you. P_ANY EQU $80 ; Token for '*' or '#? P_SINGLE EQU $81 ; Token for '?' P_ORSTART EQU $82 ; Token for '(' P_ORNEXT EQU $83 ; Token for '|' P_OREND EQU $84 ; Token for ')' P_TAG EQU $85 ; Token for '{' P_TAGEND EQU $86 ; Token for '}' P_NOTCLASS EQU $87 ; Token for '^' P_CLASS EQU $88 ; Token for '[]' P_REPBEG EQU $89 ; Token for '[' P_REPEND EQU $8A ; Token for ']' * Values for an_Status, NOTE: These are the actual bit numbers COMPLEX_BIT EQU 1 ; Parsing complex pattern EXAMINE_BIT EQU 2 ; Searching directory * Returns from FindFirst(), FindNext() * You can also get dos error returns, such as ERROR_NO_MORE_ENTRIES, * these are in the dos.h file. * ERROR_BUFFER_OVERFLOW EQU 303 ; User or internal buffer overflow ERROR_BREAK EQU 304 ; A break character was received ERROR_NOT_EXECUTABLE EQU 305 ; A file has E bit cleared * Structure used by AddDANode, AddDADevs, FreeDAList * * This structure is used to create lists of names, * which normally are devices, assigns, volumes, files, or directories. STRUCTURE DirectoryEntry,0 CPTR de_Next ; Next in list BYTE de_Type ; DLX_mumble BYTE de_Flags ; For future expansion, do not use! LABEL de_Name ; name of thing found LABEL de_SIZEOF * Defines you use to get a list of the devices you want to look at. * For example, to get a list of all directories and volumes, do * * move.l #DLF_DIRS!DLF_VOLUMES,d0 * move.l myDalist(pc),a0 * SYSCALL AddDADevs ; ArpBase already in A6, of course * * After this, you can examine the de_Type field of the elements added * to your list (if any) to discover specifics about the objects added. * * Note that if you want only devices which are also disks, you must * request DLF_DEVICES!DLF_DISKONLY * BITDEF DL,DEVICES,0 ; Return devices BITDEF DL,DISKONLY,1 ; Modifier for above: Return disk devices only BITDEF DL,VOLUMES,2 ; Return volumes only BITDEF DL,DIRS,3 ; Return assigned devices only * Legal de_Type values, check for these after a call to AddDADevs(), or * use on your own as the ID values in AddDANode() DLX_FILE EQU 0 ; AddDADevs() can't determine this DLX_DIR EQU 8 ; AddDADevs() can't determine this DLX_DEVICE EQU 16 ; It's a resident device DLX_VOLUME EQU 24 ; Device is a volume DLX_UNMOUNTED EQU 32 ; Device is not resident DLX_ASSIGN EQU 40 ; Device is a logical assignment ************************************************************************ ************************** RESOURCE TRACKING *************************** ************************************************************************ * * NOTE: This is a DosAllocMem'd list, this is done for you when you * call CreateTaskResList(), typically, you won't need to access/allocate * this structure. * STRUCTURE ResList,0 STRUCT rl_Node,MLN_SIZE ; Used by arplib to link reslist's CPTR rl_TaskID ; Owner of this list STRUCT rl_FirstItem,MLH_SIZE ; List of TrackedResource's CPTR rl_Link ; For temp removal from task rlist LABEL RL_SIZEOF * The rl_FirstItem list (above) is a list of TrackedResource (below). * It is very important that nothing in this list depend on the task * existing at resource freeing time (i.e., RemTask(0L) type stuff, * DeletePort() and the rest). * * The tracking functions return a struct Tracker *Tracker to you, this * is a pointer to whatever follows the tr_ID variable. * The default case is reflected below, and you get it if you call * GetTracker() ( see DefaultTracker below). * * NOTE: The two user variables mentioned in an earlier version don't * exist, and never did. Sorry about that (SDB). * * However, you can still use ArpAlloc to allocate your own tracking * nodes and they can be any size or shape you like, as long as the * base structure is preserved. They will be freed automagically * just like the default trackers. STRUCTURE TrackedObject,0 CPTR tr_Resource ; whatever LONG tg_Verify ; for use during TRAK_GENERIC LABEL TrackedObject_SIZEOF STRUCTURE TrackedExtra,0 APTR tg_Function ; function to call for TRAK_GENERIC CPTR tr_Window2 ; for TRAK_WINDOW LABEL TrackedExtra_SIZEOF STRUCTURE TrackedResource,0 STRUCT tr_Node,MLN_SIZE ; Double linked pointer BYTE tr_Flags ; Don't touch BYTE tr_Lock ; Don't touch, for Get/FreeAcess SHORT tr_ID ; ID for this item class * The struct DefaultTrackter portion of the structure * The stuff below this point can conceivably vary, depending * on user needs, etc. This reflects the default. STRUCT tr_Object,TrackedObject_SIZEOF ; The thing being tracked STRUCT tr_Extra,TrackedExtra_SIZEOF ; only needed sometimes LABEL trk_SIZEOF ; trk_ fixes COLLISION WITH TMPRAS... tg_Value EQU tg_Verify * You get a pointer to a struct of the following type when you call * GetTracker(). You can change this, and use ArpAlloc() instead of * GetTracker() to do tracking. Of course, you have to take a wee bit * more responsibility if you do, as well as if you use TRAK_GENERIC * stuff. * * TRAK_GENERIC folks need to set up a task function to be called when an * item is freed. Some care is required to set this up properly. * * Some special cases are indicated by the unions below, for TRAK_WINDOW, * if you have more than one window opened, and don't want the IDCMP closed * particularly, you need to set a ptr to the other window in dt_Window2. * See CloseWindowSafely() for more info. If only one window, set this to NULL. STRUCTURE DefaultTracker,-2 SHORT dt_ID ; Different from C file, but it's ok. STRUCT dt_Object,TrackedObject_SIZEOF ; the object being tracked STRUCT dt_Extra,TrackedExtra_SIZEOF LABEL dt_SIZEOF * Tracked Item Types * The id types below show the types of resources which may * be tracked in a resource list. * TRAK_AAMEM EQU 0 ; Default generic (ArpAlloc) element TRAK_LOCK EQU 1 ; File Lock TRAK_FILE EQU 2 ; Opened File TRAK_WINDOW EQU 3 ; Window (see discussion) TRAK_SCREEN EQU 4 ; Screen TRAK_LIBRARY EQU 5 ; Opened library TRAK_DAMEM EQU 6 ; Pointer to DosAllocMem block TRAK_MEMNODE EQU 7 ; AllocEntry() node. TRAK_SEGLIST EQU 8 ; Program Segment List TRAK_RESLIST EQU 9 ; ARP (nested) ResList TRAK_MEM EQU 10 ; Memory ptr/length TRAK_GENERIC EQU 11 ; Generic Element TRAK_DALIST EQU 12 ; DAlist ( as used by file request ) TRAK_ANCHOR EQU 13 ; Anchor chain TRAK_FREQ EQU 14 ; FileRequest struct TRAK_FONT EQU 15 ; GfxBase CloseFont() TRACK_MAX EQU 15 ; Anything else is tossed. BITDEF TR,UNLINK,7 ; Bit for freeing the node BITDEF TR,RELOC,6 ; This element may be relocated (not used yet BITDEF TR,MOVED,5 ; Item moved *--- Returns from CompareLock() LCK_EQUAL EQU 0 ; Locks refer to the same object LCK_VOLUME EQU 1 ; Locks are on the same volume LCK_DIFVOL1 EQU 2 ; Locks are on different volumes LCK_DIFVOL2 EQU 3 ; Locks are on different volumes *----------- Stuff For ASyncRun() and friends *---------- Message sent back on request by an exiting process. *---------- You request this by putting the address of your *---------- message in pcb_LastGasp, and initializing the *---------- ReplyPort variable of the zombiemsg to the port you wish *---------- the message posted to. STRUCTURE ZombieMsg,MN_SIZE ULONG zm_TaskNum ; task ID ULONG zm_ReturnCode ; Process's return code ULONG zm_Result2 ; System return STRUCT zm_ExitTime,ds_SIZEOF ; Date stamp at time of exit ULONG zm_UserInfo ; for whatever you like LABEL zm_SIZEOF *------------ Structure required by ASyncRun() -- see docs for more info. *------------ STRUCTURE pcbConsole,0 BPTR pcb_SplatFile ; file to use for Open("*") BYTE pcb_ConName ; CON: filename LABEL pcbConsole_SIZEOF STRUCTURE ProcessControlBlock,0 ULONG pcb_StackSize ; Stacksize for new process BYTE pcb_Pri ; Priority of new process BYTE pcb_Control ; Control bits, see BITDEF's below. APTR pcb_TrapCode ; Optional trapcode vector ULONG pcb_Input ; Optional default input ULONG pcb_Output ; Optional default output STRUCT pcb_Console,pcbConsole_SIZEOF ULONG pcb_LoadedCode ; If not null, use this code CPTR pcb_LastGasp ; ReplyMsg to be filled in by exit code CPTR pcb_WBProcess ; Valid only when PRB_NOCLI. LABEL pcb_SIZEOF *---- bits to set in pcb_Control BITDEF PR,SAVEIO,0 ; don't release/check file handles BITDEF PR,CLOSESPLAT,1 ; close splat, must request explicitly BITDEF PR,NOCLI,2 ; Don't want a CLI BITDEF PR,CODE,4 ; Actual code address. Be Careful! BITDEF PR,STDIO,5 ; Do the stdio thing, splat = CON:filename *----- Error returns PR_NOFILE EQU -1 ; Can't find or LoadSeg file. PR_NOMEM EQU -2 ; No memory for one thing or another PR_NOSLOT EQU -4 ; No slot in task array PR_NOINPUT EQU -5 ; Can't get input file PR_NOOUTPUT EQU -6 ; Can't get output file PR_NOSTDIO EQU -11 ; Couldn't get stdio handles. *---- The following error returns are obsolete in versions 35+ *---- will not be returned. PR_NOCLI EQU -3 ; Caller must be CLI (SyncRun() only). PR_NOLOCK EQU -7 ; Problem obtaining locks PR_ARGERR EQU -8 ; Bad Argument PR_NOBCPL EQU -9 ; Bad program passed to ASyncRun PR_BADLIB EQU -10 ; Bad library version * * Version 35 adds the following error messages. * PR_WANTSMESSAGE EQU -12 ; Child wants you to report IoErr() to user. PR_NOSHELLPROC EQU -13 ; Can't create a shell/cli process * PR_NOEXEC EQU -14 PR_SCRIPT EQU -15 * Version 35 ASyncRun () allows you to create an independent interactive or * background Shell/CLI. You need this variant of the pcb structure to * do it, and you also have new values for nsh_Control, see below. * * Syntax for Interactive shell is: * * rc = ASyncRun ("Optional Window Name", "Optional From File", &NewShell); * * Syntax for a background shell is: * rc = ASyncRun ("Command line", 0L, &NewShell); * * Same syntax for an Execute style call, but you have to be on drugs * if you want to do that. * STRUCTURE NewShell,0 ULONG nsh_StackSize ; stacksize shell will use for children BYTE nsh_Pri ; ignored by interactive shells UBYTE nsh_Control ; bits/values: see above CPTR nsh_LogMsg ; Optional login message, if null, use default. CPTR nsh_Input ; ignored by interactive shells, but CPTR nsh_Output ; used by background and execute options. STRUCT nsh_RESERVED,(5*4) LABEL nsh_SIZEOF *-- Bit Values for nsh_Control, you should use them as shown below, or *-- just use the actual values indicated: the bits don't really combine *-- otherwise. BITDEF PR,FB,7 ; alt function bit BITDEF PR,CLI,0 ; Do a CLI, not a shell. BITDEF PR,BACKGROUND,1 ; Background shell. BITDEF PR,EXECUTE,2 ; Do as for Execute BITDEF PR,INTERACTIVE,3 ; run an interactive shell *-- Actual values to stuff into nsh_Control. INTERACTIVE_SHELL EQU (PRF_FB!PRF_INTERACTIVE) ; Gimme a newshell! INTERACTIVE_CLI EQU (PRF_FB!PRF_INTERACTIVE!PRF_CLI) ; Gimme that ol newcli! BACKGROUND_SHELL EQU (PRF_FB!PRF_BACKGROUND) ; gimme a background shell EXECUTE_ME EQU (PRF_FB!PRF_BACKGROUND!PRF_EXECUTE) ; aptly named, doncha think? IFND ERROR_BAD_STREAM_NAME ERROR_BAD_STREAM_NAME EQU 206 ; not defined in dos.i - imagine that. ENDC *---------- Programs should return this as result2 if no CLI: ERROR_NOT_CLI EQU 400 ; Program/function needed a CLI *-------------------------------- Resident Program support -------* *--- This node is allocated for you when you AddResidentPrg() a segment. *--- They are stored as a single linked list with the root in ArpBase, *--- if you absolutely *must* wander through this list instead of *--- using the supplied functions, then you must first obtain the *--- the semaphore which protects this list, and then release it afterwards. *--- Do not use Forbid() and Permit() to gain exclusive access! *------------------------------------------------------------------* STRUCTURE ResidentProgramNode,0 CPTR rpn_Next ; next node, or NULL WORD rpn_Usage ; current number of simultaneous users UWORD rpn_AccessCnt ; total times used ULONG rpn_CheckSum ; checksum for this code BPTR rpn_Segment ; the segment UWORD rpn_Flags ; See flag bit definitions below. LABEL rpn_Name ; the name of the program. LABEL rpn_SIZEOF BITDEF RPN,NOCHECK,0 ; Set in rpn_Flags for no checksumming. BITDEF RPN,CACHE,1 ; Private usage in V1.3. *--- If your program starts with this structure, ASyncRun() and SyncRun() *--- will override a users stack request with the value in rpt_StackSize. *--- Furthermore, if you are actually attached to the resident list, *--- a memory block of size rpt_DataSize will be allocated for you, and *--- a pointer to this data passed to you in register A4. You may use this *--- block to clone the data segment of programs, thus resulting in *--- one copy of text, but multiple copies of data/bss for each process *--- invocation. If you are resident, your program will start at rpt_Instruction, *--- otherwise, it will be launched from the initial branch. STRUCTURE ResidentProgramTag,0 BPTR rpt_NextSeg ; provided by DOS at LoadSeg time. UWORD rpt_BRA ; Short branch to executable UWORD rpt_Magic ; resident majik value ULONG rpt_StackSize ; min stack for this process ULONG rpt_DataSize ; Size of data allocation (may be zero) LABEL rpt_Instruction ; start here if resident ************* The form of the ARP allocated node in your tasks memlist when ************* launched as a resident program, note that the data portion ************* of the node will only exist if you have specified a nonzero ************* value for rpt_DataSize. Note also that this structure is READ ONLY, ************* modify values in this at your own risk. The stack stuff is for ************* tracking, if you need actual addresses or stacksize, check the ************* normal places for it in your process/task structure. STRUCTURE ProcessMemory,LN_SIZE UWORD pm_Num ; number of entries, 1 if no data 2 if data CPTR pm_Stack ULONG pm_StackSize CPTR pm_Data ; pointer to data ULONG pm_DataSize LABEL pm_Sizeof * Search for the name below on your TC_MEMENTRY list if you need to * get the above node. Remember, you modify the above at your own * risk! * PMEM_NAME MACRO dc.b 'ARP_PMEM',0 ; memlist node for stack and/or data ds.w 0 ENDM RESIDENT_MAGIC EQU $4AFC ; same as RTC_MATCHWORD (trapf) ********** Note that the initial branch and the rpt_Instruction do not ********** have to be the same. This allows different actions to be taken ********** if you are diskloaded or resident. DataSize memory will be allocated ********** only if you are resident, but stacksize will override all user ********** stack requests. ********** ********** Macro to facilitate initialization of this structure, place at start ********** of code. ********** Usage is RESIDENT STACKSIZE [ optional DATASIZE LABEL ] RESIDENT MACRO IFEQ NARG FAIL ENDC IFC '\3','' bra.s resident_start\@ ; branch to rp_instruction ENDC IFNC '\3','' bra.s \3 ; branch to user label ENDC dc.w RESIDENT_MAGIC ; our magic value dc.l \1 ; stacksize IFNC '\2','' dc.l \2 ; datasize ENDC IFC '\2','' dc.l 0 ; of zero ENDC resident_start\@ ENDM *--------- String/Date structures etc STRUCTURE DateTime,0 STRUCT dat_Stamp,ds_SIZEOF ;DOS DateStamp UBYTE dat_Format ;controls appearance of dat_StrDate UBYTE dat_Flags ;see BITDEF's below CPTR dat_StrDay ;day of the week string CPTR dat_StrDate ;date string CPTR dat_StrTime ;time string LABEL dat_SIZEOF * * You need this much room for each of the DateTime strings: LEN_DATSTRING EQU 10 * flags for dat_Flags * BITDEF DT,SUBST,0 ;substitute Today, Tomorrow, etc. BITDEF DT,FUTURE,1 ;day of the week is in future * * date format values * FORMAT_DOS equ 0 FORMAT_INT equ 1 FORMAT_USA equ 2 FORMAT_CDN equ 3 FORMAT_MAX equ FORMAT_CDN *---------- handy macros LINKEXE MACRO LINKLIB _LVO\1,4 ENDM * LINKDOS now uses ArpBase * CALLDOS was nuked, to reduce confusion LINKDOS MACRO jsr _LVO\1(a6) ENDM CALLEXE MACRO move.l 4,a6 jsr _LVO\1(a6) ENDM * SYSCALL re-revised for only one arg * DosBase should always use ArpBase, or DosBase, in A6 SYSCALL MACRO jsr _LVO\1(A6) ENDM * Use this macro if arp.library can't be found. * Note the assumption that stack is offset by 8 from return addr. * After the macro, register A6 is ARPBASE * * Use this macro to open arp.library and avoid recoverable alerts. * Saves D0/A0 on stack. * After executing, A6 = ARPBASE and stack points at D0/A0 * OPENARP MACRO IFC '\1','' RESIDENT 4000,0 ENDC movem.l d0/a0,-(sp) move.l 4,A6 lea.l ARPNAME(pc),a1 ; Get ArpBase moveq.l #ArpVersion,d0 SYSCALL OpenLibrary tst.l d0 bne.s okgo lea dname,A1 SYSCALL OpenLibrary tst.l D0 beq.s 1$ move.l D0,A6 SYSCALL Output ;standard output file handle move.l d0,d1 beq.s 1$ ; No output. Phoey. lea.l alibmsg(pc),a0 ;tell user he needs to find library move.l a0,d2 aliblng equ 28 ; SEE BELOW moveq.l #aliblng,d3 SYSCALL Write 1$: addq #8,sp rts * IFGE ArpVersion-100 * FAIL "You lose: Time to bump version report to 3 digits!" * ENDC TEM SET ArpVersion/10 dname dc.b 'dos.library',0 alibmsg dc.b 'you need ' ARPNAME: ArpName dc.b ' V',TEM+'0',(ArpVersion-(TEM*10))+'0','+',10 ds.w 0 okgo: move.l D0,A6 ENDM *** INCLUDE "libraries/arpcompat.i" ENDC !LIBRARIES_ARPBASE_I *Local Variables: *mode:indented-text *eval:(setq last-change-log "arpheaders.log") *End: