XEROX MESATOLISP 2 4 1 MESAtoLISP 1 4 By: Kelly Roach (Roach.pa@Xerox.com) Lyricized by Larry Masinter For Internal Xerox Use Only Last revised April 6, 1987. Work in progress. Suggest contacting Masinter.PA before using. INTRODUCTION The MESATOLISP package converts Mesa and Cedar code into Interlisp. (LMM: I'm working on making the target language Common Lisp.). MESATOLISP does not offer 100% translation and the the output of this package will have to be edited considerably with a Lisp editor such as SEdit. MESATOLISP is VERY much still in the development phase. At this time, MESATOLISP is only being recommended to expert volunteers that have a small to medium sized Mesa or Cedar package they would like to convert. The following functions are defined by MESATOLISP: (PARSE.MESA FILE) [Function] Converts a Mesa source file FILE into Interlisp code. The output is a file package filecoms which is bound to the value of PARSE.FILECOMS. (PARSE.CEDAR FILE) [Function] Converts a Cedar source file FILE into Interlisp code. Again, the output is a file package filecoms which is bound to the value of PARSE.FILECOMS. (PARSE.SMURF N) [Function] This is my principle debugging function. If the MESATOLISP parser breaks, (PARSE.SMURF) will show you the text around the point in the source file where the parse got stuck. Send me the name of the source file if this happens. A workaround is to edit out the offending Mesa/Cedar expression using Tedit on your source file, then try again. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERNMODERN MODERN MODERN LOGOMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN &] ñ6 Œ • W6zº