![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lispconf CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / ucb / lisp|
Return to lispconf CVS log | Up to [CSRG BSD Unix] / 42BSD / ucb / lisp |
1.1 root 1: #!/bin/csh
2: #$Header: lispconf,v 1.14 83/09/12 15:20:50 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
10: #
11: if ($#argv == 1) then
12: set argument = $argv[1]
13: else
14: set argument = junk
15: endif
16:
17: #fix makefile
18: sed "s%^RootDir = .*%RootDir = `pwd`%" Makefile > Make$$
19: mv Make$$ Makefile < /dev/null
20:
21: switch ($argument)
22: case vax_eunice_vms:
23: mv franz/vax/{Makefile,Make.unix}
24: mv franz/vax/{Make.vms,Makefile}
25: case vax_4_1:
26: case vax_4_1a:
27: case vax_4_1c:
28: case vax_4_2:
29: case sun_4_1c:
30: case sun_unisoft:
31: case dual_unisoft:
32: case pixel_unisoft:
33: echo "/* this file created by ../../lispconf */" > franz/h/lconf.h
34: echo "#define $argv[1] 1" >> franz/h/lconf.h
35: rm -f franz/h/{aout,lispo}.h
36: cp /usr/include/a.out.h franz/h/aout.h
37: cp /usr/include/a.out.h franz/h/lispo.h
38: breaksw
39: default:
40: echo "use: lispconf type"
41: echo " where type is one of "
42: echo " vax_4_1 vax_4_1a vax_4_1c vax_4_2"
43: echo " vax_eunice_vms"
44: echo " sun_4_1c sun_unisoft dual_unisoft pixel_unisoft"
45: exit 1
46: endsw
47:
48: set ifusft=""
49: switch ($argument)
50: case vax_*:
51: set VAX mach="vax"
52: (echo vax ucbstd; cat Makefile) | awk -f cvt.awk > Make$$
53: mv Make$$ Makefile < /dev/null
54: breaksw
55: case *_unisoft:
56: set ifusft="unisoft"
57: case sun_4_*:
58: set M68K mach="68k"
59: (echo 68k $ifusft; cat Makefile) | awk -f cvt.awk > Make$$
60: mv Make$$ Makefile < /dev/null
61: breaksw
62: endsw
63:
64: # for the 68k version of the lisp compiler
65: # The type of makefile built depends of the type of 68k
66: # system you have. We assume that sun's have virtual memory
67: # and that dual/unisoft's have no vm (thus, define swapper).
68: # As long as we are checking to see if we are dealing with
69: # a 68000 unisoft machine; make some patches to the C part as well.
70: if ($?M68K) then
71: switch ($argument)
72: case *_unisoft:
73: (echo swapper unisoft;\
74: cat liszt/68k/Makefile) |awk -f cvt.awk > Make$$
75: (echo unisoft;\
76: cat franz/68k/Makefile) |awk -f cvt.awk > franz/68k/Make$$
77: rm -f franz/h/{lispo,aout}.h
78: cp franz/h/duallispo.h franz/h/lispo.h
79: cp franz/h/dualaout.h franz/h/aout.h
80: cp franz/h/hpagsiz.h franz/h/pagsiz.h
81: cp lisplib/autorun/unisoft lisplib/autorun/68k
82: breaksw
83: case sun_4_1c:
84: (echo sun; cat liszt/68k/Makefile) | awk -f cvt.awk > Make$$
85: (echo sun; cat franz/68k/Makefile)\
86: | awk -f cvt.awk > franz/68k/Make$$
87: cp lisplib/autorun/sun4.2 lisplib/autorun/68k
88: breaksw
89: endsw
90: rm -f liszt/68k/Makefile
91: sed "s%^RootDir = .*%RootDir = `pwd`%" Make$$ > liszt/68k/Makefile
92: rm -f Make$$
93: rm -f franz/68k/Makefile
94: mv franz/68k/Make$$ franz/68k/Makefile
95:
96: if ($ifusft/x == unisoft/x) then
97: switch ($argument)
98: case sun_unisoft:
99: set OFFSET=0x8000
100: breaksw
101: case dual_unisoft:
102: set OFFSET=0x800000
103: breaksw
104: case pixel_unisoft:
105: set OFFSET=0x20000
106: breaksw
107: endsw
108: sed "s%^OFFSET = .*%OFFSET = $OFFSET%"\
109: lisplib/autorun/68k > temp$$
110: mv temp$$ lisplib/autorun/68k </dev/null
111: endif
112: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.