Copyright (C) 1984, 1985 Xerox Corporation. All rights reserved.

Michael Plass, August 22, 1985 3:50:50 pm PDT

Jim Gasbarro, March 8, 1985 11:39:14 am PST

Russ Atkinson (RRA) June 21, 1985 1:05:20 pm PDT

Spreitzer, September 4, 1985 4:41:47 pm PDT

Basics USING [LongNumber],

BasicTime USING [GMT],

GVBasics USING [Password],

IO USING [STREAM],

Rope USING [ROPE];

~ BEGIN

GMT: TYPE ~ BasicTime.GMT;

LongNumber: TYPE ~ Basics.LongNumber;

LORA: TYPE = LIST OF REF ANY;

ROPE: TYPE ~ Rope.ROPE;

LOR: TYPE ~ LIST OF ROPE;

STREAM: TYPE ~ IO.STREAM;

UserNameAndPassword: TYPE ~ RECORD [

FileName: TYPE ~ RECORD [local, remote: ROPE];

nilFileName: FileName ~ [NIL, NIL];

NameMapping: TYPE ~ RECORD [local, remote: ROPE];

NameMapList: TYPE ~ LIST OF NameMapping;

NameMapDirection: TYPE ~ {localToRemote, remoteToLocal};

BothFromOne: PROC [oneName: ROPE, direction: NameMapDirection] RETURNS [both: FileName];

StartSingle: PROC;

StopSingle: PROC;

CurrentVersion: PROC [name: ROPE] RETURNS [version: INT ← 0];

END.