• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1$!
2$! Make ImageMagick X image utilities for VMS.
3$!
4$ on error then continue
5$ deass magick
6$ on error then continue
7$ deass magickcore
8$ on error then continue
9$ deass pango
10$ set noon
11$
12$ option := 'p1'
13$ if option .eqs. "CLEAN"
14$ then
15$    deletee/log [.magickcore]libMagick.olb;*
16$    deletee/log [.coders]libCoders.olb;*
17$    exit
18$ endif
19$ if option .eqs. "REALCLEAN"
20$ then
21$    deletee/log [.magickcore]libMagick.olb;*,[...]*.obj;*
22$    deletee/log [.coders]libCoders.olb;*,[...]*.obj;*
23$    exit
24$ endif
25$ if option .eqs. "DISTCLEAN"
26$ then
27$    deletee/log [.magickcore]libMagick.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
28$    deletee/log [.coders]libCoders.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
29$    exit
30$ endif
31$ if option .eqs. "NOSHR"
32$ then
33$    share := n
34$    option :=
35$ endif
36$ if option .nes. ""
37$ then
38$    write sys$error "Unknown option \", option, "\"
39$    exit
40$ endif
41$ p1 :=
42$link_options="/nodebug/notraceback"
43$if (f$trnlnm("X11") .eqs. "") then define/nolog X11 decw$include:
44$library_options=""
45$compile_options="/nodebug/optimize"
46$if (f$search("sys$system:decc$compiler.exe") .nes. "")
47$then       ! VAX with DEC C compiler
48$  compile_options="/decc/nodebug/optimize"
49$  library_options="_decc"
50$else       ! VAX with VAX C compiler, (GCC library needed for PNG format only)
51$  define/nolog lnk$library sys$library:vaxcrtl
52$  define/nolog sys sys$share
53$  if (f$trnlnm("gnu_cc") .nes. "") then define/nolog lnk$library_1 gnu_cc:[000000]gcclib.olb
54$endif
55$if (f$getsyi("HW_MODEL") .gt. 1023)
56$then       ! Alpha with DEC C compiler
57$  define/nolog sys decc$library_include
58$  compile_options="/debug/optimize/prefix=all/name=(as_is,short)/float=ieee"
59$  library_options="_axp"
60$  share := 'share'y
61$else
62$  share := n
63$endif
64$
65$write sys$output "Making in [.magickcore]"
66$set default [.magickcore]
67$@make
68$set default [-]
69$write sys$output "Making in [.coders]"
70$set default [.coders]
71$@make
72$set default [-]
73$
74$ if share
75$ then
76$    write sys$output "Making shareable image"
77$    link/share/exe=magickshr.exe   [.magickcore]libMagick.olb/lib, -
78  [.coders]libCoders.olb/lib,[.magickcore]libMagick.olb/lib, -
79  []magickshr.opt/opt, -
80  sys$library:freetype.olb/lib, -
81  sys$library:libjasper.olb/lib, -
82  sys$library:libjpeg.olb/lib, -
83  sys$library:libpng.olb/lib, -
84  sys$library:tiff.olb/lib, -
85  sys$library:libz.olb/lib, -
86  sys$library:libbz2.olb/lib, -
87  sys$library:libjbig.olb/lib
88$ libr/crea/share/log magickshr.olb magickshr.exe
89$    set file/trunc magickshr.olb
90$    purge magickshr.olb
91$    link_libraries := [-]magickshr.olb/lib
92$    define/nolog magickshr 'f$environment("default")'magickshr.exe
93$    write sys$output "Shareable image logical MAGICKSHR defined:"
94$    show logi magickshr
95$ else
96$    link_libraries := [.magickcore]libMagick.olb/lib, -
97  [.coders]libCoders.olb/lib, -
98  sys$library:libjasper.olb/lib
99  sys$library:libjpeg.olb/lib, -
100  sys$library:libpng.olb/lib, -
101  sys$library:tiff.olb/lib, -
102  sys$library:freetype.olb/l, -
103  sys$library:libz.olb/lib,-
104  sys$library:libjbig.olb/lib, -
105  sys$library:libbz2.olb/lib
106$ endif
107$ define magickcore [-.magickcore]
108$ set default [.utilities]
109$ define magickwand [-.magickwand]
110$if ((p1 .nes. "") .and. (p1 .nes. "DISPLAY")) then goto SkipDisplay
111$write sys$output "Making Display..."
112$call Make display.c
113$
114$link'link_options' display.obj, -
115  'link_libraries',sys$input:/opt
116  sys$share:decw$xlibshr.exe/share
117$
118$display:==$'f$environment("default")'display
119$write sys$output "..symbol DISPLAY defined."
120$
121$SkipDisplay:
122$if ((p1 .nes. "") .and. (p1 .nes. "IMPORT")) then goto SkipImport
123$write sys$output "Making Import..."
124$call Make import.c
125$
126$link'link_options' import.obj, -
127  'link_libraries',sys$input:/opt
128  sys$share:decw$xlibshr.exe/share
129$
130$import:==$'f$environment("default")'import
131$write sys$output "..symbol IMPORT defined."
132$SkipImport:
133$
134$if ((p1 .nes. "") .and. (p1 .nes. "ANIMATE")) then goto SkipAnimate
135$write sys$output "Making Animate..."
136$call Make animate.c
137$
138$link'link_options' animate.obj, -
139  'link_libraries',sys$input:/opt
140  sys$share:decw$xlibshr.exe/share
141$
142$animate:==$'f$environment("default")'animate
143$write sys$output "..symbol ANIMATE defined."
144$
145$SkipAnimate:
146$if ((p1 .nes. "") .and. (p1 .nes. "MONTAGE")) then goto SkipMontage
147$write sys$output "Making Montage..."
148$call Make montage.c
149$
150$link'link_options' montage.obj, -
151  'link_libraries',sys$input:/opt
152  sys$share:decw$xlibshr.exe/share
153$
154$montage:==$'f$environment("default")'montage
155$write sys$output "..symbol MONTAGE defined."
156$
157$SkipMontage:
158$if ((p1 .nes. "") .and. (p1 .nes. "MOGRIFY")) then goto SkipMogrify
159$write sys$output "Making Mogrify..."
160$call Make mogrify.c
161$
162$link'link_options' mogrify.obj, -
163  'link_libraries',sys$input:/opt
164  sys$share:decw$xlibshr.exe/share
165$
166$mogrify:==$'f$environment("default")'mogrify
167$write sys$output "..symbol MOGRIFY defined."
168$
169$SkipMogrify:
170$if ((p1 .nes. "") .and. (p1 .nes. "CONVERT")) then goto SkipConvert
171$write sys$output "Making Convert..."
172$call Make convert.c
173$
174$link'link_options' convert.obj, -
175  'link_libraries',sys$input:/opt
176  sys$share:decw$xlibshr.exe/share
177$
178$convert:==$'f$environment("default")'convert
179$write sys$output "..symbol CONVERT defined."
180$SkipConvert:
181$if ((p1 .nes. "") .and. (p1 .nes. "COMPARE")) then goto SkipCompare
182$write sys$output "Making Compare..."
183$call Make compare.c
184$
185$link'link_options' compare.obj, -
186  'link_libraries',sys$input:/opt
187  sys$share:decw$xlibshr.exe/share
188$
189$compare:==$'f$environment("default")'compare
190$write sys$output "..symbol COMPARE defined."
191$SkipCompare:
192$if ((p1 .nes. "") .and. (p1 .nes. "IDENTIFY")) then goto SkipIdentify
193$write sys$output "Making Identify..."
194$call Make identify.c
195$
196$link'link_options' identify.obj, -
197  'link_libraries',sys$input:/opt
198  sys$share:decw$xlibshr.exe/share
199$
200$identify:==$'f$environment("default")'identify
201$write sys$output "..symbol IDENTIFY defined."
202$SkipIdentify:
203$if ((p1 .nes. "") .and. (p1 .nes. "COMPOSITE")) then goto SkipComposite
204$write sys$output "Making Composite..."
205$call Make composite.c
206$
207$link'link_options' composite.obj, -
208  'link_libraries',sys$input:/opt
209  sys$share:decw$xlibshr.exe/share
210$
211$composite:==$'f$environment("default")'composite
212$write sys$output "..symbol COMPOSITE defined."
213$SkipComposite:
214$set def [-]
215$copy [.config]magic.xml sys$login:magic.xml
216$copy [.config]colors.xml sys$login:colors.xml
217$copy [.config]log.xml sys$login:log.xml
218$copy [.www.source]delegates.xml sys$login:delegates.xml
219$copy [.config]coder.xml sys$login:coder.xml
220$copy [.www.source]type.xml sys$login:type.xml
221$copy [.config]locale.xml sys$login:locale.xml
222$copy [.config]english.xml sys$login:english.xml
223$copy [.config]francais.xml sys$login:francais.xml
224$type sys$input
225
226Use this command to specify which X server to contact:
227
228  $set display/create/node=node_name::
229
230or
231
232  $set display/create/node=nodename/transport=tcpip
233
234This can be done automatically from your LOGIN.COM with the following
235command:
236
237  $if (f$trnlmn("sys$rem_node") .nes. "") then -
238  $  set display/create/node='f$trnlmn("sys$rem_node")'
239$exit
240$
241$Make: subroutine
242$!
243$! Primitive MMS hack for DCL.
244$!
245$if (p1 .eqs. "") then exit
246$source_file=f$search(f$parse(p1,".c"))
247$if (source_file .nes. "")
248$then
249$  object_file=f$parse(source_file,,,"name")+".obj"
250$  object_file=f$search( object_file )
251$  if (object_file .nes. "")
252$  then
253$    object_time=f$file_attribute(object_file,"cdt")
254$    source_time=f$file_attribute(source_file,"cdt")
255$    if (f$cvtime(object_time).lts.f$cvtime(source_time)) then -
256$      object_file=""
257$  endif
258$  if (object_file .eqs. "")
259$  then
260$    write sys$output "Compiling ",p1
261$    cc'compile_options'/include_directory=[-.magickcore] 'source_file'
262$  endif
263$endif
264$exit
265$endsubroutine
266