]> granicus.if.org Git - imagemagick/blob - Make.com
...
[imagemagick] / 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]colors.xml sys$login:colors.xml
216 $copy [.config]log.xml sys$login:log.xml
217 $copy [.www.source]delegates.xml sys$login:delegates.xml
218 $copy [.www.source]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=[-.magickcore] 'source_file'
260 $  endif
261 $endif
262 $exit
263 $endsubroutine