home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / T_Dos.def < prev    next >
Text File  |  1994-05-25  |  9KB  |  247 lines
  1. |##########|
  2. |#MAGIC   #|CLABLKLH
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x-xx-x-xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE T_Dos;
  11.  
  12. | tested
  13.  
  14. | Adapting to 2.0 by WB starting 23 May 1992
  15.  
  16. FROM Dos   IMPORT actionEnd,actionNotKnown,badStreamName,beginning,
  17.           BPTR,BSTR,CommandLineInterface,CommandLineInterfacePtr,
  18.           commentTooBig,copyDir,createDir,CreateProc,
  19.           ctrlC,ctrlD,ctrlE,ctrlF,current,currentVolume,Date,DatePtr,
  20.           DateStamp,Delay,DeleteFile,deleteObject,
  21.           deleteProtected,DeviceList,DeviceListPtr,DeviceListType,
  22.           DeviceNode,DeviceNodePtr,deviceNotMounted,DeviceProc,
  23.           die,dirNotFound,diskChange,diskFull,
  24.           diskInfo,diskNotValidated,diskType,diskWriteProtected,
  25.           DosBase,dosDisk,DosEnvec,DosEnvecPtr,
  26.           DosInfo,DosInfoPtr,DosLibrary,DosLibraryPtr,
  27.           DosPacket,DosPacketPtr,end,error,
  28.           event,Examine,examineNext,examineObject,
  29.           LockMode,Execute,Exit,ExNext,
  30.           fail,FileHandle,FileHandlePtr,FileHandlePtr,
  31.           FileInfoBlock,FileInfoBlockPtr,FileLock,FileLockPtr,
  32.           fileNotObject,FileSysStartupMsg,FileSysStartupMsgPtr,findInput,
  33.           findOutput,findUpDate,flush,freelock,
  34.           getBlock,GetPacket,Info,info,
  35.           InfoData,InfoDataPtr,inhibit,Input,
  36.           invalidComponentName,invalidLock,invalidResidentLibrary,IoErr,
  37.           IsInteractive,kickstartDisk,lineTooLong,LoadSeg,
  38.           locateObject,moreCache,newFile,nil,
  39.           noDefaultDir,noDisk,noDiskPresent,noFreeStore,
  40.           noMoreEntries,notADosDisk,notReallyDos,objectExists,
  41.           objectInUse,objectNotFound,objectTooLarge,objectWrongType,
  42.           ok,(*oldFile,*)Output,parent,
  43.           PathInfo,PathInfoPtr,Process,Process,
  44.           ProcessId,ProcessPtr,ProtectionFlags,ProtectionFlagSet,
  45.           QueuePacket,read,readOnly,readProtected,
  46.           readReturn,readWrite,Rename,renameAcrossDevices,
  47.           renameDisk,renameObject,ResidentSegment,ResidentSegmentPtr,
  48.           RootNode,RootNodePtr,screenMode,Seek,
  49.           seek,seekError,setComment,SetComment,
  50.           setDate,setMap,setProtect,SetProtection,
  51.           StandardPacket,StandardPacketPtr,TaskArray,
  52.           TaskArrayPtr,taskTableFull,ticksPerSecond,timer,
  53.           tooManyLevels,truncate,TypeGrp,UnLoadSeg,
  54.           unreadableDisk,validated,validating,waitChar,
  55.           WaitForChar,warn,write,writeLock,
  56.           writeProtect,writeProtected,writeReturn;
  57.  
  58.  
  59.  
  60. FROM Resources  IMPORT ContextPtr;
  61.  
  62.  
  63. EXCEPTION
  64.   WriteError             : "WriteError";
  65.   ReadError              : "ReadError";
  66.   EOF                    : "End of File";
  67.   NoParentDir            : "No parent-directory accessable";
  68.   NoFreeStore            : 103;
  69.   TaskTableFull          : 105;
  70.   LineTooLong            : 120;
  71.   FileNotObject          : 121;
  72.   InvalidResidentLibrary : 122;
  73.   NoDefaultDir           : 201;
  74.   ObjectInUse            : 202;
  75.   ObjectExists           : 203;
  76.   DirNotFound            : 204;
  77.   ObjectNotFound         : 205;
  78.   BadStreamName          : 206;
  79.   ObjectTooLarge         : 207;
  80.   ActionNotKnown         : 209;
  81.   InvalidComponentName   : 210;
  82.   InvalidLock            : 211;
  83.   ObjectWrongType        : 212;
  84.   DiskNotValidated       : 213;
  85.   DiskWriteProtected     : 214;
  86.   RenameAcrossDevices    : 215;
  87.   DirectoryNotEmpty      : 216;
  88.   TooManyLevels          : 217;
  89.   DeviceNotMounted       : 218;
  90.   SeekError              : 219;
  91.   CommentTooBig          : 220;
  92.   DiskFull               : 221;
  93.   DeleteProtected        : 222;
  94.   WriteProtected         : 223;
  95.   ReadProtected          : 224;
  96.   NotADosDisk            : 225;
  97.   NoDisk                 : 226;
  98.   NoMoreEntries          : 232;
  99.  
  100.  
  101.   Protected     = DiskWriteProtected,DeleteProtected,ReadProtected,
  102.           WriteProtected;
  103.  
  104.   OpenErr       = ObjectNotFound,ObjectInUse,DirNotFound,NotADosDisk,NoDisk,             DiskNotValidated,
  105.           DeviceNotMounted,ObjectWrongType;
  106.  
  107.   ReadErr       = ReadError,Protected;
  108.  
  109.   WriteErr      = WriteError,DiskNotValidated,DiskFull,
  110.           Protected,NotADosDisk,NoDisk;
  111.   DirErr        = NoParentDir,ObjectExists,DirNotFound;
  112.  
  113.   DeleteErr     = Protected,ObjectInUse,DirectoryNotEmpty;
  114.  
  115.   InternalErr   = NoFreeStore,TaskTableFull,LineTooLong,FileNotObject,
  116.           InvalidResidentLibrary,NoDefaultDir,BadStreamName,
  117.           ObjectTooLarge,ActionNotKnown,InvalidComponentName,
  118.           InvalidLock,TooManyLevels,SeekError;
  119.  
  120.   AllDosErr     = Protected,OpenErr,ReadErr,WriteErr,DirErr,DeleteErr,
  121.           InternalErr;
  122.  
  123.  
  124.  
  125. GROUP
  126.   DosExceptionGrp =
  127.           ActionNotKnown,               BadStreamName,
  128.           CommentTooBig,                DeleteProtected,
  129.           DeviceNotMounted,             DirectoryNotEmpty,
  130.           DirNotFound,                  DiskFull,
  131.           DiskNotValidated,             DiskWriteProtected,
  132.           EOF,                          FileNotObject,
  133.           InvalidComponentName,         InvalidLock,
  134.           InvalidResidentLibrary,       LineTooLong,
  135.           NoDefaultDir,                 NoDisk,
  136.           NoFreeStore,                  NoMoreEntries,
  137.           NoParentDir,                  NotADosDisk,
  138.           ObjectExists,                 ObjectInUse,
  139.           ObjectNotFound,               ObjectTooLarge,
  140.           ObjectWrongType,              ReadError,
  141.           ReadProtected,                RenameAcrossDevices,
  142.           SeekError,                    TaskTableFull,
  143.           TooManyLevels,                WriteError,
  144.           WriteProtected;
  145.  
  146.  
  147.   DosExceptGroupGrp = Protected,OpenErr,ReadErr,WriteErr,DirErr,DeleteErr,
  148.               InternalErr;
  149.  
  150.  
  151. GROUP
  152.   DosErrorGrp  = writeProtect, validating, validated,DiskStatus,
  153.          noDiskPresent, unreadableDisk, dosDisk, notReallyDos,
  154.          kickstartDisk,DiskType,noFreeStore,taskTableFull,lineTooLong,
  155.          fileNotObject,invalidResidentLibrary,noDefaultDir,objectInUse,
  156.          objectExists,dirNotFound,objectNotFound,badStreamName,
  157.          objectTooLarge,actionNotKnown,invalidComponentName,
  158.          invalidLock,objectWrongType,diskNotValidated,
  159.          diskWriteProtected,renameAcrossDevices,tooManyLevels,
  160.          deviceNotMounted,seekError,commentTooBig,diskFull,
  161.          deleteProtected,writeProtected,readProtected,
  162.          notADosDisk,noDisk,noMoreEntries;
  163.  
  164.  
  165. |-----------------------------------------------------------------------------|
  166. |  1. Ein- und Ausgabe                                                        |
  167. |-----------------------------------------------------------------------------|
  168.  
  169. PROCEDURE Close(VAR file : FileHandlePtr):LONGBOOL;
  170.  
  171. PROCEDURE Open(REF name       : STRING;
  172.            accessMode : OpenMode := oldFile;
  173.            context    : ContextPtr := NIL):FileHandlePtr;
  174.  
  175. PROCEDURE Read(    file       : FileHandlePtr;
  176.            buffer     : ANYPTR;
  177.            length     : LONGINT):LONGINT;
  178.  
  179.  
  180. PROCEDURE Write(   file       : FileHandlePtr;
  181.            buffer     : ANYPTR;
  182.            length     : LONGINT):LONGINT;
  183.  
  184. GROUP
  185.   DosIOGrp   = Open,Open,Close,Read,FileHandlePtr,FileHandlePtr,Seek,Write,
  186.            readWrite,readOnly,oldFile,newFile,beginning,current,end;
  187.  
  188. |-----------------------------------------------------------------------------|
  189. |  2. Dateiverwaltung                                                         |
  190. |-----------------------------------------------------------------------------|
  191.  
  192. VAR
  193.   CD_at_ProgrammEnd : FileLockPtr;
  194.  
  195. PROCEDURE CreateDir(REF name : STRING;context : ContextPtr:=NIL):FileLockPtr;
  196.  
  197. PROCEDURE CurrentDir(lock : FileLockPtr):FileLockPtr;
  198.  
  199. PROCEDURE ParentDir(lock : FileLockPtr;context : ContextPtr:=NIL):FileLockPtr;
  200.  
  201. PROCEDURE DupLock(lock : FileLockPtr;context : ContextPtr:=NIL):FileLockPtr;
  202.  
  203. PROCEDURE Lock(REF name       : STRING;
  204.            accessMode : LockMode;
  205.            context    : ContextPtr:=NIL):FileLockPtr;
  206.  
  207. PROCEDURE Unlock(VAR lock : FileLockPtr);
  208.  
  209.  
  210. GROUP
  211.   DosFileGrp  =  CreateDir,FileLockPtr,CurrentDir,DeleteFile,Examine,ExNext,
  212.          FileInfoBlockPtr,FileInfoBlock,Info,InfoDataPtr,InfoData,
  213.          ParentDir,Rename,SetComment,SetProtection,ProtectionFlagSet,ProtectionFlags,
  214.          DupLock,Input,IoErr,IsInteractive,Lock,Output,Unlock,
  215.          sharedLock,exclusiveLock,accessRead,accessWrite;
  216.  
  217.  
  218.   DosProcessGrp  = CreateProc,DateStamp,Delay,DeviceProc,Exit,
  219.            WaitForChar,ticksPerSecond,Date,Process,ProcessPtr,
  220.            ProcessId;
  221.  
  222.   DosSegmentGrp  = Execute,LoadSeg,UnLoadSeg,BPTR;
  223.  
  224.   PacketGrp      = DosPacket,DosPacketPtr,StandardPacket,StandardPacketPtr,
  225.            nil,getBlock,setMap,die,event,currentVolume,locateObject,
  226.            renameDisk,write,read,freelock,deleteObject,renameObject,
  227.            moreCache,copyDir,waitChar,setProtect,createDir,
  228.            examineObject,examineNext,diskInfo,info,flush,setComment,
  229.            parent,timer,inhibit,diskType,diskChange,setDate,
  230.            screenMode,readReturn,writeReturn,findUpDate,findInput,
  231.            findOutput,actionEnd,seek,truncate,writeLock,
  232.            GetPacket,QueuePacket;
  233.  
  234.   All            = DosIOGrp,DosFileGrp,DosProcessGrp,PacketGrp,DosSegmentGrp,
  235.            DosErrorGrp,DosExceptionGrp,DosExceptGroupGrp,
  236.            BSTR,DeviceListPtr,DatePtr,PathInfoPtr,PathInfo,
  237.            ok,warn,error,fail,ctrlC,ctrlD,ctrlE,ctrlF,
  238.            CommandLineInterfacePtr,Process,FileHandle,RootNodePtr,
  239.            DosLibrary,DosLibraryPtr,TaskArray,DosInfoPtr,TaskArrayPtr,
  240.            DosEnvecPtr,FileSysStartupMsgPtr,ResidentSegmentPtr,
  241.            ResidentSegment,RootNode,DosInfo,CommandLineInterface,
  242.            DeviceListType,DeviceList,DeviceNode,DeviceNodePtr,DosEnvec,
  243.            FileLock,FileSysStartupMsg,DosBase,LockMode;
  244.  
  245. END T_Dos.
  246.  
  247.