DataMuseum.dk

top - download

    Length: 5512 (0x1588)
    Types: TextFile
    Names: »UTH.I«

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP004_V0801.D!CSS107.D!UTH.I« 

TextFile

"-----------------------------------------------------------------------
"
"  PROJECT:
"
"  MODULE NAME:      AMOS UTILITYHELP
"  MODULE ID NMB:    CSS/107
"  MODULE VERSION:   3
"  MODULE TYPE:      LINK MODULE
"  MODULE FILES:
"  MERGE  FILES:     -
"
"  SPECIFICATIONS:   -
"  AUTHOR/DATE:      PHF/820216
"
"  DELIVERABLE:      -
"  SOURCE LANGUAGE:  SWELL
"  COMPILE COMPUTER: CR80
"  TARGET COMPUTER:  CR80
"  OPER. SYSTEM:     AMOS
"
"-----------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
"  -------    -----------    ---------------------
"
"    0101      NMJ/800909      INITIAL RELEASE
"    0102      EKH/811211      SUPPORT OF DIFFERENT FILE SYSTEMS
"                              IN PARAMETERS
"    0201      PHF/820216      SUPPORT OF 'CC' DATABASE
"    0301      HS/830502       AMOS AND DAMOS VERSIONS ARE 'MERGED'
"                              TOGETHER.
"    0302      PHF/840507      The proper filename is given when
"                              OPENFILE cannot find a file.
"
"-----------------------------------------------------------------------
"PAGE«ff»


" IMPORT " TYPE
  FILETYPE=
    RECORD
      NAME: FILE_NAME;
      S: INTEGER;
      F: FD;
    END;

IMPORT VAR
  DEFAULT_FSN: FILE_SYSTEM_NAME; "DEFAULT FILE SYSTEM NAME
  DEFAULT_VOL: VOLUME_NAME;      "DEFAULT VOLUME NAME
  PFILETYPE: FILETYPE;           "PARAM FILE DESCR
  DFILETYPE: FILETYPE;           "CURR DIREC FILE DESCR
  CINFILETYPE: FILETYPE;         "CURR INPUT FILE DESCR
  COUTFILETYPE: FILETYPE;        "CURR OUTPUT FILE DESCR

  PROG_ID :
  RECORD
    P_FSN     : FILE_SYSTEM_NAME;
    P_VOL     : VOLUME_NAME;
    P_NAMELIST: NAMELISTTYPE;
    P_NAMENO  : INTEGER;
    P_FROMADAM: INTEGER;  " 0 = NO "
  END;

"PAGE«ff»


IMPORT PROCEDURE FILEERROR
"========================"
               (R4;  "FILE TYPE ADDR
                R5;  "TEXT ADDR (CALL)
                R7;  "COMPLETION CODE (CALL)
                R6); "LINK



IMPORT PROCEDURE INITFILETYPE
"==========================="
               (R4;  "FILE TYPE ADDR
                R5;  "NAME ADDR
                R7;  "FILE NO (CALL)
                R6); "LINK



IMPORT PROCEDURE OPENFILE
"======================="
               (R4;  "FILE TYPE ADDR
                R0;  "FILE SYSTEM NAME ADDR
                R1;  "VOLUME NAME ADDR
                R2;  "NAME NO (CALL)
                R3;  "FROM ADAM (0 = NO)
                R5;  "NAME LIST ADDR
                R7;  "DIRECTORY (CALL)
                R6); "LINK



IMPORT PROCEDURE DISMANTLEFILE
"============================"
               (R4;  "FILE TYPE ADDR
                R6); "LINK



IMPORT PROCEDURE OPENSTREAM
"========================="
               (R4;  "FILE TYPE ADDR
                R3;  "MODE (CALL)
                R6); "LINK



IMPORT PROCEDURE CLOSESTREAM
"=========================="
               (R4;  "FILE TYPE ADDR
                R6); "LINK



