
DIRECTORY Ascii, Atom, Basics, BasicTime, CharDisplays, Commander, CommanderOps, Convert, DisplayControllers, FileNames, IO, Menus, Protocols, Rope, TermProgs, ViewerOps, ViewerTools;

TermEmCmds: CEDAR PROGRAM
IMPORTS CharDisplays, Commander, CommanderOps, DisplayControllers, FileNames, IO, Menus, Protocols, Rope, TermProgs, ViewerOps, ViewerTools

 = {OPEN CharDisplays, DisplayControllers, TermProgs;

Protocol: TYPE = Protocols.Protocol;
Conversant: TYPE = Protocols.Conversant;

Em: TYPE = REF EmRep;
EmRep: TYPE = RECORD [
termName: ROPE,
term: Term,
dc: DisplayController,
p: Protocol,
c: Conversant,
myLine: Menus.MenuLine м 0,
myEntries: MenuEntries м NIL];

MenuEntries: TYPE = REF MenuEntriesArray;
MenuEntriesArray: TYPE = ARRAY MenuEntry OF Menus.MenuEntry;
MenuEntry: TYPE = {Login, Connect, GiveUp, Disconnect, Local, Remote};

emType: Protocols.ClientType м NEW [Protocols.ClientTypePrivate м [
NoteState: NoteState]];

installationDirectory: ROPE м FileNames.CurrentWorkingDirectory[];

lastEm: Em м NIL;

MakeEm: PROC [cmd: Commander.Handle] RETURNS [result: REF м NIL, msg: ROPE м NIL] = {
termName: ROPE м "dm2500w";
displayClass: ROPE м "UnselectedFlushedBufferedTioga";
protocolName: ROPE м SELECT Basics.bitsPerWord FROM 16 => "PupTelnet", 32 => "Echo", ENDCASE => ERROR;
serverName: ROPE м NIL;
login: BOOL м TRUE;
log: BOOL м FALSE;
em: Em;
term: Term;
cdc: CharDisplayClass;
cd: CharDisplay м NIL;
dc: DisplayController м NIL;
p: Protocol;
i: INT м 1;
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd];
WHILE i < argv.argc DO
SELECT TRUE FROM
argv[i].Equal["-term"] => {termName м argv[i+1]; i м i+2};
argv[i].Equal["-display"] => {displayClass м argv[i+1]; i м i+2};
argv[i].Equal["-protocol"] => {protocolName м argv[i+1]; i м i+2};
argv[i].Equal["-host"] => {serverName м argv[i+1]; i м i+2};
argv[i].Equal["-login"] => {login м TRUE; i м i + 1};
argv[i].Equal["-connect"] => {login м FALSE; i м i + 1};
argv[i].Equal["-logRaw"] => {log м TRUE; i м i + 1};
argv[i].Equal["-dontLogRaw"] => {log м FALSE; i м i + 1};
argv[i].Length[]=0 => RETURN [$Failure, IO.PutFR1["Arg %g empty", IO.int[i]]];
argv[i].Fetch[0]='- => RETURN [$Failure, IO.PutFR1["Unrecognized switch: %g", IO.refAny[argv[i]]]];
ENDCASE => {serverName м argv[i]; i м i+1};
ENDLOOP;
IF termName.Equal["?"] THEN {
first: BOOL м TRUE;
NoteTerm: PROC [name: ROPE, term: Term] = {
IF first THEN first м FALSE ELSE cmd.out.PutRope[", "];
cmd.out.PutRope[name];
};
cmd.out.PutRope["Available Terminal Types: "];
TermProgs.EnumerateTerms[NoteTerm];
cmd.out.PutRope[".\n"];
RETURN;
};
IF displayClass.Equal["?"] THEN {
first: BOOL м TRUE;
NoteClass: PROC [cdc: CharDisplayClass] = {
IF first THEN first м FALSE ELSE cmd.out.PutRope[", "];
cmd.out.PutRope[cdc.name];
};
cmd.out.PutRope["Available Display Classes: "];
CharDisplays.EnumerateClasses[NoteClass];
cmd.out.PutRope[".\n"];
RETURN;
};
IF protocolName.Equal["?"] THEN {
first: BOOL м TRUE;
NoteProtocol: PROC [p: Protocol] = {
IF first THEN first м FALSE ELSE cmd.out.PutRope[", "];
cmd.out.PutRope[p.name];
};
cmd.out.PutRope["Available Protocols: "];
Protocols.EnumerateProtocols[NoteProtocol];
cmd.out.PutRope[".\n"];
RETURN;
};
term м TermProgs.GetTerm[termName, cmd];
IF term = NIL THEN RETURN [$Failed, IO.PutFR1["Couldn't find terminal %g", IO.rope[termName]]];
cdc м CharDisplays.GetClass[displayClass];
IF cdc = NIL THEN RETURN [$Failed, IO.PutFR1["Couldn't find display class %g", IO.rope[displayClass]]];
p м Protocols.GetProtocol[protocolName];
IF p = NIL THEN RETURN [$Failed, IO.PutFR1["Couldn't find protocol %g", IO.rope[protocolName]]];
cd м CharDisplays.Create[class: cdc, client: unchangeableClient, tipTableName: term.tipTableName, det: term.det];
dc м DisplayControllers.Create[cd, term.cp];
em м NEW [EmRep м [termName, term, dc, p]];
em.c м em.p.Instantiate[
NEW [Protocols.ClientPrivate м [
fromClient: em.dc.fromDisplay,
toClient: em.dc.toDisplay,
type: emType,
clientData: em
]],
IF log THEN "Term.RawLog" ELSE NIL
];
IF dc.cd.viewer # NIL THEN {
m: Menus.Menu м em.dc.cd.viewer.menu;
oldLines: Menus.MenuLine м em.myLine м Menus.GetNumberOfLines[m];
Menus.ChangeNumberOfLines[m, oldLines+1];
em.myEntries м NEW [MenuEntriesArray м [
Login: Menus.CreateEntry["Login", Login, em],
Connect: Menus.CreateEntry["Connect", Connect, em],
GiveUp: Menus.CreateEntry["GiveUp", GiveUp, em],
Disconnect: Menus.CreateEntry["Disconnect", Disconnect, em],
Local: Menus.CreateEntry["Local", Local, em],
Remote: Menus.CreateEntry["Remote", Remote, em]
]];
};
NoteState[em.c];
IF serverName.Length[] > 0 THEN em.p.StartConnect[em.c, serverName, login];
lastEm м em;
};

