|
|
1.1 root 1: #! /bin/csh
2: #$Header: lispconf,v 1.17 85/05/22 08:33:07 sklower Exp $
3: #
4: # csh script to configure lisp
5: # use:
6: # lispconf type
7: # where type is one of
8: # vax_4_1 vax_4_1a vax_4_1c vax_eunice_vms
9: # sun_4_1c sun_unisoft dual_unisoft pixel_unisoft lisa_uniplus3
10: # sun_4_2 sun_4_2beta mc500_2_0
11: #
12: if ($#argv == 1) then
13: set argument = $argv[1]
14: else
15: set argument = junk
16: endif
17:
18: #fix makefile
19: sed "s%^RootDir = .*%RootDir = `pwd`%" Makefile > Make$$
20: mv Make$$ Makefile < /dev/null
21:
22: switch ($argument)
23: case vax_eunice_vms:
24: mv franz/vax/{Makefile,Make.unix}
25: mv franz/vax/{Make.vms,Makefile}
26: case vax_4_1:
27: case vax_4_1a:
28: case vax_4_1c:
29: case vax_4_2:
30: case vax_4_3:
31: case sun_4_1c:
32: case sun_4_2:
33: case sun_4_2beta:
34: case mc500_2_0:
35: case sun_unisoft:
36: case dual_unisoft:
37: case pixel_unisoft:
38: case lisa_unisys3:
39: echo "/* this file created by ../../lispconf */" >! franz/h/lconf.h
40: echo "#define $argv[1] 1" >>! franz/h/lconf.h
41: rm -f franz/h/{aout,lispo}.h
42: cp /usr/include/a.out.h franz/h/aout.h
43: cp /usr/include/a.out.h franz/h/lispo.h
44: breaksw
45: default:
46: echo "use: lispconf type"
47: echo " where type is one of "
48: echo " vax_4_1 vax_4_1a vax_4_1c vax_4_2 vax_4_3"
49: echo " vax_eunice_vms"
50: echo " sun_4_1c sun_unisoft dual_unisoft pixel_unisoft "
51: echo " sun_4_2beta lisa_unisys3 mc500_2_0"
52: exit 1
53: endsw
54:
55: set ifusft=""
56: set ifsys3=""
57: switch ($argument)
58: case vax_*:
59: set VAX mach="vax"
60: (echo vax ucbstd; cat Makefile) | awk -f cvt.awk > Make$$
61: mv Make$$ Makefile < /dev/null
62: breaksw
63: case *_unisys3:
64: set ifsys3="unisys3botch"
65: case *_unisoft:
66: set ifusft="unisoft"
67: case sun_4_*:
68: case mc500_2_*:
69: set M68K mach="68k"
70: (echo 68k ucbstd $ifusft; cat Makefile)| awk -f cvt.awk>Make$$
71: mv Make$$ Makefile < /dev/null
72: breaksw
73: endsw
74:
75: # for the 68k version of the lisp compiler
76: # The type of makefile built depends of the type of 68k
77: # system you have. We assume that sun's and mc500's have virtual
78: # memory and that dual/unisoft's have no vm (thus, define swapper).
79: # As long as we are checking to see if we are dealing with
80: # a 68000 unisoft machine; make some patches to the C part as well.
81: set ifsunII=""
82: if ($?M68K) then
83: switch ($argument)
84: case *_unisys3:
85: case *_unisoft:
86: (echo swapper unisoft;\
87: cat liszt/68k/Makefile) |awk -f cvt.awk > Make$$
88: (echo unisoft $ifsys3;\
89: cat franz/68k/Makefile) |awk -f cvt.awk > franz/68k/Make$$
90: rm -f franz/h/{lispo,aout}.h
91: cp franz/h/duallispo.h franz/h/lispo.h
92: cp franz/h/dualaout.h franz/h/aout.h
93: cp franz/h/hpagsiz.h franz/h/pagsiz.h
94: cp lisplib/autorun/unisoft lisplib/autorun/68k
95: breaksw
96: case sun_4_2beta:
97: case sun_4_2:
98: set ifsunII=sunII
99: case sun_4_1c:
100: (echo sun; cat liszt/68k/Makefile) | awk -f cvt.awk > Make$$
101: (echo sun $ifsunII; cat franz/68k/Makefile)\
102: | awk -f cvt.awk > franz/68k/Make$$
103: cp lisplib/autorun/sun4.2 lisplib/autorun/68k
104: breaksw
105: case mc500_2_*:
106: (echo mc500; cat liszt/68k/Makefile) | awk -f cvt.awk > Make$$
107: (echo mc500; cat franz/68k/Makefile)\
108: | awk -f cvt.awk > franz/68k/Make$$
109: cp lisplib/autorun/mc500 lisplib/autorun/68k
110: breaksw
111: endsw
112: rm -f liszt/68k/Makefile
113: sed "s%^RootDir = .*%RootDir = `pwd`%" Make$$ > liszt/68k/Makefile
114: rm -f Make$$
115: rm -f franz/68k/Makefile
116: mv franz/68k/Make$$ franz/68k/Makefile
117:
118: if ($ifusft/x == unisoft/x) then
119: switch ($argument)
120: case sun_unisoft:
121: set OFFSET=0x40000
122: breaksw
123: case dual_unisoft:
124: set OFFSET=0x800000
125: breaksw
126: case pixel_unisoft:
127: case lisa_unisys3:
128: set OFFSET=0x20000
129: breaksw
130: endsw
131: sed "s%^OFFSET = .*%OFFSET = $OFFSET%"\
132: lisplib/autorun/68k > temp$$
133: mv temp$$ lisplib/autorun/68k </dev/null
134: endif
135: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.