Rmk97 medleyfontfile format

internal/loadups/LOADUP-FULL

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Apr-2025 05:14:27" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;2
 4662   
+
(FILECREATED "16-Jun-2025 16:33:00" {MEDLEY}<internal>loadups>LOADUP-FULL.;4
 4743   
 
-      :EDIT-BY "lmm"
+      :EDIT-BY rmk
 
       :CHANGES-TO (FNS LOADFULLFONTS)
 
-      :PREVIOUS-DATE "31-Jul-2023 18:28:53" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;1
-)
+      :PREVIOUS-DATE "23-Apr-2025 05:14:27" {MEDLEY}<internal>loadups>LOADUP-FULL.;3)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -17,13 +16,14 @@
 (DEFINEQ
 
 (LOADFULLFONTS

-  [LAMBDA NIL
                                                (* ; "Edited 23-Apr-2025 05:13 by lmm")


+  [LAMBDA NIL
                                                (* ; "Edited 16-Jun-2025 16:32 by rmk")


+                                                             (* ; "Edited 23-Apr-2025 05:13 by lmm")


                                                            (* ; "Edited 13-Feb-2021 22:51 by larry")

 
     (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")

 
     (PRINTOUT T "Loading FULL fonts..." T)
-    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
+    (SETQ DISPLAYFONTEXTENSIONS '(MEDLEYDISPLAYFONT DISPLAYFONT))
     (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
     (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                 (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 
@@ -89,5 +89,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (493 4624 (LOADFULLFONTS 503 . 2059) (LOADUP-FULL 2061 . 4374) (FIXMETA 4376 . 4622)))))
+  (FILEMAP (NIL (454 4705 (LOADFULLFONTS 464 . 2140) (LOADUP-FULL 2142 . 4455) (FIXMETA 4457 . 4703)))))
 STOP

library/IMAGEOBJ

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Dec-2024 19:44:25" {WMEDLEY}<library>IMAGEOBJ.;4
 34381  
+
(FILECREATED " 9-Jun-2025 20:33:49" {WMEDLEY}<library>IMAGEOBJ.;5
 32874  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS GET.OBJ.FROM.USER)
+      :CHANGES-TO (VARS IMAGEOBJCOMS)
 
-      :PREVIOUS-DATE " 7-Jul-2024 21:04:16" {WMEDLEY}<library>IMAGEOBJ.;3)
+      :PREVIOUS-DATE " 7-Dec-2024 19:44:25" {WMEDLEY}<library>IMAGEOBJ.;4)
 
 
 (PRETTYCOMPRINT IMAGEOBJCOMS)
@@ -15,8 +15,7 @@
        ((COMS 
               (* ;; "Bit-map image objects")

 
-              (FNS BITMAPTEDITOBJ COERCETOBITMAP WINDOWTITLEFONT \PRINTBINARYBITMAP \READBINARYBITMAP
-                   )
+              (FNS BITMAPTEDITOBJ COERCETOBITMAP WINDOWTITLEFONT)
 
               (* ;; "fns for the bitmap tedit object.")

 
@@ -117,42 +116,6 @@
                                                              (* reset type of function that changes 
 
                                                             the title font)

     (DSPFONT FONT WindowTitleDisplayStream)))
-
-(\PRINTBINARYBITMAP

-  (LAMBDA (BITMAP STREAM)
                                    (* rrb "23-Jul-84 15:16")

-
-          (* * prints the representation of a bitmap onto STREAM in a form that can be 
-
          read back by \READBINARYBITMAP.)

-
-    (PROG ((STREAM (GETSTREAM STREAM 'OUTPUT))
-           BMH)
-          (OR (BITMAPP BITMAP)
-              (\ILLEGAL.ARG BITMAP))
-          (\WOUT STREAM (BITMAPWIDTH BITMAP))
-          (\WOUT STREAM (SETQ BMH (BITMAPHEIGHT BITMAP)))
-          (\WOUT STREAM (BITSPERPIXEL BITMAP))
-          (\BOUTS STREAM (fetch
 (BITMAP BITMAPBASE) of
 BITMAP)
-                 0
-                 (ITIMES (fetch
 (BITMAP BITMAPRASTERWIDTH) of
 BITMAP)
-                        BMH BYTESPERWORD))
-          (RETURN BITMAP))))
-
-(\READBINARYBITMAP

-  (LAMBDA (STREAM)
                                           (* rrb "23-Jul-84 15:17")

-
-          (* * reads a bitmap printed on STREAM by \PRINTBINARYBITMAP.)

-
-    (SETQ STREAM (GETSTREAM STREAM 'INPUT))
-    (PROG ((BMW (\WIN STREAM))
-           (BMH (\WIN STREAM))
-           (BPP (\WIN STREAM))
-           BITMAP)
-          (SETQ BITMAP (BITMAPCREATE BMW BMH BPP))
-          (\BINS STREAM (fetch
 (BITMAP BITMAPBASE) of
 BITMAP)
-                 0
-                 (ITIMES (fetch
 (BITMAP BITMAPRASTERWIDTH) of
 BITMAP)
-                        BMH BYTESPERWORD))
-          (RETURN BITMAP))))
 )
 
 
@@ -770,12 +733,11 @@
 
 (FILESLOAD EDITBITMAP)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2975 7471 (BITMAPTEDITOBJ 2985 . 3628) (COERCETOBITMAP 3630 . 5674) (WINDOWTITLEFONT 
-5676 . 6023) (\PRINTBINARYBITMAP 6025 . 6816) (\READBINARYBITMAP 6818 . 7469)) (7522 23640 (
-BMOBJ.BUTTONEVENTINFN 7532 . 12078) (BMOBJ.COPYFN 12080 . 12706) (BMOBJ.DISPLAYFN 12708 . 16437) (
-BMOBJ.IMAGEBOXFN 16439 . 18854) (BMOBJ.PUTFN 18856 . 19788) (BMOBJ.INIT 19790 . 20829) (BMOBJ.GETFN5 
-20831 . 21421) (BMOBJ.CREATE.MENU 21423 . 23638)) (23730 27014 (SCALED.BITMAP.GETFN 23740 . 24166) (
-BMOBJ.GETFN 24168 . 24703) (BMOBJ.GETFN2 24705 . 25190) (BMOBJ.GETFN3 25192 . 25980) (BMOBJ.GETFN4 
-25982 . 27012)) (28949 34281 (GET.OBJ.FROM.USER 28959 . 30925) (BITMAPOBJ.SNAPW 30927 . 32053) (
-PROMPTFOREVALED 32055 . 34279)))))
+  (FILEMAP (NIL (2914 5964 (BITMAPTEDITOBJ 2924 . 3567) (COERCETOBITMAP 3569 . 5613) (WINDOWTITLEFONT 
+5615 . 5962)) (6015 22133 (BMOBJ.BUTTONEVENTINFN 6025 . 10571) (BMOBJ.COPYFN 10573 . 11199) (
+BMOBJ.DISPLAYFN 11201 . 14930) (BMOBJ.IMAGEBOXFN 14932 . 17347) (BMOBJ.PUTFN 17349 . 18281) (
+BMOBJ.INIT 18283 . 19322) (BMOBJ.GETFN5 19324 . 19914) (BMOBJ.CREATE.MENU 19916 . 22131)) (22223 25507
+ (SCALED.BITMAP.GETFN 22233 . 22659) (BMOBJ.GETFN 22661 . 23196) (BMOBJ.GETFN2 23198 . 23683) (
+BMOBJ.GETFN3 23685 . 24473) (BMOBJ.GETFN4 24475 . 25505)) (27442 32774 (GET.OBJ.FROM.USER 27452 . 
+29418) (BITMAPOBJ.SNAPW 29420 . 30546) (PROMPTFOREVALED 30548 . 32772)))))
 STOP

sources/APUTDQ

@@ -1,18 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Jan-2025 13:35:20" {DSK}<home>matt>Interlisp>medley>sources>APUTDQ.;2
 10901  
+
(FILECREATED "11-Jun-2025 08:43:36" {WMEDLEY}<sources>APUTDQ.;5
 10433  
 
-      :EDIT-BY "mth"
+      :EDIT-BY rmk
 
-      :CHANGES-TO (FNS LOADUP)
+      :CHANGES-TO (VARS APUTDQCOMS)
 
-      :PREVIOUS-DATE "25-Oct-2022 11:44:17" {DSK}<home>matt>Interlisp>medley>sources>APUTDQ.;1)
+      :PREVIOUS-DATE "23-May-2025 09:03:46" {WMEDLEY}<sources>APUTDQ.;4)
 
 
-(* ; "
-Copyright (c) 1981-1988, 1990, 2021-2022, 2025 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT APUTDQCOMS)
 
 (RPAQQ APUTDQCOMS

@@ -33,10 +29,8 @@ Copyright (c) 1981-1988, 1990, 2021-2022, 2025 by Venue & Xerox Corporation.
                (LOGINHOST/DIR '{DSK}))
         (FNS LOADUP ENDLOADUP)
         (ALISTS (SYSTEMINITVARS \CONNECTED.DIRECTORY DWIMFLG ADDSPELLFLG FILEPKGFLG BUILDMAPFLG 
-                       UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST DIRECTORIES USERGREETFILES 
-                       NETWORKOSTYPES CH.NET.HINT CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION 
-                       ADVISEDFNS LISPUSERSDIRECTORIES DISPLAYFONTDIRECTORIES DISPLAYFONTEXTENSIONS 
-                       INTERPRESSFONTDIRECTORIES))
+                       UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST NETWORKOSTYPES CH.NET.HINT 
+                       CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION ADVISEDFNS))
         [DECLARE%: DONTEVAL@LOAD DOCOPY 
 
                (* ;; "many of these are obsolete and can be removed, but it is unclear which ones")

@@ -173,26 +167,19 @@ Copyright (c) 1981-1988, 1990, 2021-2022, 2025 by Venue & Xerox Corporation.
     (CLRPROMPT])
 )
 
