CrankCrib.cm
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
-- Compile CrankTypes CrankIO CrankOps CrankAnalyze; Compile CrankIOImpl CrankOpsImpl CrankOneImpl CrankTwoImpl; Bind CrankPackage
-- PushV Commands; Install StructuredStreams; Pop; Run CrankPackage
-- Alias Crank (foo) ← CrankOneImpl.ConvertFile[fileName: "foo", structure: TRUE, analyze: FALSE, skipAttributes: NIL]
-- Alias Walk (foo) ← CrankOneImpl.WalkTree[CrankOneImpl.ParseFile["foo"]]
-- Alias Walk (foo) Copy [qv]<CLImager>Plass> ← foo.sexpr; killex [qv]<CLImager>Plass>foo.sexpr
-- Alias Walk (foo) CrankB [qv]<CLImager>PlainTextCedar>foo
-- Alias CrankB (foo) ← CrankOneImpl.ConvertFile[fileName: "foo", structure: FALSE, analyze: TRUE, skipAttributes: LIST[$DECLTYPECODE, $TYPE, $CONTEXT, $STE, $TYPECODE, $NEEDTYPECODE]]
-- Alias CrankA (foo) ← CrankOneImpl.ConvertFile[fileName: "foo", structure: TRUE, analyze: TRUE, skipAttributes: LIST[$DECLTYPECODE, $TYPE, $CONTEXT, $STE, $TYPECODE, $NEEDTYPECODE]]
-- ← CrankIOImpl.RopeFromTree[tree]!!
-- ← CrankOpsImpl.ComputeExternalTypeRep[context.types]
-- ← CrankIOImpl.RopeFromTree[ CrankOpsImpl.UnderType[typeGraph, typeCode] .ext]!!
-- ← CrankIOImpl.RopeFromTree[ CrankOpsImpl.UnderType[context.types, typeCode] .ext]!!
-- Michael Plass, September 21, 1987 5:28:51 pm PDT
-- Willie-sue, December 20, 1988 8:11:54 pm PST
-- Run NoteNewPlaintextSourcesImpl; ← NoteNewPlaintextSourcesImpl.Run[dstDirectory: "[qv]<CLImager>PlainTextCedar>", srcDirectory: "[Cedar7.0]<Imager>", query: FALSE]
-- Run UpdateSexprImpl; Alias Walk (foo) ← UpdateSexprImpl.UpdateIfDifferent["[qv]<CLImager>Plass>foo.sexpr", "foo.sexpr"]