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
|
/*
Netvideo version 3.2
Written by Ron Frederick <frederick@parc.xerox.com>
Simple hack to translate a Tcl/Tk init file into a C string constant
*/
/*
* Copyright (c) Xerox Corporation 1992. All rights reserved.
*
* License is granted to copy, to use, and to make and to use derivative
* works for research and evaluation purposes, provided that Xerox is
* acknowledged in all documentation pertaining to any such copy or derivative
* work. Xerox grants no other licenses expressed or implied. The Xerox trade
* name should not be used in any advertising without its written permission.
*
* XEROX CORPORATION MAKES NO REPRESENTATIONS CONCERNING EITHER THE
* MERCHANTABILITY OF THIS SOFTWARE OR THE SUITABILITY OF THIS SOFTWARE
* FOR ANY PARTICULAR PURPOSE. The software is provided "as is" without
* express or implied warranty of any kind.
*
* These notices must be retained in any copies of any part of this software.
*/
#include <stdio.h>
#include <stdlib.h>
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
#ifndef WIN32
int
main(int argc, char **argv)
{
int c, newline = TRUE;;
if (argc < 2) {
fprintf(stderr, "Usage: %s stringname\n", argv[0]);
exit(1);
}
printf("/* This file is automatically generated by tcl2c, do NOT edit by hand! */\n");
printf("char %s[] = \"\\\n", argv[1]);
while ((c = getchar()) != EOF) {
if (newline == TRUE && (isspace(c) || c == '#')) {
if (c == '#') {
do {
c = getchar();
} while(c != EOF && c != '\n');
}
} else {
newline = FALSE;
switch (c) {
case '\n':
printf("\\n\\\n");
newline = TRUE;
break;
case '\"':
printf("\\\"");
break;
case '\\':
printf("\\\\");
break;
default:
putchar(c);
}
}
}
printf("\";\n");
exit(0);
/*NOTREACHED*/
return 0;
}
#else /* WIN32 */
int
main(int argc, char **argv)
{
int c, n;
if (argc < 2) {
fprintf(stderr, "Usage: %s stringname\n", argv[0]);
exit(1);
}
printf("/* This file is automatically generated by tcl2c, do NOT edit by hand! */\n");
printf("char %s[] = {\n", argv[1]);
for (n = 0; (c = getchar()) != EOF;)
printf("%u,%c", c, ((++n & 0xf) == 0) ? '\n' : ' ');
printf("};\n");
return 0;
}
#endif /* WIN32 */
|
