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 226 Use this command to specify which X server to contact: 227 228 $set display/create/node=node_name:: 229 230 or 231 232 $set display/create/node=nodename/transport=tcpip 233 234 This can be done automatically from your LOGIN.COM with the following 235 command: 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
