DIRECTORYFileIO,NameSymbolTable,NodeProps,NodeStyle,PressPrinter,Rope,TEditDocument,TextNode,TSExtras,TSJaMPageBuilder,TSObject,TSOutput,TSOutputPress,TSTranslate,TSViewer,ViewerClasses,UserCredentials,UserProfile;TSExtrasImpl: MONITORIMPORTS FileIO, NameSymbolTable, NodeProps, NodeStyle, PressPrinter, Rope, TextNode, TSJaMPageBuilder, TSOutput, TSOutputPress, TSTranslate, UserCredentials, UserProfile EXPORTS TSExtras =BEGINPrintTiogaViewer: PUBLIC ENTRY PROCEDURE [viewer: ViewerClasses.Viewer,nameForSeparatorPage: Rope.ROPE,aborted: REF BOOLEAN,server: Rope.ROPE _ NIL,copies: INT _ 1,messageProc: PROC [Rope.ROPE] _ NIL] = {ENABLE UNWIND => NULL;node: TextNode.Ref _ NARROW[viewer.data, TEditDocument.TEditDocumentData].text;outputHandle: TSOutput.Handle _ TSOutputPress.CreateWithCursor[stream: FileIO.Open["temp.press$", overwrite],documentName: nameForSeparatorPage,cursorObject: NIL];galley: TSObject.ItemList;style: NodeStyle.Ref;isAborted: PROC RETURNS [BOOLEAN] = {RETURN[IF aborted = NIL THEN FALSE ELSE aborted^]};progressProc: PressPrinter.ProgressProc = TRUSTED {IF messageProc # NIL THEN messageProc[handle.CurrentStateMessage[]];IF aborted # NIL AND aborted^ THEN handle.Abort[];};IF server = NIL THEN server _ UserProfile.Token["Hardcopy.PressPrinter", ""];[galley, style] _ TSTranslate.TreeToVlist[node];[] _ TSJaMPageBuilder.RunPageBuilder[galley: galley,style: style,output: outputHandle,abortCheckProc: isAborted,documentName: nameForSeparatorPage];outputHandle.Close[];[] _ PressPrinter.SendPressFile[fileName: "temp.press$",server: server,progressProc: progressProc,copies: copies,userName: UserCredentials.GetUserCredentials[].name];};PrintSuppliedNodes: PUBLIC ENTRY PROCEDURE [nodeProc: TSExtras.NodeProc,nameForSeparatorPage: Rope.ROPE,aborted: REF BOOLEAN,server: Rope.ROPE _ NIL,copies: INT _ 1,messageProc: PROC [Rope.ROPE] _ NIL] = {ENABLE UNWIND => NULL;outputHandle: TSOutput.Handle _ TSOutputPress.CreateWithCursor[stream: FileIO.Open["temp.press$", overwrite],documentName: nameForSeparatorPage,cursorObject: NIL];root: TextNode.Ref;node: TextNode.Ref;prevLast: TextNode.Ref _ NIL;prop: REF;galley: TSObject.ItemList;style: NodeStyle.Ref;isAborted: PROC RETURNS [BOOLEAN] = {RETURN[IF aborted = NIL THEN FALSE ELSE aborted^]};progressProc: PressPrinter.ProgressProc = TRUSTED {IF messageProc # NIL THEN messageProc[handle.CurrentStateMessage[]];IF aborted # NIL AND aborted^ THEN handle.Abort[];};InsertNode: PROCEDURE [root, node: TextNode.Ref, child: BOOL _ FALSE] = {IF child THEN {IF root.child # NIL THEN { node.next _ root.child; node.last _ FALSE }ELSE { node.next _ root; node.last _ TRUE };root.child _ node }ELSE { node.next _ root.next; node.last _ root.last; root.next _ node; root.last _ FALSE };};InsertAsLastChild: PROCEDURE [root, node, prevLast: TextNode.Ref] = {IF prevLast=NIL OR ~prevLast.last OR prevLast.next # root THENprevLast _ TextNode.NarrowToTextNode[TextNode.LastChild[root]];IF prevLast=NIL THEN InsertNode[root, node, TRUE] ELSE InsertNode[prevLast, node, FALSE];};IF server = NIL THEN server _ UserProfile.Token["Hardcopy.PressPrinter", ""];root _ TextNode.NewTextNode[];root.last _ TRUE;UNTIL (node _ nodeProc[]) = NIL DOInsertAsLastChild[root, node, prevLast];prevLast _ node;style _ NodeStyle.Create[];prop _ NodeProps.GetProp[node, $Prefix];IF prop # NIL THEN NodeProps.PutProp[node, $Prefix, Rope.Cat[NARROW[prop, Rope.ROPE]," \"",NameSymbolTable.RopeFromName[style.GetStyleName[]],"\" style"]];ENDLOOP;[galley, style] _ TSTranslate.TreeToVlist[root];[] _ TSJaMPageBuilder.RunPageBuilder[galley: galley,style: style,output: outputHandle,abortCheckProc: isAborted,documentName: nameForSeparatorPage];outputHandle.Close[];[] _ PressPrinter.SendPressFile[fileName: "temp.press$",server: server,progressProc: progressProc,copies: copies,userName: UserCredentials.GetUserCredentials[].name];};DisplayTiogaViewer: PUBLIC ENTRY PROCEDURE [viewer: ViewerClasses.Viewer,nameOfDisplayViewer: Rope.ROPE,aborted: REF BOOLEAN] = {ENABLE UNWIND => NULL;node: TextNode.Ref _ NARROW[viewer.data, TEditDocument.TEditDocumentData].text;outputHandle: TSOutput.Handle _ TSOutput.CreateViewer[nameOfDisplayViewer];galley: TSObject.ItemList;style: NodeStyle.Ref;isAborted: PROC RETURNS [BOOLEAN] = {RETURN[IF aborted = NIL THEN FALSE ELSE aborted^]};[galley, style] _ TSTranslate.TreeToVlist[node];[] _ TSJaMPageBuilder.RunPageBuilder[galley: galley,style: style,output: outputHandle,abortCheckProc: isAborted,documentName: nameOfDisplayViewer];outputHandle.Close[];};DisplaySuppliedNodes: PUBLIC ENTRY PROCEDURE [nodeProc: TSExtras.NodeProc,nameOfDisplayViewer: Rope.ROPE,aborted: REF BOOLEAN] = {ENABLE UNWIND => NULL;outputHandle: TSOutput.Handle _ TSOutput.CreateViewer[nameOfDisplayViewer];root: TextNode.Ref;node: TextNode.Ref;prevLast: TextNode.Ref _ NIL;prop: REF;galley: TSObject.ItemList;style: NodeStyle.Ref;isAborted: PROC RETURNS [BOOLEAN] = {RETURN[IF aborted = NIL THEN FALSE ELSE aborted^]};InsertNode: PROCEDURE [root, node: TextNode.Ref, child: BOOL _ FALSE] = {IF child THEN {IF root.child # NIL THEN { node.next _ root.child; node.last _ FALSE }ELSE { node.next _ root; node.last _ TRUE };root.child _ node }ELSE { node.next _ root.next; node.last _ root.last; root.next _ node; root.last _ FALSE };};InsertAsLastChild: PROCEDURE [root, node, prevLast: TextNode.Ref] = {IF prevLast=NIL OR ~prevLast.last OR prevLast.next # root THENprevLast _ TextNode.NarrowToTextNode[TextNode.LastChild[root]];IF prevLast=NIL THEN InsertNode[root, node, TRUE] ELSE InsertNode[prevLast, node, FALSE];};root _ TextNode.NewTextNode[];root.last _ TRUE;UNTIL (node _ nodeProc[]) = NIL DOInsertAsLastChild[root, node, prevLast];prevLast _ node;style _ NodeStyle.Create[];prop _ NodeProps.GetProp[node, $Prefix];IF prop # NIL THEN NodeProps.PutProp[node, $Prefix, Rope.Cat[NARROW[prop, Rope.ROPE]," \"",NameSymbolTable.RopeFromName[style.GetStyleName[]],"\" style"]];ENDLOOP;[galley, style] _ TSTranslate.TreeToVlist[root];[] _ TSJaMPageBuilder.RunPageBuilder[galley: galley,style: style,output: outputHandle,abortCheckProc: isAborted,documentName: nameOfDisplayViewer];outputHandle.Close[];};END.   ┤  TSExtrasImpl.mesaMichael Plass,  May 2, 1983 9:47 amLast Edited by: Beach, October 18, 1983 11:04 amInsertNode: PUBLIC PROC [x: Ref, child: BOOL _ FALSE] RETURNS [new: Ref] = {-- if ~child then new is sibling of x-- else new is first child of xnew _ TextNode.NewTextNode[];IF child THEN {IF x.child # NIL THEN { new.next _ x.child; new.last _ FALSE }ELSE { new.next _ x; new.last _ TRUE };x.child _ new }ELSE { new.next _ x.next; new.last _ x.last; x.next _ new; x.last _ FALSE }};new  -> nodex -> root-- if ~child then new is sibling of x-- else new is first child of xInsertAsLastChild: PUBLIC PROC [x: Ref, prevLast: Ref _ NIL] RETURNS [new: Ref] = {-- prevLast is optional acceleratorIF prevLast=NIL OR ~prevLast.last OR prevLast.next # x THENprevLast _ TextNode.NarrowToTextNode[TextNode.LastChild[x]];new _ IF prevLast=NIL THEN InsertNode[x, TRUE] ELSE InsertNode[prevLast, FALSE] };build a tree with the supplied nodes, each with the right style propertyput "styleName" Style in Prefix propertywith the tree in hand, typeset itInsertNode: PUBLIC PROC [x: Ref, child: BOOL _ FALSE] RETURNS [new: Ref] = {-- if ~child then new is sibling of x-- else new is first child of xnew _ TextNode.NewTextNode[];IF child THEN {IF x.child # NIL THEN { new.next _ x.child; new.last _ FALSE }ELSE { new.next _ x; new.last _ TRUE };x.child _ new }ELSE { new.next _ x.next; new.last _ x.last; x.next _ new; x.last _ FALSE }};new  -> nodex -> root-- if ~child then new is sibling of x-- else new is first child of xInsertAsLastChild: PUBLIC PROC [x: Ref, prevLast: Ref _ NIL] RETURNS [new: Ref] = {-- prevLast is optional acceleratorIF prevLast=NIL OR ~prevLast.last OR prevLast.next # x THENprevLast _ TextNode.NarrowToTextNode[TextNode.LastChild[x]];new _ IF prevLast=NIL THEN InsertNode[x, TRUE] ELSE InsertNode[prevLast, FALSE] };build a tree with the supplied nodes, each with the right style propertyput "styleName" Style in Prefix propertywith the tree in hand, typeset itEdited on May 16, 1983 3:47 pm, by BeachAdd PrintSuppliedNodes interface for printing Walnut message sets.Edited on October 6, 1983 5:18 pm, by Beachimplement FormatTiogaViewer and FormatSuppliedNodesЭ╩	▒  Ш JЪ╧cЩJЪЭЬЩ#JЩ0JШ Ъ╧k	Ш	JЪЬШJЪЬШJЪЬ
Ш
JЪЬ
Ш
JЪЬШJШJЪЬШJЪЬ	Ш	JЪЬ	Ш	JЪЬШJЪЬ	Ш	JЪЬ	Ш	JЪЬШJЪЬШJЪЬ	Ш	JЪЬШJЪЬШJЪЬШJШ ЧЪЬЮШJЪЮЬгЮЬШ╝JЪЮШJШ ЧЪ╧nЬЮЬЮЬЮ	ЬШ*JШJЪЬЮЬШ JЪЬ	ЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬЮШ#JЪЬЮЬЮЬЮЬШJЪЬЮЬ4ШOЪЬ?Ш?JЪЬ.Ш.JЪЬ#Ш#JЪЬЮШJЪЬШЧJЪЬШJЪЬШJЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШXЪЯЬЮЬШ3JЪЮЬЮЬЮЬ+ШDJЪЮЬЮЬЮЬ
ЮЬШ2JШЧJЪЮЬ
ЮЬЮЬ9ШMJЪЬ0Ш0Ш%JЪЬШJЪЬШJШJШJЪЬ"Ш"JШЧJШШ JЪЬШJЪЬШJЪЬШJШJШ3JШЧJШJШ ЧЪЯЬЮЬЮЬЮ	ЬШ,JЪЬШJЪЬЮЬШ JЪЬ	ЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬЮЬШ(JЪЮЬЮЬЮЬШЪЬ?Ш?JЪЬ.Ш.JЪЬ#Ш#JЪЬЮШJЪЬШЧJЪЬШJШJЪЬЮЬШJЪЬЮЬШ
JЪЬШJЪЬШJЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШXЪЯЬЮЬШ3JЪЮЬЮЬЮЬ+ШDJЪЮЬЮЬЮЬ
ЮЬШ2JШЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬЩLJЪЭ%Щ%JЪЭЩJЩЪЮЬЮЬЩJЪЮЬЮЬЮЬ"ЮЬЩ>JЪЮЬЮЬЩ'JЩЧJЪЮЬ@ЮЬЩMJЩJЩ	JЩ ЧЪЯ
ЬЮ	Ь#ЮЬЮЬШIJЪЭ%Щ%JЪЭЩЪЮЬЮЬШJЪЮЬЮЬЮЬ'ЮЬШFJЪЮЬ!ЮЬШ,JЪЬШЧJЪЮЬOЮЬШ[JШЧЪ
ЯЬЮЬЮЬЮЬЮЬЩSJЪЭ#Щ#Ъ	ЮЬ
ЮЬЮЬЮЬЮЩ;JЪЬ<Щ<ЧJЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩRJЩ ЧЪЯЬЮ	Ь)ШEЪ	ЮЬ
ЮЬЮЬЮЬЮШ>JЪЬ?Ш?ЧJЪЮЬ
ЮЬЮЬЮЬЮЬЮЬШYJШЧJЪЮЬ
ЮЬЮЬ9ШMJЩHJШJЪЬЮШЪЮЬЮЬЮШ"JЪЬ(Ш(JШJЩ(JШJЪЬ(Ш(ЪЮЬЮЬЮЬШШ*JЪЮЬЮЬШJШJШ3JШЧЧJЪЮШЧJЩ!JЪЬ0Ш0Ш%JЪЬШJЪЬШJШJЪЬШJЪЬ$Ш$ЧJШШ JЪЬШJЪЬШJЪЬШJШJШ3JШЧJЪЬШJШ ЧЪЯЬЮЬЮЬЮ	ЬШ,JШJЪЬЮЬШJЪЬ	ЮЬЮШJЪЬЮЬЮЬЮЬШJЪЬЮЬ4ШOJЪЬKШKJЪЬШJЪЬШJЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШXJЪЬ0Ш0Ш%JЪЬШJЪЬШJШJШJЪЬ!Ш!JШЧJШJШJШ ЧЪЯЬЮЬЮЬЮ	ЬШ.JЪЬШJЪЬЮШJЪЬ	ЮЬЮЬШJЪЮЬЮЬЮЬШJЪЬKШKJЪЬШJШJЪЬЮЬШJЪЬЮЬШ
JЪЬШJЪЬШJЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШXЪЯ
ЬЮЬЮЬЮЬЮЬЮЬЩLJЪЭ%Щ%JЪЭЩJЩЪЮЬЮЬЩJЪЮЬЮЬЮЬ"ЮЬЩ>JЪЮЬЮЬЩ'JЩЧJЪЮЬ@ЮЬЩMJЩJЩ	JЩ ЧЪЯ
ЬЮ	Ь#ЮЬЮЬШIJЪЭ%Щ%JЪЭЩЪЮЬЮЬШJЪЮЬЮЬЮЬ'ЮЬШFJЪЮЬ!ЮЬШ,JЪЬШЧJЪЮЬOЮЬШ[JШЧЪ
ЯЬЮЬЮЬЮЬЮЬЩSJЪЭ#Щ#Ъ	ЮЬ
ЮЬЮЬЮЬЮЩ;JЪЬ<Щ<ЧJЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩRJЩ ЧЪЯЬЮ	Ь)ШEЪ	ЮЬ
ЮЬЮЬЮЬЮШ>JЪЬ?Ш?ЧJЪЮЬ
ЮЬЮЬЮЬЮЬЮЬШYJШЧJЩHJШJЪЬЮШЪЮЬЮЬЮШ"JЪЬ(Ш(JШJЩ(JШJЪЬ(Ш(ЪЮЬЮЬЮЬШШ*JЪЮЬЮЬШJШJШ3JШЧЧJЪЮШЧJЩ!JЪЬ0Ш0Ш%JЪЬШJЪЬШJШJЪЬШJЪЬ#Ш#ЧJШJЪЬШJШ ЧJЪЮЬШЩ(JЪЬBЩBЧЩ+JЪЬ
╧rЬаЩ3JЩ ЧЧ ЕЧ    ╘  +9  