-(ADDTOVAR SYSTEMINITVARS

-          (\CONNECTED.DIRECTORY . {DSK})
-          (DWIMFLG . T)
-          (ADDSPELLFLG . T)
-          (FILEPKGFLG . T)
-          (BUILDMAPFLG . T)
-          (UPDATEMAPFLG . T)
-          (DEFAULTREGISTRY)
-          (DEFAULTPRINTINGHOST)
-          (DIRECTORIES)
-          (USERGREETFILES)
-          (NETWORKOSTYPES)
-          (CH.NET.HINT)
-          (CH.DEFAULT.DOMAIN)
-          (CH.DEFAULT.ORGANIZATION)
-          (ADVISEDFNS)
-          (LISPUSERSDIRECTORIES {DSK})
-          (DISPLAYFONTDIRECTORIES {DSK})
-          (DISPLAYFONTEXTENSIONS DISPLAYFONT)
-          (INTERPRESSFONTDIRECTORIES {DSK}))
+(ADDTOVAR SYSTEMINITVARS
 (\CONNECTED.DIRECTORY . {DSK})
+                         (DWIMFLG . T)
+                         (ADDSPELLFLG . T)
+                         (FILEPKGFLG . T)
+                         (BUILDMAPFLG . T)
+                         (UPDATEMAPFLG . T)
+                         (DEFAULTREGISTRY)
+                         (DEFAULTPRINTINGHOST)
+                         (NETWORKOSTYPES)
+                         (CH.NET.HINT)
+                         (CH.DEFAULT.DOMAIN)
+                         (CH.DEFAULT.ORGANIZATION)
+                         (ADVISEDFNS))
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (DUMMYDEF (ADDSTATS *
)
@@ -261,10 +248,8 @@ Copyright (c) 1981-1988, 1990, 2021-2022, 2025 by Venue & Xerox Corporation.
 
 (ADDTOVAR LAMA
 )
 )
