⟦74f0eaaca⟧

TextFile

(contractman=compose
global contractman
finisb)
*pl 297,25,270,0,0**pn 0,0*
*lw 170**ps 0**sj*
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
*nl4*
*ct*
HCØ RC8000 program library
CONTRACT SYSTEM
*nl8*
Geodætisk Systemgruppe
*sj* *nl19**lm 120*
80/5 *lm120**nl*
1980-12-04
updated by
Anders Lindgård
*nl*
*rj**pn 5,0**ps 18*
*lm0*
*sj*

pack/unpack/offpack/listpack (<name>)0/8388607

all programs uses a contractfile on user scope with the name

_        pack<initials>

where <initials> is the users initials in usercat.

the program contract may be used on the same file.

function
********

pack      the <name> list is contracted on pack<initials>,
_         and the file is initialized on disc3, if not found.
_         The init call as in contract is not needed.

unpack    the <name> list is contracted from pack<initials>

offpack   the <name> list is deleted from pack<initials>

listpack  the content of pack<initials> is listed

exsample of pack<initials>
**************************
the user logs in as : ke 
the pack<initials> is then :  packke

call of program :

contract <prog>.<file>(.<bs>)0/1 <params> 0/1

<prog> ::=  init/on/clear/list/all/from/temp/set/proc/text

function of program :

init  : The contractfile <file> is initiated on
_       (if <bs> specified then <bs> else disc3) bs_device.
_       no further <params> are allowed.
_       The <file> may not exist in the catalog.

on    : The contractfile <file> is extended by the entries
_       specified in <params> and if <bs> is specified then
_       moved to that bs_device.
_       if an entry from <params> exists in <file>_catalog
_       then is the <file>_catalog entry replaced.
_       no activity take place when claims are exceeded.
_       any kind of entry may be contracted.
_       in case of break_actions the old file is still present
_       or in worst case the updated file as a wrk_name.

clear : The entries in <params> is removed from the contract-
_       file <file> catalog.
_       when the catalog becommes enpty the <file> is removed.

list  : The contractfile <file> catalog is listed in short form.

all   : The contractfile <file> catalog is listed format as
_       lookup.

from  : The entries in <params> are contracted from contractfile
_       <file> and set on the original backing storage on day
_       scope. If the claims on the original bs is exceeded then
_       is the entry set on main bs.
-       If <params> is not specified all files are extracted.
_       If claims are exceeded no entry is set.

temp  : As from but with temp scope.

set   : The entries in <params> are set on main bs with temp
_       scope as a refer to the contractfile <file> :
_             <param> = set bs <file> <date> <file_no> <segm> . . .
-       If <params> is not specified all entries for text files
-       are set.
_       Warning procedures may not be set and any procedure named
_       ******* in <params> is considered unknown.

proc  : All procedures in the contractfile <file> catalog is
_       contracted as called by temp. No <params> used.

text  : All textfiles in the contractfile <file> catalog is con-
_       tracted as called by set. No <params> used.

contractfile organization :
+++++++++++++++++++++++++

<file> == <catalog> <content>

<catalog> == <c_segm> 1:((entries+14)//15)

<c_segm> == <head and tail> 1:15, <entries> 

<head and tail> length 34 bytes :
_     integer    content
_      1         (content position) shift 18 ,max pos = 262145
_                (head_and_tail(1) extract 3)
_      2         base low
_      3         base high
_      4:7       entryname
_      8         length or modekind
_      9:12      document name
_     13:17      last of tail

<entries> ==  total entries in contractfile

<content> == (<entry>)
_            1 : (no of entries where head_and_tail(8) > 0)
<entry content> == (<segment>) head_and_tail(1) shift (-6) :
_         head_and_tail(8)-1+head_and_tail(1) shift (-6)
*ef*
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦74f0eaaca⟧ TextFile

Derivation

TextFile
