Minor cleanups in LLSUBRS to support new subrs.h for YIELD subr. (#479)
Keep the \INITSUBRS in sorted order: move (YIELD 210) to the end of the list. Change the output of WRITECALLSUBRS so that the guard wraps the whole subrs.h include file. Avoid using literal tabs in the output #defines, pad with spaces and arrange the minimum field widths so that everything lines up better.
This commit is contained in:
Nick Briggs
GitHub
@@ -1,17 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "17-Mar-2021 11:10:55" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;6 27745
|
||||
(FILECREATED "13-Sep-2021 17:12:03" {DSK}<Users>briggs>Projects>medley>sources>LLSUBRS.;8 27017
|
||||
|
||||
changes to%: (VARS \INITSUBRS)
|
||||
(FNS MISCN-NUMBER \MISCN.UFN \UNDEFINED-MISCN-UFN MISCN-COLLECT \GET-MY-BF
|
||||
\INIT-MISCN-TABLE \USER-SUBR-UFN \INIT-USER-SUBR-TABLE
|
||||
\UNDEFINED-USER-SUBR-UFN USER-SUBR-NUMBER EQ-TO-CAR EQ-TO-CADR SUBRNUMBER
|
||||
WRITECALLSUBRS FIX-SUBR-NAME \MOREVMEMFILE \WRITEMAP \COPYSYS0SUBR
|
||||
\PUPLEVEL1STATE SHOWDISPLAY SETSCREENCOLOR \WRITERAWPBI \READRAWPBI RAID
|
||||
\LISPFINISH \GETPACKETBUFFER \GATHERSTATS \DSPRATE DSPBOUT DISKPARTITION
|
||||
\CHECKBCPLPASSWORD SUSPEND-LISP UNIX-USERNAME UNIX-FULLNAME UNIX-GETENV
|
||||
UNIX-GETPARM)
|
||||
(FNS WRITECALLSUBRS)
|
||||
|
||||
previous date%: "16-Mar-2021 23:00:15" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;3)
|
||||
previous date%: "13-Sep-2021 16:07:08" {DSK}<VAR>TMP>LLSUBRS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -316,8 +309,7 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")
|
||||
(RPAQQ \INITSUBRS
|
||||
((YIELD 210)
|
||||
(BACKGROUNDSUBR 6)
|
||||
((BACKGROUNDSUBR 6)
|
||||
(CHECKBCPLPASSWORD 7)
|
||||
(DISKPARTITION 8)
|
||||
(DSPBOUT 9)
|
||||
@@ -442,7 +434,8 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
||||
(CHAR-READP 206)
|
||||
(CHAR-BINS 207)
|
||||
(CHAR-BOUTS 208)
|
||||
(CHAR-FILLBUFFER 209)))
|
||||
(CHAR-FILLBUFFER 209)
|
||||
(YIELD 210)))
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
@@ -485,25 +478,25 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(WRITECALLSUBRS
|
||||
[LAMBDA NIL (* ; "Edited 17-Mar-2021 11:05 by larry")
|
||||
[LAMBDA NIL (* ; "Edited 13-Sep-2021 15:19 by briggs")
|
||||
(CL:WITH-OPEN-FILE (*STANDARD-OUTPUT* "subrs.h" :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
|
||||
(CL:FORMAT T "/* This file written from LLSUBRS on ~A */~&" (DATE))
|
||||
(CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
|
||||
(CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
|
||||
(CL:FORMAT T "/* generate a new version. */~&")
|
||||
(CL:FORMAT T "#ifndef SUBRS_H~&#define SUBRS_H 1~&")
|
||||
(for X in \INITSUBRS do (CL:FORMAT T "#define sb_~A 0~O~&" (FIX-SUBR-NAME
|
||||
(CAR X))
|
||||
(CL:FORMAT T "/* This file written from LLSUBRS on ~22A */~&" (DATE))
|
||||
(CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
|
||||
(CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
|
||||
(CL:FORMAT T "/* generate a new version. */~&")
|
||||
(for X in \INITSUBRS do (CL:FORMAT T "#define sb_~42A 0~O~&"
|
||||
(FIX-SUBR-NAME (CAR X))
|
||||
(CADR X)))
|
||||
(CL:FORMAT T "~&~&/* MISCN opcodes */~&")
|
||||
(for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~A 0~O~&"
|
||||
(for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~39A 0~O~&"
|
||||
(FIX-SUBR-NAME (CAR X))
|
||||
(CADR X)))
|
||||
(CL:FORMAT T "~&~&/* Assigned USER SUBR numbers */~&")
|
||||
(for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~A 0~O~&"
|
||||
(for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~35A 0~O~&"
|
||||
(FIX-SUBR-NAME (CAR X))
|
||||
(CADR X)))
|
||||
(CL:FORMAT T "#endif ~&"])
|
||||
(CL:FORMAT T "#endif~&"])
|
||||
|
||||
(FIX-SUBR-NAME
|
||||
[LAMBDA (NAME) (* ; "Edited 13-Feb-89 16:17 by jds")
|
||||
@@ -695,16 +688,16 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
||||
(PUTPROPS LLSUBRS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1988 1989 1990 1991 1992
|
||||
2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4322 9066 (MISCN-NUMBER 4332 . 4548) (\MISCN.UFN 4550 . 6807) (\UNDEFINED-MISCN-UFN
|
||||
6809 . 7125) (MISCN-COLLECT 7127 . 7344) (\GET-MY-BF 7346 . 7558) (\INIT-MISCN-TABLE 7560 . 9064)) (
|
||||
10450 11739 (ADD-USER-SUBR 10450 . 11739)) (11740 13491 (\USER-SUBR-UFN 11750 . 12325) (
|
||||
\INIT-USER-SUBR-TABLE 12327 . 12792) (\UNDEFINED-USER-SUBR-UFN 12794 . 13137) (USER-SUBR-NUMBER 13139
|
||||
. 13361) (EQ-TO-CAR 13363 . 13424) (EQ-TO-CADR 13426 . 13489)) (17774 18423 (SUBRNUMBER 17784 . 18421
|
||||
)) (18484 20832 (WRITECALLSUBRS 18494 . 20075) (FIX-SUBR-NAME 20077 . 20830)) (21041 26945 (
|
||||
\MOREVMEMFILE 21051 . 21216) (\WRITEMAP 21218 . 21378) (\COPYSYS0SUBR 21380 . 21540) (\PUPLEVEL1STATE
|
||||
21542 . 21706) (SHOWDISPLAY 21708 . 21997) (SETSCREENCOLOR 21999 . 22162) (\WRITERAWPBI 22164 . 22322)
|
||||
(\READRAWPBI 22324 . 22476) (RAID 22478 . 22633) (\LISPFINISH 22635 . 22793) (\GETPACKETBUFFER 22795
|
||||
. 22957) (\GATHERSTATS 22959 . 23117) (\DSPRATE 23119 . 23386) (DSPBOUT 23388 . 23542) (DISKPARTITION
|
||||
23544 . 23839) (\CHECKBCPLPASSWORD 23841 . 24020) (SUSPEND-LISP 24022 . 24280) (UNIX-USERNAME 24282
|
||||
. 24804) (UNIX-FULLNAME 24806 . 25332) (UNIX-GETENV 25334 . 25931) (UNIX-GETPARM 25933 . 26943)))))
|
||||
(FILEMAP (NIL (3639 8383 (MISCN-NUMBER 3649 . 3865) (\MISCN.UFN 3867 . 6124) (\UNDEFINED-MISCN-UFN
|
||||
6126 . 6442) (MISCN-COLLECT 6444 . 6661) (\GET-MY-BF 6663 . 6875) (\INIT-MISCN-TABLE 6877 . 8381)) (
|
||||
9767 11056 (ADD-USER-SUBR 9767 . 11056)) (11057 12808 (\USER-SUBR-UFN 11067 . 11642) (
|
||||
\INIT-USER-SUBR-TABLE 11644 . 12109) (\UNDEFINED-USER-SUBR-UFN 12111 . 12454) (USER-SUBR-NUMBER 12456
|
||||
. 12678) (EQ-TO-CAR 12680 . 12741) (EQ-TO-CADR 12743 . 12806)) (17091 17740 (SUBRNUMBER 17101 . 17738
|
||||
)) (17801 20104 (WRITECALLSUBRS 17811 . 19347) (FIX-SUBR-NAME 19349 . 20102)) (20313 26217 (
|
||||
\MOREVMEMFILE 20323 . 20488) (\WRITEMAP 20490 . 20650) (\COPYSYS0SUBR 20652 . 20812) (\PUPLEVEL1STATE
|
||||
20814 . 20978) (SHOWDISPLAY 20980 . 21269) (SETSCREENCOLOR 21271 . 21434) (\WRITERAWPBI 21436 . 21594)
|
||||
(\READRAWPBI 21596 . 21748) (RAID 21750 . 21905) (\LISPFINISH 21907 . 22065) (\GETPACKETBUFFER 22067
|
||||
. 22229) (\GATHERSTATS 22231 . 22389) (\DSPRATE 22391 . 22658) (DSPBOUT 22660 . 22814) (DISKPARTITION
|
||||
22816 . 23111) (\CHECKBCPLPASSWORD 23113 . 23292) (SUSPEND-LISP 23294 . 23552) (UNIX-USERNAME 23554
|
||||
. 24076) (UNIX-FULLNAME 24078 . 24604) (UNIX-GETENV 24606 . 25203) (UNIX-GETPARM 25205 . 26215)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user