YodelData.mesa
Last Edited by: Hagmann, January 23, 1985 3:48:25 pm PST
DIRECTORY
AlpineEnvironment,
AlpineFile,
AlpTransaction,
Buttons,
IO,
MBQueue,
Rope,
RPC,
ViewerClasses;
YodelData: CEDAR DEFINITIONS = BEGIN
ROPE: TYPE = Rope.ROPE;
MyData: TYPE = REF MyDataObject;
MyDataObject:
TYPE =
MONITORED
RECORD[
in: IO.STREAM,
out: IO.STREAM,
q: MBQueue.Queue,
level: { user, fileProperties, ownerProperties, administrator } ← user,
assertWheel: BOOL ← FALSE,
breakLocks: BOOL ← FALSE,
stopFlag: BOOL ← FALSE,
displayOptions: BOOL ← FALSE,
displayProperties: AlpineFile.PropertySet,
topChild,
kids,
user,
password,
srcServer,
destServer,
srcFile,
destFile,
script: ViewerClasses.Viewer ← NIL,
maxW: INTEGER,
maxBW: INTEGER,
buttH: INTEGER,
oByteLength, oHighWaterMark, oStringName, oReadAccess, oModifyAccess, oOwner, oSize, oCreateAccessList, oRootReadAccess, oRootModifyAccess, oQuota: ViewerClasses.Viewer ← NIL];
AlpineFile.PropertySet to ROPE conversions
PropertySetToRope:
TYPE =
RECORD [
property: AlpineEnvironment.Property,
propertyName: ROPE
];
NumberOfAlpineProperties: INT = 8 ;
PropertySetToRopeArray: ARRAY [0..NumberOfAlpineProperties) OF PropertySetToRope ;
Exported Procedures from YodelRoot
CreateButtons: PROC[d: MyData, parent: ViewerClasses.Viewer];
Exported Procedures from YodelUser -> for internal Yodel use
ListFilesProc: Buttons.ButtonProc;
DeleteFilesProc: Buttons.ButtonProc;
CopyFilesProc: Buttons.ButtonProc;
FullCopyFilesProc: Buttons.ButtonProc;
OptionsProc: Buttons.ButtonProc;
ChangeOptionsProc: Buttons.ButtonProc;
hasPattern: SAFE PROC [pattern: ROPE] RETURNS [BOOL];
ParseSArgs: PROC [ d: MyData] RETURNS [user, password, srcServer, srcDir, srcFile: ROPE];
DecomposePattern: PROC [server: ROPE, pattern: ROPE, user: ROPE]
RETURNS [directory, restOfPattern: ROPE];
Exported Procedures from YodelSignals
PerformProc: TYPE = PROC [trans: AlpTransaction.Handle, caller: AlpineEnvironment.Principal, key: RPC.EncryptionKey] RETURNS [LIST OF REF ANY];
PerformOp: PROC[ performProc: PerformProc, server: ROPE, user: ROPE ← NIL,
password: ROPE ← NIL] RETURNS [LIST OF REF ANY];
Exported Procedures from YodelProperties
ExamineProc: Buttons.ButtonProc;
ApplyProc: Buttons.ButtonProc;
QuotaProc: Buttons.ButtonProc;
GetOwnerPropertiesProc: Buttons.ButtonProc;
PutOwnerPropertiesProc: Buttons.ButtonProc;
Exported Procedures from YodelAdministrator
ChangeAssertWheel: Buttons.ButtonProc;
ChangeBreakLocks: Buttons.ButtonProc;
CreateOwnerProc: Buttons.ButtonProc;
DestroyOwnerProc: Buttons.ButtonProc;
WriteQuotaProc: Buttons.ButtonProc;
ListOwnersProc: Buttons.ButtonProc;
ReadDBPropertiesProc: Buttons.ButtonProc;
END.