-(PUTPROPS APUTDQ COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
-2021 2022 2025))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3999 6207 (GREETFILENAME 4009 . 5882) (FAULTEVAL 5884 . 5956) (FAULTAPPLY 5958 . 6044) 
-(ERRORX 6046 . 6112) (SET-DOCUMENTATION 6114 . 6205)) (6208 7228 (SMASHFILECOMS 6218 . 6560) (
-SMASHFILECOMSLST 6562 . 7226)) (7322 8926 (LOADUP 7332 . 7916) (ENDLOADUP 7918 . 8924)))))
+  (FILEMAP (NIL (3701 5909 (GREETFILENAME 3711 . 5584) (FAULTEVAL 5586 . 5658) (FAULTAPPLY 5660 . 5746) 
+(ERRORX 5748 . 5814) (SET-DOCUMENTATION 5816 . 5907)) (5910 6930 (SMASHFILECOMS 5920 . 6262) (
+SMASHFILECOMSLST 6264 . 6928)) (7024 8628 (LOADUP 7034 . 7618) (ENDLOADUP 7620 . 8626)))))
 STOP

sources/FILESETS

@@ -1,9 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-May-2023 08:11:56" {DSK}<home>larry>il>medley>sources>FILESETS.;24

-      :EDIT-BY "lmm"
+
(FILECREATED "16-Jun-2025 15:43:50" {MEDLEY}<sources>FILESETS.;5
 6206   
+
+      :EDIT-BY rmk
+
+      :CHANGES-TO (VARS 1LISPSET)
+
+      :PREVIOUS-DATE "10-Jun-2025 18:00:09" {MEDLEY}<sources>FILESETS.;4)
 
-      :PREVIOUS-DATE " 1-Mar-2023 07:49:03" {DSK}<home>larry>il>medley>sources>FILESETS.;23)
 
 (PRETTYCOMPRINT FILESETSCOMS)
 
@@ -53,8 +57,8 @@
        (ASTACK DTDECLARE ATBL LLCODE ACODE COREIO AOFD ADIR PMAP VANILLADISK ATERM APRINT ABASIC 
               AERROR AINTERRUPT MISC BOOTSTRAP CMLMACROS CMLEVAL CMLPROGV CMLSPECIALFORMS LLRESTART 
               LLERROR LLSYMBOL LLPACKAGE PACKAGE-STARTUP CONDITION-PACKAGE XCL-PACKAGE PROC CMLARRAY
-              DSK UFS UFSCALLC PASSWORDS FONT LLDISPLAY APUTDQ COMPATIBILITY DMISC CMLMACROS CMLLIST
-              CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS MAIKOBITBLT MAIKOINIT))
+              DSK UFS UFSCALLC PASSWORDS FONT MEDLEYFONTFORMAT APUTDQ COMPATIBILITY DMISC CMLMACROS 
+              CMLLIST CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS MAIKOBITBLT MAIKOINIT LLDISPLAY))
 
 (RPAQQ 2LISPSET
 (MACHINEINDEPENDENT))
 
@@ -64,8 +68,8 @@
        (IOCHAR MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC
               LLCHAR LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY
               ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER 
-              IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS 
-              DTDECLARE BIGBITMAPS))
+              IMAGEIO PROC MCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS 
+              DTDECLARE))
 
 (RPAQQ MAKEINITFILES
 (MAKEINIT MEM I-NEW))