2 $! Make ImageMagick X image utilities for VMS.
4 $ on error then continue
9 $ if option .eqs. "CLEAN"
11 $ deletee/log [.magick]libMagick.olb;*
12 $ deletee/log [.coders]libCoders.olb;*
15 $ if option .eqs. "REALCLEAN"
17 $ deletee/log [.magick]libMagick.olb;*,[...]*.obj;*
18 $ deletee/log [.coders]libCoders.olb;*,[...]*.obj;*
21 $ if option .eqs. "DISTCLEAN"
23 $ deletee/log [.magick]libMagick.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
24 $ deletee/log [.coders]libCoders.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
27 $ if option .eqs. "NOSHR"
34 $ write sys$error "Unknown option \", option, "\"
38 $link_options="/nodebug/notraceback"
39 $if (f$trnlnm("X11") .eqs. "") then define/nolog X11 decw$include:
41 $compile_options="/nodebug/optimize"
42 $if (f$search("sys$system:decc$compiler.exe") .nes. "")
43 $then ! VAX with DEC C compiler
44 $ compile_options="/decc/nodebug/optimize"
45 $ library_options="_decc"
46 $else ! VAX with VAX C compiler, (GCC library needed for PNG format only)
47 $ define/nolog lnk$library sys$library:vaxcrtl
48 $ define/nolog sys sys$share
49 $ if (f$trnlnm("gnu_cc") .nes. "") then define/nolog lnk$library_1 gnu_cc:[000000]gcclib.olb
51 $if (f$getsyi("HW_MODEL") .gt. 1023)
52 $then ! Alpha with DEC C compiler
53 $ define/nolog sys decc$library_include
54 $ compile_options="/debug/optimize/prefix=all/name=(as_is,short)/float=ieee"
55 $ library_options="_axp"
61 $write sys$output "Making in [.magick]"
62 $set default [.magick]
65 $write sys$output "Making in [.coders]"
66 $set default [.coders]
72 $ write sys$output "Making shareable image"
73 $ link/share/exe=magickshr.exe [.magick]libMagick.olb/lib, -
74 [.coders]libCoders.olb/lib,[.magick]libMagick.olb/lib, -
75 []magickshr.opt/opt, -
76 sys$library:freetype.olb/lib, -
77 sys$library:libjasper.olb/lib, -
78 sys$library:libjpeg.olb/lib, -
79 sys$library:libpng.olb/lib, -
80 sys$library:tiff.olb/lib, -
81 sys$library:libz.olb/lib, -
82 sys$library:libbz2.olb/lib, -
83 sys$library:libjbig.olb/lib
84 $ libr/crea/share/log magickshr.olb magickshr.exe
85 $ set file/trunc magickshr.olb
87 $ link_libraries := [-]magickshr.olb/lib
88 $ define/nolog magickshr 'f$environment("default")'magickshr.exe
89 $ write sys$output "Shareable image logical MAGICKSHR defined:"
92 $ link_libraries := [.magick]libMagick.olb/lib, -
93 [.coders]libCoders.olb/lib, -
94 sys$library:libjasper.olb/lib
95 sys$library:libjpeg.olb/lib, -
96 sys$library:libpng.olb/lib, -
97 sys$library:tiff.olb/lib, -
98 sys$library:freetype.olb/l, -
99 sys$library:libz.olb/lib,-
100 sys$library:libjbig.olb/lib, -
101 sys$library:libbz2.olb/lib
103 $ define magick [-.magick]
104 $ set default [.utilities]
105 $ define wand [-.wand]
106 $if ((p1 .nes. "") .and. (p1 .nes. "DISPLAY")) then goto SkipDisplay
107 $write sys$output "Making Display..."
110 $link'link_options' display.obj, -
111 'link_libraries',sys$input:/opt
112 sys$share:decw$xlibshr.exe/share
114 $display:==$'f$environment("default")'display
115 $write sys$output "..symbol DISPLAY defined."
118 $if ((p1 .nes. "") .and. (p1 .nes. "IMPORT")) then goto SkipImport
119 $write sys$output "Making Import..."
122 $link'link_options' import.obj, -
123 'link_libraries',sys$input:/opt
124 sys$share:decw$xlibshr.exe/share
126 $import:==$'f$environment("default")'import
127 $write sys$output "..symbol IMPORT defined."
130 $if ((p1 .nes. "") .and. (p1 .nes. "ANIMATE")) then goto SkipAnimate
131 $write sys$output "Making Animate..."
134 $link'link_options' animate.obj, -
135 'link_libraries',sys$input:/opt
136 sys$share:decw$xlibshr.exe/share
138 $animate:==$'f$environment("default")'animate
139 $write sys$output "..symbol ANIMATE defined."
142 $if ((p1 .nes. "") .and. (p1 .nes. "MONTAGE")) then goto SkipMontage
143 $write sys$output "Making Montage..."
146 $link'link_options' montage.obj, -
147 'link_libraries',sys$input:/opt
148 sys$share:decw$xlibshr.exe/share
150 $montage:==$'f$environment("default")'montage
151 $write sys$output "..symbol MONTAGE defined."
154 $if ((p1 .nes. "") .and. (p1 .nes. "MOGRIFY")) then goto SkipMogrify
155 $write sys$output "Making Mogrify..."
158 $link'link_options' mogrify.obj, -
159 'link_libraries',sys$input:/opt
160 sys$share:decw$xlibshr.exe/share
162 $mogrify:==$'f$environment("default")'mogrify
163 $write sys$output "..symbol MOGRIFY defined."
166 $if ((p1 .nes. "") .and. (p1 .nes. "CONVERT")) then goto SkipConvert
167 $write sys$output "Making Convert..."
170 $link'link_options' convert.obj, -
171 'link_libraries',sys$input:/opt
172 sys$share:decw$xlibshr.exe/share
174 $convert:==$'f$environment("default")'convert
175 $write sys$output "..symbol CONVERT defined."
177 $if ((p1 .nes. "") .and. (p1 .nes. "COMPARE")) then goto SkipCompare
178 $write sys$output "Making Compare..."
181 $link'link_options' compare.obj, -
182 'link_libraries',sys$input:/opt
183 sys$share:decw$xlibshr.exe/share
185 $compare:==$'f$environment("default")'compare
186 $write sys$output "..symbol COMPARE defined."
188 $if ((p1 .nes. "") .and. (p1 .nes. "IDENTIFY")) then goto SkipIdentify
189 $write sys$output "Making Identify..."
190 $call Make identify.c
192 $link'link_options' identify.obj, -
193 'link_libraries',sys$input:/opt
194 sys$share:decw$xlibshr.exe/share
196 $identify:==$'f$environment("default")'identify
197 $write sys$output "..symbol IDENTIFY defined."
199 $if ((p1 .nes. "") .and. (p1 .nes. "COMPOSITE")) then goto SkipComposite
200 $write sys$output "Making Composite..."
201 $call Make composite.c
203 $link'link_options' composite.obj, -
204 'link_libraries',sys$input:/opt
205 sys$share:decw$xlibshr.exe/share
207 $composite:==$'f$environment("default")'composite
208 $write sys$output "..symbol COMPOSITE defined."
211 $copy [.config]magic.xml sys$login:magic.xml
212 $copy [.config]colors.xml sys$login:colors.xml
213 $copy [.config]log.xml sys$login:log.xml
214 $copy [.config]delegates.xml sys$login:delegates.xml
215 $copy [.config]coder.xml sys$login:coder.xml
216 $copy [.config]type.xml sys$login:type.xml
217 $copy [.config]locale.xml sys$login:locale.xml
218 $copy [.config]english.xml sys$login:english.xml
219 $copy [.config]francais.xml sys$login:francais.xml
222 Use this command to specify which X server to contact:
224 $set display/create/node=node_name::
228 $set display/create/node=nodename/transport=tcpip
230 This can be done automatically from your LOGIN.COM with the following
233 $if (f$trnlmn("sys$rem_node") .nes. "") then -
234 $ set display/create/node='f$trnlmn("sys$rem_node")'
239 $! Primitive MMS hack for DCL.
241 $if (p1 .eqs. "") then exit
242 $source_file=f$search(f$parse(p1,".c"))
243 $if (source_file .nes. "")
245 $ object_file=f$parse(source_file,,,"name")+".obj"
246 $ object_file=f$search( object_file )
247 $ if (object_file .nes. "")
249 $ object_time=f$file_attribute(object_file,"cdt")
250 $ source_time=f$file_attribute(source_file,"cdt")
251 $ if (f$cvtime(object_time).lts.f$cvtime(source_time)) then -
254 $ if (object_file .eqs. "")
256 $ write sys$output "Compiling ",p1
257 $ cc'compile_options'/include_directory=[-.magick] 'source_file'