DataMuseum.dk

top - metrics - download

    Length: 6144 (0x1800)
    Types: TextFile
    Names: »UNIXFS.ID«

└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »UNIXFS.ID« 
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »UNIXFS.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 UNIX IoSysFamily Interface. Ver. 2.07 - 83-11-25. å
æ**************************************************************å
 
OBJECT UnixFs;
  TYPE
    ioSysRefType  = ^^ UnixFs;
    faoRefType    = ^^ Fao;
    fScanRefType  = ^^ FileScanObj;
 
    ioType        = integer;
    baseType      = integer;
    createType    = integer;
    deleteType    = integer;
    devType       = integer;
 
  ENTRY Assign
    (OUT ownedFao : faoRefType;
     IN  pathName : fullId;
     IN  ioMode   : ioType
     æoptional IN createMode : createTypeå
     æoptional IN volume : shortIdå      );
 
æ PRIVATE Close
    (IN  ownedFao : faoRefType;
     IN  faoEnv : refEnv );
å
 
  ENTRY InitFileScan
    (OUT scanObj : fScanRefType;
     IN  partialFileName : partialId);
 
  ENTRY RenameFile
    (IN  pathName : fullId;
     IN  newPathName : fullId );
 
  ENTRY CreateLink
    (IN pathName : fullId;
     IN newPathName : fullId );
 
  ENTRY DeleteLink
   (IN  pathName : fullId );
 
  ENTRY Include
   (IN  devName : fullId;
    IN  rootName : fullId
    æoptional IN readOnly : integerå );
 
  ENTRY Exclude
   (IN  devName : fullId
    æoptional IN abortAllowed : integerå );
 
 
æ$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 minBufSize : integer;
      OUT cylSize : integer );
 
    ENTRY SetRights
     (IN  ioRights : ioType );
 
    ENTRY CheckRights
     (IN  ioRights : ioType );
 
    ENTRY MoveRights
     (IN  newFao : faoRefType );
 
    ENTRY NewLink
     (IN  newPathName : fullId );
 
    ENTRY AllocSize
     (IN  bytesAllocated : integer
      æoptional IN volume : shortIdå );
 
    ENTRY DataSize
     (IN  dataBytes : integer );
 
    ENTRY WaitBreak ;
 
    ENTRY WaitReady ;
 
    ENTRY Dummy; æ To avoid conflicts with ShClFs å
 
    TYPE
      fStatRec = RECORD
          stDev   : word;
          stIno   : word;
          stMode  : word;
          stNLink : word;
          stUId   : word;
          stGId   : word;
          stRDev  : word;
          stSize  : long;
          stATime : long;
          stMTime : long;
          stCTime : long;
        END;  æfStatRecå
 
      pFStatBuf = ^^fStatRec;
 
    ENTRY FStat
     (IN  stBuf : pFStatBuf );
 
 
  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;
  ReadMode         = 1;
  WriteMode        = 2;
  ReadWrite        = 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;
 
æparameter numbers for error resultså
  Reject           = -1;
  entryA           = 2;
  fNameArg         = -1;
  dNameArg         = -1;
  baseArg          = -1;
  sizeArg          = -1;
  ioModeArg        = -2;
  newFileArg       = -2;
  posArg           = -2;
  offsetArg        = -2;
  createArg        = -3;
 
æauxCause values for error resultså
  deviceClass      = 50;
  driverObjKind    = 51;
  devTabLimit      = 52;
  volAlreadyInclud = 53;
  volNotIncluded   = 54;
  dirNotPermanent  = 55;
  dirWriteNotAllow = 56;
  dirNotEmpty      = 57;
  notDataFile      = 58;
  noInode          = 59;
  notSameDevice    = 60;
  nameFormat       = 61;
  illIoMode        = 62;
  illCreateMode    = 63;
  notDirFile       = 64;
  noReadReserv     = 65;
  noWriteReserv    = 66;
  illBaseMode      = 67;
  posNegative      = 68;
  cutSizeIllegal   = 69;
  notUnixDisc      = 70;
  notUnixFs        = 71;
  notImplemented   = 72;
  filesOpen        = 73;
  dirUnknown       = 74;
 
 
END;  æioSyså
 
æ End IoSysFamily Description å
«eof»