(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 09:48:01" ("compiled on " {DSK}lispusers>EQUATIONS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 3-Mar-88 13:51:10" {ERINYES}LYRIC>EQUATIONS.;1 86057 changes to%: (FNS EQIO.Put EQIO.Get) previous date%: "27-May-87 11:20:49" |{IE:PARC:XEROX}LYRIC>LISPUSERS>EQUATIONS.;1|) EQIO.CreateFns :D8 NIL 9gggggggddggdd (54 IMAGEFNSCREATE) (46 NILL 41 EQIO.WhenDeleted 34 NILL 29 EQIO.ButtonEventIn 24 EQIO.Copy 19 EQIO.Get 14 EQIO.Put 9 EQIO.Imagebox 4 EQIO.Display) () EQIO.Create :D8 (P 0 obj I 3 objectProps I 2 fontSpec I 1 dataList I 0 kind) j@Ag ²` •`‰ C³@g b¿HC B²HgBd3” H(102 EQIO.EqnProperty 97 EQN.GetEqnFont 78 EQIO.AllProps 68 COPYALL 63 EQIO.GetInfo 46 IMAGEOBJCREATE 36 EQIO.CreateFns 24 IMAGEFNSP 12 BOUNDP) (87 fontSpec 58 objProps 41 EquationImageFns 30 EquationImageFns 19 EquationImageFns 7 EquationImageFns) () EQIO.Imagebox :D8 (P 0 spec I 1 imageStream I 0 eqnObj) @A Hµ`A (29 EQIO.GetBox 23 FS.Box 6 EQIO.Specify) (17 UnknownEquationData) () EQIO.Display :D8 (P 9 pos P 8 data P 7 desc P 6 i P 4 invertPiece P 3 spec P 2 curY P 1 curX P 0 editWindow I 1 imageStream I 0 eqnObj) hA hA @Ai@ Hd” K²b@ kK # NMó³H@N _¿KN _²(O²$IOÔJOÔjOÕÔA¿OALNð¿NkÔ^°¸‹`ALh(153 FS.Display 132 FS.Display 120 MOVETO 91 EQIO.GetDataPosition 86 EQIO.GetDataSpec 76 EQIO.EqnData 58 EQIO.GetBox 51 EQIO.NumPieces 38 EQN.PieceNumber 27 EQN.ObjEditWindow 21 EQIO.Specify 13 DSPYPOSITION 6 DSPXPOSITION) (146 UnknownEquationData) () EQIO.ButtonEventIn :D8 (P 6 wholeEditFn P 5 piece# P 4 selectFn P 3 piece# P 2 underEdit P 1 CHOICEMENU P 0 editWindow I 7 button I 6 textStream I 5 window I 4 relY I 3 relX I 2 selection I 1 windowStream I 0 eqnObj) E oH´ @H ðZl`lÂåjð‘j€kjð³,l@`lÂåjð‘j€kjð³l`lÂåjð‘j€kjð²J´‚±¼E gGdgð²1¿I gð²`@ACDK´@EK¿g°>gð²8@ g L§`\´@kL]´@EM¿gµ2@ g J–E ¿N™@EGlN¢J´g(259 EQN.AbortEdit 248 EQIO.GetInfo 238 EQIO.EqnType 223 EQN.StartEdit 194 EQIO.GetInfo 184 EQIO.EqnType 161 EQN.StartEdit 147 EQIO.Selection 130 MENU 112 SPAWN.MOUSE 101 EQN.AbortEdit 23 EQN.ResultObj 5 EQN.EditWindow) (280 CHANGED 243 wholeEditFn 229 CHANGED 204 EquationDefaultSelectFn 189 specialSelectFn 175 MIDDLE 167 CHANGED 135 EDIT 120 LEFT 106 CHANGED 74 \LASTKEYSTATE 53 \LASTKEYSTATE 32 \LASTKEYSTATE) ( 10 (create MENU CENTERFLG _ T ITEMS _ (QUOTE ((Select (QUOTE SELECT) "Select the image object") (Edit (QUOTE EDIT) "Edit selected piece of the equation"))))) EQIO.Copy :D8 (P 4 data P 0 dataList I 0 eqnObj) G@ @ @H°d\ ¹JµIh[I&ºµêKh@ (68 EQIO.Create 63 EQIO.CopyList 58 EQIO.AllProps 33 FS.Copy 19 COPY 14 EQIO.EqnType 5 EQIO.EqnDataList) NIL () EQIO.CopyList :D8 (P 3 item I 0 list) 4@dš3¦@ ‘@@´!@@°d[ ¸IµHhZH&¹µêJ(32 EQIO.CopyList 11 STRINGP) NIL () EQIO.Get :D8 (P 2 dataList P 1 kind P 0 *READTABLE* I 0 fileStream) ,o @ @ IJh@ (41 EQIO.Create 36 READ 24 FS.Get 18 READ 9 FIND-READTABLE) NIL ( 4 "INTERLISP") EQIO.Put :D8 (P 0 *READTABLE* I 1 fileStream I 0 eqnObj) 8o @ A @ A @ A (53 PRIN2 47 EQIO.CopyList 42 EQIO.AllProps 36 FS.Put 30 EQIO.EqnDataList 24 PRIN2 18 EQIO.EqnType 9 FIND-READTABLE) NIL ( 4 "INTERLISP") EQIO.WhenDeleted :D8 (P 0 editWindow I 1 window I 0 eqnObj) A @ H´ A h(23 EQN.AbortEdit 11 EQN.ValidEditWindow 5 EQN.EditWindow) NIL () EQIO.SelectRegion :D8 (P 0 dataSpec I 3 imageStream I 2 piece# I 1 data I 0 spec) 9@B !H µ'Ad²#C H º¹JJIÕIIh(33 EQIO.GetDataPosition 27 FS.Box 15 EQIO.GetDataSelectRegion 6 EQIO.GetDataSpec) NIL () EQIO.Selection :D8 (P 4 region P 3 i P 1 piece# P 0 spec I 3 relY I 2 relX I 1 imageStream I 0 eqnObj) N@A H´CH Ôb@ kKJó‘hH@K KA\µKkÔ[°åBC²óK(72 INSIDEP 56 EQIO.SelectRegion 49 EQIO.EqnData 31 EQIO.NumPieces 19 EQIO.GetBox 6 EQIO.Specify) NIL () EQIO.DefaultSelectFn :D8 (P 1 menu P 0 type I 0 eqnObj) {@ Hg ²0@g YÃ³JH@ ¹@gI°.Hg YÃ³H@ ¹HgI¿Id” (120 MENU 111 EQIO.TypeProp 98 EQIO.MakeSelectionMenu 93 EQIO.NumPieces 78 EQIO.TypeProp 65 EQIO.EqnProperty 52 EQIO.MakeSelectionMenu 47 EQIO.NumPieces 32 EQIO.EqnProperty 19 EQIO.GetInfo 5 EQIO.EqnType) (105 selectionMenu 84 MENU 73 selectionMenu 59 selectionMenu 38 MENU 27 selectionMenu 14 variable?) () EQIO.MakeSelectionMenu :D8 (P 8 name P 4 i P 0 pieceNames I 1 numPieces I 0 type) “ A3 ´‚±‹Ajñ´‚±‚@g !`di¿do¿AkBLKó³*H_™H¸OLh€L_¿NµOh^½LkÔ\°ÜO&¾°öM¹dI¿dg ¿dg¿jdnÿdhºdJ ¿(28 EQIO.GetInfo) (124 DEFAULTMENUHELDFN 115 CLRPROMPT 36 |MENUTYPE#| 23 pieceNames) ( 48 "Eqn piece?") EQIO.EqnType :D8 (I 0 eqnObj) @g (10 IMAGEOBJPROP) (5 OBJECTDATUM) () EQIO.EqnDataList :D8 (I 0 eqnObj) @g (10 IMAGEOBJPROP) (5 OBJECTDATUM) () EQIO.SetDataList :D8 (I 1 newDataList I 0 eqnObj) @g@ A(18 IMAGEOBJPROP 11 EQIO.EqnType) (5 OBJECTDATUM) () EQIO.EqnData :D8 (I 1 piece# I 0 eqnObj) @ A (11 NTH 5 EQIO.EqnDataList) NIL () EQIO.EqnProperty :D8 (P 1 props P 0 eqn) `eHdlÙjð²¿kag la'lÙjð´-kag IµlalahY¿kagIhlala°å(92 LISTPUT 79 IMAGEOBJPROP 49 IMAGEOBJPROP 25 IMAGEOBJPROP) (73 props 44 props 20 props) () EQIO.AllProps :D8 (P 0 eqn) 1eHdkÙjð¿kag lÙjð´kagla(46 IMAGEOBJPROP 23 IMAGEOBJPROP) (38 props 18 props) () EQIO.Specify :D8 (P 0 formFn I 2 draw? I 1 imageStream I 0 eqnObj) @ g H´ @ABlH(15 EQIO.GetInfo 5 EQIO.EqnType) (10 formFn) () EQIO.GetInitialProps :D8 (P 2 newProps P 1 initialPropFn P 0 props I 0 type) h@g @g I²@kIZ²H²9HJJ¿JZ³ðH²"Hg'²@g ªo@ HJX°Ú(96 ERROR 84 EQIO.GetInfo 54 LISTPUT 26 EQIO.GetInfo 15 COPY 10 EQIO.GetInfo) (79 variable? 70 numPieces 21 initialPropFn 5 objectProps) ( 90 "EQIO.GetInitialProps: can't specify numPieces for fixed size eqn type = ") EQIO.NumPieces :D8 (P 3 value P 2 type P 1 eqnObj P 0 eqn) seHjñ´jka!I ZHkÙjð²*dg ŸIg [3 µ Jg Jg ²IglaI oJ (112 ERROR 100 EQIO.NewStructure 94 EQIO.EqnProperty 78 EQIO.GetInfo 66 EQIO.GetInfo 50 EQIO.EqnProperty 38 EQIO.GetInfo 19 EQIO.EqnType) (86 numPieces 73 variable? 61 numPieces 45 numPieces 33 variable?) ( 106 "EQIO.NumPieces: equation has fixed # of parts, type = ") EQIO.NewStructure :D8 (P 0 changeFn I 0 eqnObj) *@gh@ g H´@kHh(27 EQIO.GetInfo 17 EQIO.EqnType 11 EQIO.EqnProperty) (22 changeFn 5 selectionMenu) () EQIO.AddType :D8 (P 0 newValue I 3 PROPS I 2 numPieces I 1 formFn I 0 type) IgAgBhC @gH¿@` ¬@`¿@ (70 EQIO.ResetTypeProps 49 MEMB 37 PUTPROP 22 \APPEND2) (62 EquationInfo 56 EquationInfo 44 EquationInfo 31 equationInfo 10 numPieces 4 formFn) () EQIO.GetInfo :D8 (I 1 info I 0 type) @g A'(10 GETPROP) (5 equationInfo) () EQIO.SetInfo :D8 (P 0 spec I 2 newValue I 1 info I 0 type) A@ ´@g Hµo@ AB@gH@ B(61 EQIO.ResetTypeProps 55 PUTPROP 43 LISTPUT 35 ERROR 18 GETPROP 5 EQIO.IsDefined) (49 equationInfo 13 equationInfo) ( 29 "EQIO.SetInfo: warning -- no specifications for eqn type = ") EQIO.TypeProp :D8 (P 1 list P 0 type) `eHdlÙjð²¿kag la'lÙjð´-kag IµlalahY¿kagIhlala°å(92 LISTPUT 79 PUTPROP 49 GETPROP 25 GETPROP) (73 equationProps 44 equationProps 20 equationProps) () EQIO.ResetTypeProps :D8 (I 0 type) h@gh(17 PUTPROP) (11 equationProps 5 EquationTypeMenu) () EQIO.IsDefined :D8 (L (0 type)) @` ´@(10 MEMB) (5 EquationInfo) () EQIO.GetBox :D8 (L (0 specification)) @NIL NIL () EQIO.GetDataSpec :D8 (I 1 piece# I 0 specification) @AkØ (8 NTH) NIL () EQIO.GetDataSpecList :D8 (L (0 specification)) @NIL NIL () EQIO.GetDataPosition :D8 (L (0 dataSpec)) @NIL NIL () EQIO.GetDataSelectRegion :D8 (L (0 dataSpec)) @NIL NIL () EQIO.MakeSpec :D8 (L (1 dataSpecList 0 box)) @ANIL NIL () EQIO.MakeDataSpec :D8 (L (1 selectRegion 0 position)) @ANIL NIL () EQN.AbortEdit :D8 (P 0 editWindow I 0 mainWindow) "@ H ´Hh ¿@ h(30 EQN.StopEdit 23 EQN.ContinueFlg 14 WINDOWP 5 EQN.EditWindow) NIL () EQN.StopEdit :D8 (P 0 editWindow I 0 mainWindow) -@ H ´H ¿H ¿H h(41 CLOSEW 34 TEDIT.QUIT 29 TEXTSTREAM 22 EQN.FinishEdit 14 WINDOWP 5 EQN.EditWindow) NIL () EQN.ContinueEdit :D8 (P 6 numPieces P 5 oldPiece# P 4 end P 3 increment P 2 newPiece# P 1 continueFlg P 0 process I 0 window) ÷@ É.H–H ¿@ @ "Idið˜¿JkÔºi±¢´‚±»Id3 ²:¿J@ MIÔN Zjð¬J´ J ´Nºh¹JMÙjðhð°]²>I[3 ´rKjð³MK—K ³AI\3 ¢L³8JKÔºL¢i°0jKó–LJñhð°%JLñhð°Id3@ð˜JkIZ3 ŒoI ¿h´@ @ JId´g h(243 EQN.StartNextEdit 227 EQN.ResultWindow 221 EQN.ResultObj 211 ERROR 147 \FZEROP 106 \FZEROP 91 IMOD 79 EQIO.NumPieces 74 EQN.ResultObj 37 EQN.PieceNumber 31 EQN.ContinueFlg 23 TTY.PROCESS 10 \INSUREWINDOW 5 EQN.ResultWindow) (237 PENDINGDEL) ( 205 "EQN.ContinueEdit: Invalid value for continueFlg = ") EQN.FinishEdit :D8 (P 0 mainWindow I 0 window) 9@ @ h ¿@ ¿H@g ¿Hh i(53 EQN.EditWindow 45 EQN.UpdateEdit 40 GETWINDOWUSERPROP 27 EQN.AbortEdit 20 EQN.ObjEditWindow 14 EQN.ResultObj 5 EQN.ResultWindow) (35 NOUPDATE) () EQN.MakeEditWindow :D8 (P 0 editWindow I 2 YSIZE I 1 XSIZE I 0 mainWindow) ˜jd@ Él lBÖi ÔohiH@ggg HggHggHggHgg@ggH(148 WINDOWADDPROP 132 WINDOWADDPROP 116 WINDOWADDPROP 100 WINDOWDELPROP 84 WINDOWADDPROP 68 ATTACHWINDOW 42 CREATEW 30 CREATEREGION 24 HEIGHTIFWINDOW 7 \INSUREWINDOW) (143 EQN.SnuggleWindows 138 RESHAPEFN 127 EQN.SnuggleWindows 122 RESHAPEFN 111 SHAPEW 106 REJECTMAINCOMS 95 SHAPEW 90 PASSTOMAINCOMS 79 DETACHWINDOW 74 CLOSEFN 62 LOCALCLOSE 57 LEFT 52 BOTTOM) ( 35 "Eqn edit") EQN.SetUpEdit :D8 (I 4 piece# I 3 continueFlg I 2 eqnObj I 1 mainWindow I 0 editWindow) 5@A @B @C @D @goB@ (50 EQN.ObjEditWindow 43 PUTWINDOWPROP 27 EQN.PieceNumber 20 EQN.ContinueFlg 13 EQN.ResultObj 6 EQN.ResultWindow) (33 TEDIT.MENU.COMMANDS) ( 38 (Find Looks Substitute Character% Looks (Equation (QUOTE EQN.Equation)) (Exit (QUOTE Quit) "exit from equation editor" (SUBITEMS (Next% Piece (QUOTE EQN.NextPiece)) (Finish% Eqn (QUOTE EQN.FinishEqn)) (Abort (QUOTE EQN.NoUpdateAbort) "Terminates eqn editor without changing eqn."))))) EQN.StartEdit :D8 (P 6 $$PROPLST$$ P 5 $$TEXTOBJ$$ P 4 len P 3 box P 2 editStream P 1 editWindow P 0 data I 4 initialSEL I 3 continueFlg I 2 piece# I 1 mainWindow I 0 eqnObj) A Bjñ´‚±B@ ñ’±ó@B AHA [AKKYhIhogA ÉFg'µA h IA@CB I ZHJ \Ddgð²¿JkLgi °!3 JDjgDÃ—JD ¿AI A ³0A MÉF^µMgghFhgg°ï(283 LISTPUT 231 TEXTOBJ 226 TEXTSTREAM 218 EQN.SubEditorP 212 EQN.EditWindow 204 TEDIT.SETSEL 189 TEDIT.SETSEL 171 TEDIT.SETSEL 144 FS.Insert 136 TEXTSTREAM 130 EQN.SetUpEdit 119 TEDIT 114 \APPEND2 106 GETPROMPTWINDOW 85 TEXTOBJ 80 TEXTSTREAM 60 EQN.MakeEditWindow 48 FS.Box 43 DECODE/WINDOW/OR/DISPLAYSTREAM 33 EQIO.EqnData 21 EQIO.NumPieces 5 EQN.AbortEdit) (278 EQN.AbortEdit 273 QUITFN 261 EQN.AbortEdit 256 QUITFN 251 TEXTOBJ 240 TEXTOBJ 196 SELECTION 184 RIGHT 164 RIGHT 152 PENDINGDEL 97 PROMPTWINDOW 90 TEXTOBJ 74 PROMPTWINDOW) ( 69 (QUITFN EQN.FinishEdit AFTERQUITFN EQN.ContinueEdit CHARFN EQN.CharFn)) EQN.StartNextEdit :D8 (I 4 initialSEL I 3 continueFlg I 2 newPiece# I 1 mainWindow I 0 eqnObj) @ABCD A @ (22 TEDIT.OBJECT.CHANGED 16 TEXTSTREAM 10 EQN.StartEdit) NIL () EQN.UpdateEdit :D8 (P 5 ptr P 4 piece# P 3 eqnObj P 2 datum P 1 value P 0 editWindow I 1 noChangeFLG I 0 mainWindow) p@ QH ´[H »A³>*<<") EQN.TEditSpecialChar :D8 (P 1 syntax P 0 table I 1 charcode I 0 textObj F 2 TEDIT.READTABLE) 1@ ÉFg' µRAH ddgðh(36 TEDIT.GETSYNTAX 23 READTABLEP 5 TEXTOBJ) (43 NONE 17 READTABLE 10 TEXTOBJ) () EQN.SnuggleWindows :D8 (I 0 window) @ @ (11 EQN.SnuggleMainWindow 5 REPOSITIONATTACHEDWINDOWS) NIL () EQN.SnuggleMainWindowA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 region F 1 window F 2 SI::*RESETFORMS* F 3 mainW) 7gQoQgghRcSPPPÔ(52 MOVEW 28 WINDOWADDPROP) (23 MOVEW 18 REJECTMAINCOMS 4 WINDOWDELPROP) ( 10 (REJECTMAINCOMS MOVEW)) EQN.SnuggleMainWindow :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 region P 0 mainW I 0 window F 5 LISPXHIST) D@ H ´3H@ð³-@ YU!g ¿$H h(63 EQN.SnuggleMainWindow 52 SI::RESETUNWIND 47 \MVLIST 42 EQN.SnuggleMainWindowA0001 27 WINDOWREGION 14 WINDOWP 5 MAINWINDOW) (37 SI::RESETUNWIND) () EQN.EquationFontNumber :D8 (P 2 i P 0 size I 0 fontSpec) `@µ `b3µ @g ` k2JIó³0`J g HÕ ½L“LMó”M¼J[€JkÔZ°ÐK(74 ABS 67 FONTPROP 57 ELT 37 ARRAYSIZE 24 FONTPROP) (62 SIZE 51 EquationFontSpecs 32 EquationFontSpecs 19 SIZE 7 DEFAULTFONT) () EQN.EquationFont :D8 (I 0 n) -`d @dHó‘¿HkHó‘k€H (42 COPY 37 ELT 10 ARRAYSIZE) (4 EquationFontSpecs) () EQN.GetEqnFont :D8 (I 0 fontSpec) @ (10 EQN.EquationFont 5 EQN.EquationFontNumber) NIL () EQN.MakeFS :D8 (I 1 fontSpec I 0 item) @ “@h@µA@ h(26 FS.MakeItem 21 MKSTRING 5 IMAGEOBJP) NIL () EQN.AdjustWindow :D8 (P 3 howAttached P 2 newHeight P 1 attachedWindows P 0 region I 2 dHeight I 1 dWidth I 0 editWindow) ^@ É@ bl i HBÔ½\Mó‘L€MZ@HHJHÕÕl HAÔ_¿^Oó‘NOJh h(90 SHAPEW 61 WIDTHIFWINDOW 24 HEIGHTIFWINDOW 13 ATTACHEDWINDOWS 5 \INSUREWINDOW) NIL () EQN.CheckWindowSize :D8 (P 3 extraHeight P 2 height P 1 box I 1 eqnObj I 0 window) T@ ´LAg A@ lH@g lIÖdnó“¿nJÕ[djñ´@jKh(80 EQN.AdjustWindow 45 GETWINDOWPROP 28 DECODE/WINDOW/OR/DISPLAYSTREAM 18 IMAGEOBJPROP 5 EQN.SubEditorP) (40 HEIGHT 13 IMAGEBOXFN) () EQN.SubEditorP :D8 (I 0 window) @ (5 EQN.ResultWindow) NIL () EQN.WindowFromText :D8 (P 0 w I 0 textObjORStream) .@ ÉH µH µ o@ (43 ERROR 30 WINDOWP 21 WINDOWP 5 TEXTOBJ) (10 TEXTOBJ) ( 37 "EQN.WindowFromText: unable to find window for textobj/stream = ") EQN.EditWindow :D8 (P 1 w P 0 window) ^eHdkÙjð²<¿kag I ´:I ›I kað‘IkaghhlÙjð´kagla(91 PUTWINDOWPROP 67 PUTWINDOWPROP 48 EQN.ResultWindow 41 OPENWP 33 WINDOWP 24 GETWINDOWUSERPROP) (83 EditWindow 61 EditWindow 19 EditWindow) () EQN.ResultWindow :D8 (P 0 editWindow) 1eHdkÙjð¿kag lÙjð´kagla(46 PUTWINDOWPROP 23 GETWINDOWUSERPROP) (38 ResultWindow 18 ResultWindow) () EQN.ResultObj :D8 (P 0 editWindow) 1eHdkÙjð¿kag lÙjð´kagla(46 PUTWINDOWPROP 23 GETWINDOWUSERPROP) (38 ResultObj 18 ResultObj) () EQN.PieceNumber :D8 (P 0 editWindow) 1eHdkÙjð¿kag lÙjð´kagla(46 PUTWINDOWPROP 23 GETWINDOWUSERPROP) (38 PieceNumber 18 PieceNumber) () EQN.ContinueFlg :D8 (P 0 editWindow) 1eHdkÙjð¿kag lÙjð´kagla(46 PUTWINDOWPROP 23 GETWINDOWUSERPROP) (38 ContinueFlg 18 ContinueFlg) () EQN.ValidEditWindow :D8 (I 1 eqnObj I 0 editWindow) @ ´@ ´ @ Að´@(21 EQN.ResultObj 13 OPENWP 5 WINDOWP) NIL () EQN.ObjEditWindow :D8 (P 2 eqnObj P 1 editWindow P 0 eqn) ge Hjñ´[kaZd²U ´NHdkÙjð²)¿Jg YdJ µ0I´-JghhlÙjð´laJ YJgI(100 IMAGEOBJPROP 87 EQN.ValidEditWindow 69 IMAGEOBJPROP 52 EQN.ValidEditWindow 44 IMAGEOBJPROP 22 IMAGEOBJP) (94 editWindow 63 editWindow 39 editWindow) () EQN.Make :D8 (P 0 numPieces I 3 PROPS I 2 fontSpec I 1 dataList I 0 type) L@ ²9Cg'@dB@g ‘HH´ o@ ABCo@ (73 ERROR 61 EQIO.Create 54 EQN.DefaultData 48 ERROR 31 EQIO.GetInfo 5 EQIO.IsDefined) (26 variable? 13 numPieces) ( 67 "Unknown equation type = " 42 "Can't specify numPieces for type = ") FS.Box :D8 (P 12 shift P 11 imageBox P 10 fullFont P 9 itemDescent P 8 itemAscent P 7 itemWidth P 5 item P 4 scale P 3 descent P 2 ascent P 1 width I 1 imageStream I 0 data) Ð @jddhA %HµIJKÔKjh½jdd3M ²/Mg ¾MAlN__¿OOÕ_¿O°SM ²NM hddA _¿LM Ö_¿M O _¿OOÈÔ_¿OÈ OÕ_¿IOÔ¹JOó‘JOºKOó‘KO[HX±ÿC(141 STRINGWIDTH 134 FS.ItemValue 124 FS.ItemShift 114 FONTCREATE 104 FS.ItemFont 96 FS.RealStringP 56 IMAGEOBJPROP 43 IMAGEOBJP 10 DSPSCALE) (166 FONTDESCRIPTOR 153 FONTDESCRIPTOR 51 IMAGEBOXFN) () FS.Copy :D8 (P 4 item I 0 data) ;P@°1d\ ²Lg »LkK…L ¸IµHhZH&¹µÐJ(39 COPYALL 26 IMAGEOBJPROP 13 IMAGEOBJP) (21 COPYFN) () FS.Display :D8 (P 10 box P 9 shift P 8 oldFont P 7 yPos P 6 xPos P 5 item P 2 yStart P 1 xStart P 0 scale I 2 invert? I 1 imageStream I 0 data) (hA ABŸhA ¹hA º@±ÒdM ²HhA hA Mg »MAlK¿NMg ¼MAlLÔOA°|M ²thA HM Ö M A ¿Ojð³O—O ©jOA¿M A ¿OA ¿Ojð³O—O «jdOÕA¿µ‚±ÿ-B´/@A IJOÕOOhnÿÿgAh(292 DSPFILL 255 FS.Box 234 RELMOVETO 222 \FZEROP 203 DSPFONT 194 PRIN1 188 FS.ItemValue 181 RELMOVETO 171 \FZEROP 152 DSPFONT 146 FS.ItemFont 136 FS.ItemShift 129 DSPFONT 120 FS.RealStringP 111 MOVETO 93 IMAGEOBJPROP 72 IMAGEOBJPROP 58 DSPYPOSITION 51 DSPXPOSITION 42 IMAGEOBJP 26 DSPYPOSITION 18 DSPXPOSITION 6 DSPSCALE) (286 INVERT 88 IMAGEBOXFN 67 DISPLAYFN) () FS.Get :D8 (I 0 fileStream) @ (5 HREAD) NIL () FS.Put :D8 (I 1 fileStream I 0 data) @A (6 HPRINT) NIL () FS.ItemFont :D8 (L (0 dataItem)) @´@NIL NIL () FS.ItemValue :D8 (I 0 dataItem) @d’ ´@(11 IMAGEOBJP) NIL () FS.ItemShift :D8 (L (0 dataItem)) @µjµjNIL NIL () FS.MakeItem :D8 (I 2 shift I 1 string I 0 fontSpec) "Bµ@Ahjð³øB—B ³ì@ABh(22 \FZEROP) NIL () FS.Extract :D8 (P 12 nextItem P 11 string P 10 shift P 9 fontSpec P 8 item P 3 result P 2 data P 1 CHcount P 0 EOFptr I 0 stream) K @j @ j"0HIñ³+LZdALµ7MZ` JµVM[d¢±ðd ¢±åKIkÔY@ ¾Mµ Nh]¼°ÂN&½°½_d3˜ O_¿Nµ Oh^½L\°¨O&¾°÷_¿JºO µ|@O _¿@O _¿O JO²BO ³8O@O ô²*O@O ô²OO _¿JZ_°ÀOOO_¿NµOh^½±ÿO&¾±ÿ@Hjð³!Hµk o K ²èh°æ(324 \FZEROP 316 FS.MakeItem 306 FS.ExtractFont 266 FS.MakeItem 244 CONCAT 239 CHARACTER 226 FS.ExtractShift 212 FS.ExtractFont 199 IMAGEOBJP 182 MKSTRING 177 CHARACTER 166 FS.ExtractShift 154 FS.ExtractFont 143 IMAGEOBJP 102 FS.AllowedChar 59 FS.RealStringP 12 GETEOFPTR 6 SETFILEPTR) NIL ( 311 "") FS.ExtractFont :D8 (P 0 looks I 1 selOrCh# I 0 stream) 7@A Hg'Hg'Hg'Hg'Hg'hh(6 TEDIT.GET.LOOKS) (43 EXPANSION 36 SLOPE 29 WEIGHT 22 SIZE 15 FAMILY) () FS.ExtractShift :D8 (P 1 shift P 0 looks I 1 selOrCh# I 0 stream) $@A Hg'YµHg'Y“jIÕj(6 TEDIT.GET.LOOKS) (25 SUBSCRIPT 15 SUPERSCRIPT) () FS.Insert :D8 (P 3 shift P 2 item P 1 length I 1 stream I 0 data) Ô@j"HµIZ IkÔ¹JA ±®J ¢±“IJ Ô¹J [jð³:Kµ.jKó²JAJ hgJ gjKÕh°Y ²ÏAJ hJ °8AJ hgJ gKh°AJ ¿HX±ÿ6(203 TEDIT.CARETLOOKS 198 FONTCREATE 193 FS.ItemFont 184 TEDIT.INSERT 168 FS.ItemFont 156 FS.ItemValue 147 TEDIT.INSERT 142 FONTCREATE 137 FS.ItemFont 130 FS.ItemValue 121 \FZEROP 114 TEDIT.INSERT 96 FS.ItemFont 84 FS.ItemValue 62 FS.ItemShift 54 NCHARS 49 FS.ItemValue 38 FS.RealStringP 29 TEDIT.INSERT.OBJECT 17 IMAGEOBJP) (173 SUPERSCRIPT 162 FONT 101 SUBSCRIPT 90 FONT) () FS.AllowedChar :D8 (L (0 charcode)) l @ñhðNIL NIL () FS.RealStringP :D8 (I 1 nullOk I 0 item) @´Aµ@ oôhð(12 FS.ItemValue) NIL ( 17 "") (PRETTYCOMPRINT EQUATIONSCOMS) (RPAQQ EQUATIONSCOMS ((* ;;; "EQUATION module: Part 1 of 3") (* ; "functions for image object") (FNS EQIO.CreateFns EQIO.Create EQIO.Imagebox EQIO.Display EQIO.ButtonEventIn EQIO.Copy EQIO.CopyList EQIO.Get EQIO.Put EQIO.WhenDeleted EQIO.SelectRegion EQIO.Selection EQIO.DefaultSelectFn EQIO.MakeSelectionMenu) (* ;;; "functions to handle individual equation props and data") (FNS EQIO.EqnType EQIO.EqnDataList EQIO.SetDataList EQIO.EqnData EQIO.EqnProperty EQIO.AllProps EQIO.Specify EQIO.GetInitialProps EQIO.NumPieces EQIO.NewStructure) (* ;;; "functions to handle equation specification info") (FNS EQIO.AddType EQIO.GetInfo EQIO.SetInfo EQIO.TypeProp EQIO.ResetTypeProps EQIO.IsDefined EQIO.GetBox EQIO.GetDataSpec EQIO.GetDataSpecList EQIO.GetDataPosition EQIO.GetDataSelectRegion EQIO.MakeSpec EQIO.MakeDataSpec) (* ;;; "variable specification") (GLOBALVARS EquationInfo EquationTypeMenu EquationImageFns UnknownEquationData EquationDefaultSelectFn) (VARS (EquationImageFns NIL)) (INITVARS EquationInfo ( EquationDefaultSelectFn (QUOTE EQIO.DefaultSelectFn))) (P (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU ( QUOTE (Equation (QUOTE EQN.Equation))))) (P (* ; "needed to force the getfn to be recognized before any new eqns defined") (SETQ EquationImageFns ( EQIO.CreateFns))) (VARS UnknownEquationData) (PROP ARGNAMES EQIO.TypeProp EQIO.NumPieces EQIO.AllProps EQIO.EqnProperty) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow EQIO.TypeProp EQIO.NumPieces EQIO.AllProps EQIO.EqnProperty))) (* ;;; "EQUATIONEDIT module: Part 2 of 3") (* ; "functions to edit data pieces") (FNS EQN.AbortEdit EQN.StopEdit EQN.ContinueEdit EQN.FinishEdit EQN.MakeEditWindow EQN.SetUpEdit EQN.StartEdit EQN.StartNextEdit EQN.UpdateEdit EQN.DefaultData EQN.TypeMenu) (* ;;; "hooks to control behavior of equation subeditor") (FNS EQN.Equation EQN.NextPiece EQN.FinishEqn EQN.NoUpdateAbort EQN.PreventUpdate EQN.CharFn EQN.TEditSpecialChar EQN.SnuggleWindows EQN.SnuggleMainWindow) (* ;;; "functions to handle equation fonts") (FNS EQN.EquationFontNumber EQN.EquationFont EQN.GetEqnFont EQN.MakeFS) (* ;;; "utilities") (FNS EQN.AdjustWindow EQN.CheckWindowSize) (FNS EQN.SubEditorP EQN.WindowFromText EQN.EditWindow EQN.ResultWindow EQN.ResultObj EQN.PieceNumber EQN.ContinueFlg EQN.ValidEditWindow EQN.ObjEditWindow) (FNS EQN.Make) ( GLOBALVARS EquationFontSpecs) (VARS EquationFontSpecs) (PROP ARGNAMES EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow))) (* ;;; "FORMATSTRING module: Part 3 of 3") (FNS FS.Box FS.Copy FS.Display FS.Get FS.Put FS.ItemFont FS.ItemValue FS.ItemShift FS.MakeItem FS.Extract FS.ExtractFont FS.ExtractShift FS.Insert FS.AllowedChar FS.RealStringP) (* ;;; "Now load EQUATIONFORMS") (FILES EQUATIONFORMS))) (RPAQQ EquationImageFns NIL) (RPAQ? EquationInfo NIL) (RPAQ? EquationDefaultSelectFn (QUOTE EQIO.DefaultSelectFn)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (Equation (QUOTE EQN.Equation)))) (SETQ EquationImageFns (EQIO.CreateFns)) (RPAQQ UnknownEquationData (((Gacha 10) "[unknown equation]"))) (PUTPROPS EQIO.TypeProp ARGNAMES (NIL (type prop {newValue}) args)) (PUTPROPS EQIO.NumPieces ARGNAMES (NIL (eqnObj {newValue}) args)) (PUTPROPS EQIO.AllProps ARGNAMES (NIL (eqnObj {newValue}) args)) (PUTPROPS EQIO.EqnProperty ARGNAMES (NIL (eqnObj prop {newValue}) args)) (RPAQ EquationFontSpecs (READARRAY-FROM-LIST 3 (QUOTE POINTER) 1 (QUOTE ((TimesRoman 8) (TimesRoman 10 ) (TimesRoman 12) NIL)))) (PUTPROPS EQN.ObjEditWindow ARGNAMES (NIL (eqnObj {newEditWindow}) args)) (PUTPROPS EQN.ContinueFlg ARGNAMES (NIL (editWindow {continueFlg}) args)) (PUTPROPS EQN.PieceNumber ARGNAMES (NIL (editWindow {pieceNumber}) args)) (PUTPROPS EQN.ResultObj ARGNAMES (NIL (editWindow {resultObj}) args)) (PUTPROPS EQN.ResultWindow ARGNAMES (NIL (editWindow {resultWindow}) args)) (PUTPROPS EQN.EditWindow ARGNAMES (NIL (window {editWindow}) args)) (FILESLOAD EQUATIONFORMS) (PUTPROPS EQUATIONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988)) NIL