summaryrefslogtreecommitdiffstats
path: root/tools/str2c
diff options
context:
space:
mode:
Diffstat (limited to 'tools/str2c')
-rw-r--r--tools/str2c6
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/str2c b/tools/str2c
index c761f91..cff7ba2 100644
--- a/tools/str2c
+++ b/tools/str2c
@@ -5,7 +5,7 @@
# 1997/10 -- dl
#
# restart with tclsh \
-exec tclsh8.0 "$0" "$@"
+exec tclsh "$0" ${1+"$@"}
# Max string length
# (some C compiler have a 2048 chars limits (so 2047 real chars with
@@ -36,7 +36,7 @@ static char data\[\]=\"[translate $r]\";"
puts "/*
* Multi parts read only string generated by str2c
*/
-static CONST char * CONST data\[\]= {"
+static const char * const data\[\]= {"
set n 1
for {set i 0} {$i<$lg} {incr i $MAX} {
set part [string range $r $i [expr $i+$MAX-1]]
@@ -48,7 +48,7 @@ static CONST char * CONST data\[\]= {"
}
puts "\tNULL\t/* End of data marker */\n};"
puts "\n/* use for instance with:
- CONST char * CONST *chunk;
+ const char * const *chunk;
for (chunk=data; *chunk; chunk++) {
Tcl_AppendResult(interp, *chunk, (char *) NULL);
}