granicus.if.org Git - imagemagick/blob - Make.com

   1 $!
   2 $! Make ImageMagick X image utilities for VMS.
   3 $!
   4 $ on error then continue
   5 $ deass magick
   6 $ set noon
   7 $
   8 $ option := 'p1'
   9 $ if option .eqs. "CLEAN"
  10 $ then
  11 $    deletee/log [.magick]libMagick.olb;*
  12 $    deletee/log [.coders]libCoders.olb;*
  13 $    exit
  14 $ endif
  15 $ if option .eqs. "REALCLEAN"
  16 $ then
  17 $    deletee/log [.magick]libMagick.olb;*,[...]*.obj;*
  18 $    deletee/log [.coders]libCoders.olb;*,[...]*.obj;*
  19 $    exit
  20 $ endif
  21 $ if option .eqs. "DISTCLEAN"
  22 $ then
  23 $    deletee/log [.magick]libMagick.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
  24 $    deletee/log [.coders]libCoders.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
  25 $    exit
  26 $ endif
  27 $ if option .eqs. "NOSHR"
  28 $ then
  29 $    share := n
  30 $    option :=
  31 $ endif
  32 $ if option .nes. ""
  33 $ then
  34 $    write sys$error "Unknown option \", option, "\"
  35 $    exit
  36 $ endif
  37 $ p1 :=
  38 $link_options="/nodebug/notraceback"
  39 $if (f$trnlnm("X11") .eqs. "") then define/nolog X11 decw$include:
  40 $library_options=""
  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
  50 $endif
  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"
  56 $  share := 'share'y
  57 $else
  58 $  share := n
  59 $endif
  60 $
  61 $write sys$output "Making in [.magick]"
  62 $set default [.magick]
  63 $@make
  64 $set default [-]
  65 $write sys$output "Making in [.coders]"
  66 $set default [.coders]
  67 $@make
  68 $set default [-]
  69 $
  70 $ if share
  71 $ then
  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, -
  84   []magickshr.opt/opt
  85 $ libr/crea/share/log magickshr.olb magickshr.exe
  86 $    set file/trunc magickshr.olb
  87 $    purge 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:"
  91 $    show logi magickshr
  92 $ else
  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
 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