home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Linux / Divers / ImageMagick-4.0.6.tar.gz / ImageMagick-4.0.6.tar / ImageMagick-4.0.6 / Make.com < prev    next >
Text File  |  1998-01-03  |  6KB  |  221 lines
  1. $!
  2. $! Make ImageMagick X image utilities for VMS.
  3. $!
  4. $
  5. $ option := 'p1'
  6. $ if option .eqs. "CLEAN"
  7. $ then
  8. $    deletee/log [.magick]libmagick.olb;*
  9. $    exit
  10. $ endif
  11. $ if option .eqs. "REALCLEAN"
  12. $ then
  13. $    deletee/log [.magick]libmagick.olb;*,[...]*.obj;*
  14. $    exit
  15. $ endif
  16. $ if option .eqs. "DISTCLEAN"
  17. $ then
  18. $    deletee/log [.magick]libmagick.olb;*,[...]*.obj;*,*.exe;*,magickshr.olb;*
  19. $    exit
  20. $ endif
  21. $ if option .eqs. "NOSHR"
  22. $ then
  23. $    share := n
  24. $    option :=
  25. $ endif
  26. $ if option .nes. ""
  27. $ then
  28. $    write sys$error "Unknown option \", option, "\"
  29. $    exit
  30. $ endif
  31. $ p1 :=
  32. $link_options="/nodebug/notraceback"
  33. $if (f$trnlnm("X11") .eqs. "") then define/nolog X11 decw$include:
  34. $library_options=""
  35. $compile_options="/nodebug/optimize"
  36. $if (f$trnlnm("decc$library_include") .nes. "")
  37. $then       ! VAX with DEC C compiler
  38. $  compile_options="/decc/standard=vaxc/nodebug/optimize"
  39. $  library_options="_decc"
  40. $else       ! VAX with VAX C compiler, (GCC library needed for PNG format only)
  41. $  define/nolog lnk$library sys$library:vaxcrtl
  42. $  define/nolog sys sys$share
  43. $  if (f$trnlnm("gnu_cc") .nes. "") then define/nolog lnk$library_1 gnu_cc:[000000]gcclib.olb
  44. $endif
  45. $if (f$getsyi("HW_MODEL") .gt. 1023)
  46. $then       ! Alpha with DEC C compiler
  47. $  define/nolog sys decc$library_include
  48. $  deas lnk$library
  49. $  compile_options="/standard=vaxc/nodebug/optimize"
  50. $  library_options="_axp"
  51. $  share := 'share'y
  52. $else
  53. $  share := n
  54. $endif
  55. $
  56. $write sys$output "Making in [.magick]"
  57. $set default [.magick]
  58. $@make
  59. $set default [-]
  60. $
  61. $ if share
  62. $ then
  63. $    write sys$output "Making shareable image"
  64. $    link/share/exe=magickshr   [.magick]libmagick.olb/lib, -
  65.  [.jpeg]libjpeg.olb'library_options'/lib, -
  66.  [.png]libpng.olb'library_options'/lib, -
  67.  [.mpeg]libmpeg.olb'library_options'/lib, -
  68.  [.tiff]libtiff.olb'library_options'/lib, -
  69.  [.zlib]libz.olb'library_options'/lib, -
  70.  []magickshr/opt
  71. $ libr/crea/share/log magickshr magickshr
  72. $    set file/trunc magickshr.olb
  73. $    purge magickshr.olb
  74. $    link_libraries := magickshr/lib
  75. $    define/nolog magickshr 'f$environment("default")'magickshr
  76. $    write sys$output "Shareable image logical MAGICKSHR defined:"
  77. $    show logi magickshr
  78. $ else
  79. $    link_libraries := [.magick]libmagick.olb/lib, -
  80.   [.jpeg]libjpeg.olb'library_options'/lib, -
  81.   [.png]libpng.olb'library_options'/lib, -
  82.   [.mpeg]libmpeg.olb'library_options'/lib, -
  83.   [.tiff]libtiff.olb'library_options'/lib, -
  84.   [.zlib]libz.olb'library_options'/lib
  85. $ endif
  86. $if ((p1 .nes. "") .and. (p1 .nes. "DISPLAY")) then goto SkipDisplay
  87. $write sys$output "Making Display..."
  88. $call Make display
  89. $
  90. $link'link_options' display, -
  91.   'link_libraries',sys$input:/opt
  92.   sys$share:decw$xlibshr.exe/share
  93. $
  94. $display:==$'f$environment("default")'display
  95. $write sys$output "..symbol DISPLAY defined."
  96. $
  97. $SkipDisplay:
  98. $if ((p1 .nes. "") .and. (p1 .nes. "IMPORT")) then goto SkipImport
  99. $write sys$output "Making Import..."
  100. $call Make import
  101. $
  102. $link'link_options' import, -
  103.   'link_libraries',sys$input:/opt
  104.   sys$share:decw$xlibshr.exe/share
  105. $
  106. $import:==$'f$environment("default")'import
  107. $write sys$output "..symbol IMPORT defined."
  108. $SkipImport:
  109. $
  110. $if ((p1 .nes. "") .and. (p1 .nes. "ANIMATE")) then goto SkipAnimate
  111. $write sys$output "Making Animate..."
  112. $call Make animate
  113. $
  114. $link'link_options' animate, -
  115.   'link_libraries',sys$input:/opt
  116.   sys$share:decw$xlibshr.exe/share
  117. $
  118. $animate:==$'f$environment("default")'animate
  119. $write sys$output "..symbol ANIMATE defined."
  120. $
  121. $SkipAnimate:
  122. $if ((p1 .nes. "") .and. (p1 .nes. "MONTAGE")) then goto SkipMontage
  123. $write sys$output "Making Montage..."
  124. $call Make montage
  125. $
  126. $link'link_options' montage, -
  127.   'link_libraries',sys$input:/opt
  128.   sys$share:decw$xlibshr.exe/share
  129. $
  130. $montage:==$'f$environment("default")'montage
  131. $write sys$output "..symbol MONTAGE defined."
  132. $
  133. $SkipMontage:
  134. $if ((p1 .nes. "") .and. (p1 .nes. "MOGRIFY")) then goto SkipMogrify
  135. $write sys$output "Making Mogrify..."
  136. $call Make mogrify
  137. $
  138. $link'link_options' mogrify, -
  139.   'link_libraries',sys$input:/opt
  140.   sys$share:decw$xlibshr.exe/share
  141. $
  142. $mogrify:==$'f$environment("default")'mogrify
  143. $write sys$output "..symbol MOGRIFY defined."
  144. $
  145. $SkipMogrify:
  146. $if ((p1 .nes. "") .and. (p1 .nes. "CONVERT")) then goto SkipConvert
  147. $write sys$output "Making Convert..."
  148. $call Make convert
  149. $
  150. $link'link_options' convert, -
  151.   'link_libraries',sys$input:/opt
  152.   sys$share:decw$xlibshr.exe/share
  153. $
  154. $convert:==$'f$environment("default")'convert
  155. $write sys$output "..symbol CONVERT defined."
  156. $SkipConvert:
  157. $if ((p1 .nes. "") .and. (p1 .nes. "IDENTIFY")) then goto SkipIdentify
  158. $write sys$output "Making Identify..."
  159. $call Make identify
  160. $
  161. $link'link_options' identify, -
  162.   'link_libraries',sys$input:/opt
  163.   sys$share:decw$xlibshr.exe/share
  164. $
  165. $identify:==$'f$environment("default")'identify
  166. $write sys$output "..symbol IDENTIFY defined."
  167. $SkipIdentify:
  168. $if ((p1 .nes. "") .and. (p1 .nes. "COMBINE")) then goto SkipCombine
  169. $write sys$output "Making Combine..."
  170. $call Make combine
  171. $
  172. $link'link_options' combine, -
  173.   'link_libraries',sys$input:/opt
  174.   sys$share:decw$xlibshr.exe/share
  175. $
  176. $combine:==$'f$environment("default")'combine
  177. $write sys$output "..symbol COMBINE defined."
  178. $SkipCombine:
  179. $type sys$input
  180.  
  181. Use this command to specify which X server to contact:
  182.  
  183.   $set display/create/node=node_name::
  184.  
  185. or
  186.  
  187.   $set display/create/node=nodename/transport=tcpip
  188.  
  189. This can be done automatically from your LOGIN.COM with the following
  190. command:
  191.  
  192.   $if (f$trnlmn("sys$rem_node") .nes. "") then -
  193.   $  set display/create/node='f$trnlmn("sys$rem_node")'
  194. $exit
  195. $
  196. $Make: subroutine
  197. $!
  198. $! Primitive MMS hack for DCL.
  199. $!
  200. $if (p1 .eqs. "") then exit
  201. $source_file=f$search(f$parse(p1,".c"))
  202. $if (source_file .nes. "")
  203. $then
  204. $  object_file=f$parse(source_file,,,"name")+".obj"
  205. $  object_file=f$search( object_file )
  206. $  if (object_file .nes. "")
  207. $  then
  208. $    object_time=f$file_attribute(object_file,"cdt")
  209. $    source_time=f$file_attribute(source_file,"cdt")
  210. $    if (f$cvtime(object_time).lts.f$cvtime(source_time)) then -
  211. $      object_file=""
  212. $  endif
  213. $  if (object_file .eqs. "")
  214. $  then
  215. $    write sys$output "Compiling ",p1
  216. $    cc'compile_options'/include_directory=[.magick] 'source_file'
  217. $  endif
  218. $endif
  219. $exit
  220. $endsubroutine
  221.