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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
/*
* tclLoadNone.c --
*
* This procedure provides a version of the TclLoadFile for use
* in systems that don't support dynamic loading; it just returns
* an error.
*
* Copyright (c) 1995-1996 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* SCCS: @(#) tclLoadNone.c 1.5 96/02/15 11:43:01
*/
#include "tcl.h"
#include "compat/dlfcn.h"
extern int adler32 ();
extern int compress ();
extern int crc32 ();
extern int get_crc_table ();
extern int gzclose ();
extern int gzdopen ();
extern int gzerror ();
extern int gzflush ();
extern int gzopen ();
extern int gzread ();
extern int gzwrite ();
extern int uncompress ();
extern int deflate ();
extern int _tr_align ();
extern int _tr_flush_block ();
extern int _tr_init ();
extern int _tr_stored_block ();
extern int _tr_tally ();
extern int zcalloc ();
extern int zcfree ();
extern int zlib ();
extern int inflate ();
extern int inflate_blocks ();
extern int inflate_blocks_free ();
extern int inflate_blocks_new ();
extern int inflate_blocks_reset ();
extern int inflate_set_dictionary ();
extern int inflate_trees_bits ();
extern int inflate_trees_dynamic ();
extern int inflate_trees_fixed ();
extern int inflate_trees_free ();
extern int inflate_codes ();
extern int inflate_codes_free ();
extern int inflate_codes_new ();
extern int inflate_flush ();
extern int inflate_fast ();
extern int des_3cbc_encrypt ();
extern int des_cbc_cksum ();
extern int des_cbc_encrypt ();
extern int des_ncbc_encrypt ();
extern int des_pcbc_encrypt ();
extern int des_quad_cksum ();
extern int des_ede3_cfb64_encrypt ();
extern int des_cfb64_encrypt ();
extern int des_cfb_encrypt ();
extern int des_ecb3_encrypt ();
extern int des_ecb_encrypt ();
extern int des_encrypt ();
extern int des_encrypt2 ();
extern int des_ede3_cbc_encrypt ();
extern int des_enc_read ();
extern int des_enc_write ();
extern int crypt ();
extern int des_ede3_ofb64_encrypt ();
extern int des_ofb64_encrypt ();
extern int des_ofb_encrypt ();
extern int des_random_key ();
extern int des_random_seed ();
extern int des_read_2passwords ();
extern int des_read_password ();
extern int des_read_pw_string ();
extern int des_is_weak_key ();
extern int des_key_sched ();
extern int des_set_key ();
extern int des_set_odd_parity ();
extern int _des_crypt ();
extern int des_string_to_2keys ();
extern int des_string_to_key ();
extern int des_cblock_print_file ();
static struct {
char * name;
int (*value)();
}dictionary [] = {
{ "adler32", adler32 },
{ "compress", compress },
{ "crc32", crc32 },
{ "get_crc_table", get_crc_table },
{ "gzclose", gzclose },
{ "gzdopen", gzdopen },
{ "gzerror", gzerror },
{ "gzflush", gzflush },
{ "gzopen", gzopen },
{ "gzread", gzread },
{ "gzwrite", gzwrite },
{ "uncompress", uncompress },
{ "deflate", deflate },
{ "_tr_align", _tr_align },
{ "_tr_flush_block", _tr_flush_block },
{ "_tr_init", _tr_init },
{ "_tr_stored_block", _tr_stored_block },
{ "_tr_tally", _tr_tally },
{ "zcalloc", zcalloc },
{ "zcfree", zcfree },
{ "zlib", zlib },
{ "inflate", inflate },
{ "inflate_blocks", inflate_blocks },
{ "inflate_blocks_free", inflate_blocks_free },
{ "inflate_blocks_new", inflate_blocks_new },
{ "inflate_blocks_reset", inflate_blocks_reset },
{ "inflate_set_dictionary", inflate_set_dictionary },
{ "inflate_trees_bits", inflate_trees_bits },
{ "inflate_trees_dynamic", inflate_trees_dynamic },
{ "inflate_trees_fixed", inflate_trees_fixed },
{ "inflate_trees_free", inflate_trees_free },
{ "inflate_codes", inflate_codes },
{ "inflate_codes_free", inflate_codes_free },
{ "inflate_codes_new", inflate_codes_new },
{ "inflate_flush", inflate_flush },
{ "inflate_fast", inflate_fast },
{ "des_3cbc_encrypt", des_3cbc_encrypt },
{ "des_cbc_cksum", des_cbc_cksum },
{ "des_cbc_encrypt", des_cbc_encrypt },
{ "des_ncbc_encrypt", des_ncbc_encrypt },
{ "des_pcbc_encrypt", des_pcbc_encrypt },
{ "des_quad_cksum", des_quad_cksum },
{ "des_ede3_cfb64_encrypt", des_ede3_cfb64_encrypt },
{ "des_cfb64_encrypt", des_cfb64_encrypt },
{ "des_cfb_encrypt", des_cfb_encrypt },
{ "des_ecb3_encrypt", des_ecb3_encrypt },
{ "des_ecb_encrypt", des_ecb_encrypt },
{ "des_encrypt", des_encrypt },
{ "des_encrypt2", des_encrypt2 },
{ "des_ede3_cbc_encrypt", des_ede3_cbc_encrypt },
{ "des_enc_read", des_enc_read },
{ "des_enc_write", des_enc_write },
{ "crypt", crypt },
{ "des_ede3_ofb64_encrypt", des_ede3_ofb64_encrypt },
{ "des_ofb64_encrypt", des_ofb64_encrypt },
{ "des_ofb_encrypt", des_ofb_encrypt },
{ "des_random_key", des_random_key },
{ "des_random_seed", des_random_seed },
{ "des_read_2passwords", des_read_2passwords },
{ "des_read_password", des_read_password },
{ "des_read_pw_string", des_read_pw_string },
{ "des_is_weak_key", des_is_weak_key },
{ "des_key_sched", des_key_sched },
{ "des_set_key", des_set_key },
{ "des_set_odd_parity", des_set_odd_parity },
{ "_des_crypt", _des_crypt },
{ "des_string_to_2keys", des_string_to_2keys },
{ "des_string_to_key", des_string_to_key },
{ "des_cblock_print_file", des_cblock_print_file },
{ 0, 0 }
};
/*
*----------------------------------------------------------------------
*
* dlopen --
* dlsym --
* dlerror --
* dlclose --
*
* Dummy functions, in case our system doesn't support
* dynamic loading.
*
* Results:
* NULL for dlopen() and dlsym(). Error for other functions.
*
* Side effects:
* None
*
*----------------------------------------------------------------------
*/
VOID *dlopen(path, mode)
CONST char *path;
int mode;
{
return (VOID *) 1;
}
VOID *dlsym(handle, symbol)
VOID *handle;
CONST char *symbol;
{
int i;
for (i = 0; dictionary [i] . name != 0; ++i) {
if (!strcmp (symbol, dictionary [i] . name)) {
return (VOID *) dictionary [i].value;
}
}
return (VOID *) NULL;
}
char *dlerror()
{
return "dynamic loading is not currently available on this system";
}
int dlclose(handle)
VOID *handle;
{
return 0;
}
|
