3 | $!
4 | $! Look for the compiler used
5 | $!
6 | $ ccopt = ""
7 | $ if f$getsyi("HW_MODEL").ge.1024
8 | $ then
9 | $ ccopt = "/prefix=all"+ccopt
10 | $ comp = "__decc__=1"
11 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
12 | $ else
13 | $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
14 | $ then
15 | $ comp = "__vaxc__=1"
16 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
17 | $ else
18 | $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
19 | $ ccopt = "/decc/prefix=all"+ccopt
20 | $ comp = "__decc__=1"
21 | $ endif
22 | $ endif
23 | $!
24 | $! Build the thing plain or with mms
25 | $!
26 | $ write sys$output "Compiling Zlib sources ..."
27 | $ if f$search("SYS$SYSTEM:MMS.EXE").eqs.""
28 | $ then
29 | $ dele example.obj;*,minigzip.obj;*
30 | $ CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" -
31 | adler32.c zlib.h zconf.h
32 | $ CALL MAKE compress.OBJ "CC ''CCOPT' compress" -
33 | compress.c zlib.h zconf.h
34 | $ CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" -
35 | crc32.c zlib.h zconf.h
36 | $ CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" -
37 | deflate.c deflate.h zutil.h zlib.h zconf.h
38 | $ CALL MAKE gzio.OBJ "CC ''CCOPT' gzio" -
39 | gzio.c zutil.h zlib.h zconf.h
40 | $ CALL MAKE infblock.OBJ "CC ''CCOPT' infblock" -
41 | infblock.c zutil.h zlib.h zconf.h infblock.h
42 | $ CALL MAKE infcodes.OBJ "CC ''CCOPT' infcodes" -
43 | infcodes.c zutil.h zlib.h zconf.h inftrees.h
44 | $ CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" -
45 | inffast.c zutil.h zlib.h zconf.h inffast.h
46 | $ CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" -
47 | inflate.c zutil.h zlib.h zconf.h infblock.h
48 | $ CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" -
49 | inftrees.c zutil.h zlib.h zconf.h inftrees.h
50 | $ CALL MAKE infutil.OBJ "CC ''CCOPT' infutil" -
51 | infutil.c zutil.h zlib.h zconf.h inftrees.h infutil.h
52 | $ CALL MAKE trees.OBJ "CC ''CCOPT' trees" -
53 | trees.c deflate.h zutil.h zlib.h zconf.h
54 | $ CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" -
55 | uncompr.c zlib.h zconf.h
56 | $ CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" -
57 | zutil.c zutil.h zlib.h zconf.h
58 | $ write sys$output "Building Zlib ..."
59 | $ CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ
60 | $ write sys$output "Building example..."
61 | $ CALL MAKE example.OBJ "CC ''CCOPT' example" -
62 | example.c zlib.h zconf.h
63 | $ call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb
64 | $ write sys$output "Building minigzip..."
65 | $ CALL MAKE minigzip.OBJ "CC ''CCOPT' minigzip" -
66 | minigzip.c zlib.h zconf.h
67 | $ call make minigzip.exe -
68 | "LINK minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib" -
69 | minigzip.obj libz.olb
70 | $ else
71 | $ mms/macro=('comp')
72 | $ endif
73 | $ write sys$output "Zlib build completed"
74 | $ exit
75 | $!
76 | $!
77 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
78 | $ V = 'F$Verify(0)
79 | $! P1 = What we are trying to make
80 | $! P2 = Command to make it
81 | $! P3 - P8 What it depends on
82 | $
83 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit
84 | $ Time = F$CvTime(F$File(P1,"RDT"))
85 | $arg=3
86 | $Loop:
87 | $ Argument = P'arg
88 | $ If Argument .Eqs. "" Then Goto Exit
89 | $ El=0
90 | $Loop2:
91 | $ File = F$Element(El," ",Argument)
92 | $ If File .Eqs. " " Then Goto Endl
93 | $ AFile = ""
94 | $Loop3:
95 | $ OFile = AFile
96 | $ AFile = F$Search(File)
97 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
98 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
99 | $ Goto Loop3
100 | $NextEL:
101 | $ El = El + 1
102 | $ Goto Loop2
103 | $EndL:
104 | $ arg=arg+1
105 | $ If arg .Le. 8 Then Goto Loop
106 | $ Goto Exit
107 | $
108 | $Makeit:
109 | $ VV=F$VERIFY(0)
110 | $ write sys$output P2
111 | $ 'P2
112 | $ VV='F$Verify(VV)
113 | $Exit:
114 | $ If V Then Set Verify
115 | $ENDSUBROUTINE
116 |
--------------------------------------------------------------------------------
/ZLIB/ZLIB.vcxproj.filters:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | {4FC737F1-C7A5-4376-A066-2A32D752A2FF}
6 | cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx
7 |
8 |
9 | {93995380-89BD-4b04-88EB-625FBE52EBFB}
10 | h;hpp;hxx;hm;inl;inc;xsd
11 |
12 |
13 |
14 |
15 | Source Files
16 |
17 |
18 | Source Files
19 |
20 |
21 | Source Files
22 |
23 |
24 | Source Files
25 |
26 |
27 | Source Files
28 |
29 |
30 | Source Files
31 |
32 |
33 | Source Files
34 |
35 |
36 | Source Files
37 |
38 |
39 | Source Files
40 |
41 |
42 | Source Files
43 |
44 |
45 | Source Files
46 |
47 |
48 | Source Files
49 |
50 |
51 | Source Files
52 |
53 |
54 | Source Files
55 |
56 |
57 |
58 |
59 | Header Files
60 |
61 |
62 | Header Files
63 |
64 |
65 | Header Files
66 |
67 |
68 | Header Files
69 |
70 |
71 | Header Files
72 |
73 |
74 | Header Files
75 |
76 |
77 | Header Files
78 |
79 |
80 | Header Files
81 |
82 |
83 | Header Files
84 |
85 |
86 | Header Files
87 |
88 |
89 | Header Files
90 |
91 |
92 |
--------------------------------------------------------------------------------
/ZLIB/ZLIB.vcxproj.user:
--------------------------------------------------------------------------------
1 |
2 |
3 |
--------------------------------------------------------------------------------
/iGrid.html:
--------------------------------------------------------------------------------
1 |
2 |
3 | iGrid
4 |
5 |
6 | The image-grid file format (iGrid)
7 |
8 |
9 | To support the input/output of large files, we have introduced an image-grid file format. A file with the .iGrid file extension will be assumed to consist of CxR images layed out in a regular grid. The individual images can be any file format, and the only restrictions are that all images in the same row must have the same height, and all images in the same column must have the same width.
10 |
11 | The syntax for the file is as follows.
12 |
13 | Columns: C
14 | Rows: R
15 | <image in column 1, row 1>
16 | <image in column 2, row 1>
17 | ...
18 | <image in column C-1, row 1>
19 | <image in column 1, row 2>
20 | ...
21 | <image in column C, row R>
22 |
23 |
24 | Back to Code
25 |
26 |
27 |
--------------------------------------------------------------------------------
/system.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mkazhdan/DMG/60dc4e1fe4d078ddaec694c388af57b7cdb748ff/system.jpg
--------------------------------------------------------------------------------