337 lines
66 KiB
Plaintext
337 lines
66 KiB
Plaintext
(FILECREATED " 9-Sep-94 13:56:40" ("compiled on " {DSK}<lispcore>lispusers>MATHSERVER.;1)
|
||
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
|
||
(FILECREATED "15-Apr-87 10:54:01" {IVY}<BLOOMBERG>LISP>MATHSERVER.;1 129647 changes to: (METHODS
|
||
Server.ExecuteCommandFile) (FNS Server.ExecuteCommandFile MS.TopLevel MS.ExpandFilename
|
||
MS.SubmitBatchJob MS.RunInteractiveJob MS.Compile MS.Link MS.CompileLink MS.CompileLinkRun
|
||
MS.StartDefaultFE) (VARS MATHSERVERCOMS) previous date: "12-Dec-86 19:13:28"
|
||
{PHYLUM}<LISPUSERS>KOTO>MATHSERVER.;1)
|
||
MS.TopLevel D8
|
||
(P 3 side P 2 messageWindow P 1 menuRegion P 0 menuWindow) ” @nÖd
|
||
Xdg
|
||
H
|
||
H ÉY jdlÈl– o hi Zg [H g ð•g »JHKg Hg J Hg g H h (144 OPENW 138 PUTWINDOWPROP 122 PUTWINDOWPROP 110 ATTACHWINDOW 84 MS.MostRoom 71 CREATEW 59 CREATEREGION 43 MS.MakeMenuOfKnownHosts 35 \INSUREWINDOW 29 FM.CHANGESTATE 23 FM.ITEMFROMID 11 MS.CreateFreeMenu)
|
||
(133 MS.MakeIconWindow 128 ICONFN 116 MessageWindow 105 JUSTIFY 96 RIGHT 89 LEFT 77 LEFT 48 MS.HostPopMenu 18 QUEUE)
|
||
( 64 "Message Window")
|
||
MS.CreateFreeMenu D8
|
||
(I 1 BOTTOM I 0 LEFT) † o o o o o o o o o o o o o o o g g o g @g Ahh (131 FM.FORMATMENU)
|
||
(100 BOTTOM 94 LEFT 84 TITLE 79 WINDOWPROPS)
|
||
( 89 "Server Menu" 74 ((TYPE TITLE LABEL SERVERBROWSER-Command: FONT (MODERN 12 BOLD)) (LABEL MakeBrowser SELECTEDFN MS.MakeInstances))
|
||
69 ((TYPE EDITSTART LABEL JobNumber: FONT (MODERN 12 BOLD) ITEMS (JOBNUMBER)) (TYPE EDIT ID JOBNUMBER LABEL ""))
|
||
64 ((TYPE TITLE LABEL Queue: FONT (MODERN 12 BOLD)) (TYPE NWAY ID QUEUE LABEL Fast CLASSNAME FastQueue) (TYPE NWAY ID QUEUE LABEL Medium CLASSNAME MediumQueue) (TYPE NWAY ID QUEUE LABEL Slow CLASSNAME SlowQueue))
|
||
59 ((TYPE TITLE LABEL HostName: FONT (MODERN 12 BOLD) SELECTEDFN MS.SelectHost) (TYPE TITLE ID HOST LABEL ""))
|
||
54 ((TYPE TITLE LABEL "COMPUTE SERVER HOST INFO" FONT (MODERN 12 BOLD))) 49 ((TYPE EDITSTART LABEL LinkParameters: FONT (MODERN 12 BOLD) ITEMS (LINKSTRING)) (TYPE EDIT ID LINKSTRING LABEL ""))
|
||
44 ((TYPE EDITSTART LABEL JobParameters: FONT (MODERN 12 BOLD) ITEMS (PARAMETERSTRING)) (TYPE EDIT ID PARAMETERSTRING LABEL ""))
|
||
39 ((TYPE EDITSTART LABEL DefaultDirectory: FONT (MODERN 12 BOLD) ITEMS (DEFAULTDIRECTORY)) (TYPE EDIT ID DEFAULTDIRECTORY LABEL ""))
|
||
34 ((TYPE EDITSTART LABEL Filename: FONT (MODERN 12 BOLD) ITEMS (FILENAME)) (TYPE EDIT ID FILENAME LABEL ""))
|
||
29 ((TYPE TITLE LABEL "COMPUTE SERVER FILE INFO" FONT (MODERN 12 BOLD))) 24 ((TYPE TITLE LABEL Batch-Commands: FONT (MODERN 12 BOLD)) (LABEL Submit SELECTEDFN MS.SubmitBatchJob) (LABEL Status SELECTEDFN MS.Status) (LABEL Errors? SELECTEDFN MS.BatchErrors?) (LABEL Abort SELECTEDFN MS.AbortBatchJob) (LABEL Log SELECTEDFN MS.BatchLog))
|
||
19 ((TYPE TITLE LABEL Run-Commands: FONT (MODERN 12 BOLD)) (LABEL RunInteractive SELECTEDFN MS.RunInteractiveJob) (LABEL C/L/R SELECTEDFN MS.CLR.NoCheck) (LABEL C?/L?/R SELECTEDFN MS.CLR.Check))
|
||
14 ((TYPE TITLE LABEL Compiler-Commands: FONT (MODERN 12 BOLD)) (LABEL Compile SELECTEDFN MS.Compile) (LABEL Link SELECTEDFN MS.Link) (LABEL C/L SELECTEDFN MS.CompileLink))
|
||
9 ((TYPE TITLE LABEL PlotMenu-Commands: FONT (MODERN 12 BOLD)) (LABEL SimplePlot SELECTEDFN MAPL.Simple.TopLevel) (LABEL Gen.Plot SELECTEDFN MAPL.Gen.TopLevel) (LABEL MetaPlot SELECTEDFN MAPL.Meta.TopLevel))
|
||
4 ((TYPE TITLE LABEL FortranEdit-Commands: FONT (MODERN 12 BOLD)) (LABEL StartNew SELECTEDFN MS.StartNewFE) (LABEL StartWithDefault SELECTEDFN MS.StartDefaultFE)))
|
||
MS.SelectHost D8
|
||
(P 2 server P 1 sItem P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 3 Name) å A Ag
|
||
H o H
|
||
` ZH J²VIÃ ‘IŠo I
|
||
Ég '¿IÃ ‘IŠo I
|
||
Ég J ¿IAJS
|
||
°RIÃ ‘IŠo I
|
||
Ég '¿IÃ ‘IŠo I
|
||
Ég h ¿IAo h (225 FM.CHANGELABEL 212 LISTPUT 194 ERROR 160 ERROR 138 _ 128 LISTPUT 110 ERROR 76 ERROR 53 CLEARW 46 MENU 36 PRIN1 25 CLEARW 16 FM.ITEMFROMID 5 GETPROMPTWINDOW)
|
||
(206 Host 199 FREEMENUITEM 180 FREEMENUITEM 172 Host 165 FREEMENUITEM 146 FREEMENUITEM 122 Host 115 FREEMENUITEM 96 FREEMENUITEM 88 Host 81 FREEMENUITEM 62 FREEMENUITEM 41 MS.HostPopMenu 11 HOST)
|
||
( 220 "" 188 "Arg must be FreeMenuItem" 154 "Arg must be FreeMenuItem" 104 "Arg must be FreeMenuItem" 70
|
||
"Arg must be FreeMenuItem" 30 "Select host.")
|
||
MS.ExpandFilename D8
|
||
(P 3 name P 2 defaultDirectory P 1 filename P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM) Y A 1Hg 'Ydg
|
||
[Ag
|
||
AK Ig
|
||
Zd²Ag
|
||
AJ ¿A (86 FM.READSTATE 79 FM.CHANGELABEL 72 FM.ITEMFROMID 57 UNPACKFILENAME 46 FM.CHANGELABEL 39 FM.ITEMFROMID 27 UNPACKFILENAME 5 FM.READSTATE)
|
||
(67 DEFAULTDIRECTORY 52 DIRECTORY 34 FILENAME 22 NAME 14 FILENAME)
|
||
()
|
||
MS.CloseErrorWindow D8
|
||
(P 3 item P 1 oldFile P 0 oldWindow I 0 mainWindow) < @ JµhXd´d H [g
|
||
•Kµài°ÝJZ°Ô (46 GETWINDOWUSERPROP 33 CLOSEW 27 MS.CleanupErrorFile 8 ATTACHEDWINDOWS)
|
||
(41 ERRORFILE)
|
||
()
|
||
MS.CleanupErrorFile D8
|
||
(P 0 oldFile I 0 errorWindow) . @g
|
||
Hd² ¿H ¿@g h h (42 PUTWINDOWPROP 29 DELFILE 22 CLOSEF? 10 GETWINDOWUSERPROP)
|
||
(36 ERRORFILE 5 ERRORFILE)
|
||
()
|
||
MS.AttachErrorWindow D8
|
||
(P 3 item P 1 errorWindow P 0 oldWindow I 1 title I 0 mainWindow) ] @ Jµ6hXd–@ ¿o Ahi Yd@d g g
|
||
I[g
|
||
•Kµ¿i°¼JZ°³ (79 GETWINDOWUSERPROP 65 ATTACHWINDOW 49 MS.MostRoom 40 CREATEW 26 MS.CloseErrorWindow 8 ATTACHEDWINDOWS)
|
||
(74 ERRORFILE 59 LOCALCLOSE 54 JUSTIFY)
|
||
( 32 (0 0 470 300))
|
||
MS.MostRoom D8
|
||
(P 2 rightSpace P 1 leftSpace P 0 region I 0 WINDOW) ) @ É!HYnIHÔÕdIó¥g g (5 \INSUREWINDOW)
|
||
(38 RIGHT 32 LEFT)
|
||
()
|
||
MS.GetMessageWindow D8
|
||
(I 0 WINDOW)
|
||
@g
|
||
(10 GETWINDOWUSERPROP)
|
||
(5 MessageWindow)
|
||
()
|
||
MS.MakeIconWindow D8
|
||
(I 1 OLDICON I 0 WINDOW F 0 MS.Icon F 1 MS.IconMask) Aµ PQ
|
||
(9 ICONW)
|
||
NIL
|
||
()
|
||
PrintMsg D8
|
||
(P 0 w I 1 msg I 0 place F 1 ClearPromptWindow F 2 PromptPrint) r @ Ÿ@Q
|
||
@RA @Ã ² @g
|
||
H AH
|
||
@ ²@l
|
||
H AH
|
||
@g ðµ
|
||
A (111 PROMPTPRINT 105 CLRPROMPT 90 PRIN1 83 CLEARW 74 GETPROMPTWINDOW 64 WINDOWP 57 PRIN1 50 CLEARW 41 PLOTPROP 21 _ 13 _ 5 Object?)
|
||
(97 DON'T 36 PLOTPROMPTWINDOW 28 PLOT)
|
||
()
|
||
MS.MakeMenuOfKnownHosts D8
|
||
(P 3 server F 4 Server F 5 AllInstances! F 6 Name F 7 Description) u ` 0T U
|
||
°)dKV
|
||
KdW
|
||
h¸IµHhZ<>H&¹µØJHdI¿dg ¿dg ¿jdnÿdhHdI
|
||
¿ (43 _ 34 _ 20 _ 14 $)
|
||
(91 DEFAULTMENUHELDFN 82 CLRPROMPT 4 MENUTYPE#)
|
||
()
|
||
MS.DestroyInstances D8
|
||
(P 0 instance F 1 Server F 2 AllInstances! F 3 Destroy) ! Q R
|
||
<00>d HS
|
||
µñh (24 _ 11 _ 5 $)
|
||
NIL
|
||
()
|
||
MS.SubmitBatchJob D8
|
||
(P 9 result P 8 parameterString P 7 queue P 6 validQueues P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 10 SubmitJob F 11 GetQueues) ±
|
||
A A ‚ @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']dµAo
|
||
hW
|
||
^Jg '_dµAo
|
||
hN
|
||
³1H ¿o H
|
||
¿H ¿o H
|
||
¿NH
|
||
hJg '_o O
|
||
œAo
|
||
hAo
|
||
I A Oo ô² MWg Lg K O °'MWg Lg K OO h
|
||
_I
|
||
H o H
|
||
Ag
|
||
AO h (429 FM.CHANGELABEL 420 FM.ITEMFROMID 409 PRIN1 398 CLEARW 392 PRIN1 384 _ 376 MKSTRING 367 PACKFILENAME 345 _ 338 PACKFILENAME 308 MS.CloseErrorWindow 302 CLEARW 296 PrintMsg 283 PrintMsg 271 STRPOS 248 PRIN1 240 PRIN1 228 TERPRI 221 PRIN1 209 CLEARW 201 MEMBER 193 PrintMsg 169 _ 160 PrintMsg 132 ERROR 127 FM.ITEMFROMID 109 FM.ITEMFROMID 92 FM.ITEMFROMID 79 PrintMsg 50 PrintMsg 22 MS.ExpandFilename 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(415 JOBNUMBER 361 BODY 355 DIRECTORY 332 BODY 326 DIRECTORY 256 PARAMETERSTRING 176 QUEUE 144 Host 137 FREEMENUITEM 122 HOST 104 HOST 97 FREEMENUITEM 87 HOST 58 DEFAULTDIRECTORY 29 FILENAME)
|
||
( 403 "Done" 315 "" 291 "Submitting Batch Job ..." 278 "Remove comma(s) from JobParameters" 264 "," 234
|
||
"Valid queues: " 215 "Not a valid queue for this server" 188 "Unspecified queue." 155 "Unspecified host."
|
||
116 "Arg must be FreeMenuItem" 74 "Unspecified default directory." 66 "" 45 "Unspecified file name." 37
|
||
"")
|
||
MS.AbortBatchJob D8
|
||
(P 7 result P 6 validQueues P 5 queue P 4 jobNumber P 3 host P 2 messageW P 1 promptW P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM F 8 GetQueues F 9 AbortJob) I A A A SI Ag
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég '[d¬Ao
|
||
hHg '\do ôžh¼Ao
|
||
hKW
|
||
^Hg ']dµAo
|
||
hN
|
||
³1I ¿o I
|
||
¿I ¿o I
|
||
¿NI
|
||
hI o I
|
||
¿LI
|
||
¿o I
|
||
¿MI
|
||
¿o I
|
||
KWLM _I o I
|
||
J OJ
|
||
h (325 PRIN1 317 CLEARW 311 PRIN1 300 TERPRI 292 _ 282 PRIN1 270 PRIN1 262 PRIN1 250 PRIN1 242 PRIN1 231 CLEARW 223 PRIN1 215 PRIN1 203 TERPRI 196 PRIN1 184 CLEARW 176 MEMBER 168 PrintMsg 145 _ 135 PrintMsg 104 PrintMsg 77 ERROR 72 FM.ITEMFROMID 54 FM.ITEMFROMID 37 FM.ITEMFROMID 26 CLEARW 17 MS.GetMessageWindow 11 GETPROMPTWINDOW 5 FM.READSTATE)
|
||
(152 QUEUE 112 JOBNUMBER 89 Host 82 FREEMENUITEM 67 HOST 49 HOST 42 FREEMENUITEM 32 HOST)
|
||
( 305 "Done" 276 " is being aborted ..." 256 " on queue " 236 "Job " 209 "Valid queues: " 190 "Not a valid queue for this server"
|
||
163 "Unspecified queue." 130 "Unspecified job number." 120 "" 99 "Unspecified host." 61 "Arg must be FreeMenuItem")
|
||
MS.Status D8
|
||
(P 5 result P 4 jobNumber P 3 host P 2 messageW P 1 promptW P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM F 6 Status) Î A A A 3I Ag
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég '[d¬Ao
|
||
hHg '\d 3´ o °¼o I
|
||
¿I ¿o I
|
||
¿J KVL ]dJ
|
||
I o I
|
||
h (202 PRIN1 191 CLEARW 185 MS.DisplayStatus 177 _ 169 CLEARW 162 PRIN1 150 TERPRI 143 PRIN1 120 MKATOM 104 PrintMsg 77 ERROR 72 FM.ITEMFROMID 54 FM.ITEMFROMID 37 FM.ITEMFROMID 26 CLEARW 17 MS.GetMessageWindow 11 GETPROMPTWINDOW 5 FM.READSTATE)
|
||
(112 JOBNUMBER 89 Host 82 FREEMENUITEM 67 HOST 49 HOST 42 FREEMENUITEM 32 HOST)
|
||
( 196 "Done" 156 "Finding status of all batch jobs ..." 137 "Unspecified job number." 129 "Finding Status ..."
|
||
99 "Unspecified host." 61 "Arg must be FreeMenuItem")
|
||
MS.DisplayStatus D8
|
||
(P 2 item P 1 time P 0 number I 1 messageW I 0 result) ’ A o A
|
||
A o A
|
||
@dg ð²]¸@¹A ¿o Ho I A
|
||
¿°5dJ¸J¹A ¿o Ho I A
|
||
µÏh (137 PRIN1 131 CONCAT 113 TERPRI 88 PRIN1 82 CONCAT 64 TERPRI 36 PRIN1 25 TERPRI 19 PRIN1 8 TERPRI)
|
||
(45 JOB)
|
||
( 125 " " 119 " " 76 " " 70 " " 30 "- - - - - - - - - - - - - - - - -" 13 " JOB CPU")
|
||
MS.RunInteractiveJob D8
|
||
(P 9 errorWindow P 8 errorFile P 7 result P 6 parameterString P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 10 RunJob F 11 ExtractFilename F 12 PutErrorInWindow) ‚
|
||
A A ‚ @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']d¬Ao
|
||
hJg '^o N
|
||
œAo
|
||
hH o H
|
||
I A No ô² MWg Lg K °#MWg Lg K N h _I
|
||
H Og ð²8o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
Šo H
|
||
h (382 PRIN1 370 _ 353 _ 340 MS.AttachErrorWindow 328 PRIN1 306 CLEARW 300 PRIN1 292 _ 285 MKSTRING 279 PACKFILENAME 257 _ 252 PACKFILENAME 223 MS.CloseErrorWindow 217 CLEARW 211 PRIN1 200 CLEARW 192 PrintMsg 180 STRPOS 159 PrintMsg 132 ERROR 127 FM.ITEMFROMID 109 FM.ITEMFROMID 92 FM.ITEMFROMID 79 PrintMsg 50 PrintMsg 22 MS.ExpandFilename 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(314 ERROR 273 BODY 267 DIRECTORY 246 BODY 240 DIRECTORY 167 PARAMETERSTRING 144 Host 137 FREEMENUITEM 122 HOST 104 HOST 97 FREEMENUITEM 87 HOST 58 DEFAULTDIRECTORY 29 FILENAME)
|
||
( 376 "Done" 335 "Run-time Errors" 322 "Run-time warning or error" 229 "" 205 "Running interactive job ..."
|
||
187 "Remove comma(s) from JobParameters" 174 "," 154 "Unspecified host." 116 "Arg must be FreeMenuItem"
|
||
74 "Unspecified default directory." 66 "" 45 "Unspecified file name." 37 "")
|
||
MS.Compile D8
|
||
(P 8 errorWindow P 7 errorFile P 6 result P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 9 Compile F 10 ExtractFilename F 11 PutErrorInWindow) C A A rI @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']d¬Ao
|
||
hKHI ³öH o H
|
||
A MWg Lg K ^I NI
|
||
H Ng ð²7o H
|
||
¿Ao
|
||
_¿MWN _¿MWOOA
|
||
Šo H
|
||
h (319 PRIN1 307 _ 290 _ 278 MS.AttachErrorWindow 266 PRIN1 245 CLEARW 239 PRIN1 232 CLEARW 225 _ 220 PACKFILENAME 200 MS.CloseErrorWindow 194 PRIN1 183 CLEARW 175 MS.CheckForDirtyFile 165 PrintMsg 138 ERROR 133 FM.ITEMFROMID 115 FM.ITEMFROMID 98 FM.ITEMFROMID 85 PrintMsg 56 PrintMsg 28 MS.ExpandFilename 20 CLEARW 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(252 ERROR 214 BODY 208 DIRECTORY 150 Host 143 FREEMENUITEM 128 HOST 110 HOST 103 FREEMENUITEM 93 HOST 64 DEFAULTDIRECTORY 35 FILENAME)
|
||
( 313 "Successful Compilation" 273 "Compilation Errors" 260 "Compilation Error" 188 "Compiling source file ..."
|
||
160 "Unspecified host." 122 "Arg must be FreeMenuItem" 80 "Unspecified default directory." 72 "" 51 "Unspecified file name."
|
||
43 "")
|
||
MS.Link D8
|
||
(P 9 errorWindow P 8 errorFile P 7 result P 6 linkString P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 10 Link F 11 ExtractFilename F 12 PutErrorInWindow) ‚
|
||
A A ‚ @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']d¬Ao
|
||
hJg '^o N
|
||
œAo
|
||
hH o H
|
||
I A No ô² MWg Lg K °#MWg Lg K N h _I
|
||
H Og ð²8o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
Šo H
|
||
h (382 PRIN1 370 _ 353 _ 340 MS.AttachErrorWindow 328 PRIN1 306 CLEARW 300 PRIN1 292 _ 285 MKSTRING 279 PACKFILENAME 257 _ 252 PACKFILENAME 223 MS.CloseErrorWindow 217 CLEARW 211 PRIN1 200 CLEARW 192 PrintMsg 180 STRPOS 159 PrintMsg 132 ERROR 127 FM.ITEMFROMID 109 FM.ITEMFROMID 92 FM.ITEMFROMID 79 PrintMsg 50 PrintMsg 22 MS.ExpandFilename 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(314 ERROR 273 BODY 267 DIRECTORY 246 BODY 240 DIRECTORY 167 LINKSTRING 144 Host 137 FREEMENUITEM 122 HOST 104 HOST 97 FREEMENUITEM 87 HOST 58 DEFAULTDIRECTORY 29 FILENAME)
|
||
( 376 "Done: successful link" 335 "Link Errors" 322 "Linking Error" 229 "" 205 "Linking ..." 187 "Remove spaces from LinkParameters"
|
||
174 " " 154 "Unspecified host." 116 "Arg must be FreeMenuItem" 74 "Unspecified default directory." 66
|
||
"" 45 "Unspecified file name." 37 "")
|
||
MS.CompileLink D8
|
||
(P 9 errorWindow P 8 errorFile P 7 result P 6 linkString P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 2 BUTTONS I 1 WINDOW I 0 ITEM F 10 ExtractFilename F 11 PutErrorInWindow F 12 Link F 13 Compile)
|
||
A A ‚ I @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']d¬Ao
|
||
hJg '^o N
|
||
œAo
|
||
hKHI ’± ‰H o H
|
||
A MWg Lg K _I OI
|
||
H Og ð²9o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
ho H
|
||
¿No ô² MWg Lg K °#MWg Lg K N h _¿I OI
|
||
H Og ð²8o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
Šo H
|
||
h (528 PRIN1 516 _ 499 _ 486 MS.AttachErrorWindow 474 PRIN1 452 CLEARW 446 PRIN1 438 CLEARW 429 _ 422 MKSTRING 416 PACKFILENAME 394 _ 389 PACKFILENAME 359 PRIN1 346 _ 329 _ 316 MS.AttachErrorWindow 304 PRIN1 282 CLEARW 276 PRIN1 268 CLEARW 260 _ 255 PACKFILENAME 235 MS.CloseErrorWindow 229 PRIN1 218 CLEARW 208 MS.CheckForDirtyFile 198 PrintMsg 186 STRPOS 165 PrintMsg 138 ERROR 133 FM.ITEMFROMID 115 FM.ITEMFROMID 98 FM.ITEMFROMID 85 PrintMsg 56 PrintMsg 28 MS.ExpandFilename 20 CLEARW 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(460 ERROR 410 BODY 404 DIRECTORY 383 BODY 377 DIRECTORY 290 ERROR 249 BODY 243 DIRECTORY 173 LINKSTRING 150 Host 143 FREEMENUITEM 128 HOST 110 HOST 103 FREEMENUITEM 93 HOST 64 DEFAULTDIRECTORY 35 FILENAME)
|
||
( 522 "Done: successful link" 481 "Link Errors" 468 "Linking Error" 366 "" 353 "Compile finished. Now linking..."
|
||
311 "Compilation Errors" 298 "Compilation error" 223 "Compiling source file ..." 193 "Remove spaces from LinkParameters"
|
||
180 " " 160 "Unspecified host." 122 "Arg must be FreeMenuItem" 80 "Unspecified default directory." 72
|
||
"" 51 "Unspecified file name." 43 "")
|
||
MS.CLR.Check D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) @ABi (8 MS.CompileLinkRun)
|
||
NIL
|
||
()
|
||
MS.CLR.NoCheck D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) @ABh (8 MS.CompileLinkRun)
|
||
NIL
|
||
()
|
||
MS.CompileLinkRun D8
|
||
(P 10 errorWindow P 9 errorFile P 8 result P 7 linkString P 6 parameterString P 5 host P 4 defaultDirectory P 3 filename P 2 state P 1 messageW P 0 promptW I 3 checkFlag I 2 BUTTONS I 1 WINDOW I 0 ITEM F 11 ExtractFilename F 12 PutErrorInWindow F 13 Link F 14 RunJob F 15 Compiled? F 16 Compile F 17 Linked?) . A A ’
|
||
I @AB Zdg '[do ôœAo
|
||
hJg '\do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég ']d¬Ao
|
||
hJg '_o O
|
||
œAo
|
||
hJg '^o N
|
||
œAo
|
||
hKHI ’±€H A C²MW MLK
|
||
—o ± ‰o H
|
||
¿MW g Lg K _¿I ¿OI
|
||
¿H ¿Og ð²9o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
ho H
|
||
¿C² MW"MLK
|
||
žH ¿o ± ·o H
|
||
¿Oo ô² MWg Lg K °$MWg Lg K O h _¿I ¿OI
|
||
¿H ¿Og ð²9o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
ho H
|
||
¿No ô² MW g Lg K °#MW g Lg K N h _¿I OI
|
||
H Og ð²8o H
|
||
¿Ao
|
||
_¿MWO _¿MWOOA
|
||
Šo H
|
||
h (810 PRIN1 798 _ 781 _ 768 MS.AttachErrorWindow 756 PRIN1 734 CLEARW 728 PRIN1 720 CLEARW 711 _ 704 MKSTRING 698 PACKFILENAME 676 _ 671 PACKFILENAME 641 PRIN1 628 _ 611 _ 598 MS.AttachErrorWindow 586 PRIN1 563 CLEARW 556 PRIN1 547 CLEARW 538 _ 531 MKSTRING 524 PACKFILENAME 502 _ 497 PACKFILENAME 466 PRIN1 446 TERPRI 439 _ 423 PRIN1 410 _ 393 _ 380 MS.AttachErrorWindow 368 PRIN1 345 CLEARW 338 PRIN1 329 CLEARW 320 _ 315 PACKFILENAME 294 PRIN1 274 _ 259 MS.CloseErrorWindow 253 CLEARW 243 MS.CheckForDirtyFile 233 PrintMsg 221 STRPOS 200 PrintMsg 188 STRPOS 165 PrintMsg 138 ERROR 133 FM.ITEMFROMID 115 FM.ITEMFROMID 98 FM.ITEMFROMID 85 PrintMsg 56 PrintMsg 28 MS.ExpandFilename 20 CLEARW 11 MS.GetMessageWindow 5 GETPROMPTWINDOW)
|
||
(742 ERROR 692 BODY 686 DIRECTORY 665 BODY 659 DIRECTORY 572 ERROR 518 BODY 512 DIRECTORY 491 BODY 485 DIRECTORY 354 ERROR 309 BODY 303 DIRECTORY 208 PARAMETERSTRING 173 LINKSTRING 150 Host 143 FREEMENUITEM 128 HOST 110 HOST 103 FREEMENUITEM 93 HOST 64 DEFAULTDIRECTORY 35 FILENAME)
|
||
( 804 "Done" 763 "Run-time Errors" 750 "Run-time warning or error" 648 "" 635 "Link finished. Now running job ..."
|
||
593 "Link Errors" 580 "Linking Error" 474 "" 460 " Now linking..." 452 " Exec. file exists. Now running it..."
|
||
417 "Compile finished. " 375 "Compilation Errors" 362 "Compilation error" 288 "Compiling source file ..."
|
||
280 "Source file already compiled. " 228 "Remove comma(s) from JobParameters" 215 "," 195 "Remove spaces from LinkParameters"
|
||
181 " " 160 "Unspecified host." 122 "Arg must be FreeMenuItem" 80 "Unspecified default directory." 72
|
||
"" 51 "Unspecified file name." 43 "")
|
||
MS.StartNewFE D8
|
||
NIL (4 FE.TopLevel)
|
||
NIL
|
||
()
|
||
MS.StartDefaultFE D8
|
||
(P 10 $$PROPLST$$ P 9 $$TEXTOBJ$$ P 8 getFilename P 7 name P 6 filename P 5 directory P 4 defaultDirectory P 3 hostname P 2 host P 1 textStream P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM F 11 UserDirectory F 12 Name F 13 SourceExtension) V <11> Y@AB Xdg '^Hg '\Ag
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég 'Zd¢± ¦I O ÉF
|
||
Oµ‚±¬O g JhFJW
|
||
»I O ÉF
|
||
Oµ‚±dO g KhFI O ÉF
|
||
Oµ‚± O g JW
|
||
hFLo ô³:L ½I O ÉF
|
||
Oµ‚± ÈO g MhFNo ô¨N _¿J´‚± óM´‚± ìO´‚± äg Kg Mg Og JW
|
||
|
||
_ ¢± ›I O
|
||
¿I O ÉF
|
||
Oµ&O g OhFIo O
|
||
°ag O °ãg M ±ÿBg JW
|
||
±þìg K ±þ¦g J ±þ^Io Oo
|
||
h (594 TEDIT.PROMPTPRINT 589 CONCAT 568 LISTPUT 554 LISTPUT 540 LISTPUT 535 _ 519 LISTPUT 506 LISTPUT 492 CONCAT 439 TEXTOBJ 432 TEDIT.GET 425 TEXTOBJ 415 INFILEP 408 PACKFILENAME 402 _ 345 MKATOM 288 TEXTOBJ 281 MKATOM 259 _ 216 TEXTOBJ 167 TEXTOBJ 160 _ 109 TEXTOBJ 84 ERROR 79 FM.ITEMFROMID 61 FM.ITEMFROMID 44 FM.ITEMFROMID 16 MS.ExpandFilename 7 FE.TopLevel)
|
||
(562 MS.HOST 548 MS.HOSTNAME 527 MS.DIRECTORY 513 MS.DIRECTORY 499 FILENAME 470 FILENAME 465 TEXTOBJ 449 TEXTOBJ 394 EXTENSION 387 NAME 381 DIRECTORY 375 HOST 323 MS.DIRECTORY 318 TEXTOBJ 298 TEXTOBJ 251 MS.DIRECTORY 246 TEXTOBJ 226 TEXTOBJ 202 MS.HOSTNAME 197 TEXTOBJ 177 TEXTOBJ 144 MS.HOST 139 TEXTOBJ 119 TEXTOBJ 96 Host 89 FREEMENUITEM 74 HOST 56 HOST 49 FREEMENUITEM 39 HOST 31 DEFAULTDIRECTORY 23 FILENAME)
|
||
( 584 " not found" 577 "File " 485 "Retrieved file " 337 "" 272 "" 68 "Arg must be FreeMenuItem")
|
||
MS.FindFortranEdit D8
|
||
(P 4 window P 2 editFilename P 1 fullEditFilename P 0 textStream I 0 filename) ^ 0 Kµh\g
|
||
²;L X ÉFg 'Yg
|
||
Z @ ô‘HK[°± (83 U-CASE 78 MKATOM 72 U-CASE 66 UNPACKFILENAME 42 TEXTOBJ 36 TEXTSTREAM 28 GETWINDOWUSERPROP 7 OPENWINDOWS)
|
||
(61 NAME 54 FILENAME 47 TEXTOBJ 23 FORTRANEDIT)
|
||
()
|
||
MS.CheckForDirtyFile D8
|
||
(P 1 dirty P 0 textStream I 2 messageW I 1 promptW I 0 filename) S @ Xdd Yd²0A ¿o iA œo B
|
||
ho B
|
||
io B
|
||
h (79 PRIN1 66 PRIN1 53 PRIN1 41 MOUSECONFIRM 28 CLEARW 18 TEDIT.STREAMCHANGEDP 8 MS.FindFortranEdit)
|
||
NIL
|
||
( 73 "File in Fortran Editor has not been changed. Operation proceeds" 60 "Operation aborted. Put file in Fortran Edit to server."
|
||
47 "Using old version on the server" 34 "Not saved yet; LEFT to use previous version.")
|
||
MS.BatchErrors? D8
|
||
(P 11 errorWindow P 10 result P 9 stream P 8 resultFile P 7 localErrorFile P 6 errorFile P 5 jobNumber P 4 defaultDirectory P 3 host P 2 messageW P 1 promptW P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM F 12 Name F 13 PutErrorInWindow) – A A A “ I Ag
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég '[d¬Ao
|
||
hHg '\do ôœAo
|
||
hHg ']do ôžh½Ao
|
||
hI J A g KW
|
||
g Lg Mg g
|
||
_g KW
|
||
g Lg Mg g
|
||
^d²oo I
|
||
¿Og
|
||
_ _¿O ¿O ¿OJ
|
||
¿Ng
|
||
_¿N ¿Ao
|
||
_¿KWOOA
|
||
Šo I
|
||
h (402 PRIN1 390 _ 373 MS.AttachErrorWindow 361 DELFILE 352 COPYFILE 340 PRIN1 331 DELFILE 323 CLOSEF 313 READ 306 OPENFILE 293 PRIN1 278 INFILEP 273 PACKFILENAME 245 _ 230 INFILEP 225 PACKFILENAME 197 _ 184 MS.CloseErrorWindow 178 CLEARW 172 CLEARW 164 PrintMsg 133 PrintMsg 104 PrintMsg 77 ERROR 72 FM.ITEMFROMID 54 FM.ITEMFROMID 37 FM.ITEMFROMID 26 CLEARW 17 MS.GetMessageWindow 11 GETPROMPTWINDOW 5 FM.READSTATE)
|
||
(347 {core}localErrorFile 301 INPUT 267 ERR 262 EXTENSION 256 NAME 250 DIRECTORY 237 HOST 219 RES 214 EXTENSION 208 NAME 202 DIRECTORY 189 HOST 141 JOBNUMBER 112 DEFAULTDIRECTORY 89 Host 82 FREEMENUITEM 67 HOST 49 HOST 42 FREEMENUITEM 32 HOST)
|
||
( 396 "No batch errors found" 368 "Batch Errors" 287 "Retrieving error messages..." 159 "Unspecified job number."
|
||
149 "" 128 "Unspecified default directory." 120 "" 99 "Unspecified host." 61 "Arg must be FreeMenuItem")
|
||
MS.BatchLog D8
|
||
(P 7 errorWindow P 6 localLogfile P 5 logfile P 4 host P 3 filename P 2 messageW P 1 promptW P 0 state I 2 BUTTONS I 1 WINDOW I 0 ITEM F 8 Name F 9 UserDirectory F 10 PutErrorInWindow) A A A SHg '[do ôœAo
|
||
hAg
|
||
à œAg
|
||
°o Ag
|
||
|
||
Ég '\d¬Ao
|
||
hI J A g LW
|
||
g LW
|
||
g Kg g
|
||
]d²=dg
|
||
¾M ¿o I
|
||
¿Ao
|
||
_¿LWNOA
|
||
Šo I
|
||
h (274 PRIN1 262 _ 246 MS.AttachErrorWindow 234 PRIN1 222 DELFILE 215 COPYFILE 200 INFILEP 195 PACKFILENAME 173 _ 160 _ 147 MS.CloseErrorWindow 141 CLEARW 135 CLEARW 127 PrintMsg 100 ERROR 95 FM.ITEMFROMID 77 FM.ITEMFROMID 60 FM.ITEMFROMID 47 PrintMsg 17 MS.GetMessageWindow 11 GETPROMPTWINDOW 5 FM.READSTATE)
|
||
(210 {core}localLogfile 189 LOG 184 EXTENSION 178 BODY 165 DIRECTORY 152 HOST 112 Host 105 FREEMENUITEM 90 HOST 72 HOST 65 FREEMENUITEM 55 HOST 26 FILENAME)
|
||
( 268 "Batch Log File not found" 241 "Batch Log File" 228 "fetching Batch Log File..." 122 "Unspecified host."
|
||
84 "Arg must be FreeMenuItem" 42 "Unspecified file name." 34 "")
|
||
FE.TopLevel D8
|
||
(P 6 $$PROPLST$$ P 5 $$TEXTOBJ$$ P 4 textStream P 3 processHandle P 2 messageWindow P 1 editWindow P 0 editProps I 1 window I 0 program) 6 P XA Yd Z@IhH [I \KL
|
||
Ig i L M ÉFNµ‚± ¢M g IhFL M ÉFNµ‚± ¦M g JhFL M ÉFNµnM g KhFL M ÉFNµ-M g Ig
|
||
hFLg I ±ÿgg Ig
|
||
°Ûg K °šg J ±ÿc (305 LISTPUT 292 LISTPUT 279 LISTPUT 274 GETWINDOWUSERPROP 255 LISTPUT 237 GETWINDOWUSERPROP 198 TEXTOBJ 156 TEXTOBJ 110 TEXTOBJ 64 TEXTOBJ 58 PUTWINDOWPROP 46 FE.AdjustProps 38 TEXTSTREAM 31 TEDIT 21 FE.GetMessageWindow 14 FE.GetEditWindow 7 FE.GetEditProps)
|
||
(299 MESSAGEWINDOW 286 PROCESS 269 POSITIONWINDOW 263 FE.POSITIONWINDOW 249 EDITWINDOW 232 POSITIONWINDOW 226 FE.POSITIONWINDOW 221 TEXTOBJ 207 TEXTOBJ 184 PROCESS 179 TEXTOBJ 165 TEXTOBJ 142 MESSAGEWINDOW 137 TEXTOBJ 119 TEXTOBJ 96 EDITWINDOW 91 TEXTOBJ 73 TEXTOBJ 52 FORTRANEDIT)
|
||
()
|
||
FE.AdjustProps D8
|
||
(I 1 textStream I 0 processHandle) F @ ´6@g g @g
|
||
²@g
|
||
g h h ¿°Õ (65 BLOCK 58 PUTWINDOWPROP 47 PROCESSPROP 34 PROCESSPROP 23 PROCESSPROP 5 PROCESSP)
|
||
(52 COPYINSERTFN 42 TEDITTTYWINDOW 29 TEDITTTYWINDOW 18 FORTRAN% EDITOR 13 NAME)
|
||
()
|
||
FE.CaretPosition D8
|
||
(P 9 $$PROPLST$$ P 8 $$TEXTOBJ$$ P 7 textStream P 6 column P 5 midpoint P 4 position P 3 positionWindow P 2 textWindow P 1 margin P 0 charWidth I 0 textStream) r
|
||
pl¹@ O ´‚±JO ÉFg '[ ´‚±*O É ºo O ÉFg '
|
||
¸O \O ÉFg 'ô’± ÎlKg
|
||
lXhK
|
||
|
||
ÛlÛؽhJ
|
||
IÙH×kؾK ¿jdK ¿jNLÙó•o „o K
|
||
¿Mo L
|
||
jhiK
|
||
¿MjK ¿jo Hjð¬H–H ¡N<C2A1>mÿ
|
||
jhiK
|
||
¿O O ÉF_µO g LhFLg L °ó (366 LISTPUT 319 TEXTOBJ 311 FLUSHRIGHT 301 CONCAT 291 \FZEROP 270 TAB 261 FLUSHRIGHT 251 CONCAT 237 PRIN1 212 TAB 203 CLEARW 190 DSPXPOSITION 177 CHARWIDTH 172 DSPFONT 163 GETWINDOWPROP 132 TEXTOBJ 124 TEDIT.PARA&CHAR 116 CHARWIDTH 98 TEXTOBJ 91 CHCON1 80 WINDOWP 66 TEXTOBJ 53 WINDOWP 34 TEXTOBJ 21 TEXTSTREAMP 11 TEXTSTREAM)
|
||
(360 FE.POSITION 347 FE.POSITION 342 TEXTOBJ 329 TEXTOBJ 158 WIDTH 144 FE.POSITION 137 TEXTOBJ 110 FONT 103 TEXTOBJ 71 TEXTOBJ 46 FE.POSITIONWINDOW 39 TEXTOBJ)
|
||
( 277 "C: " 244 "L: " 231 "" 225 " ? " 86 "X")
|
||
TEDIT.PARA&CHAR D8
|
||
(P 6 PCTB P 5 PC P 4 CH# P 3 LASTPARACH# P 2 CHAR# P 1 PARA# P 0 TEXTOBJ I 1 SEL I 0 TEXTSTREAM) z @ kddDH É ^dl
|
||
]HA
|
||
\H É_jð®O²9O ²0kjJM ÉÔZLñ³ M Ê jð¥IkÔ¹J»M ɽM³ÕILKÙ (63 \FZEROP 36 TEDIT.GETPOINT 28 ELT 5 TEXTOBJ)
|
||
(108 PIECE 90 PIECE 76 PIECE 43 TEXTOBJ 17 TEXTOBJ)
|
||
()
|
||
FE.CharFn D8
|
||
(L (1 charCode 0 textObj))
|
||
Alñ¡Ah NIL
|
||
NIL
|
||
()
|
||
FE.GetEditProps D8
|
||
(P 2 table P 1 charWidth P 0 font) ¹ ` o H
|
||
Yo o g Hhg hg g lIÚhhhg g hg g ho g ` lhJ ¿Jh
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
(182 \APPEND2 177 \APPEND2 172 \APPEND2 167 \APPEND2 162 \APPEND2 157 \APPEND2 152 \APPEND2 147 \APPEND2 136 TEDIT.SETSYNTAX 124 COPYREADTABLE 53 FE.CreateLocalMenu 23 CHARWIDTH 17 CHCON1)
|
||
(119 TEDIT.READTABLE 114 READTABLE 101 FE.CharFn 96 CHARFN 88 FE.LoopFn 83 LOOPFN 66 TABS 61 PARALOOKS 48 MENU 39 FONT 4 FE.defaultFont)
|
||
( 109 (COPYBYBKSYSBUF T) 34 (CLEARPUT T) 29 (CLEARGET T) 12 "X")
|
||
FE.GetSourceFileName D8
|
||
(P 5 dirty P 4 promptWindow P 3 messageWindow P 2 filename P 1 textStream P 0 fileStream I 0 textObj) ” `@Ã ¡h@ É,X@ Yd ÉFg 'ZI ÉFg '[d @ ÉL\d I ]d²0H¬o L
|
||
hM´ H´ o iL ´o K
|
||
J (144 PRIN1 131 MOUSECONFIRM 111 PRIN1 94 TEDIT.STREAMCHANGEDP 88 CLEARW 73 CLEARW 53 TEXTOBJ 33 TEXTOBJ 26 TEXTSTREAM)
|
||
(79 TEXTOBJ 65 MESSAGEWINDOW 58 TEXTOBJ 45 FILENAME 38 TEXTOBJ 17 TEXTOBJ 8 TEXTOBJ)
|
||
( 138 "Using old version on the server" 124 "Not saved yet; LEFT to use previous version." 105 "Can't. No file has been saved yet.")
|
||
FE.LoopFn D8
|
||
(I 0 textStream) @ @ (11 FE.CaretPosition 5 FE.ShadeWindow)
|
||
NIL
|
||
()
|
||
FE.GetPositionWindow D8
|
||
(P 2 positionWindow P 1 height P 0 font I 0 mainWindow) “ ` !H È
|
||
Yjd@g
|
||
I hdi ZHJ
|
||
nÿÿJ
|
||
g J
|
||
Jg o Jg jI Jg nú I Jg g J (143 PUTWINDOWPROP 127 PUTWINDOWPROP 111 PUTWINDOWPROP 97 PUTWINDOWPROP 81 DSPOPERATION 70 DSPTEXTURE 61 DSPFONT 53 CREATEW 45 CREATEREGION 39 WIDTHIFWINDOW 34 GETWINDOWPROP 20 HEIGHTIFWINDOW)
|
||
(138 NILL 133 PAGEFULLFN 117 MAXSIZE 103 MINSIZE 87 CLOSEFN 75 INVERT 29 WIDTH 13 FONTDESCRIPTOR 4 FE.defaultFont)
|
||
( 92 (DETACHWINDOW))
|
||
FE.GetEditWindow D8
|
||
(P 4 positionWindow P 3 minHeight P 2 minWidth P 1 fontHeight P 0 font I 0 window) ³ ` Alo H
|
||
Ú ZlH È
|
||
YÚi
|
||
[@ ³JK
|
||
g hi b €@g g @g g @g JK @ \d@g g Lg i @g L @ (175 PUTWINDOWPROP 163 PUTWINDOWPROP 151 ATTACHWINDOW 133 FE.GetPositionWindow 127 PUTWINDOWPROP 113 PUTWINDOWPROP 97 WINDOWADDPROP 78 CREATEW 66 GETREGION 57 WINDOWP 50 HEIGHTIFWINDOW 31 WIDTHIFWINDOW 25 CHARWIDTH 19 CHCON1)
|
||
(169 POSITIONWINDOW 157 PASSTOMAINCOMS 146 JUSTIFY 141 TOP 119 MINSIZE 108 FE.ShrinkIconCreate 103 ICONFN 92 FE.ReshapeFn 87 RESHAPEFN 71 Fortran% Editor 40 FONTDESCRIPTOR 4 FE.defaultFont)
|
||
( 14 "X")
|
||
FE.GetMessageWindow D8
|
||
(P 0 messageWindow I 0 editWindow) / jdlÈl< o hi Xd@g g H (43 ATTACHWINDOW 25 CREATEW 13 CREATEREGION)
|
||
(38 JUSTIFY 33 BOTTOM)
|
||
( 18 "Message Window")
|
||
FE.ReshapeFn D8
|
||
(P 1 $$PROPLST$$ P 0 $$TEXTOBJ$$ I 2 oldRegion I 1 oldImage I 0 window) : @ !H ÉFYµH g hdZFJg h (55 LISTPUT 10 TEXTOBJ 5 TEXTSTREAM)
|
||
(49 FE.POSITION 35 FE.POSITION 30 TEXTOBJ 19 TEXTOBJ)
|
||
()
|
||
FE.ShadeWindow D8
|
||
(P 4 window P 3 height P 2 charWidth P 1 textObj P 0 margin I 0 stream) ¯ l@ 2I É\o I ÉFg '
|
||
ZLg
|
||
[hddLHlJÚØjkKg g `
|
||
hddLHlJÚØkÙjkKg g `
|
||
hddLHlHJÚØjkKg g `
|
||
h (171 BKBITBLT 137 BKBITBLT 101 BKBITBLT 66 GETWINDOWPROP 54 CHARWIDTH 36 TEXTOBJ 30 CHCON1 7 TEXTOBJ)
|
||
(165 GRAYSHADE 160 REPLACE 155 TEXTURE 131 GRAYSHADE 126 REPLACE 121 TEXTURE 95 GRAYSHADE 90 REPLACE 85 TEXTURE 61 HEIGHT 48 FONT 41 TEXTOBJ 16 TEXTOBJ)
|
||
( 25 "X")
|
||
FE.CreateLocalMenu D8
|
||
NIL ` ` do ¿di ¿g l
|
||
g HdI¿dg ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿ (36 FONTCREATE)
|
||
(70 CLRPROMPT 61 \TEDIT.MENU.WHENHELDFN 52 \TEDIT.MENU.WHENSELECTEDFN 31 BOLD 24 HELVETICA 4 MENUTYPE#)
|
||
( 11 (Quit Hardcopy (Put (FUNCTION FE.MyPut) "Write edit buffer to specified file") (Get (FUNCTION FE.MyGet) "Replace contents of edit buffer with contents of specified file") (Include (QUOTE Include) "Add contents of specified file to edit buffer at present location") (Find (QUOTE Find) "Find first occurence of specified string beyond present location") (Substitute (QUOTE Substitute) "Replace all occurances of specified string with new string in selected text") (Host (FUNCTION FE.SetHost) "Declare host server") (Directory (FUNCTION FE.SetDirectory) "Declare host directory") (Compile (FUNCTION FE.Compile) "Compile file on host") (Link (FUNCTION FE.Link) "Link file on host") (C/L/R (FUNCTION FE.CompileLinkRun) "Compile,link and run file on host") (Run (FUNCTION FE.RunInteractive) "Run file on host")))
|
||
FE.SetHost D8
|
||
(P 5 $$PROPLST$$ P 4 $$TEXTOBJ$$ P 3 hostname P 2 host P 1 messageWindow P 0 oldHostname I 0 textStream F 6 UserDirectory) * @ ÉFg '1@ ÉFg 'Yd @o H [ ¢± È@ L ÉFMµ‚± €L g KhFK º@ L ÉFMµnL g JhF@ L ÉFMµ1L g JV
|
||
hF@o K°6g K °‰g JV
|
||
°×g J °š@Ko
|
||
i h (294 TEDIT.PROMPTPRINT 288 CONCAT 274 LISTPUT 261 LISTPUT 256 _ 242 LISTPUT 215 _ 180 TEXTOBJ 138 TEXTOBJ 131 FE.GetServer 85 TEXTOBJ 75 FE.ValidHostname 69 U-CASE 64 MKATOM 59 TEDIT.GETINPUT 47 CLEARW 27 TEXTOBJ 5 TEXTOBJ)
|
||
(268 MS.HOST 249 MS.DIRECTORY 236 MS.HOSTNAME 208 MS.DIRECTORY 203 TEXTOBJ 189 TEXTOBJ 166 MS.HOST 161 TEXTOBJ 147 TEXTOBJ 117 MS.HOSTNAME 112 TEXTOBJ 94 TEXTOBJ 39 MESSAGEWINDOW 32 TEXTOBJ 17 MS.HOSTNAME 10 TEXTOBJ)
|
||
( 283 " is not valid...Hostname unchanged" 228 "Hostname is " 53 "Hostname :")
|
||
FE.SetDirectory D8
|
||
(P 5 $$PROPLST$$ P 4 $$TEXTOBJ$$ P 3 newDirectory P 2 messageWindow P 1 host P 0 oldDirectory I 0 textStream) ¹ @ ÉFg '@ ÉFg '"@ ÉFg 'Zd I¬@o i @o H [dHô˜@Ko °/@ L ÉF]µ(L g KhF@o K
|
||
i hg K °à (181 LISTPUT 168 TEDIT.PROMPTPRINT 162 CONCAT 118 TEXTOBJ 98 MKATOM 93 TEDIT.GETINPUT 80 TEDIT.PROMPTPRINT 66 CLEARW 46 TEXTOBJ 24 TEXTOBJ 5 TEXTOBJ)
|
||
(175 MS.DIRECTORY 143 MS.DIRECTORY 138 TEXTOBJ 127 TEXTOBJ 58 MESSAGEWINDOW 51 TEXTOBJ 36 MS.HOST 29 TEXTOBJ 17 MS.DIRECTORY 10 TEXTOBJ)
|
||
( 156 "Directory is " 110 " is the same as the previous value...Directory unchanged" 87 "Directory: " 74
|
||
"No host has yet been declared. Name your host first.")
|
||
FE.MyGet D8
|
||
(P 6 $$PROPLST$$ P 5 $$TEXTOBJ$$ P 4 versionlessFilename P 3 fullFilename P 2 fileStream P 1 textObj P 0 messageWindow I 0 textStream) v P@ ÉFg 'Xd @ Yd I É,Zd [d \@ M ÉF^µM g LhFhg L °ó (114 LISTPUT 70 TEXTOBJ 63 FE.StripVersion 56 FULLNAME 41 TEDIT.GET 34 TEXTOBJ 28 CLEARW 8 TEXTOBJ)
|
||
(108 FILENAME 95 FILENAME 90 TEXTOBJ 79 TEXTOBJ 47 TEXTOBJ 20 MESSAGEWINDOW 13 TEXTOBJ)
|
||
()
|
||
FE.MyPut D8
|
||
(P 7 $$PROPLST$$ P 6 $$TEXTOBJ$$ P 5 versionlessFilename P 4 fullFilename P 3 fileStream P 2 textObj P 1 newFilename P 0 messageWindow I 0 textStream F 8 oldFilename) ª `@ ÉFg 'Xd @ ÉFg 'c@o W Y@Ihi WIô³C@ Z É,[ \ ½@ N ÉF_µN g MhFhg M °ó (166 LISTPUT 121 TEXTOBJ 114 FE.StripVersion 108 FULLNAME 94 TEXTOBJ 82 TEDIT.PUT 72 MKATOM 67 U-CASE 62 TEDIT.GETINPUT 34 TEXTOBJ 28 CLEARW 8 TEXTOBJ)
|
||
(160 FILENAME 147 FILENAME 142 TEXTOBJ 130 TEXTOBJ 100 TEXTOBJ 46 FILENAME 39 TEXTOBJ 20 MESSAGEWINDOW 13 TEXTOBJ)
|
||
( 55 "(Put) Filename:")
|
||
FE.StripVersion D8
|
||
(P 3 extension P 2 name P 1 directory P 0 host I 0 fullFilename) S @@g
|
||
X@g
|
||
Y@g
|
||
Z@g
|
||
[g Hg Ig Jg K
|
||
(80 PACKFILENAME 49 UNPACKFILENAME 37 UNPACKFILENAME 25 UNPACKFILENAME 13 UNPACKFILENAME)
|
||
(73 EXTENSION 67 NAME 61 DIRECTORY 55 HOST 44 EXTENSION 32 NAME 20 DIRECTORY 8 HOST)
|
||
()
|
||
FE.Compile D8
|
||
(P 9 messageWindow P 8 editWindow P 7 errorWindow P 6 errorFile P 5 result P 4 host P 3 directory P 2 filename P 1 fullFilename P 0 textObj I 0 textStream F 10 Name F 11 Compile F 12 ExtractFilename F 13 PutErrorInWindow) J
|
||
@ ‘ @ ÉFg '_d HÃ o O
|
||
hH Yo O
|
||
hH ÉFg '\o O
|
||
h@o Io LW
|
||
o
|
||
i @ ÉFg '_H ÉFg '[Ig
|
||
ZO LWg Kg J ]O MO
|
||
Mg ð²7@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
‹@o i h (326 TEDIT.PROMPTPRINT 313 _ 298 _ 286 MS.AttachErrorWindow 273 TEDIT.PROMPTPRINT 251 PRIN1 243 CLEARW 235 _ 230 PACKFILENAME 210 MS.CloseErrorWindow 202 UNPACKFILENAME 177 TEXTOBJ 156 TEXTOBJ 150 TEDIT.PROMPTPRINT 144 CONCAT 133 _ 111 PRIN1 84 TEXTOBJ 76 PRIN1 62 FE.GetSourceFileName 54 PRIN1 35 CLEARW 14 TEXTOBJ 5 TEXTOBJ)
|
||
(258 ERROR 224 NAME 218 DIRECTORY 197 NAME 189 MS.DIRECTORY 182 TEXTOBJ 168 EDITWINDOW 161 TEXTOBJ 96 MS.HOST 89 TEXTOBJ 41 TEXTOBJ 26 MESSAGEWINDOW 19 TEXTOBJ)
|
||
( 320 "Successful compilation." 281 "Compilation Errors" 267 "Compilation errors" 138 "..." 125 " on "
|
||
119 "Compiling " 104 "Can't compile. No Host has been declared" 69 "Text non-existant or unsaved: compile aborted"
|
||
47 "No text to compile")
|
||
FE.Link D8
|
||
(P 9 messageWindow P 8 editWindow P 7 errorWindow P 6 errorFile P 5 result P 4 host P 3 directory P 2 filename P 1 fullFilename P 0 textObj I 0 textStream F 10 Name F 11 Link F 12 ExtractFilename F 13 PutErrorInWindow) J
|
||
@ ‘ @ ÉFg '_d HÃ o O
|
||
hH Yo O
|
||
hH ÉFg '\o O
|
||
h@o Io LW
|
||
o
|
||
i @ ÉFg '_H ÉFg '[Ig
|
||
ZO LWg Kg J ]O MO
|
||
Mg ð²7@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
‹@o i h (326 TEDIT.PROMPTPRINT 313 _ 298 _ 286 MS.AttachErrorWindow 273 TEDIT.PROMPTPRINT 251 PRIN1 243 CLEARW 235 _ 230 PACKFILENAME 210 MS.CloseErrorWindow 202 UNPACKFILENAME 177 TEXTOBJ 156 TEXTOBJ 150 TEDIT.PROMPTPRINT 144 CONCAT 133 _ 111 PRIN1 84 TEXTOBJ 76 PRIN1 62 FE.GetSourceFileName 54 PRIN1 35 CLEARW 14 TEXTOBJ 5 TEXTOBJ)
|
||
(258 ERROR 224 NAME 218 DIRECTORY 197 NAME 189 MS.DIRECTORY 182 TEXTOBJ 168 EDITWINDOW 161 TEXTOBJ 96 MS.HOST 89 TEXTOBJ 41 TEXTOBJ 26 MESSAGEWINDOW 19 TEXTOBJ)
|
||
( 320 "Successful link" 281 "Link Errors" 267 "Linking error" 138 "..." 125 " on " 119 "Linking " 104 "Can't link. No Host has been declared"
|
||
69 "File non-existant or unsaved: link aborted" 47 "No file to link")
|
||
FE.CompileLinkRun D8
|
||
(P 9 messageWindow P 8 editWindow P 7 errorWindow P 6 errorFile P 5 result P 4 host P 3 directory P 2 filename P 1 fullFilename P 0 textObj I 0 textStream F 10 Name F 11 ExtractFilename F 12 PutErrorInWindow F 13 Compile F 14 RunJob F 15 Link) Ž
|
||
@ ‘ @ ÉFg '_d HÃ o O
|
||
hH Yo O
|
||
hH ÉFg '\o O
|
||
h@o Io LW
|
||
o
|
||
i @ ÉFg '_H ÉFg '[Ig
|
||
ZO LWg Kg J ]O MO
|
||
Mg ð²8@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
h@o i ¿@o Io LW
|
||
o
|
||
i O LW g Kg J ]O MO
|
||
Mg ð²8@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
h@o i ¿@o Io LW
|
||
o
|
||
i O LW g Kg J ]O MO
|
||
Mg ð²7@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
‹@o i h (650 TEDIT.PROMPTPRINT 637 _ 622 _ 610 MS.AttachErrorWindow 597 TEDIT.PROMPTPRINT 575 PRIN1 567 CLEARW 559 _ 554 PACKFILENAME 534 MS.CloseErrorWindow 527 TEDIT.PROMPTPRINT 521 CONCAT 510 _ 489 TEDIT.PROMPTPRINT 475 _ 460 _ 448 MS.AttachErrorWindow 435 TEDIT.PROMPTPRINT 413 PRIN1 405 CLEARW 397 _ 392 PACKFILENAME 372 MS.CloseErrorWindow 365 TEDIT.PROMPTPRINT 359 CONCAT 348 _ 327 TEDIT.PROMPTPRINT 313 _ 298 _ 286 MS.AttachErrorWindow 273 TEDIT.PROMPTPRINT 251 PRIN1 243 CLEARW 235 _ 230 PACKFILENAME 210 MS.CloseErrorWindow 202 UNPACKFILENAME 177 TEXTOBJ 156 TEXTOBJ 150 TEDIT.PROMPTPRINT 144 CONCAT 133 _ 111 PRIN1 84 TEXTOBJ 76 PRIN1 62 FE.GetSourceFileName 54 PRIN1 35 CLEARW 14 TEXTOBJ 5 TEXTOBJ)
|
||
(582 ERROR 548 NAME 542 DIRECTORY 420 ERROR 386 NAME 380 DIRECTORY 258 ERROR 224 NAME 218 DIRECTORY 197 NAME 189 MS.DIRECTORY 182 TEXTOBJ 168 EDITWINDOW 161 TEXTOBJ 96 MS.HOST 89 TEXTOBJ 41 TEXTOBJ 26 MESSAGEWINDOW 19 TEXTOBJ)
|
||
( 644 "Done" 605 "Run-time Errors" 591 "Run-time warning or error" 515 "..." 502 " on " 496 "Running interactive job "
|
||
483 "Successful link" 443 "Link Errors" 429 "Linking error" 353 "..." 340 " on " 334 "Linking " 321 "Successful compilation."
|
||
281 "Compilation Errors" 267 "Compilation errors" 138 "..." 125 " on " 119 "Compiling " 104 "Can't compile. No Host has been declared"
|
||
69 "Text non-existant or unsaved: compile aborted" 47 "No text to compile")
|
||
FE.RunInteractive D8
|
||
(P 9 messageWindow P 8 editWindow P 7 errorWindow P 6 errorFile P 5 result P 4 host P 3 directory P 2 filename P 1 fullFilename P 0 textObj I 0 textStream F 10 Name F 11 RunJob F 12 ExtractFilename F 13 PutErrorInWindow) J
|
||
@ ‘ @ ÉFg '_d HÃ o O
|
||
hH Yo O
|
||
hH ÉFg '\o O
|
||
h@o Io LW
|
||
o
|
||
i @ ÉFg '_H ÉFg '[Ig
|
||
ZO LWg Kg J ]O MO
|
||
Mg ð²7@o i ¿Oo
|
||
_¿LWM ¾LWNOO
|
||
‹@o i h (326 TEDIT.PROMPTPRINT 313 _ 298 _ 286 MS.AttachErrorWindow 273 TEDIT.PROMPTPRINT 251 PRIN1 243 CLEARW 235 _ 230 PACKFILENAME 210 MS.CloseErrorWindow 202 UNPACKFILENAME 177 TEXTOBJ 156 TEXTOBJ 150 TEDIT.PROMPTPRINT 144 CONCAT 133 _ 111 PRIN1 84 TEXTOBJ 76 PRIN1 62 FE.GetSourceFileName 54 PRIN1 35 CLEARW 14 TEXTOBJ 5 TEXTOBJ)
|
||
(258 ERROR 224 NAME 218 DIRECTORY 197 NAME 189 MS.DIRECTORY 182 TEXTOBJ 168 EDITWINDOW 161 TEXTOBJ 96 MS.HOST 89 TEXTOBJ 41 TEXTOBJ 26 MESSAGEWINDOW 19 TEXTOBJ)
|
||
( 320 "Done" 281 "Run-time Errors" 267 "Run-time warning or error" 138 "..." 125 " on " 119 "Running interactive job "
|
||
104 "Can't run. No Host has been declared" 69 "File non-existant or unsaved: run aborted" 47 "No file to run")
|
||
FE.ValidHostname D8
|
||
(P 1 validHostname P 0 server I 0 hostname F 2 Name) @ Xd´ dR
|
||
(19 _ 8 FE.GetServer)
|
||
NIL
|
||
()
|
||
FE.GetServer D8
|
||
(P 1 server I 0 hostname F 2 Server F 3 AllInstances! F 4 Name) , R S
|
||
Hµh¹@IT
|
||
ô”IµiHX°ç (30 _ 11 _ 5 $)
|
||
NIL
|
||
()
|
||
FE.ShrinkIconCreate D8
|
||
(P 2 shrinkfn P 1 iconTitle P 0 icon I 2 ICONW I 1 ICON I 0 W) ë @g
|
||
@g
|
||
@g
|
||
@g
|
||
¢± @g
|
||
’± žJ lñ’± ‘g J ªJ lñ³}I²I@ ô³kI¤H²*°dH²%@g @ Y ¿IhdH °=@g @ Y ¿@g ` I` hig
|
||
¿@g
|
||
(232 GETWINDOWUSERPROP 219 PUTWINDOWPROP 214 TITLEDICONW 183 PUTWINDOWPROP 177 TEXTSTREAM.TITLE 172 TEXTSTREAM 158 ICONTITLE 148 PUTWINDOWPROP 142 TEXTSTREAM.TITLE 137 TEXTSTREAM 112 TEXTSTREAM.TITLE 107 TEXTSTREAM 92 FLENGTH 71 FLENGTH 61 GETWINDOWUSERPROP 46 GETWINDOWUSERPROP 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
|
||
(227 ICON 208 TOP 201 FE.iconFont 195 FE.titledIconTemplate 190 ICON 166 TEDIT.ICON.TITLE 131 TEDIT.ICON.TITLE 83 SHRINKATTACHEDWINDOWS 56 TEDITMENU 41 TEXTOBJ 27 SHRINKFN 16 TEDIT.ICON.TITLE 5 ICON)
|
||
()
|
||
MS.MakeInstances D8
|
||
(P 0 newBrowser F 1 SITKA F 2 New F 3 GSLVAX F 4 MADVAX F 5 name F 6 description F 7 VMSServer F 8 serverDirectory F 9 queues F 10 CRAYZY F 11 host F 12 PutValue F 13 ClassBrowser F 14 AddRoot F 15 Server F 16 comFileName F 17 resultFileName F 18 Cray) × W R
|
||
XW W W Rg S Wg S Ug S Vo S Wg S Wo W Rg Q Wg g Q Ug Q Vo Q Wg Q Wo Q W o Q W"o W Rg T Wg T Ug T Vo T Wg T Wo W$ Rg W Wg g W Ug W Vo (468 _@ 457 $ 450 _@ 439 $ 432 _ 415 $ 408 _ 397 $ 390 _@ 378 $ 372 _@ 360 $ 354 _@ 343 $ 337 _@ 326 $ 320 _@ 308 $ 302 _ 291 $ 284 _@ 272 $ 266 _@ 254 $ 248 _@ 236 $ 230 _@ 218 $ 212 _@ 201 $ 195 _@ 184 $ 178 _ 161 $ 155 _ 144 $ 137 _@ 125 $ 119 _@ 107 $ 101 _@ 90 $ 84 _@ 73 $ 67 _@ 55 $ 49 _ 38 $ 30 _ 25 $ 15 _ 9 $)
|
||
(445 CRAYZY 427 CRAYZY 422 host 403 CRAYZY 367 <bloomberg.gslws> 332 MADVAX 315 MADVAX 297 MADVAX 225 <bloomberg.gslws> 190 SITKA 173 SITKA 168 host 150 SITKA 114 <GSLWS.SERVER> 79 GSLVAX 62 GSLVAX 44 GSLVAX)
|
||
( 463 "Not yet plugged in..." 385 (Fast Medium Slow) 349 "The AIS 11/750 VMS Server" 279 (SUBMITJOB submitJob.res ABORTJOB abortJob.res RUNJOB runJob.res STATUS status.res COMPILE compile.res LINK link.res GETTIME getTime.res)
|
||
261 (SUBMITJOB submitJob.com ABORTJOB abortJob.com RUNJOB runJob.com STATUS status.com COMPILE compile.com LINK link.com GETTIME getTime.com)
|
||
243 (Fast Slow) 207 "The GSL microVAX VMS Server" 132 (Fast Medium Slow) 96 "The GSL 11/780 VMS Server")
|
||
StripPA D8
|
||
(I 0 username) @ko @
|
||
H3 ´HkÙ (29 SUBATOM 12 STRPOS)
|
||
NIL
|
||
( 6 ".")
|
||
OPENCHATSTREAM D8
|
||
(P 5 PROTOCOL P 0 OPENFUNCTION I 0 HOST F 6 CHAT.PROTOCOLS) x @g ²3` Lµh´EHºHkJ]¹@kIX•Mµæi°ãL\°Úg ´VLµh´ H»HkK½@kMX•Mµèi°åL\°Ü (73 BOUNDP 12 BOUNDP)
|
||
(68 CHAT.PROTOCOLS 19 CHAT.PROTOCOLTYPES 7 CHAT.PROTOCOLTYPES)
|
||
()
|
||
PROGRAMCHAT D8
|
||
(P 2 OUTCHAT P 1 INCHAT P 0 STREAMPAIR I 2 LOGSTREAM I 1 CMDSTREAM I 0 HOST) ý @ !Hd¢± عHZg g ¿Ig g ¿g g Ihg Bhh ¿ ¿@IJ ¿A <00>Ag
|
||
b¿B³g g
|
||
b¿Jg
|
||
—A ²KA ´;A ¿Jl
|
||
¿@IJg ¿Ji
|
||
¿Ig
|
||
§J h °æJA
|
||
¿ °” (249 BLOCK 243 BOUT 233 BLOCK 226 CLOSEF 219 OPENP 207 FORCEOUTPUT 199 PROGRAMCHAT.LOGIN 185 BOUT 176 CLOSEF 168 EOFP 160 EOFP 153 OPENP 139 OPENSTREAM 118 OPENSTRINGSTREAM 106 STRINGP 99 PROGRAMCHAT.LOGIN 90 BLOCK 84 ADD.PROCESS 51 SETFILEINFO 34 SETFILEINFO 5 OPENCHATSTREAM)
|
||
(214 INPUT 194 LOGOUT 148 OUTPUT 134 OUTPUT 129 {NULL} 113 INPUT 71 QUOTE 62 QUOTE 57 PROGRAMCHAT.OUTPUT 46 CHAT.ENDOFSTREAMOP 41 ENDOFSTREAMOP 29 CHAT.ENDOFSTREAMOP 24 ENDOFSTREAMOP)
|
||
()
|
||
PROGRAMCHAT.LOGIN D8
|
||
(P 3 X P 2 COM P 1 NAME/PASS P 0 LOGINFO I 3 OPTION I 2 OUTSTREAM I 1 INSTREAM I 0 HOST) ü @ µg ` !H´‚± ß@ YCµg HšA@I µg ZdHXµ‚± §` ¿o `
|
||
¿J`
|
||
¿o `
|
||
°xdKdg ð²¿Bl
|
||
¿B °Lg ð“I°;Kdg ð™¿I °(g ð² A ª` ¿` †KB
|
||
µ’B h (248 FORCEOUTPUT 237 PRIN3 229 DISMISS 218 DISMISS 207 CHAT.FLUSH&WAIT 191 \DECRYPT.PWD 161 FORCEOUTPUT 154 BOUT 128 PRIN1 112 PRIN1 100 PRIN1 84 TERPRI 56 CHAT.LOGINFO 35 \INTERNAL/GETPASSWORD 5 GETOSTYPE)
|
||
(224 CHAT.WAIT.TIME 213 CHAT.WAIT.TIME 198 WAIT 181 PASSWORD 168 USERNAME 142 CR 123 PROMPTWINDOW 107 PROMPTWINDOW 95 PROMPTWINDOW 79 PROMPTWINDOW 63 LOGIN 44 ATTACH 17 NETWORKLOGINFO 12 IFS)
|
||
( 118 " not implemented for this type of host" 90 "Login option ")
|
||
PROGRAMCHAT.OUTPUT D8
|
||
(P 0 CH I 1 LOGSTREAM I 0 INCHATSTREAM) < Hmÿð«@g
|
||
¯@ ´ @ h@ Xdmÿð³Ù¿A²ÔAH
|
||
¿°Ê (55 BOUT 33 CLOSEF 25 OPENP 18 OPENP)
|
||
(13 INPUT)
|
||
()
|
||
PRIN.RunRemote D8
|
||
(P 2 result P 1 file P 0 host I 2 parameterList I 1 filename I 0 hostname F 3 RunJob) ‰ 0@ Xd³ o @ o AH@ Yd³o Ao HSIB Zdg ðžo HIJ ho @ o i (133 PROMPTPRINT 128 CONCAT 118 U-CASE 105 PRIN.Error 82 _ 72 PRIN.Error 67 CONCAT 47 PRIN.ValidateFilename 38 PRIN.Error 33 CONCAT 23 U-CASE 8 PRIN.ValidateHost)
|
||
(90 ERROR)
|
||
( 123 " succeeded without error" 112 "Call to remote host " 97 "Run-time warning or error" 62 " does not exist"
|
||
56 "Command file " 28 " is not valid" 17 "Host ")
|
||
PRIN.ValidateHost D8
|
||
(P 0 host I 0 hostname) @ (13 FE.GetServer 8 U-CASE)
|
||
NIL
|
||
()
|
||
PRIN.ValidateFilename D8
|
||
(P 4 fileExists? P 3 wholename P 2 extension P 1 name P 0 directory I 2 hostname I 1 host I 0 filename F 5 CommandFileExtension) e P@g
|
||
X@g
|
||
YAU
|
||
Zg B g Hg Ig J
|
||
[d \d¡hg Hg I (98 PACKFILENAME 76 INFILEP 69 PACKFILENAME 45 U-CASE 33 _ 25 UNPACKFILENAME 13 UNPACKFILENAME)
|
||
(92 NAME 86 DIRECTORY 62 EXTENSION 56 NAME 50 DIRECTORY 39 HOST 20 NAME 8 DIRECTORY)
|
||
()
|
||
PRIN.Error D8
|
||
(P 2 errorFile P 1 errorWindow P 0 hostname I 3 result I 2 file I 1 host I 0 errorString F 3 Name F 4 ExtractFilename F 5 PutErrorInWindow) [ 0A²=B²:AS
|
||
¸o o @o H
|
||
¹ATC ºAUJI °o o
|
||
¹@I
|
||
h (87 PRIN1 79 CREATEW 62 _ 52 _ 43 CREATEW 38 CONCAT 15 _)
|
||
NIL
|
||
( 74 "Programmer's Interface Error Window" 69 (300 300 300 80) 32 " on host " 26 "PRIN: " 21 (300 300 420 200))
|
||
(PRETTYCOMPRINT MATHSERVERCOMS)
|
||
(RPAQQ MATHSERVERCOMS ((* * SERVER MENU - Sets up the main Server Free Menu) (* MENU AND WINDOW
|
||
FUNCTIONS) (FNS MS.TopLevel MS.CreateFreeMenu MS.SelectHost MS.ExpandFilename MS.CloseErrorWindow
|
||
MS.CleanupErrorFile MS.AttachErrorWindow MS.MostRoom MS.GetMessageWindow MS.MakeIconWindow PrintMsg) (
|
||
* SERVER METACLASS FUNCTIONS) (FNS MS.MakeMenuOfKnownHosts MS.DestroyInstances) (* MATH SERVER
|
||
FUNCTIONS) (FNS MS.SubmitBatchJob MS.AbortBatchJob MS.Status MS.DisplayStatus MS.RunInteractiveJob
|
||
MS.Compile MS.Link MS.CompileLink MS.CLR.Check MS.CLR.NoCheck MS.CompileLinkRun) (* FORTRAN EDITOR
|
||
FUNCTIONS) (FNS MS.StartNewFE MS.StartDefaultFE MS.FindFortranEdit MS.CheckForDirtyFile) (* ERROR
|
||
HANDLING FUNCTIONS) (FNS MS.BatchErrors? MS.BatchLog) (* Icon BITMAPS) (BITMAPS MS.Icon MS.IconMask) (
|
||
* VARS) (ADDVARS (BackgroundMenuCommands (Server% Menu (QUOTE (MS.TopLevel)) "Start the Server Menu"))
|
||
) (VARS (BackgroundMenu NIL)) (GLOBALVARS MS.HostPopMenu) (* * FORTRAN EDIT - Sets up a Fortran Edit
|
||
Process) (* MAIN FUNCTIONS) (FNS FE.TopLevel FE.AdjustProps FE.CaretPosition TEDIT.PARA&CHAR FE.CharFn
|
||
FE.GetEditProps FE.GetSourceFileName FE.LoopFn) (* WINDOW FUNCTIONS) (FNS FE.GetPositionWindow
|
||
FE.GetEditWindow FE.GetMessageWindow FE.ReshapeFn FE.ShadeWindow) (* LOCALMENU FUNCTIONS) (FNS
|
||
FE.CreateLocalMenu FE.SetHost FE.SetDirectory FE.MyGet FE.MyPut FE.StripVersion FE.Compile FE.Link
|
||
FE.CompileLinkRun FE.RunInteractive) (* SERVER METACLASS FUNCTIONS) (FNS FE.ValidHostname FE.GetServer
|
||
) (* ICON STUFF) (FNS FE.ShrinkIconCreate) (BITMAPS FE.Icon FE.IconMask) (INITVARS (FE.defaultFont (
|
||
FONTCLASS (QUOTE FORTRANEDITFONT) (QUOTE (1 (GACHA 12) (GACHA 10) (GACHA 10))))) (FE.iconFont (
|
||
FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (FE.iconTitleRegion (create REGION LEFT _ 8 BOTTOM _ 8
|
||
WIDTH _ 110 HEIGHT _ 40)) (FE.titledIconTemplate (create TITLEDICON ICON _ FE.Icon MASK _ FE.IconMask
|
||
TITLEREG _ FE.iconTitleRegion))) (* VARS) (ADDVARS (BackgroundMenuCommands (Fortran% Edit (QUOTE (
|
||
FE.TopLevel)) "Start a Fortran Edit"))) (VARS (BackgroundMenu NIL)) (GLOBALVARS FE.defaultFont
|
||
FE.iconFont FE.titledIconTemplate TEDIT.READTABLE) (* * SERVERS -- Defines the Loops MathServer
|
||
objects) (CLASSES Cray FortranServer MathServer Server VMSServer) (METHODS FortranServer.Compile
|
||
FortranServer.Compiled? FortranServer.Link FortranServer.Linked? MathServer.AlertManager
|
||
Server.AbortJob Server.CommandFileExtension Server.Description Server.Error? Server.ErrorFile
|
||
Server.ErrorString Server.ExecuteCommandFile Server.ExtractFilename Server.GetQueues Server.GetTime
|
||
Server.Host Server.MakeError Server.MakeFullName Server.MakePartialName Server.Name
|
||
Server.PutErrorInWindow Server.PutTextInWindow Server.Result Server.RunFile Server.RunJob
|
||
Server.ServerDirectory Server.SourceExtension Server.Status Server.SubmitJob Server.UserDirectory
|
||
VMSServer.MakeCommandString) (FNS MS.MakeInstances StripPA) (P (MS.DestroyInstances) (MS.MakeInstances
|
||
)) (* * PROGRAMCHAT - Windowless CHAT for communication) (FNS OPENCHATSTREAM PROGRAMCHAT
|
||
PROGRAMCHAT.LOGIN PROGRAMCHAT.OUTPUT) (* VARS for our site) (VARS NETWORKLOGINFO) (P (pushnew
|
||
NETWORKOSTYPES (QUOTE (GSLVAX . VMS)) (QUOTE (SITKA . VMS)) (QUOTE (MADVAX . VMS)))) (* * PROGRAMMER'S
|
||
INTERFACE - use remote servers with LISP calls) (FNS PRIN.RunRemote PRIN.ValidateHost
|
||
PRIN.ValidateFilename PRIN.Error)))
|
||
(RPAQ MS.Icon (READBITMAP))
|
||
(78 74 "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L"
|
||
"L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L"
|
||
"L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L"
|
||
"L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@O@@@@@@@@@L" "L@@@@@@@@I@GH@@@@@@L"
|
||
"L@@@@@@B@O@DHGH@@@@L" "L@@@@@@B@O@@HDH@@@@L" "L@@@@@@B@I@AHGH@@@@L" "L@@@@@@B@O@C@GH@@@@L"
|
||
"L@@@@@@B@@@GLDH@@@@L" "L@@@@@@B@@@@@GH@@@@L" "L@@@@@@@@@@D@@@D@@@L" "L@@@@@@@@@@F@@@L@@@L"
|
||
"L@@@@CN@@@@C@DAH@@@L" "L@@@@@F@@@@A@DA@@@@L" "L@@@@@L@@@@AHDC@@@@L" "L@@@@AH@@@@@HDB@@@@L"
|
||
"L@@@CA@@@@@@LDF@@@@L" "L@@@CC@@@@@@D@D@@@@L" "L@@@@@@@@@@@D@D@CO@L" "L@@@@@@@@@@@FNL@CO@L"
|
||
"L@@@GH@@@@@@BJH@AH@L" "L@@@DH@@@@@@BJH@AH@L" "L@@@@H@@@COOOOOOIH@L" "L@@@AH@@@B@@@@@@IH@L"
|
||
"L@@@C@@@@B@@@@@@IH@L" "L@@@GL@@@B@@@@@@IH@L" "L@@@@@@@@B@D@@@@IH@L" "L@@@@@@@@B@D@@L@IH@L"
|
||
"L@@@@@@@@B@D@@@@IH@L" "L@COOOH@@BCOHCO@IH@L" "L@COOOH@@B@D@@@@IH@L" "L@CH@CH@@B@D@@L@IH@L"
|
||
"L@C@@AH@@B@D@@@@OH@L" "L@C@@AH@@B@@@@@@OH@L" "L@C@@AH@@B@@@@@@H@@L" "L@C@@AH@@B@@@@@@H@@L"
|
||
"L@C@@AH@@BBDH@@@H@@L" "L@C@@AH@@BAE@@@@H@@L" "L@C@@AH@@B@N@@@@H@@L" "L@C@@AH@@BCOHCO@H@@L"
|
||
"L@C@@AH@@B@N@@@@H@@L" "L@CH@CKFMJAE@@@@H@@L" "L@COOOH@@BBDH@@@H@@L" "L@COOOH@@B@@@@@@H@@L"
|
||
"L@@AO@@@@COOOOOOH@@L" "LAOOOON@@@@@@@@@@@@L" "LA@@@@B@@@@@@@@@@@@L" "LA@@@@B@@@@@@@@@@@@L"
|
||
"LA@@@@B@@@@@@@@@@@@L" "LAOOOON@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L"
|
||
"LC@HNGLICLOCNDBOCN@L" "LCOIOA@IB@HBBDBHBB@L" "LBNIAA@ICLNCNFFNCN@L" "LBDIOA@O@DHCHCLHCH@L"
|
||
"LB@IAA@IBDHBLAHHBL@L" "LB@IAA@ICLOBFAHOBF@L" "L@@@@@@@@@@@@@@@@@@L" "L@@@@@@@@@@@@@@@@@@L"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL")
|
||
(RPAQ MS.IconMask (READBITMAP))
|
||
(78 74 "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOH@COOOOOOOOOOOOOL"
|
||
"OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL"
|
||
"OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL" "OOO@@AOOOOOOOOOOOOOL"
|
||
"OOO@@AOOOOOOOOOOOOOL" "OOOH@COOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL"
|
||
"OOOOOOOOOOOOOOOOOOOL" "OOOOOOOOOOOOOOOOOOOL")
|
||
(ADDTOVAR BackgroundMenuCommands (Server% Menu (QUOTE (MS.TopLevel)) "Start the Server Menu"))
|
||
(RPAQQ BackgroundMenu NIL)
|
||
(RPAQ FE.Icon (READBITMAP))
|
||
(120 61 "@@@COOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@@@GOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@@@N@CHCHAL@L@O@GCION@C@CHAHAO@@" "@@AN@C@AH@L@L@F@CCION@C@AHAHAO@@"
|
||
"@@CNGOCIILOCLNFGCAIONGOCINGNGO@@" "@@GN@GCIILOCLNFGC@ION@GCINGNGO@@"
|
||
"@@ON@GCIH@OCL@F@C@AON@GCINGNGO@@" "@AONGOCIHAOCL@N@CBAONGOCINGNGO@@"
|
||
"@CONGOCIIAOCLHNGCCAONGOCINGNGO@@" "@GONGO@AIHOCLLFGCCION@C@AHANGO@@"
|
||
"@OONGOHCILGCLNBGCCION@C@CHANGO@@" "AOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"CN@@@@@@@@@@@@@@@@@@@B@@@@@@@A@@" "GN@@@@@@@@@@@@@@@@@B@@@@@@@@@A@@"
|
||
"OJ@@@@@@@@@@@@@@@@@B@@@@@@@@@A@@" "OJ@@@@@@@@@@@@@@@@@@H@@@@@@@@A@@"
|
||
"NJ@@@@@@@@@@@@@@@@@@H@@@@@@@@A@@" "NJ@H@@@@@@@B@@@@@@@H@@H@@@@@@A@@"
|
||
"JJ@H@@@@@@@B@@@@@@@H@@H@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"KJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@H@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@H@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@H@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@H@@@@@B@H@@@@@@@@@@@@A@@" "JN@@@@@@@@@@@@B@H@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJB@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"NJB@@@@B@B@H@B@@@B@@@@@@@@@@@A@@" "JJ@@@@@B@B@H@B@@@B@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@BH@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@BH@@@@@H@@@@B@@@@B@@@@@@@@A@@" "JJ@@@@@@@@H@@@@B@@@@B@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@B@@@@@@A@@" "JJH@@@@@@@@@@@@@@@@@@@B@@@@@@A@@"
|
||
"JJH@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "JJ@@@@B@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JJ@@@@B@@@@@@@@@@@@@@H@@@@@@@A@@" "JJ@@@@@@@@@@@@@@@@@@@H@@@@@@@A@@"
|
||
"JJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@" "KJ@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@"
|
||
"JKOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "JH@@@@@D@@@@@@@@A@@@@@@@@@H@@D@@"
|
||
"JOOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@" "J@@@@@@@@@@D@@@@@@D@@@@D@@@@A@@@"
|
||
"KOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@" "H@@@A@@@@@@@@@@@H@@@@@@@@@@BD@@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@@")
|
||
(RPAQ FE.IconMask (READBITMAP))
|
||
(120 61 "@@@COOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@@@GOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@@@OOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@@AOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@@COOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@@GOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@@OOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@AOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@COOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "@GOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"@OOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "AOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"COOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "GOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@@"
|
||
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@@")
|
||
(RPAQ? FE.defaultFont (FONTCLASS (QUOTE FORTRANEDITFONT) (QUOTE (1 (GACHA 12) (GACHA 10) (GACHA 10))))
|
||
)
|
||
(RPAQ? FE.iconFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD)))
|
||
(RPAQ? FE.iconTitleRegion (create REGION LEFT _ 8 BOTTOM _ 8 WIDTH _ 110 HEIGHT _ 40))
|
||
(RPAQ? FE.titledIconTemplate (create TITLEDICON ICON _ FE.Icon MASK _ FE.IconMask TITLEREG _
|
||
FE.iconTitleRegion))
|
||
(ADDTOVAR BackgroundMenuCommands (Fortran% Edit (QUOTE (FE.TopLevel)) "Start a Fortran Edit"))
|
||
(RPAQQ BackgroundMenu NIL)
|
||
(DEFCLASSES Cray FortranServer MathServer Server VMSServer)
|
||
(DEFCLASS Cray (MetaClass Class doc (* If you want something to be done quickly, use this class)
|
||
Edited: (* DSB "30-May-86 14:55")) (Supers MathServer))
|
||
(DEFCLASS FortranServer (MetaClass Class Edited: (* DSB "13-May-86 16:09")) (Supers Server))
|
||
(DEFCLASS MathServer (MetaClass Class Edited: (* DSB "20-May-86 17:21")) (Supers Server) (
|
||
ClassVariables (jobManagerProcess NIL doc (* the current process on which the job manager is working.
|
||
All processes alert the job manager by calling the AlertManager method and giving this variable as an
|
||
argument))))
|
||
(DEFCLASS Server (MetaClass AbstractClass Edited: (* DSB "10-Nov-86 08:20")) (Supers IndexedObject
|
||
Object) (InstanceVariables (host NIL doc (* network name of host ; eg., GSLVAX)) (name NIL doc (*
|
||
vernacular name of host; eg., GSLVAX)) (description NIL doc (* short description of server)) (
|
||
serverDirectory NIL doc (* directory for server command files)) (queues NIL doc (* list of names of
|
||
batch queues)) (sourceExtension NIL doc (* default extension, such as FOR, for source files)) (
|
||
commandFileExtension NIL doc (* default extension, such as COM, for command files))))
|
||
(DEFCLASS VMSServer (MetaClass Class doc (* this is a DEC VMS machine) Edited: (* DSB
|
||
"10-Nov-86 08:22")) (Supers MathServer FortranServer) (InstanceVariables (sourceExtension FOR doc (*
|
||
VMS fortran extension)) (commandFileExtension COM doc (* VMS command file default extension)) (
|
||
comFileName (SUBMITJOB submitJob.com ABORTJOB abortJob.com RUNJOB runJob.com STATUS status.com LINK
|
||
link.com COMPLINK complink.com COMPILE compile.com GETTIME getTime.com) doc (* VMS com files)) (
|
||
resultFileName (SUBMITJOB submitJob.res ABORTJOB abortJob.res RUNJOB runJob.res STATUS status.res
|
||
COMPILE compile.res LINK link.res COMPLINK complink.res GETTIME getTime.res) doc (* VMS result files))
|
||
))
|
||
(METH FortranServer Compile (filename) (* compiles file, which must be on the host))
|
||
(METH FortranServer Compiled? (host defaultDirectory filename) (* Checks if an object file exists on
|
||
the host. If so, returns T))
|
||
(METH FortranServer Link (filename linkedFilesList) (* links object files on the host into an
|
||
executable file))
|
||
(METH FortranServer Linked? (host defaultDirectory filename) (* Checks if an executable file exists on
|
||
the host. If so, returns T))
|
||
(METH MathServer AlertManager NIL (* This method is called by all job processes. It starts up the
|
||
JobManager process if not awakened, and passes the jobManagerProcess variable.))
|
||
(METH Server AbortJob (jobNumber queue) (* aborts specific batch job on stated queue) (category
|
||
MainOps))
|
||
(METH Server CommandFileExtension NIL (* returns the extension recognized by the system as a command
|
||
file))
|
||
(METH Server Description NIL (* returns description of the server))
|
||
(METH Server Error? (result) (* checks if CAR of result list is "ERROR") (category Results))
|
||
(METH Server ErrorFile (result) (* returns the full name of the error file, specified by the third
|
||
element in the result list) (category Results))
|
||
(METH Server ErrorString (result) (* returns the error string: the second element in result list) (
|
||
category Results))
|
||
(METH Server ExecuteCommandFile (commandFile parameterList) (* method to run a command file. The
|
||
command string is assembled by the local method CommandString))
|
||
(METH Server ExtractFilename (result) (* Extract error file name from result))
|
||
(METH Server GetQueues NIL (* returns the list of queues for the server) (category Name))
|
||
(METH Server GetTime NIL (* gets the time from the server) (category MainOps))
|
||
(METH Server Host NIL (* returns local server instance variable host) (category Name))
|
||
(METH Server MakeError (string fileName) (* makes an ERROR %... list) (category Results))
|
||
(METH Server MakeFullName (fileName directory) (* Constructs full name of file and host) (category
|
||
Name))
|
||
(METH Server MakePartialName (fileName directory) (* Constructs name of file with directory, but
|
||
without host))
|
||
(METH Server Name NIL (* returns vernacular server name) (category Name))
|
||
(METH Server PutErrorInWindow (errorFile errorWindow mainWindow) (* puts text of errorFile in a window
|
||
))
|
||
(METH Server PutTextInWindow (filename position) (* Opens a scrollable TEDIT window for the file))
|
||
(METH Server Result (result) (* returns the second element in the result list when there is no error.
|
||
This is typically the jobID.) (category Results))
|
||
(METH Server RunFile (file parameterList resultFile noErrorFlg) (* general method to run a command
|
||
file and get result and errors) (category MainOps))
|
||
(METH Server RunJob (filename parameterList) (* runs com file, "filename" , with additional parameters
|
||
"parameterList" , all of which must be on the host, as an interactive-type job) (category MainOps))
|
||
(METH Server ServerDirectory NIL (* returns the name of the server directory for command files) (
|
||
category Name))
|
||
(METH Server SourceExtension NIL (* returns default extension for source files))
|
||
(METH Server Status (jobNumber) (* get machine status of batch jobs) (category MainOps))
|
||
(METH Server SubmitJob (filename queue parameterList) (* submits file, which must be on the host, as a
|
||
batch job) (category MainOps))
|
||
(METH Server UserDirectory NIL (* Gets user name on appropriate host) (category Name))
|
||
(METH VMSServer MakeCommandString (commandFile parameterList) (* assembles command string from given
|
||
name of commandFile and parameterList))
|
||
(MS.DestroyInstances)
|
||
(MS.MakeInstances)
|
||
(RPAQQ NETWORKLOGINFO ((TENEX (LOGIN "LOGIN " USERNAME " " PASSWORD "
|
||
") (ATTACH "ATTACH " USERNAME " " PASSWORD "
|
||
") (WHERE "WHERE " USERNAME CR "ATTACH " USERNAME " " PASSWORD CR) (LOGOUT "LOGOUT" CR)) (TOPS20 (
|
||
LOGIN "LOGIN " USERNAME CR PASSWORD CR) (ATTACH "ATTACH " USERNAME "" CR PASSWORD CR) (WHERE "LOGIN "
|
||
USERNAME CR PASSWORD CR) (LOGOUT "LOGOUT" CR)) (UNIX (LOGIN WAIT CR WAIT USERNAME CR WAIT PASSWORD CR
|
||
WAIT WAIT WAIT WAIT CR) (LOGOUT WAIT CR "logout" CR)) (IFS (LOGIN "Login " USERNAME " " PASSWORD CR)
|
||
(ATTACH) (LOGOUT "Quit" CR)) (VMS (LOGIN USERNAME CR PASSWORD CR) (LOGOUT "LOGOUT" CR)) (NS (LOGIN
|
||
"Logon" CR USERNAME CR PASSWORD CR) (LOGOUT "LOGOFF" CR))))
|
||
(pushnew NETWORKOSTYPES (QUOTE (GSLVAX . VMS)) (QUOTE (SITKA . VMS)) (QUOTE (MADVAX . VMS)))
|
||
(PUTPROPS MATHSERVER COPYRIGHT ("Xerox Corporation" 1986 1987))
|
||
NIL
|