IMPORT PROCEDURE INB
"=================="
               (R4;  "FILE TYPE ADDR
                R3;  "BYTE (RETURN)
                R6); "LINK



IMPORT PROCEDURE OUTB
"==================="
               (R4;  "FILE TYPE ADDR
                R3;  "BYTE
                R6); "LINK

"PAGE«ff»

IMPORT PROCEDURE ACCEPTFILES(R6);  " ALL REGISTERS DESTROYED
"=========================="
" RECEIVE THE MESSAGE CONTAINING THE FILE SYSTEM NAME, AND
" ACCEPT THE PARAMETER FILE.
" AT RETURN THE FILE IS DESCRIBED IN THE VARIABLE PFILETYPE.

"PAGE«ff»
IMPORT PROCEDURE READKEYWORD
"=========================="
               (KEYWORDSIZEINWORDS,
                NOOFSIGNIFICANTBYTES,
                TOPOFKEYWORDS: INTEGER;
                R0;  "KEY WORD INDEX (RETURN)
                R4;  "ADDRESS OF KEYWORD TABLE
                R6); "LINK
" READ A KEYWORD TEXT FROM THE THE PARAMETER FILE (INCL. TRAILING
" SPACES AND ':' OR '=').
" FIND A MATCHING ENTRY IN THE KEYWORD TABLE DESCRIBED IN THE PARAMETERS.
" A MATCH IS FOUND IF THE FIRST 'NOOFSIGNIFICANTBYTES' - 1 AND THE LAST
" CHARACTER OF THE KEYWORD IS EQUAL TO THE CORRESPONDING CHARACTERS
" OF THE KEYWORD TABLE ENTRY ( A (:127:) MATCHES ALL CHARACTERS).
" IF A '/' IS MET ON THE PARAMETER STREAM, IT WILL BE INTERPRETED AS
" A REPETITION OF THE PREVIOUS KEYWORD.
" TWO ENTRIES ARE USED FOR SPECIAL PURPOSES:
"    INDEX 0             IS RETURNED IF AN UNKNOWN KEYWORD IS READ
"                        (THE KEYWORD IS STORED IN THE ENTRY)
"    INDEX TOPOFKEYWORDS IS RETURNED IF EOF IS MET
"                        (THE ENTRY DOESN'T HAVE TO EXIST)

"PAGE«ff»
IMPORT PROCEDURE READSYSPARAMS(R6); "ALL REGISTERS DESTROYED
"============================"
" OPEN A STREAM TO THE PARAMETER FILE.
" READ THE FIRST LINE ( INCL. NL ) OF THE FILE, AND PREPARE THE
" CDIR, CIN AND COUT FILES FOR FILE ACCESS
" ('DFILETYPE', 'CINFILETYPE', 'COUTFILETYPE').
" IN ADDITION A STREAM IS CONNECTED TO THE COUT FILE.
" THE DEFAULT VOLUME NAME IS STORED IN 'DEFAULT_VOL'.

"PAGE«ff»
IMPORT PROCEDURE LOOKUP_ERROR_TEXT
"================================"
    (R3;  "C K  @ ERROR_TEXT SAVE AREA ( 132 CHAR = 66 WORDS)
     R7;  "C K  COMPLETION CODE
     R6): "LINK
     ERROR_DONE;
" THE COMPLETION CODES MUST BE PLACED IN A FILE 'CC.T'
" A POINTER TO THE CC NUMBER N MUST BE PLACED IN DOUBLEWORD
" N+1 OF 'CC.X'
"
" BOTH FILES ARE SOUGHT IN THE SAME DIRECTORY AS THE PROGRAM
" THE FILES ARE OPENED IF NECESSARY
"
" DONE: THE ERROR TEXT IS DELIVERED IN 'ERROR_TEXT'
"
" ERR:  I/O ERROR OR UNKNOWN COMPLETION CODE «a5»