github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-07 19:40:48 +00:00
Code Issues Releases Wiki Activity

Updated to no longer exclude EDLM from the macsyma build since the build

Browse Source 
system will now automatically exclude this source (which is intended for
the lisp machine only).  Resolves #1067.
This commit is contained in:
Eric Swenson
2018-07-16 13:09:46 -07:00
parent d392edc158
commit ceae73e472
3 changed files with 51 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
build/build.tcl
View File

@@ -77,13 +77,18 @@ proc build_macsyma_portion {} {
respond "_" "\007"
respond "*" "(load \"liblsp;iota\")"
respond "274630" "(load \"maxtul;docgen\")"
respond "300052" "(load \"maxtul;mcl\")"
respond "302615" "(load \"maxdoc;mcldat\")"
respond "302615" "(load \"libmax;module\")"
respond "303351" "(load \"libmax;maxmac\")"
expect "307161"
respond "300064" "(load \"maxtul;mcl\")"
respond "302627" "(load \"maxdoc;mcldat\")"
respond "302627" "(load \"libmax;module\")"
respond "303363" "(load \"libmax;maxmac\")"
expect "307173"
type "(todo)"
expect ") \r"
expect {
") \r" {
}
"NIL" {
}
}
type "(todoi)"
expect {
") \r" {
@@ -91,10 +96,7 @@ proc build_macsyma_portion {} {
"NIL" {
}
}
type "(mapcan "
type "#'(lambda (x) (cond ((not (memq x\r"
type "'(EDLM)\r"
type ")) (doit x)))) (append todo todoi))"
type "(mapcan #'(lambda (x) (doit x)) (append todo todoi))"
set timeout 1000
expect {
";BKPT" {

1
build/lisp.tcl
View File

@@ -516,7 +516,6 @@ build_macsyma_portion
build_macsyma_portion
build_macsyma_portion
build_macsyma_portion
build_macsyma_portion
respond "*" ":maxtul;maxtul\r"
respond "MAXIMUM TOOLAGE>" "load-info\r"

70
src/maxtul/docgen.37 → src/maxtul/docgen.38 Executable file → Normal file
View File

@@ -237,36 +237,44 @@
(DO ((L MACSYMA-SOURCE-FILES (CDR L)))
((NULL L))
(LET* ((F (CAR L))
(NAME (MACSYMA-SOURCE-FILE-NAME F)))
(FORMAT OUTSTREAM
"~
~%(PUSH '~S MACSYMA-FILE-NAMES)~
~%(DEFPROP ~S ~S DIR)~
~%(DEFPROP ~S ~S GENPREFIX)"
NAME
NAME
(MACSYMA-SOURCE-FILE-DIR F)
NAME
(MACSYMA-SOURCE-FILE-GENPREFIX F)
)
(IF (MACRO-FILE-P (CAR L))
(FORMAT OUTSTREAM
"~%(DEFPROP ~S T MACRO-FILE)"
NAME)
(FORMAT OUTSTREAM
"~
~%(DEFPROP ~S ~S UNFASL-DIR)~
~%(DEFPROP ~S ~S FASL-DIR)~
~%(DEFPROP ~S ~S ERRMSG-DIR)~
~%(DEFPROP ~S ~S IN-CORE)"
NAME
(MACSYMA-SOURCE-FILE-UNFASL-DIR F)
NAME
(MACSYMA-SOURCE-FILE-FASL-DIR F)
NAME
(MACSYMA-SOURCE-FILE-ERRMSG-DIR F)
NAME
(MACSYMA-SOURCE-FILE-IN-CORE F)))))
(NAME (MACSYMA-SOURCE-FILE-NAME F)))
(if (and
(not (INTERSECTIONP
'(PDP10 ITS)
(MACSYMA-SOURCE-FILE-SYSTEMS-NOT-FOR F)))
(INTERSECTIONP
'(PDP10 ITS)
(MACSYMA-SOURCE-FILE-SYSTEMS-FOR F)))
(progn
(FORMAT OUTSTREAM
"~
~%(PUSH '~S MACSYMA-FILE-NAMES)~
~%(DEFPROP ~S ~S DIR)~
~%(DEFPROP ~S ~S GENPREFIX)"
NAME
NAME
(MACSYMA-SOURCE-FILE-DIR F)
NAME
(MACSYMA-SOURCE-FILE-GENPREFIX F)
)
(IF (MACRO-FILE-P (CAR L))
(FORMAT OUTSTREAM
"~%(DEFPROP ~S T MACRO-FILE)"
NAME)
(FORMAT OUTSTREAM
"~
~%(DEFPROP ~S ~S UNFASL-DIR)~
~%(DEFPROP ~S ~S FASL-DIR)~
~%(DEFPROP ~S ~S ERRMSG-DIR)~
~%(DEFPROP ~S ~S IN-CORE)"
NAME
(MACSYMA-SOURCE-FILE-UNFASL-DIR F)
NAME
(MACSYMA-SOURCE-FILE-FASL-DIR F)
NAME
(MACSYMA-SOURCE-FILE-ERRMSG-DIR F)
NAME
(MACSYMA-SOURCE-FILE-IN-CORE F)))))))
(TERPRI OUTSTREAM)
(SETQ WINP T))
;; unwind protected.
@@ -332,4 +340,4 @@
(T
(FORMAT MSGFILES
"~&; Hey, I can't find the macsyma source file ~A.~%"
(NAMESTRING FILE-NAME))))))
(NAMESTRING FILE-NAME))))))