Rmk107 rename lafite files take2 (#1566)

* First commit:  git mv of all XXX.* to LAFITE-XXX.*

* Update all internal references to renamed Lafite files.

---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
Co-authored-by: Larry Masinter <LMM@acm.org>

Author: 3 people

library/lafite/LAFITE

@@ -1,30 +1,47 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "11-Nov-88 19:37:06" |{NEWTON:EUROPARC:RX}<LOVSTRAND>LISP>MEDLEY>LAFITEABBREV.;1|
 5987   
 
-      changes to%:  (VARS LAFITEABBREVCOMS)
+
(FILECREATED "23-Feb-2024 23:14:08" {WMEDLEY}<library>lafite>LAFITE-ABBREV.;1
 6164   
 
-      previous date%: "22-Sep-88 13:06:40" |{NEWTON:EUROPARC:RX}<LOVSTRAND>LISP>LYRIC>LAFITEABBREV.;7|
-)
+      :EDIT-BY rmk
 
+      :PREVIOUS-DATE "11-Nov-88 19:37:06" {WMEDLEY}<library>lafite>LAFITEABBREV.;1)
 
-(* "
-Copyright (c) 1988, 1901 by Xerox Corporation.  All rights reserved.
-")
 
-(PRETTYCOMPRINT LAFITEABBREVCOMS)
+(PRETTYCOMPRINT LAFITE-ABBREVCOMS)
 
-(RPAQQ LAFITEABBREVCOMS ((APPENDVARS (LAFITE.ABBREVS ("*@*:*" "*@*:*" :OUT) ("*@*" "%"*%%*%":GV:Xerox" :IN) ("*@*" "*%%*:GV:Xerox") ("*@*.*" "*%%*:*:Xerox" :IN) ("*.pa" "*:PA:Xerox"))) (INITVARS (LAFITE.ABBREV.DIRECTIONS :BOTH) (LAFITE.ABBREV.MOVE.GAZE.RIGHT T) (LAFITE.ABBREV.TRACE)) (FUNCTIONS SAFEUPPERCHARCODE) (FNS LAFITE.ABBREV LAFITE.ABBREV.MATCH) (ADVISE (NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES) (PARSE.NSNAME :IN \NSMAIL.PARSE1)) (GLOBALVARS LAFITE.ABBREVS LAFITE.ABBREV.DIRECTIONS LAFITE.ABBREV.MOVE.GAZE.RIGHT LAFITE.ABBREV.TRACE)))
+(RPAQQ LAFITE-ABBREVCOMS

+       ((APPENDVARS (LAFITE.ABBREVS ("*@*:*" "*@*:*" :OUT)
+                           ("*@*" "%"*%%*%":GV:Xerox" :IN)
+                           ("*@*" "*%%*:GV:Xerox")
+                           ("*@*.*" "*%%*:*:Xerox" :IN)
+                           ("*.pa" "*:PA:Xerox")))
+        (INITVARS (LAFITE.ABBREV.DIRECTIONS :BOTH)
+               (LAFITE.ABBREV.MOVE.GAZE.RIGHT T)
+               (LAFITE.ABBREV.TRACE))
+        (FUNCTIONS SAFEUPPERCHARCODE)
+        (FNS LAFITE.ABBREV LAFITE.ABBREV.MATCH)
+        (ADVISE (NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES)
+               (PARSE.NSNAME :IN \NSMAIL.PARSE1))
+        (GLOBALVARS LAFITE.ABBREVS LAFITE.ABBREV.DIRECTIONS LAFITE.ABBREV.MOVE.GAZE.RIGHT 
+               LAFITE.ABBREV.TRACE)))
 
-(APPENDTOVAR LAFITE.ABBREVS
 ("*@*:*" "*@*:*" :OUT) ("*@*" "%"*%%*%":GV:Xerox" :IN) ("*@*" "*%%*:GV:Xerox")
- ("*@*.*" "*%%*:*:Xerox" :IN) ("*.pa" "*:PA:Xerox"))
+(APPENDTOVAR LAFITE.ABBREVS
 ("*@*:*" "*@*:*" :OUT)
+                            ("*@*" "%"*%%*%":GV:Xerox" :IN)
+                            ("*@*" "*%%*:GV:Xerox")
+                            ("*@*.*" "*%%*:*:Xerox" :IN)
+                            ("*.pa" "*:PA:Xerox"))
 
-(RPAQ? LAFITE.ABBREV.DIRECTIONS :BOTH)
+(RPAQ? LAFITE.ABBREV.DIRECTIONS
 :BOTH)
 
-(RPAQ? LAFITE.ABBREV.MOVE.GAZE.RIGHT T)
+(RPAQ? LAFITE.ABBREV.MOVE.GAZE.RIGHT
 T)
 
-(RPAQ? LAFITE.ABBREV.TRACE)
+(RPAQ? LAFITE.ABBREV.TRACE
 )
 
-(DEFMACRO SAFEUPPERCHARCODE (CODE) (BQUOTE (if (AND (NUMBERP (\, CODE)) (LEQ (\, CODE) 255)) THEN (GETCASEARRAY UPPERCASEARRAY (\, CODE)) ELSE (\, CODE))))
+(DEFMACRO SAFEUPPERCHARCODE
 (CODE)
+   `(if
 (AND (NUMBERP ,CODE)
+             (LEQ ,CODE 255))
+        THEN
 (GETCASEARRAY UPPERCASEARRAY ,CODE)
+      ELSE
 ,CODE))
 (DEFINEQ
 
 (LAFITE.ABBREV

@@ -36,16 +53,22 @@ Copyright (c) 1988, 1901 by Xerox Corporation.  All rights reserved.
 )
 )
 
-(XCL:REINSTALL-ADVICE (QUOTE (NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES)) :AFTER (QUOTE ((:LAST (SETQ !VALUE (LAFITE.ABBREV !VALUE :IN))))))
+[XCL:REINSTALL-ADVICE '(NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES)
+       :AFTER
+       '((:LAST (SETQ !VALUE (LAFITE.ABBREV
 !VALUE :IN]
 
-(XCL:REINSTALL-ADVICE (QUOTE (PARSE.NSNAME :IN \NSMAIL.PARSE1)) :BEFORE (QUOTE ((:LAST (SETQ NAME (LAFITE.ABBREV NAME :OUT))))))
+[XCL:REINSTALL-ADVICE '(PARSE.NSNAME :IN \NSMAIL.PARSE1)
+       :BEFORE
+       '((:LAST (SETQ NAME (LAFITE.ABBREV
 NAME :OUT]
 
-(READVISE (NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES) (PARSE.NSNAME :IN \NSMAIL.PARSE1))
+(READVISE (NSNAME.TO.STRING :IN \NSMAIL.PRINT.NAMES)
+       (PARSE.NSNAME :IN \NSMAIL.PARSE1))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS LAFITE.ABBREVS LAFITE.ABBREV.DIRECTIONS LAFITE.ABBREV.MOVE.GAZE.RIGHT LAFITE.ABBREV.TRACE)
+(GLOBALVARS LAFITE.ABBREVS LAFITE.ABBREV.DIRECTIONS LAFITE.ABBREV.MOVE.GAZE.RIGHT LAFITE.ABBREV.TRACE
+       )
 )
-(PUTPROPS LAFITEABBREV COPYRIGHT ("Xerox Corporation" 1988 1901))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1425 5397 (LAFITE.ABBREV 1435 . 3321) (LAFITE.ABBREV.MATCH 3323 . 5395)))))
+  (FILEMAP (NIL (1475 1652 (SAFEUPPERCHARCODE 1475 . 1652)) (1653 5625 (LAFITE.ABBREV 1663 . 3549) (
+LAFITE.ABBREV.MATCH 3551 . 5623)))))
 STOP