Add lispusers/CONVERT-TO-UTF8

lispusers/CONVERT-TO-UTF8

@@ -0,0 +1,52 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "24-Feb-2026 22:45:57" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;14
 2512   
+
+      :EDIT-BY rmk
+
+      :CHANGES-TO (FNS CONVERT-TO-UTF8)
+
+      :PREVIOUS-DATE "23-Feb-2026 23:58:54" {WMEDLEY}<lispusers>CONVERT-TO-UTF8.;11)
+
+
+(PRETTYCOMPRINT CONVERT-TO-UTF8COMS)
+
+(RPAQQ CONVERT-TO-UTF8COMS
 ((FNS CONVERT-TO-UTF8)))
+(DEFINEQ
+
+(CONVERT-TO-UTF8

+  [LAMBDA (FILENAME)
                                         (* ; "Edited 24-Feb-2026 22:45 by rmk")

+
+    (* ;; "This produces a new version of the source FILENAME with :UTF-8 external format.")

+
+    (* ;; "If we had a list of problematic functions (multiple definitions on multiple files, MOVD's), we could check that against the functions in FILENAME, and at least produce a warning.")

+
+    (* ;; "Compiling may be tricky:  some files have CL:COMPILE-FILE FILETYPE properties that don't correspond to the fact that they actually have only an LCOM.  This tries to revert the filetype back to BCOMPL so that we don't get confused when a DFASL mysteriously appears.")

+
+    (SETQ FILENAME (PSEUDOFILENAME FILENAME))
+    (SETQ FILENAME (OR (FINDFILE FILENAME T)
+                       (ERROR "FILE NOT FOUND" FILENAME)))
+    (if
 [EQ :UTF-8 (CL:WITH-OPEN-FILE (STREAM FILENAME :DIRECTION :INPUT)
+                          (fetch
 (READER-ENVIRONMENT REFORMAT) of
 (GET-ENVIRONMENT-AND-FILEMAP STREAM
+                                                                         T]
+        then
 (PRINTOUT T FILENAME " is already " .P2 :UTF-8 T)
+             NIL
+      else
 (LOAD? 'EXPORTS.ALL)                              (* ; "Maybe this should load SYSEDIT ?")

+           (LOAD FILENAME 'PROP)
+           (LOADCOMP FILENAME)
+           (SETQ FILENAME (PACKFILENAME 'VERSION NIL 'BODY FILENAME))
+           (CL:WHEN [AND (EQ 'CL:COMPILE-FILE (GETPROP (ROOTFILENAME FILENAME)
+                                                     'FILETYPE))
+                         (FINDFILE (PACKFILENAME 'EXTENSION 'LCOM 'BODY FILENAME))
+                         (NOT (FINDFILE (PACKFILENAME 'EXTENSION 'DFASL 'BODY FILENAME]
+               (PRINTOUT T "Changing FILETYPE back to " .P2 :BCOMPL T)
+               (PUTPROP (ROOTFILENAME FILENAME)
+                      'FILETYPE
+                      ':BCOMPL))
+           [SETQ FILENAME (MAKEFILE FILENAME '(NEW :UTF-8]
+           (MAKEFILE1 FILENAME NIL '(F))
+           FILENAME])
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (406 2489 (CONVERT-TO-UTF8 416 . 2487)))))
+STOP