github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-20 02:04:27 +00:00
Code Issues Projects Releases Wiki Activity

LOADUP-*, MEDLEYDIR, UNICODE

Browse Source 
Adjustment for TEDIT-xxx, plus moving UNICODE to the beginning of LOADUP-LISP, with UNICODEDIRECTORIES creating in MEDLEYDIR
This commit is contained in:
rmkaplan 2022-07-14 18:49:58 -07:00
parent 17792da409
commit 8c75696e65
8 changed files with 58 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
library/UNICODE
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "28-Jun-2022 00:02:58" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNICODE.;195 64708
(FILECREATED "13-Jul-2022 11:38:18" 
{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;196 64439
:CHANGES-TO (FNS NUTF8CODEBYTES)
:CHANGES-TO (VARS UNICODECOMS)
:PREVIOUS-DATE "30-Sep-2021 16:03:18"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNICODE.;194)
:PREVIOUS-DATE "28-Jun-2022 00:02:58"
{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;195)
(PRETTYCOMPRINT UNICODECOMS)
@ -25,7 +25,7 @@
(FNS XCCS-UTF8-AFTER-OPEN)
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE))
(FNS XTOUCODE UTOXCODE))
[COMS
(COMS
(* ;; "Unicode mapping files")
(FNS READ-UNICODE-MAPPING-FILENAMES READ-UNICODE-MAPPING WRITE-UNICODE-MAPPING
@ -40,9 +40,7 @@
(UNDEFINEDCODE (CL:PARSE-INTEGER "FFFF" :RADIX
16]
(VARS UNICODE-MAPPING-HEADER)
(INITVARS (UNICODEDIRECTORIES NIL))
(P (PUSHNEW UNICODEDIRECTORIES (PACK* (UNIX-GETENV "MEDLEYDIR")
'/unicode/xerox/]
(INITVARS (UNICODEDIRECTORIES NIL)))
(COMS
(* ;; "Set up translation tables for UTF8 and UTFBE external formats")
@ -832,9 +830,6 @@
(RPAQ? UNICODEDIRECTORIES NIL)
(PUSHNEW UNICODEDIRECTORIES (PACK* (UNIX-GETENV "MEDLEYDIR")
'/unicode/xerox/))
(* ;; "Set up translation tables for UTF8 and UTFBE external formats")
@ -1207,15 +1202,15 @@
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4094 17774 (UTF8.OUTCHARFN 4104 . 6935) (UTF8.INCCODEFN 6937 . 12427) (UTF8.PEEKCCODEFN
12429 . 17203) (\UTF8.BACKCCODEFN 17205 . 17772)) (17775 21101 (UTF16BE.OUTCHARFN 17785 . 18609) (
UTF16BE.INCCODEFN 18611 . 19510) (UTF16BE.PEEKCCODEFN 19512 . 20583) (\UTF16.BACKCCODEFN 20585 . 21099
)) (21131 22939 (MAKE-UNICODE-FORMATS 21141 . 22937)) (23036 24342 (UNICODE.UNMAPPED 23046 . 24340)) (
24343 24879 (XCCS-UTF8-AFTER-OPEN 24353 . 24877)) (25712 26061 (XTOUCODE 25722 . 25890) (UTOXCODE
25892 . 26059)) (26101 42223 (READ-UNICODE-MAPPING-FILENAMES 26111 . 27212) (READ-UNICODE-MAPPING
27214 . 30512) (WRITE-UNICODE-MAPPING 30514 . 34731) (WRITE-UNICODE-INCLUDED 34733 . 39455) (
WRITE-UNICODE-MAPPING-HEADER 39457 . 40689) (WRITE-UNICODE-MAPPING-FILENAME 40691 . 42221)) (45556
54035 (MAKE-UNICODE-TRANSLATION-TABLES 45566 . 54033)) (54452 62478 (HEXSTRING 54462 . 55623) (
UTF8HEXSTRING 55625 . 57830) (NUTF8CODEBYTES 57832 . 58617) (NUTF8STRINGBYTES 58619 . 59100) (
XTOUSTRING 59102 . 62113) (XCCSSTRING 62115 . 62476)) (62479 63948 (SHOWCHARS 62489 . 63946)))))
(FILEMAP (NIL (3945 17625 (UTF8.OUTCHARFN 3955 . 6786) (UTF8.INCCODEFN 6788 . 12278) (UTF8.PEEKCCODEFN
12280 . 17054) (\UTF8.BACKCCODEFN 17056 . 17623)) (17626 20952 (UTF16BE.OUTCHARFN 17636 . 18460) (
UTF16BE.INCCODEFN 18462 . 19361) (UTF16BE.PEEKCCODEFN 19363 . 20434) (\UTF16.BACKCCODEFN 20436 . 20950
)) (20982 22790 (MAKE-UNICODE-FORMATS 20992 . 22788)) (22887 24193 (UNICODE.UNMAPPED 22897 . 24191)) (
24194 24730 (XCCS-UTF8-AFTER-OPEN 24204 . 24728)) (25563 25912 (XTOUCODE 25573 . 25741) (UTOXCODE
25743 . 25910)) (25952 42074 (READ-UNICODE-MAPPING-FILENAMES 25962 . 27063) (READ-UNICODE-MAPPING
27065 . 30363) (WRITE-UNICODE-MAPPING 30365 . 34582) (WRITE-UNICODE-INCLUDED 34584 . 39306) (
WRITE-UNICODE-MAPPING-HEADER 39308 . 40540) (WRITE-UNICODE-MAPPING-FILENAME 40542 . 42072)) (45287
53766 (MAKE-UNICODE-TRANSLATION-TABLES 45297 . 53764)) (54183 62209 (HEXSTRING 54193 . 55354) (
UTF8HEXSTRING 55356 . 57561) (NUTF8CODEBYTES 57563 . 58348) (NUTF8STRINGBYTES 58350 . 58831) (
XTOUSTRING 58833 . 61844) (XCCSSTRING 61846 . 62207)) (62210 63679 (SHOWCHARS 62220 . 63677)))))
STOP

BIN
library/UNICODE.LCOM
View File

Binary file not shown.

16
sources/LOADUP-FULL
View File

@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4390
(FILECREATED "14-Jul-2022 12:33:11" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;6 4656
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
:PREVIOUS-DATE "12-Jul-2022 21:57:39"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;5)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@ -45,7 +47,9 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA NIL (* ; "Edited 7-Mar-2022 21:06 by larry")
[LAMBDA NIL (* ; "Edited 14-Jul-2022 12:32 by rmk")
(* ; "Edited 12-Jul-2022 21:57 by rmk")
(* ; "Edited 7-Mar-2022 21:06 by larry")
(* ; "Edited 2-Mar-2022 13:58 by larry")
(* ; "Edited 15-Jan-2022 15:48 ")
(* ; "Edited 29-Apr-2021 22:27 by rmk:")
@ -72,8 +76,8 @@
(LOADFULLFONTS)
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER
THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
UNIXCOMM UNIXCHAT))
(COND
@ -91,5 +95,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (639 4352 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4102) (FIXMETA 4104 . 4350)))))
(FILEMAP (NIL (693 4618 (LOADFULLFONTS 703 . 2144) (LOADUP-FULL 2146 . 4368) (FIXMETA 4370 . 4616)))))
STOP

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

