← Back to branch summary

~ubuntu-branches/ubuntu/karmic/xpuzzles/karmic

« back to all changes in this revision

Viewing changes to xmball/make.com

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2005-08-22 16:29:42 UTC
  • mfrom: (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050822162942-tdtf178zkpd3xxdg
Tags: 7.1.3-1ubuntu1
Update {build-,}depends for xorg -> mesa transition.

Show diffs side-by-side

added added

removed removed

Lines of Context:
xmball/make.com
1
 
$ save_verify='f$verify(0)
2
 
$! set ver
3
 
$!
4
 
$!      Compile and link for xmball
5
 
$!
6
 
$! USAGE:
7
 
$! @make [debug clobber clean]
8
 
$!       debug : compile with debugger switch
9
 
$!       clean : clean all except executable
10
 
$!       clobber : clean all
11
 
$!
12
 
$! If you have
13
 
$!              XVMSUTILS library (VMS6.2 or lower)
14
 
$!              XPM library
15
 
$! insert the correct directory instead of X11:
16
 
$ xvmsutilsf="X11:XVMSUTILS.OLB"
17
 
$ xpmf="SYS$LIBRARY:LIBXPM.OLB"
18
 
$!
19
 
$! Already assumes DEC C on Alpha.
20
 
$! Assume VAX C on VAX.
21
 
$ decc=0
22
 
$! Assume DEC C on VAX.
23
 
$! decc=1
24
 
$!
25
 
$ QUOTE = """""""""
26
 
$ QUOTE = QUOTE + QUOTE + QUOTE
27
 
$ scorepath = "SCOREPATH=" + QUOTE + "[]" + QUOTE
28
 
$ scorefile = "SCOREFILE=" + QUOTE + "mball.scores" + QUOTE
29
 
$ logpath = "LOGPATH=" + QUOTE + "[]" + QUOTE
30
 
$ logfile = "LOGFILE=" + QUOTE + "mball.log" + QUOTE
31
 
$ defscore=="''scorepath',''scorefile'"
32
 
$ deflog=="''logpath',''logfile'"
33
 
$!
34
 
$! NOTHING SHOULD BE MODIFIED BELOW
35
 
$!
36
 
$ if p1 .eqs. "CLEAN" then goto Clean
37
 
$ if p1 .eqs. "CLOBBER" then goto Clobber
38
 
$!
39
 
$ axp=f$getsyi("HW_MODEL") .ge. 1024
40
 
$ sys_ver=f$edit(f$getsyi("version"),"compress")
41
 
$ if f$extract(0,1,sys_ver) .nes. "V"
42
 
$ then
43
 
$   type sys$input
44
 
This script will assume that the operating system version is at least V7.0.
45
 
$!
46
 
$   sys_ver="V7.0"
47
 
$ endif
48
 
$ sys_maj=0+f$extract(1,1,sys_ver)
49
 
$ if sys_maj .lt. 7
50
 
$ then
51
 
$   xvmsutils=f$search("''xvmsutilsf'") .nes. ""
52
 
$ endif
53
 
$ xpm=f$search("''xpmf'") .nes. ""
54
 
$!
55
 
$!
56
 
$! Create .opt file
57
 
$ close/nolog optf
58
 
$ open/write optf xmball.opt
59
 
$!
60
 
$ defs=="VMS"
61
 
$ defs=="''defs',HAVE_MOTIF"
62
 
$ if xpm then defs=="''defs',HAVE_XPM"
63
 
$ if sys_maj .lt. 7
64
 
$ then
65
 
$   if xvmsutils then defs=="''defs',USE_XVMSUTILS"
66
 
$ else
67
 
$   defs=="''defs',SRAND=srand48,LRAND=lrand48,MAXRAND=2147483648.0"
68
 
$ endif
69
 
$ defs=="''defscore',''deflog',''defs'"
70
 
$!
71
 
$!
72
 
$! Establish the Compiling Environment
73
 
$!
74
 
$! Set compiler command
75
 
$ if axp
76
 
$ then
77
 
$   cc=="cc/standard=vaxc/define=(''defs')"
78
 
$ else
79
 
$   if decc
80
 
$   then
81
 
$     cc=="cc/decc/standard=vaxc/define=(''defs')"
82
 
$   else ! VAX C
83
 
$     cc=="cc/define=(''defs')"
84
 
$   endif
85
 
$ endif
86
 
$ if p1 .eqs. "DEBUG" .or. p2 .eqs. "DEBUG" .or. p3 .eqs. "DEBUG"
87
 
$ then
88
 
$   if axp
89
 
$   then
90
 
$     cc=="cc/deb/noopt/standard=vaxc/define=(''defs')/list"
91
 
$   else
92
 
$     if decc
93
 
$     then
94
 
$       cc=="cc/deb/noopt/decc/standard=vaxc/define=(''defs')/list"
95
 
$     else ! VAX C
96
 
$       cc=="cc/deb/noopt/define=(''defs')/list"
97
 
$     endif
98
 
$   endif
99
 
$   link=="link/deb"
100
 
$ endif
101
 
$!
102
 
$ if axp .or. .not. decc
103
 
$ then
104
 
$   define/nolog sys sys$library
105
 
$ endif
106
 
$!
107
 
$ write sys$output "Compiling xmball with ''defs'"
108
 
$ call make Mball.obj   "cc Mball.c"   Mball.c MballP.h Mball.h
109
 
$ call make MballU.obj  "cc MballU.c"  MballU.c MballP.h Mball.h
110
 
$ call make rngs.obj    "cc rngs.c"    rngs.c
111
 
$ call make xmball.obj  "cc xmball.c"  xmball.c Mball.h
112
 
$!
113
 
$! Get libraries
114
 
$ if xpm then write optf "''xpmf'/lib"
115
 
$ if sys_maj .lt. 7
116
 
$ then
117
 
$   if xvmsutils then write optf "''xvmsutilsf'/lib"
118
 
$ endif
119
 
$! if .not. axp then write optf "sys$library:vaxcrtl/lib"
120
 
$ write optf "sys$library:vaxcrtl/lib"
121
 
$ if axp then write optf "sys$library:ucx$ipc_shr/share"
122
 
$ if axp then write optf "sys$share:decw$xextlibshr/share"
123
 
$ if axp then write optf "sys$share:decw$xtlibshrr5/share"
124
 
$ if .not. axp then write optf "sys$library:ucx$ipc/lib"
125
 
$! write optf "sys$share:decw$dxmlibshr/share"
126
 
$ write optf "sys$share:decw$xmlibshr12/share"
127
 
$ write optf "sys$share:decw$xlibshr/share"
128
 
$ close optf
129
 
$!
130
 
$! LINK
131
 
$ write sys$output "Linking xmball"
132
 
$ link/map xmball/opt
133
 
$!
134
 
$ set noverify
135
 
$ exit
136
 
$!
137
 
$Clobber:      ! Delete executables, Purge directory and clean up object files
138
 
$!                and listings
139
 
$ delete/noconfirm/log xmball.exe;*
140
 
$!
141
 
$Clean:        ! Purge directory, clean up object files and listings
142
 
$ close/nolog optf
143
 
$ purge
144
 
$ delete/noconfirm/log *.lis;*
145
 
$ delete/noconfirm/log *.obj;*
146
 
$ delete/noconfirm/log *.opt;*
147
 
$ delete/noconfirm/log *.map;*
148
 
$!
149
 
$ exit
150
 
$!
151
 
! SUBROUTINE TO CHECK DEPENDENCIES
152
 
$ make: subroutine
153
 
$   v='f$verify(0)
154
 
$!   p1       What we are trying to make
155
 
$!   p2       Command to make it
156
 
$!   p3 - p8  What it depends on
157
 
$
158
 
$   if (f$extract(0,3,p2) .eqs. "cc ") then write optf "''p1'"
159
 
$   if (f$extract(0,3,p2) .eqs. "CC ") then write optf "''p1'"
160
 
$
161
 
$   if f$search(p1) .eqs. "" then goto MakeIt
162
 
$   time=f$cvtime(f$file(p1,"RDT"))
163
 
$   arg=3
164
 
$Loop:
165
 
$   argument=p'arg
166
 
$   if argument .eqs. "" then goto Exit
167
 
$   el=0
168
 
$Loop2:
169
 
$   file=f$element(el," ",argument)
170
 
$   if file .eqs. " " then goto Endl
171
 
$   afile=""
172
 
$Loop3:
173
 
$   ofile=afile
174
 
$   afile=f$search(file)
175
 
$   if afile .eqs. "" .or. afile .eqs. ofile then goto NextEl
176
 
$   if f$cvtime(f$file(afile,"RDT")) .gts. time then goto MakeIt
177
 
$   goto Loop3
178
 
$NextEL:
179
 
$   el=el+1
180
 
$   goto Loop2
181
 
$EndL:
182
 
$   arg=arg+1
183
 
$   if arg .le. 8 then goto Loop
184
 
$   goto Exit
185
 
$
186
 
$MakeIt:
187
 
$   set verify
188
 
$   'p2
189
 
$   vv='f$verify(0)
190
 
$Exit:
191
 
$   if v then set verify
192
 
$ endsubroutine