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 $ 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