NoteState: PROC [c: Conversant] = {
em: Em = NARROW[c.client.clientData];
SetDriver[em.dc, c.driver];
IF em.dc.cd.viewer # NIL AND NOT em.dc.cd.class.Destroyed[em.dc.cd] THEN {
m: Menus.Menu м em.dc.cd.viewer.menu;
Menus.SetLine[m, em.myLine, NIL];
SELECT c.state.connectivity FROM
disconnected => {
Menus.AppendMenuEntry[m, em.myEntries[Login], em.myLine];
Menus.AppendMenuEntry[m, em.myEntries[Connect], em.myLine];
};
connecting => {
Menus.AppendMenuEntry[m, em.myEntries[GiveUp], em.myLine];
};
connected => {
Menus.AppendMenuEntry[m, em.myEntries[Disconnect], em.myLine];
};
disconnecting => {
Menus.AppendMenuEntry[m, em.myEntries[GiveUp], em.myLine];
};
ENDCASE => ERROR;
SELECT c.state.onLine FROM
FALSE => Menus.AppendMenuEntry[m, em.myEntries[Remote], em.myLine];
TRUE => Menus.AppendMenuEntry[m, em.myEntries[Local], em.myLine];
ENDCASE => ERROR;
ViewerOps.PaintViewer[em.dc.cd.viewer, menu];
SetName[em, IF c.state.connectivity=connected THEN c.serverName ELSE NIL];
};
};

SetName: PROC [em: Em, serverName: ROPE] = {
em.dc.cd.viewer.name м IO.PutFR["%g; %g; %g", IO.rope[em.termName], IO.rope[em.dc.cd.class.name], IO.rope[em.p.name]];
IF serverName # NIL THEN em.dc.cd.viewer.name м serverName.Cat["; ", em.dc.cd.viewer.name];
ViewerOps.PaintViewer[em.dc.cd.viewer, caption];
};

Login: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
serverName: ROPE м ViewerTools.GetSelectionContents[];
em.p.StartConnect[em.c, serverName, TRUE];
};

Connect: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
serverName: ROPE м ViewerTools.GetSelectionContents[];
em.p.StartConnect[em.c, serverName, FALSE];
};

GiveUp: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
em.p.GiveUp[em.c];
};

Disconnect: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
em.p.StartDisconnect[em.c];
};

Local: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
em.p.SetOnLine[em.c, FALSE];
};

Remote: PROC [parent: REF ANY, clientData: REF ANY м NIL, mouseButton: Menus.MouseButton м red, shift, control: BOOL м FALSE] --Menus.MenusProc-- = {
em: Em = NARROW[clientData];
em.p.SetOnLine[em.c, TRUE];
};

Commander.Register[key: "TerminalEmulator", proc: MakeEm, doc: "(-term (<terminal type>|?) | -display (<class>|?) | -protocol (<name>|?) | [-host] <name> | - login | -connect | -logRaw | -dontLogRaw)* --- Make a terminal emulator"];

}.
    ш  
