1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
--- generic/adler.c Wed Aug 9 15:13:17 2000
+++ generic/adler.c Fri Jul 9 16:30:50 2004
@@ -49,5 +49,4 @@
static void MDAdler_UpdateBuf _ANSI_ARGS_ ((VOID* context, unsigned char* buffer, int bufLen));
static void MDAdler_Final _ANSI_ARGS_ ((VOID* context, VOID* digest));
-static int MDAdler_Check _ANSI_ARGS_ ((Tcl_Interp* interp));
/*
@@ -63,5 +62,5 @@
MDAdler_UpdateBuf,
MDAdler_Final,
- MDAdler_Check
+ NULL
};
@@ -121,5 +120,5 @@
/* call md specific initialization here */
- ADLER = zf.adler32 (0L, Z_NULL, 0);
+ ADLER = adler32 (0L, Z_NULL, 0);
DONE (MDAdler_Start);
@@ -154,5 +153,5 @@
unsigned char buf = character;
- ADLER = zf.adler32 (ADLER, &buf, 1);
+ ADLER = adler32 (ADLER, &buf, 1);
}
@@ -184,5 +183,5 @@
/* call md specific update here */
- ADLER = zf.adler32 (ADLER, buffer, bufLen);
+ ADLER = adler32 (ADLER, buffer, bufLen);
}
@@ -222,36 +221,2 @@
out [3] = (char) ((adler >> 0) & 0xff);
}
-
-/*
- *------------------------------------------------------*
- *
- * MDAdler_Check --
- *
- * ------------------------------------------------*
- * Check for existence of libz, load it.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static int
-MDAdler_Check (interp)
-Tcl_Interp* interp;
-{
- int res;
-
- START (MDAdler_Check);
-
- res = TrfLoadZlib (interp);
-
- PRINT ("res = %d\n", res);
- DONE (MDAdler_Check);
- return res;
-}
-
--- generic/crc_zlib.c Wed Aug 9 15:13:17 2000
+++ generic/crc_zlib.c Fri Jul 9 16:34:11 2004
@@ -49,5 +49,4 @@
static void MDcrcz_UpdateBuf _ANSI_ARGS_ ((VOID* context, unsigned char* buffer, int bufLen));
static void MDcrcz_Final _ANSI_ARGS_ ((VOID* context, VOID* digest));
-static int MDcrcz_Check _ANSI_ARGS_ ((Tcl_Interp* interp));
/*
@@ -63,5 +62,5 @@
MDcrcz_UpdateBuf,
MDcrcz_Final,
- MDcrcz_Check
+ NULL
};
@@ -118,5 +117,5 @@
/* call md specific initialization here */
- CRC = zf.crc32 (0L, Z_NULL, 0);
+ CRC = crc32 (0L, Z_NULL, 0);
}
@@ -149,5 +148,5 @@
unsigned char buf = character;
- CRC = zf.crc32 (CRC, &buf, 1);
+ CRC = crc32 (CRC, &buf, 1);
}
@@ -179,5 +178,5 @@
/* call md specific update here */
- CRC = zf.crc32 (CRC, buffer, bufLen);
+ CRC = crc32 (CRC, buffer, bufLen);
}
@@ -217,28 +216,2 @@
out [0] = (char) ((crc >> 0) & 0xff);
}
-
-/*
- *------------------------------------------------------*
- *
- * MDcrcz_Check --
- *
- * ------------------------------------------------*
- * Check for existence of libz, load it.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static int
-MDcrcz_Check (interp)
-Tcl_Interp* interp;
-{
- return TrfLoadZlib (interp);
-}
-
--- generic/zip_opt.c Sat Nov 18 17:42:32 2000
+++ generic/zip_opt.c Fri Feb 15 15:13:22 2002
@@ -183,13 +183,4 @@
/*
- * 'zip' is used, therefore load the required library.
- * And bail out if it is not available.
- */
-
- if (TCL_OK != TrfLoadZlib (interp)) {
- return TCL_ERROR;
- }
-
- /*
* Now perform the real option check.
*/
|
