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 sys$library:freetype.olb/lib, -
76 sys$library:libjasper.olb/lib, -
77 sys$library:libjpeg.olb/lib, -
78 sys$library:libpng.olb/lib, -
79 sys$library:tiff.olb/lib, -
80 sys$library:libz.olb/lib, -
81 sys$library:libbz2.olb/lib, -
82 sys$library:df.olb/lib, -
83 sys$library:libjbig.olb/lib, -
85 $ libr/crea/share/log magickshr.olb magickshr.exe
86 $ set file/trunc magickshr.olb
88 $ link_libraries := [-]magickshr.olb/lib
89 $ define/nolog magickshr 'f$environment("default")'magickshr.exe
90 $ write sys$output "Shareable image logical MAGICKSHR defined:"
93 $ link_libraries := [.magick]libMagick.olb/lib, -
94 [.coders]libCoders.olb/lib, -
95 sys$library:libjasper.olb/lib
96 sys$library:libjpeg.olb/lib, -
97 sys$library:libpng.olb/lib, -
98 sys$library:tiff.olb/lib, -
99 sys$library:freetype.olb/l, -
100 sys$library:libz.olb/lib,-
101 sys$library:df.olb/lib, -
102 sys$library:libjbig.olb/lib, -
103 sys$library:libbz2.olb/lib
105 $ define magick [-.magick]
106 $ set default [.utilities]
107 $ define wand [-.wand]
108 $if ((p1 .nes. "") .and. (p1 .nes. "DISPLAY")) then goto SkipDisplay
109 $write sys$output "Making Display..."
112 $link'link_options' display.obj, -
113 'link_libraries',sys$input:/opt
114 sys$share:decw$xlibshr.exe/share
116 $display:==$'f$environment("default")'display
117 $write sys$output "..symbol DISPLAY defined."
120 $if ((p1 .nes. "") .and. (p1 .nes. "IMPORT")) then goto SkipImport
121 $write sys$output "Making Import..."
124 $link'link_options' import.obj, -
125 'link_libraries',sys$input:/opt
126 sys$share:decw$xlibshr.exe/share
128 $import:==$'f$environment("default")'import
129 $write sys$output "..symbol IMPORT defined."
132 $if ((p1 .nes. "") .and. (p1 .nes. "ANIMATE")) then goto SkipAnimate
133 $write sys$output "Making Animate..."
136 $link'link_options' animate.obj, -
137 'link_libraries',sys$input:/opt
138 sys$share:decw$xlibshr.exe/share
140 $animate:==$'f$environment("default")'animate
141 $write sys$output "..symbol ANIMATE defined."
144 $if ((p1 .nes. "") .and. (p1 .nes. "MONTAGE")) then goto SkipMontage
145 $write sys$output "Making Montage..."
148 $link'link_options' montage.obj, -
149 'link_libraries',sys$input:/opt
150 sys$share:decw$xlibshr.exe/share
152 $montage:==$'f$environment("default")'montage
153 $write sys$output "..symbol MONTAGE defined."
156 $if ((p1 .nes. "") .and. (p1 .nes. "MOGRIFY")) then goto SkipMogrify
157 $write sys$output "Making Mogrify..."
160 $link'link_options' mogrify.obj, -
161 'link_libraries',sys$input:/opt
162 sys$share:decw$xlibshr.exe/share
164 $mogrify:==$'f$environment("default")'mogrify
165 $write sys$output "..symbol MOGRIFY defined."
168 $if ((p1 .nes. "") .and. (p1 .nes. "CONVERT")) then goto SkipConvert
169 $write sys$output "Making Convert..."
172 $link'link_options' convert.obj, -
173 'link_libraries',sys$input:/opt
174 sys$share:decw$xlibshr.exe/share
176 $convert:==$'f$environment("default")'convert
177 $write sys$output "..symbol CONVERT defined."
179 $if ((p1 .nes. "") .and. (p1 .nes. "COMPARE")) then goto SkipCompare
180 $write sys$output "Making Compare..."
183 $link'link_options' compare.obj, -
184 'link_libraries',sys$input:/opt
185 sys$share:decw$xlibshr.exe/share
187 $compare:==$'f$environment("default")'compare
188 $write sys$output "..symbol COMPARE defined."
190 $if ((p1 .nes. "") .and. (p1 .nes. "IDENTIFY")) then goto SkipIdentify
191 $write sys$output "Making Identify..."
192 $call Make identify.c
194 $link'link_options' identify.obj, -
195 'link_libraries',sys$input:/opt
196 sys$share:decw$xlibshr.exe/share
198 $identify:==$'f$environment("default")'identify
199 $write sys$output "..symbol IDENTIFY defined."
201 $if ((p1 .nes. "") .and. (p1 .nes. "COMPOSITE")) then goto SkipComposite
202 $write sys$output "Making Composite..."
203 $call Make composite.c
205 $link'link_options' composite.obj, -
206 'link_libraries',sys$input:/opt
207 sys$share:decw$xlibshr.exe/share
209 $composite:==$'f$environment("default")'composite
210 $write sys$output "..symbol COMPOSITE defined."
213 $copy [.config]magic.xml sys$login:magic.xml
214 $copy [.config]colors.xml sys$login:colors.xml
215 $copy [.config]log.xml sys$login:log.xml
216 $copy [.config]delegates.xml sys$login:delegates.xml
217 $copy [.config]coder.xml sys$login:coder.xml
218 $copy [.config]type.xml sys$login:type.xml
219 $copy [.config]locale.xml sys$login:locale.xml
220 $copy [.config]english.xml sys$login:english.xml
221 $copy [.config]francais.xml sys$login:francais.xml
224 Use this command to specify which X server to contact:
226 $set display/create/node=node_name::
230 $set display/create/node=nodename/transport=tcpip
232 This can be done automatically from your LOGIN.COM with the following
235 $if (f$trnlmn("sys$rem_node") .nes. "") then -
236 $ set display/create/node='f$trnlmn("sys$rem_node")'
241 $! Primitive MMS hack for DCL.
243 $if (p1 .eqs. "") then exit
244 $source_file=f$search(f$parse(p1,".c"))
245 $if (source_file .nes. "")
247 $ object_file=f$parse(source_file,,,"name")+".obj"
248 $ object_file=f$search( object_file )
249 $ if (object_file .nes. "")
251 $ object_time=f$file_attribute(object_file,"cdt")
252 $ source_time=f$file_attribute(source_file,"cdt")
253 $ if (f$cvtime(object_time).lts.f$cvtime(source_time)) then -
256 $ if (object_file .eqs. "")
258 $ write sys$output "Compiling ",p1
259 $ cc'compile_options'/include_directory=[-.magick] 'source_file'