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