TermEmCmds.Mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Mike Spreitzer January 22, 1987 10:30:36 pm PST
Last tweaked by Mike Spreitzer on April 4, 1990 12:37:05 pm PDT
Willie-s, June 12, 1992 1:53 pm PDT
Э╩  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ1Щ<KЩ/KЩ?KЩ#ЧKШ KЪ╧k	ЬpЮЬ<Ш╖KШ Ъ╨bx
ЬЮЬЮШKЪЮЬGЮЬ;ШЛKШ KЪЬЮЬ-Ш5KШ KЪЬ
ЮЬШ$KЪЬЮЬШ(KШ KЪЬЮЬЮЬШЪЬЮЬЮЬШKЪЬ
ЮЬШKШKШKШKЪЬШKШKЪЬЮЬШЧKШ KЪЬЮЬЮЬШ)KЪЬЮЬЮЬЮЬШ<KЪЬЮЬ7ШFKШ ЪЬЮЬ!ШCKШЧKШ KЪЬЮЬ'ШBKШ KЪЬЮЬШKШ Ъ╧nЬЮЬЮЬ
ЮЬЮЬЮЬЮЬШUKЪЬ
ЮЬШKЪЬЮЬ$Ш6KЪЬЮЬЮЬЮЬ"ЮЬЮЬШfKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬШKШKШKЪЬЮЬШKЪЬЮЬШKЪЬШKЪЬЮЬШKШ<ЪЮЬЮШЪЮЬЮЬЮШKШ:KШAKШBKШ<KЪЬ$ЮЬШ5KЪЬ&ЮЬШ8KЪЬ#ЮЬШ4KЪЬ'ЮЬШ9KЪЬЮЬЮЬЮЬ
ШNKЪЬЮЬЮЬ#ЮЬШcKЪЮЬ$Ш+ЧKЪЮЬШЧЪЮЬЮЬШKЪЬЮЬЮЬШЪаЬЮЬЮЬШ+KЪЮЬЮЬ	ЮЬЮЬШ7KШKШЧKШ.KЪЬ#Ш#KШKЪЮЬШKШЧЪЮЬЮЬШ!KЪЬЮЬЮЬШЪа	ЬЮЬШ+KЪЮЬЮЬ	ЮЬЮЬШ7KШKШЧKШ/KЪЬ)Ш)KШKЪЮЬШKШЧЪЮЬЮЬШ!KЪЬЮЬЮЬШЪаЬЮЬШ$KЪЮЬЮЬ	ЮЬЮЬШ7KШKШЧKШ)KЪЬ+Ш+KШKЪЮЬШKШЧKШ(KЪЮЬЮЬЮЬЮЬЮЬ%ЮЬШ_KШ*KЪЮЬЮЬЮЬЮЬЮЬ*ЮЬШgKШ(KЪЮЬЮЬЮЬЮЬЮЬ%ЮЬШ`KШqKШ,KЪЬЮЬ#Ш+ШЪЮЬШ KШKШKШKШKШЧKЪЮЬЮЬЮЬЮШ"KШЧЪЮЬЮЬЮЬШKШ%KШAKЪЬ)Ш)ЪЬЮЬШ(KЪЬ-Ш-KЪЬ3Ш3KЪЬ0Ш0KЪЬ<Ш<KЪЬ-Ш-KЪЬ/Ш/KШЧKЪЬШЧKЪЬШKЪЮЬЮЬ,ШKKШKШЧKШ Ъа	ЬЮЬШ#KЪЬ	ЮЬШ%KЪЬШЪ
ЮЬЮЬЮЬЮЬ$ЮЬШJKШ%KЪЬЮЬШ!ЪЮЬЮШ ШKЪЬ9Ш9KЪЬ;Ш;KШЧШKЪЬ:Ш:KШЧЪЬШKЪЬ>Ш>KШЧЪЬШKЪЬ:Ш:KШЧKЪЮЬЮЬШЧЪЮЬЮШKЪЮЬ>ШCKЪЮЬ=ШAKЪЮЬЮЬШЧKЪЬ-Ш-KЪ	ЬЮЬ ЮЬЮЬЮЬШJKШЧKШЧKШ ЪаЬЮЬЮЬШ,KЪ	ЬЮЬЮЬЮЬЮЬШvKЪЮЬЮЬЮЬCШ[KЪЬ0Ш0KШЧKШ ЪаЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬ╧cЬШФKЪЬ	ЮЬШKЪЬЮЬ&Ш6KЪЬ$ЮЬШ*KШЧKШ ЪаЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬбЬШЦKЪЬ	ЮЬШKЪЬЮЬ&Ш6KЪЬ$ЮЬШ+KШЧKШ ЪаЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬбЬШХKЪЬ	ЮЬШKЪЬШKШЧKШ Ъа
ЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬбЬШЩKЪЬ	ЮЬШKЪЬШKШЧKШ ЪаЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬбЬШФKЪЬ	ЮЬШKЪЬЮЬШKШЧKШ ЪаЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ8ЮЬЮЬбЬШХKЪЬ	ЮЬШKЪЬЮЬШKШЧKШ KЪЬшШшKШ KШЧЧ ЕЧ    Т  &М  