|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »disccopyinp«
└─⟦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⟧
<se *< *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* *ps*
*qr*
1978-09-17
Anders Lindgård
*nl1*
*ct*
boolean procedure disccopy
*nl1*
*rj**np*
Copies the content of one discfile to another discfile. If the input
file is greater than the outputfile no copying takes place.
The procedure is especially suited if both files are placed
on the same disc. The procedure optimizes the use of primary store and
there is no copying of data in primary store.
*nl2*
Call: disccopy(infile,outfile)*nl*
*lm55*
*mt 1, disccopy**cm 6 spaces*(return value, boolean).
true if file is copied, false otherwise.*nl*
*mt 1, infile*(call value, string). The name of
the input file.
*nl*
*mt 1, outfile*(call value, string). The name of the
resultfile.
*lm0*
*nl2**np*
The strings infile and outfile
must contain the names of existing backing store files.
*np*
In case of an error an errormessage is written on
the zone out, but the program is not terminated,
except if the resultfile cannot be used for exclusive access.
*np*
The procedure is based on the algoritm given in the RC information
note: DH770905.
*lm0**nl2*
*ns 1,2,Language: ALGOL*
---------*nl*
*ns 1,2,Maintenance level: user*
------------------*nl*
*ef*
▶EOF◀