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
|
/* Copyright (c) 1996--1999 Geoff Pike. */
/* All rights reserved. */
/* Floater is distributed in the hope that it will be useful, */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. */
/* This software is provided "as is" and comes with absolutely no */
/* warranties. Geoff Pike is not liable for damages under any */
/* circumstances. Support is not provided. Use at your own risk. */
/* Personal, non-commercial use is allowed. Attempting to make money */
/* from Floater or products or code derived from Floater is not allowed */
/* without prior written consent from Geoff Pike. Anything that remotely */
/* involves commercialism, including (but not limited to) systems that */
/* show advertisements while being used and systems that collect */
/* information on users that is later sold or traded require prior */
/* written consent from Geoff Pike. */
};
#define numfiles (sizeof(tcl2cfiles) / sizeof(tcl2cfiles[0]))
void source(char *s)
{
int i;
s = TEMPCAT3("tclcode/", s, ".tcl");
for (i = 0; i < numfiles; i++)
if (streq(s, tcl2cfilenames[i])) {
TclDo3("uplevel #0 {", tcl2cfiles[i], "}");
return;
}
assert(0);
}
#endif /* TCL_IN_C */
|
