-- BareBringOver.Mesa, last edit January 3, 1983 6:10 pm
DIRECTORY
DFSubr: TYPE USING[DFSeq, UsingSeq],
Space: TYPE USING[Handle],
Subr: TYPE USING[TTYProcs];
BareBringOver: DEFINITIONS = {
State: TYPE = LONG POINTER TO StateRecord;
StateRecord: TYPE = RECORD[
mustconfirm: BOOL ← TRUE, -- /a
justObjects: BOOL ← FALSE, -- /b
forceRetrieval: BOOL ← FALSE, -- /f
publicOnly: BOOL ← FALSE, -- /p
justReadOnlys: BOOL ← FALSE, -- /r
justSources: BOOL ← FALSE, -- /s
updateOnly: BOOL ← FALSE, -- /u
verify: BOOL ← FALSE, -- /v
justNonReadOnlys: BOOL ← FALSE, -- /w
-- state
quit: BOOL ← FALSE,
useCIFS: BOOL ← TRUE
];
CheckThisFile: SIGNAL[checkfilename: LONG STRING];
RecursiveLoop: SIGNAL[loopfilename: LONG STRING];
BringOverDF: PROC[dfseq: DFSubr.DFSeq, state: State, ldspace: Space.Handle,
h: Subr.TTYProcs];
FreeUsingSeqWithError: PROC[newUsing: DFSubr.UsingSeq];
}.