DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »IOSYS.ID«

└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »IOSYS.ID« 
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »IOSYS.ID« 

TextFile

 
æ*****************************************************************
                        Copyright 1984 by
                        NCR Corporation
                        Dayton, Ohio  U.S.A.
                        All Rights Reserved
******************************************************************
                        EOS Software produced by:
                        NCR Systems Engineering - Copenhagen
                        Copenhagen
                        DENMARK
*****************************************************************å
 
 
æ EOS Pascal IoSysFamily Interface. Ver. 2.00 - 83-12-01. å
æ*********************************************************å
 
OBJECT IoSys;
  TYPE
    ioSysRefType  = ^^ IoSys;
    faoRefType    = ^^ Fao;
    fScanRefType  = ^^ FileScanObj;
 
    ioType        = integer;
    baseType      = integer;
    createType    = integer;
    deleteType    = integer;
    devType       = integer;
 
    ptrArr        = ARRAY Æ1..20Å OF faoRefType;
    refFileEnv    = ^^ ptrArr;
 
  ENTRY Assign
    (OUT ownedFao : faoRefType;
     IN  fileName : fullId;
     IN  ioRights : ioType
     æoptional IN createMode : createTypeå
     æoptional IN volume : shortIdå      );
 
PRIVATE CloseClone(IN owner: faoRefType;IN env: refEnv);
æ PRIVATE Close
    (IN  ownedFao : faoRefType;
     IN  faoEnv : refEnv );
å
 
  ENTRY InitFileScan
    (OUT scanObj : fScanRefType;
     IN  partialFileName : partialId);
 
  ENTRY RenameFile
    (IN  fileName : fullId;
     IN  newFileName : fullId );
 
  ENTRY CreateLink
    (IN fileName : fullId;
     IN newFileName : fullId );
 
  ENTRY DeleteLink
   (IN  fileName : fullId );
 
  ENTRY Include
   (IN  devName : fullId
    æoptional IN readOnly : integerå );
 
  ENTRY Exclude
   (IN  devName : fullId
    æoptional IN abortAllowed : integerå );
 
  ENTRY InitIpcSys
   (IN  vector, level : integer;
    IN  chanAddr : integer );
 
  ENTRY CreateFile
   (IN  devName : fullId;
    IN  devNo   : integer
    æoptional IN hwConfig, swConfig : integerå );
 
  ENTRY DeleteFile
   (IN  devName : fullId );
 
æ entries in the ShareClone file system å
  ENTRY WaitSignal
    (out signalType: integer);
æ ENTRY CloneControlTerm           vir å
æ   (out controlTerm: faoRefType);     å
  ENTRY CloneFileEnv
    (in  fromEnv:  refFileEnv;
     out toEnv:    refFileEnv);
 
æ$Eå
  OBJECT Fao;
    TYPE
      bufRef = ^^ÆÅ dataBlock;
 
    ENTRY ReadSeq
     (IN  segment : bufRef;
      OUT byteCount : integer );
 
    ENTRY WriteSeq
     (IN  segment : bufRef;
      OUT byteCount : integer );
 
    ENTRY ReadRandom
     (IN  segment : bufRef;
      OUT byteCount : integer;
      IN  pos : integer;
      OUT actualPos : integer );
 
    ENTRY WriteRandom
     (IN  segment : bufRef;
      OUT byteCount : integer;
      IN  pos : integer;
      OUT actualPos : integer );
 
    ENTRY Seek
     (IN  baseMode : baseType;
      IN  offset : integer;
      OUT pos : integer );
 
    ENTRY SetMode ;
 
    ENTRY GetFileInf
     (OUT ioSys : ioSysRefType;
      OUT localId : integer;
      OUT fileName : fullId;
      OUT devClass : devType;
      OUT bytesAllocated : integer;
      OUT dataBytes : integer;
      OUT minBufSize : integer;
      OUT cylSize : integer );
 
    ENTRY SetRights
     (IN  ioRights : ioType );
 
    ENTRY CheckRights
     (IN  ioRights : ioType );
 
    ENTRY MoveRights
     (IN  newFao : faoRefType );
 
    ENTRY NewLink
     (IN  newFileName : fullId );
 
    ENTRY AllocSize
     (IN  bytesAllocated : integer
      æoptional IN volume : shortIdå );
 
    ENTRY DataSize
     (IN  dataBytes : integer );
 
    ENTRY WaitBreak ;
 
    ENTRY WaitReady ;
 
æentry in Clone objectå
    ENTRY Dup
      (out dupClone: faoRefType);
 
  END;  æFaoå
 
æ$Eå
  OBJECT FileScanObj;
 
    ENTRY GetDescr
     (OUT fileName : fullId;
      OUT devClass : devType
      æoptional OUT bytesAllocated : integerå
      æother optional parameters may be definedå );
 
    ENTRY GetClear
     (OUT fileName : fullId;
      OUT devClass : devType
      æoptional OUT bytesAllocated : integerå
      æother optional parameters may be defindeå );
  END;  æScanObjå
 
æ$Eå
 
æ***** IO-SYS CONSTANTS *****å
æ****************************å
 
CONST
  IoFamily         = 4;
 
æioTypeså
  NoRights         = 0;
  ReadRight        = 1;
  WriteRight       = 2;
  ReadWriteRight   = 3;
 
æmode typeså
  Image            = 0;
  Unix             = 1;
  Formatted        = 2;
 
æbaseTypeså
  FromStart        = 0;
  FromCurrentPos   = 1;
  FromEnd          = 2;
 
æcreateTypeså
  NewOrOld         = 0;
  OldFile          = 1;
  NewFile          = 2;
 
ædeleteTypeså
  NoDelete         = 0;
  DeleteIfUnused   = 1;
  Delete           = 2;
 
ædevTypeså
  Disc             = 0;
  Terminal         = 1;
 
æresult valueså
  NoVolumeSpace    = 1;
  NoDirectorySpace = 2;
  FileNotFound     = 3;
  FileNameExists   = 4;
  VolumeNotFound   = 5;
  RightsOccupied   = 6;
  PosOutsideRange  = 7;
  PhysIoError      = 8;
  VolumeFormatError= 9;
  BreakPending     = 10;
  NoIoRight        = 11;
 
END;  æioSyså
 
æ End IoSysFamily Description å
 
«eof»