DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦c5756d6ee⟧ TextFile

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »extractinp«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
            └─⟦this⟧ 

TextFile


 *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* *ps*
*qr*
1908-10-27
Anders Lindgård
*nl1*
*ct*
extract
*nl1*
*rj**np*
Utility program for handling contract files.
It can extract a file (or number of files) from contract files
with scope user without specifying the contract files.
It can extract all files from a given contract file.
Further files may be printed on a printer using the PRIMO module.
*ns 1,2,Example:*
        --------*nl*
The call:*nl*
lp=extract myfile*nl*
search through all contract files with scope user (content=10).
If "myfile" is found, it will be created with scope day and
further printed on the printer lp.
*ns 1,2,Call:*
        -----
*sj*
<printer>=extract <specifications>
<printer>::=<empty>/<filedescriptor>
*rj*
If the printer specification is non empty it is checked that
the filedescriptor describes a printer.
*sj*
<specifications>  ::=<allspec>/<fromspec>/<filelist>
        <allspec> ::=all.<contract file name>
        <fromspec>::=from.<contract file name> <filelist>
        <filelist>::=<filename>/<filelist>
*rj*
A <contract file name> must describe an existing file with
content=10.
*rj*
*ns 1,2,Function:*
        ---------*nl*
*np*
The program extract files from contract files. The files are
created with scope day if possible else with scope login.
*np*
If a left side is given in the call this assumed to describe
a printer and the files extracted are printed on that 
printer using the PRIMO moule.
*np*
If "all.<contract file name>" is specified then all files
on that contract file are extracted.
*np*
If "from.<contract file name>" is specified then the files
given in the filelist are extracted from that contract file. "extract from.--- " is in most
cases much faster than "contract from.--- ".
*np*
If only a <filelist> is specified then the program searches
through all contract files with scope user and those found
are extracted. If two contracted files have the same names it is
unpredictable which one is extracted.
*np*
It is mush faster to use <fromspec> than just a <filelist>
as the program in the latter case also has to scan the
main catalog to find the contract file.
*ns 1,2,Storage requirements:*
        ---------------------*nl2*
As for a normal ALGOL program.
*ns 1,2,Error messages:*
        ---------------*nl1*
*se?*
?sj?
***extractfile printer error <printer>
  <printer> did not describe a printer
***<contractfile> does not exist
  In "from" or "all" the contract file specified does not exist or
  some other serious error.
***<contractfile> is not a contract file
  In "from" or "all" the contract file specified does not have
  content=10.
**<filename> not found
  The file name was not found in the specified contract file (from)
  or not in any contract file (filelist only). Warning.
**<filename> create entry result <result>
  The file <filename> could not be created. The result of create 
  entry is shown. The file is not copied. Warning.
**<filename> set entry base
  The entry base of <filename> could not be set with user base.
  Filename will probably be on login scope. Warning.
?rj?
?se*?
*lm0*
*ns 1,2,Language: ALGOL*
        ---------*nl*
*ns 1,2,Maintenance level: user*
        ------------------*nl1*
*ef*
▶EOF◀