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>
2026-05-04 15:16:50 +00:00 · 2024-03-13 11:49:16 -07:00
parent 44e42940a9
commit 5e5fea9ceb
54 changed files with 1436 additions and 1065 deletions
--- a/library/lafite/LAFITE-NOXNSPATCH
+++ b/library/lafite/LAFITE-NOXNSPATCH
@@ -0,0 +1,117 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+(FILECREATED "24-Feb-2024 12:03:41" {WMEDLEY}<library>lafite>LAFITE-NOXNSPATCH.;1 7148   
+
+      :EDIT-BY rmk
+
+      :PREVIOUS-DATE "24-Feb-2024 12:02:23" {WMEDLEY}<library>lafite>NOXNSPATCH.;2)
+
+
+(PRETTYCOMPRINT LAFITE-NOXNSPATCHCOMS)
+
+(RPAQQ LAFITE-NOXNSPATCHCOMS
+       [
+        (* ;; "Suppress login/clearinghouse/nsmail if not running XNS.  Mail stuff is necessary in order to parse old NS messages in existing folders.  User should set NS.USER.NAME to the canonical name (E.g. %"Ronald Kaplan%") before starting Lafite.")
+
+        [COMS                                                (* ; "Suppress general XNS access")
+              (FNS NOXNSLOGIN NOXNSCANONICAL.NSHOSTNAME NOXNSGETCLEARINGHOUSE)
+              (P (MOVD? 'LOGIN 'XNSLOGIN)
+                 (MOVD 'NOXNSLOGIN 'LOGIN)
+                 (MOVD? '\CANONICAL.NSHOSTNAME 'XNSCANONICAL.NSHOSTNAME)
+                 (MOVD 'NOXNSCANONICAL.NSHOSTNAME '\CANONICAL.NSHOSTNAME)
+                 (MOVD? 'GETCLEARINGHOUSE 'XNSGETCLEARINGHOUSE)
+                 (MOVD 'NOXNSGETCLEARINGHOUSE 'GETCLEARINGHOUSE]
+        (COMS                                                (* ; 
+                                        "Let Unixmail deal with old NS messages when XNS unavailable")
+              (FNS NOXNSNSMAIL.NEW.AUTHENTICATE NOXNSNSMAIL.MAKEANSWERFORM NOXNSNSMAIL.NEW.SEND 
+                   NOXNSNSMAIL.NEW.SEND.PARSE)
+              (INITVARS (NS.USER.NAME "no NS user name"))
+              (VARS (LAFITE.USE.ALL.MODES NIL))
+              (P (MOVD? '\NSMAIL.NEW.AUTHENTICATE 'XNSNSMAIL.NEW.AUTHENTICATE)
+                 (MOVD 'NOXNSNSMAIL.NEW.AUTHENTICATE '\NSMAIL.NEW.AUTHENTICATE)
+                 (MOVD? '\NSMAIL.MAKEANSWERFORM 'XNSNSMAIL.MAKEANSWERFORM)
+                 (MOVD 'NOXNSNSMAIL.MAKEANSWERFORM '\NSMAIL.MAKEANSWERFORM)
+                 (MOVD? '\NSMAIL.NEW.SEND 'XNSNSMAIL.NEW.SEND)
+                 (MOVD 'NOXNSNSMAIL.NEW.SEND '\NSMAIL.NEW.SEND)
+                 (MOVD? '\NSMAIL.NEW.SEND.PARSE 'XNSNSMAIL.NEW.SEND.PARSE)
+                 (MOVD 'NOXNSNSMAIL.NEW.SEND.PARSE '\NSMAIL.NEW.SEND.PARSE))
+              (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
+                                                      LAFITE-DECLS])
+
+
+
+(* ;; 
+"Suppress login/clearinghouse/nsmail if not running XNS.  Mail stuff is necessary in order to parse old NS messages in existing folders.  User should set NS.USER.NAME to the canonical name (E.g. %"Ronald Kaplan%") before starting Lafite."
+)
+
+
+
+
+(* ; "Suppress general XNS access")
+
+(DEFINEQ
+
+(NOXNSLOGIN
+  [LAMBDA (HOST FLG DIRECTORY MSG)                       (* ; "Edited 14-Oct-97 18:38 by rmk:")
+
+    (* ;; "Replace login with NOOP Lisp isn't running XNS")
+
+    (CL:WHEN (STREQUAL "1" (UNIX-GETENV "LDELISPXNS"))
+           (XNSLOGIN HOST FLG DIRECTORY MSG])
+
+(NOXNSCANONICAL.NSHOSTNAME
+  [LAMBDA (HOST)                                         (* ; "Edited 11-Feb-98 14:34 by rmk:")
+
+    (* ;; "Replace login with NOOP Lisp isn't running XNS")
+
+    (CL:WHEN (STREQUAL "1" (UNIX-GETENV "LDELISPXNS"))
+           (XNSCANONICAL.NSHOSTNAME HOST])
+
+(NOXNSGETCLEARINGHOUSE
+  [LAMBDA NIL                                            (* ; "Edited  6-Mar-99 01:15 by rmk:")
+
+    (* ;; "Replace login with NOOP Lisp isn't running XNS")
+
+    (CL:WHEN (STREQUAL "1" (UNIX-GETENV "LDELISPXNS"))
+           (XNSGETCLEARINGHOUSE])
+)
+
+(MOVD? 'LOGIN 'XNSLOGIN)
+
+(MOVD 'NOXNSLOGIN 'LOGIN)
+
+(MOVD? '\CANONICAL.NSHOSTNAME 'XNSCANONICAL.NSHOSTNAME)
+
+(MOVD 'NOXNSCANONICAL.NSHOSTNAME '\CANONICAL.NSHOSTNAME)
+
+(MOVD? 'GETCLEARINGHOUSE 'XNSGETCLEARINGHOUSE)
+
+(MOVD 'NOXNSGETCLEARINGHOUSE 'GETCLEARINGHOUSE)
+
+
+
+(* ; "Let Unixmail deal with old NS messages when XNS unavailable")
+
+(DEFINEQ
+
+(NOXNSNSMAIL.NEW.AUTHENTICATE
+  [LAMBDA NIL                                                (* ; "Edited 18-Mar-99 10:39 by rmk:")
+                                                             (* ; "Edited  8-Mar-99 20:59 by rmk:")
+                                                             (* ; "Edited  6-Mar-99 11:54 by rmk:")
+
+    (* ;; "Fake up lafite user data when not running XNS.  This permits us to parse old mail folders with NS mesages and detect whether they are from the current user.")
+
+    (IF (STREQUAL "1" (UNIX-GETENV "LDELISPXNS"))
+        THEN (XNSNSMAIL.NEW.AUTHENTICATE)
+      ELSE (CREATE LAFITEMODEDATA
+                      FULLUSERNAME _ (CONCAT NS.USER.NAME ":" CH.DEFAULT.DOMAIN ":" 
+                                            CH.DEFAULT.ORGANIZATION)
+                      SHORTUSERNAME _ (UNIX-USERNAME)
+                      UNPACKEDUSERNAME _ (CREATE NSNAME
+                                                NSOBJECT _ NS.USER.NAME
+                                                NSDOMAIN _ CH.DEFAULT.DOMAIN
+                                                NSORGANIZATION _ CH.DEFAULT.ORGANIZATION])
+
+(NOXNSNSMAIL.MAKEANSWERFORM
+  [LAMBDA (MSGDESCRIPTORS MAILFOLDER)                        (* ; "Edited 31-Mar-99 17:04 by rmk:")
+