Skip to content

Commit c93ed4c

Browse files
author
Cristy
committed
http://www.imagemagick.org/discourse-server/viewtopic.php?f=2&t=28359
1 parent beace89 commit c93ed4c

12 files changed

+675
-7
lines changed

Magickshr.opt

100644100755
+4-3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
1-
IDENTIFICATION="Magick V6.5"
2-
GSMATCH=LEQUAL,6,5
1+
IDENTIFICATION="Magick V6.9"
2+
GSMATCH=LEQUAL,6,9
33
case_sensitive=YES
44
symbol_vector=(AcquireImageInfo=PROCEDURE)
55
symbol_vector=(AcquireMemory=PROCEDURE)
@@ -209,7 +209,6 @@ symbol_vector=(DestroyMagick=PROCEDURE)
209209
symbol_vector=(InitializeMagick=PROCEDURE)
210210
symbol_vector=(ListTypeInfo=PROCEDURE)
211211
symbol_vector=(SetImageClipMask=PROCEDURE)
212-
symbol_vector=(StringToDouble=PROCEDURE)
213212
symbol_vector=(SetImageType=PROCEDURE)
214213
symbol_vector=(SetImageOpacity=PROCEDURE)
215214
symbol_vector=(DestroyImageList=PROCEDURE)
@@ -248,4 +247,6 @@ symbol_vector=(GetUserTime=PROCEDURE)
248247
symbol_vector=(AcquireTimerInfo=PROCEDURE)
249248
symbol_vector=(DestroyTimerInfo=PROCEDURE)
250249
symbol_vector=(MagickCommandGenesis=PROCEDURE)
250+
symbol_vector=(GetImageOption=PROCEDURE)
251+
symbol_vector=(IsMagickTrue=PROCEDURE)
251252
sys$share:decw$xlibshr.exe/share

Make.com

+263
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,263 @@
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

Comments
 (0)