MODULE; IMPORT CVProto, FileAttr, FileStatus, FileUpdater, Logger, Pathname, RCSDate, RCSRevNum, Rd, Receive, SupFileRec, SupMisc, Thread, TokScan, Wr; REVEAL T = Public BRANDED OBJECT tag: TEXT; date: TEXT; revNum: RCSRevNum.T; revDate: RCSDate.T; fileAttr: FileAttr.T; rcsAttr: FileAttr.T; isFixup: BOOLEAN; OVERRIDES init := Init; update := Update; END; PROCEDURE CheckoutCreator Init (self: T; tag: TEXT; date: TEXT; revNum: RCSRevNum.T; revDate: RCSDate.T; fileAttr: FileAttr.T; rcsAttr: FileAttr.T; isFixup: BOOLEAN): T = BEGIN self.tag := tag; self.date := date; self.revNum := revNum; self.revDate := revDate; self.fileAttr := fileAttr; self.rcsAttr := rcsAttr; self.isFixup := isFixup; RETURN self; END Init; PROCEDUREUpdate (self: T; sfr: SupFileRec.T; name: Pathname.T; <*UNUSED*> toAttic: BOOLEAN; <*UNUSED*> proto: CVProto.T; trace: Logger.T; protoRd: Rd.T; wr: Wr.T; VAR status: FileUpdater.Status) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted, TokScan.Error, Wr.Failure} = VAR checkoutName := SupMisc.CheckoutName(name); wantSum: TEXT; BEGIN IF self.isFixup THEN Logger.Notice(trace, " Fixup " & checkoutName); (* FIXME - If this is an update rather than a creation, we should not set the file's modTime to the revision date. *) status.updateType := FileUpdater.UpdateType.Fixup; ELSE Logger.Notice(trace, " Checkout " & checkoutName); status.updateType := FileUpdater.UpdateType.Checkout; END; self.fileAttr := FileAttr.Override(self.fileAttr, FileAttr.ForCheckout(self.rcsAttr, sfr.umask)); self.fileAttr := FileAttr.MergeDefault(self.fileAttr); wantSum := Receive.Escaped(protoRd, wr, withChecksum := TRUE); status.fs := NEW(FileStatus.T, name := name, type := FileStatus.Type.CheckoutLive, tag := self.tag, date := self.date, revNum := self.revNum, revDate := self.revDate, serverAttr := self.rcsAttr, clientAttr := self.fileAttr); status.fromAttic := FALSE; status.modified := TRUE; status.wantSum := wantSum; END Update; BEGIN END CheckoutCreator.