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