
DIRECTORY DFOperations, DFUtilities, IO, Rope, SymTab;

DFCachingOperations: CEDAR DEFINITIONS = {

ROPE: TYPE ~ Rope.ROPE;
InteractionProc: TYPE ~ DFOperations.InteractionProc;
SymbolTable: TYPE ~ SymTab.Ref;

BringOverCache: TYPE ~ REF BringOverCachePrivate;
BringOverCachePrivate: TYPE;

CreateCache: PROC RETURNS [BringOverCache];

BringOverAction: TYPE ~ RECORD [
enter: BOOL м TRUE,
suspicious: BOOL м FALSE,
fetch: BOOL м FALSE,
confirmEarlier: BOOL м TRUE,
confirmGlobalDestination: BOOL м TRUE,
dontDoit: BOOL м FALSE,
dfsToo: BOOL м FALSE
];

FileFilter: TYPE ~ RECORD [
fileTypes: FileTypeFilter м allFileTypes,
files: SymbolTable м NIL,
strict: BOOL м TRUE	--files#NIL AND strict => everything in files expected to be found and Miss raised for those not found
];
allFiles: FileFilter ~ [];
allFilesV: READONLY FileFilter;	-- = allFiles; for use with the interpreter

FileTypeFilter: TYPE ~ ARRAY Publicity OF ARRAY Ownership OF ARRAY Derivation OF BOOL;
allFileTypes: FileTypeFilter ~ ALL[ALL[ALL[TRUE]]];
noFileTypes: FileTypeFilter ~ ALL[ALL[ALL[FALSE]]];

Publicity: TYPE ~ Attribute[public .. private];
Ownership: TYPE ~ Attribute[defining .. imported];
Derivation: TYPE ~ Attribute[source .. derived];
Attribute: TYPE ~ {public, private, defining, imported, source, derived};

BringOver: PROC [dfFile: ROPE, filter: FileFilter м allFiles, action: BringOverAction м [], interact: InteractionProc м NIL, clientData: REF м NIL, log, errlog: IO.STREAM м NIL, workingDir: ROPE м NIL, cache: BringOverCache м NIL] RETURNS [errors, warnings, filesActedUpon: INT];

TranslateFilter: PROC [DFOperations.BringOverFilter] RETURNS [FileFilter];
TranslateAction: PROC [DFOperations.BringOverAction] RETURNS [BringOverAction];

CacheSize: PROC [BringOverCache] RETURNS [INT];

}.
  r  
DFCachingOperations.mesa
Copyright ╙ 1991 by Xerox Corporation.  All rights reserved.
Last tweaked by Mike Spreitzer on April 7, 1987 11:03:43 am PDT
Michael Plass, January 23, 1992 10:15 am PST
TRUE => enter the file as a local file
TRUE => check the server to verify remote existence of the file
TRUE => fetch the file contents (otherwise just attach)
TRUE => attaching files with earlier create dates requires confirmation
TRUE => bringing over into a global directory requires confirmation
TRUE => don't actually do anything, just test to see what needs to be done
TRUE => also bring over DF files being processed
 Э╩ъ  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬ1Щ<KЩ?KЩ,ЧKШ KЪ╧k	ЬЮЬШ6KШ Ъ╧nЬЮЬЮЬШ*KШ KЪЮЬЮЬЮЬШKЪЬЮЬ Ш5KЪЬЮЬШKШ KЪЬЮЬЮЬШ1KЪЬЮЬШKШ KЪЯЬЮЬЮЬШ+KШ ЪЬЮЬЮЬШ ЪЬЮЬЮЬШKЪЮЬ"Щ&ЧЪЬЮЬЮЬШKЪЮЬ;Щ?ЧЪЬЮЬЮЬШKЪЮЬ3Щ7ЧЪЬЮЬЮЬШKЪЮЬCЩGЧЪЬЮЬЮЬШ&KЩCЧЪЬ
ЮЬЮЬШKЪЮЬFЩJЧЪЬЮЬЮШKЩ0ЧKШЧKШ ЪЬЮЬЮЬШKШ)KЪЬЮЬШKЪЬЮЬЮЬ╧cfШzKШЧKЪЬШKЪЬЮЬа+ШKKШ KЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШVKЪ	ЬЮЬЮЬЮЬЮЬШ3KЪ	ЬЮЬЮЬЮЬЮЬШ3KШ KЪЬЮЬ Ш/KЪЬЮЬ#Ш2KЪЬЮЬ Ш0KЪЬЮЬ:ШIKШ KЪЯ	ЬЮЬ
ЮЬ[ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ$ЮЬШЧKШ KЪЯЬЮЬ ЮЬШJKЪЯЬЮЬ ЮЬШOKШ KЪЯ	ЬЮЬЮЬЮЬШ/KШ KШЧЧ ЕЧ    °  T  