16
sources/LOADUP-LISP
View File

@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5132
(FILECREATED "13-Jul-2022 14:10:00" 
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;5| 5331
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE " 2-Mar-2022 16:31:39" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
:PREVIOUS-DATE "12-Jul-2022 21:57:32"
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;4|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@ -17,11 +19,13 @@
(DEFINEQ
(LOADUP-LISP
(LAMBDA NIL (* \; "Edited 4-Mar-2022 19:13 by larry")
(LAMBDA NIL (* \; "Edited 13-Jul-2022 14:09 by rmk")
(* \; "Edited 4-Mar-2022 19:13 by larry")
(* \; "Edited 2-Mar-2022 16:31 by larry")
(* \; "Edited 28-Feb-2022 15:02 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(SETQQ COMPILE.EXT LCOM) (* \; "should be set earlier")
(SETQQ COMPILE.EXT LCOM)
(MEDLEY-INIT-VARS) (* \; "should be set earlier")
(DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
(FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
(PRINTOUT T X " bootloaded" T)
@ -73,7 +77,7 @@
CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES))
(LOADUP '(PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT))
(LOADUP '(ADDARITH))
(LOADUP '(CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW
(LOADUP '(UNICODE CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW
WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE
CMLARRAYINSPECTOR EDITINTERFACE TTYIN))
(LOADUP '(BREAK-AND-TRACE))
@ -117,5 +121,5 @@
(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (642 4910 (LOADUP-LISP 652 . 4908)))))
(FILEMAP (NIL (696 5109 (LOADUP-LISP 706 . 5107)))))
STOP

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.

26
sources/MEDLEYDIR
View File

@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Mar-2022 19:39:13" {DSK}<home>larry>medley>sources>MEDLEYDIR.;2 6274
(FILECREATED "13-Jul-2022 15:34:07" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;10 6722
:CHANGES-TO (VARS MEDLEY-INIT-VARS)
:CHANGES-TO (VARS MEDLEYDIRCOMS MEDLEY-INIT-VARS)
:PREVIOUS-DATE " 5-Mar-2022 12:43:54" {DSK}<home>larry>medley>sources>MEDLEYDIR.;1)
:PREVIOUS-DATE "13-Jul-2022 11:37:28"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;8)
(PRETTYCOMPRINT MEDLEYDIRCOMS)
@ -19,6 +21,10 @@
(BEFOREMAKESYSFORMS (SETQ MEDLEYDIR))
(AFTERSYSOUTFORMS (MEDLEY-INIT-VARS))
(AFTERMAKESYSFORMS (MEDLEY-INIT-VARS)))
(* ;;
 "NOTE: Do not use backquote in the variable definitions. These get evaluated early in the loadup.")
(VARS MEDLEY-INIT-VARS)
(DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS])
@ -106,6 +112,12 @@
(ADDTOVAR AFTERMAKESYSFORMS (MEDLEY-INIT-VARS))
(* ;;
"NOTE: Do not use backquote in the variable definitions. These get evaluated early in the loadup.")
(RPAQQ MEDLEY-INIT-VARS
([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal" "greetfiles" "doctools"]
[LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"]
@ -115,8 +127,8 @@
(DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
[LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"]
[USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
(,LOGINHOST/DIR "INIT"]
[USERGREETFILES (LIST (CONS LOGINHOST/DIR '("INIT" COM))
(CONS LOGINHOST/DIR '("INIT"]
(DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts" "fonts/adobe"
"fonts/big" "fonts/other")
NIL NIL T))
@ -124,11 +136,13 @@
NIL NIL T))
(INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
NIL NIL T))
(UNICODEDIRECTORIES (MEDLEYDIR '("unicode/xerox")
NIL NIL T))
(XCL::*WHERE-IS-CASH-FILES*)))
(DECLARE%: EVAL@COMPILE DOCOPY
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1383 4793 (MEDLEY-INIT-VARS 1393 . 3007) (MEDLEYDIR 3009 . 4791)))))
(FILEMAP (NIL (1588 4998 (MEDLEY-INIT-VARS 1598 . 3212) (MEDLEYDIR 3214 . 4996)))))
STOP

BIN
sources/MEDLEYDIR.LCOM
View File

Binary file not shown.