(cedar-directory "Rope")
(define-ref-type "Scheme" "Symbol")
ROPE: TYPE ~ Rope.ROPE;
(cedar-imports "CedarProcess")
(define-enum-type "CedarProcess" "Priority" (background normal foreground excited real-time))
(define-proc (set-priority priority)
"sets priority (background normal foreground excited real-time), returns old priority level"
result _ SymbolForPriority[CedarProcess.GetPriority[]];
CedarProcess.SetPriority[ThePriority[priority]];
)
(cedar-imports "ThisMachine" "ProcessorFace")
(define-proc (This-Machine-Name (namespace))
"Returns a string; namespace is 'arpa, 'xns, 'pup, ..."
result _ StringFromRope[ThisMachine.Name[SELECT namespace FROM $arpa => $Arpa, $xns => $XNS, $pup => $Pup, undefined => NIL, ENDCASE => TheSymbol[namespace]]];
)
(define-proc (This-Machine-Address (namespace))
"Returns a string; namespace is 'arpa, 'xns, 'pup, ..."
result _ StringFromRope[ThisMachine.Address[SELECT namespace FROM $arpa => $Arpa, $xns => $XNS, $pup => $Pup, undefined => NIL, ENDCASE => TheSymbol[namespace]]];
)
(define-proc (This-Machine-ID)
"Returns a string like \"1-435-140-188\""
result _ StringFromRope[ThisMachine.ProcessorID[$Decimal]];
)
(define-proc (This-Machine-Type)
"Returns 'sun3, 'sun4, ..."
result ¬ ProcessorFace.GetProcessorTypeName[ProcessorFace.GetProcessorType[]];
)
(cedar-imports "SafeStorage")
(define-proc (bytes-allocated)
"number of words allocated since the beginning"
RETURN [MakeFixnum[SafeStorage.CurrentByteCount[]]];
)
(define-proc (gc (trace-and-sweep?))
"call the garbage collector"
SafeStorage.ReclaimCollectibleObjects[suspendMe: TRUE, traceAndSweep: traceAndSweepP=true];
)
(cedar-imports "ViewerTools")

(define-proc (get-selection-contents)
"Return the contents of the Tioga selection as a string."
result _ StringFromRope[ViewerTools.GetSelectionContents[]];
)

   ¨  
CommandTool.mx
Copyright س 1989, 1991 by Xerox Corporation.  All rights reserved.
Created by Michael Plass, April 11, 1989 3:29:11 pm PDT
Michael Plass, January 30, 1992 2:34 pm PST
Last changed by Pavel on April 2, 1990 3:18 pm PDT
Documentation
A completely bogus name, this has nothing to do with the CommandTool anymore.  Just a few odds and ends ...
Common types
CedarProcess
ThisMachine
SafeStorage
ViewerTools
‌تچ  •NewlineDelimiter
–(mixmaster) style™ codeڑœ™Kڑœ
دeœ7™BKڑœ7™7K™+K™2Ihead2™Idefault™kL™MڑœدnœکMڑœ‍œک#Icedarڑدkœںœںœک—™MڑœکMڑœ]ک]ڑœ‍œ
ک$Mڑœ\ک\Kڑœ7ک7Kڑœ0ک0Mڑœک——™Mڑœ-ک-ڑœ‍œک,Mڑœ7ک7Kڑ	œ)ںœںœ:ںœںœکںMڑœک—ڑœ‍œک/Mڑœ7ک7Kڑ	œ,ںœںœ:ںœںœک¢Mڑœک—ڑœ‍œکMڑœ)ک)Kڑœ;ک;Mڑœک—ڑœ‍œک MکKکNMڑœک——™MڑœککMڑœ/ک/K•StartOfExpansion9[suspendMe: BOOL _ TRUE, traceAndSweep: BOOL _ FALSE]ڑںœ.ک4Mڑœک—ڑœ‍œک$MڑœکK–9[suspendMe: BOOL _ TRUE, traceAndSweep: BOOL _ FALSE]ڑœ1ںœ&ک[Mڑœک——™JکJک schemeڑœدbœک%Jک9Nک<Oک——Oک — …—      O  