Skip to content

Commit f0ad3c5

Browse files
authored
All source files converted to LF (#315)
* All source files converted to LF Also, HPRINT: EQUALALL knows about CL arrays FILEIO: STREAM record with fields for external format functions * Delete makeinit.dribble * Converted CR to LF on internal/library and docs/Documentation Tools
1 parent 179325c commit f0ad3c5

File tree

736 files changed

+532763
-6170
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

736 files changed

+532763
-6170
lines changed

greetfiles/SIMPLE-INIT

Lines changed: 65 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1,65 @@
1-
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")(FILECREATED " 6-Feb-2021 16:44:35" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 2208 changes to%: (VARS SIMPLE-INITCOMS) previous date%: " 5-Feb-2021 12:57:29" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3)(PRETTYCOMPRINT SIMPLE-INITCOMS)(RPAQQ SIMPLE-INITCOMS ((* ;;; " Previous content moved into SYNCLISPFILES ") (VARS (FILING.ENUMERATION.DEPTH 1) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (COPYRIGHTSRESERVED NIL)) [P (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE] (FNS INTERLISPMODE)))(* ;;; " Previous content moved into SYNCLISPFILES ")(RPAQQ FILING.ENUMERATION.DEPTH 1)(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"))))(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT")))(RPAQQ COPYRIGHTSRESERVED NIL)(SETQ MEDLEYDIR NIL)(MEDLEY-INIT-VARS)(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))(DEFINEQ(INTERLISPMODE [LAMBDA (OLD?) (* N.H.Briggs " 2-Feb-88 14:26") (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP"))) (XCL:SET-DEFAULT-EXEC-TYPE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP")) (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD? then "OLD-INTERLISP-FILE" else "INTERLISP") :PACKAGE "INTERLISP"]))(DECLARE%: DONTCOPY (FILEMAP (NIL (1360 2185 (INTERLISPMODE 1370 . 2183)))))STOP
1+
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
2+
(FILECREATED " 6-Feb-2021 16:44:35" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 2208
3+
4+
changes to%: (VARS SIMPLE-INITCOMS)
5+
6+
previous date%: " 5-Feb-2021 12:57:29" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3
7+
)
8+
9+
10+
(PRETTYCOMPRINT SIMPLE-INITCOMS)
11+
12+
(RPAQQ SIMPLE-INITCOMS
13+
(
14+
15+
(* ;;; " Previous content moved into SYNCLISPFILES ")
16+
17+
(VARS (FILING.ENUMERATION.DEPTH 1)
18+
[LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
19+
(UNIX-GETENV "HOME"]
20+
[USERGREETFILES `((,LOGINDIR "INIT" COM)
21+
(,LOGINDIR "INIT"]
22+
(COPYRIGHTSRESERVED NIL))
23+
[P (SETQ MEDLEYDIR NIL)
24+
(MEDLEY-INIT-VARS)
25+
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
26+
(FNS INTERLISPMODE)))
27+
28+
29+
30+
(* ;;; " Previous content moved into SYNCLISPFILES ")
31+
32+
33+
(RPAQQ FILING.ENUMERATION.DEPTH 1)
34+
35+
(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
36+
(UNIX-GETENV "HOME"))))
37+
38+
(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
39+
(,LOGINDIR "INIT")))
40+
41+
(RPAQQ COPYRIGHTSRESERVED NIL)
42+
43+
(SETQ MEDLEYDIR NIL)
44+
45+
(MEDLEY-INIT-VARS)
46+
47+
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
48+
(DEFINEQ
49+
50+
(INTERLISPMODE
51+
[LAMBDA (OLD?) (* N.H.Briggs " 2-Feb-88 14:26")
52+
(PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD?
53+
then "OLD-INTERLISP-T"
54+
else "INTERLISP")))
55+
(XCL:SET-DEFAULT-EXEC-TYPE (if OLD?
56+
then "OLD-INTERLISP-T"
57+
else "INTERLISP"))
58+
(SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD?
59+
then "OLD-INTERLISP-FILE"
60+
else "INTERLISP")
61+
:PACKAGE "INTERLISP"])
62+
)
63+
(DECLARE%: DONTCOPY
64+
(FILEMAP (NIL (1360 2185 (INTERLISPMODE 1370 . 2183)))))
65+
STOP

internal/library/ABC

Lines changed: 62 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1,62 @@
1-
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)(FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101 changes to%: (VARS ABCCOMS) previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3)(* "Copyright (c) 1986, 1987, 1988 by Xerox Corporation. All rights reserved.")(PRETTYCOMPRINT ABCCOMS)(RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T) (DWIMIFYCOMPFLG) (MSMACROPROPS COMPILERMACROPROPS) (CLEANUPOPTIONS '(RC F)) (CROSSCOMPILING T) (ASKEDITHIST T) (RECOMPILEDEFAULT 'CHANGES) (CROSSCOMPILING 'ASK)) (FILES (SOURCE) FILESETS) (P (MOVD? 'APPLY* 'SPREADAPPLY*) [RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T) 'Y) (ERSETQ (CHECKIMPORTS EXPORTFILES T] (PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T))))(RPAQQ MSRECORDTRANFLG T)(RPAQQ DWIMIFYCOMPFLG NIL)(RPAQ MSMACROPROPS COMPILERMACROPROPS)(RPAQQ CLEANUPOPTIONS (RC F))(RPAQQ CROSSCOMPILING T)(RPAQQ ASKEDITHIST T)(RPAQQ RECOMPILEDEFAULT CHANGES)(RPAQQ CROSSCOMPILING ASK)(FILESLOAD (SOURCE) FILESETS)(MOVD? 'APPLY* 'SPREADAPPLY*)[RESETVARS ((CROSSCOMPILING T)) (FILESLOAD EXPORTS.ALL) (AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T) 'Y) (ERSETQ (CHECKIMPORTS EXPORTFILES T](PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988))(DECLARE%: DONTCOPY (FILEMAP (NIL)))STOP
1+
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
2+
(FILECREATED "18-Mar-88 16:09:05" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;4 2101
3+
4+
changes to%: (VARS ABCCOMS)
5+
6+
previous date%: "29-Jul-87 12:04:16" {ERIS}<LISPCORE>INTERNAL>LIBRARY>ABC.;3)
7+
8+
9+
(* "
10+
Copyright (c) 1986, 1987, 1988 by Xerox Corporation. All rights reserved.
11+
")
12+
13+
(PRETTYCOMPRINT ABCCOMS)
14+
15+
(RPAQQ ABCCOMS ((VARS (MSRECORDTRANFLG T)
16+
(DWIMIFYCOMPFLG)
17+
(MSMACROPROPS COMPILERMACROPROPS)
18+
(CLEANUPOPTIONS '(RC F))
19+
(CROSSCOMPILING T)
20+
(ASKEDITHIST T)
21+
(RECOMPILEDEFAULT 'CHANGES)
22+
(CROSSCOMPILING 'ASK))
23+
(FILES (SOURCE)
24+
FILESETS)
25+
(P (MOVD? 'APPLY* 'SPREADAPPLY*)
26+
[RESETVARS ((CROSSCOMPILING T))
27+
(FILESLOAD EXPORTS.ALL)
28+
(AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
29+
'Y)
30+
(ERSETQ (CHECKIMPORTS EXPORTFILES T]
31+
(PRIN1
32+
"**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED"
33+
T))))
34+
35+
(RPAQQ MSRECORDTRANFLG T)
36+
37+
(RPAQQ DWIMIFYCOMPFLG NIL)
38+
39+
(RPAQ MSMACROPROPS COMPILERMACROPROPS)
40+
41+
(RPAQQ CLEANUPOPTIONS (RC F))
42+
43+
(RPAQQ CROSSCOMPILING T)
44+
45+
(RPAQQ ASKEDITHIST T)
46+
47+
(RPAQQ RECOMPILEDEFAULT CHANGES)
48+
49+
(RPAQQ CROSSCOMPILING ASK)
50+
(FILESLOAD (SOURCE)
51+
FILESETS)
52+
(MOVD? 'APPLY* 'SPREADAPPLY*)
53+
[RESETVARS ((CROSSCOMPILING T))
54+
(FILESLOAD EXPORTS.ALL)
55+
(AND (EQ (ASKUSER DWIMWAIT 'N "Check imports? " NIL T)
56+
'Y)
57+
(ERSETQ (CHECKIMPORTS EXPORTFILES T]
58+
(PRIN1 "**** SET IL:DFNFLG TO IL:PROP IF YOU EDIT SYSTEM SOURCES THAT CAN'T BE RUN INTERPRETED" T)
59+
(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1986 1987 1988))
60+
(DECLARE%: DONTCOPY
61+
(FILEMAP (NIL)))
62+
STOP

0 commit comments

Comments
 (0)