69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
puts "/* $x */"
} else {
set x [string map "\\\\ \\\\\\\\ \\\" \\\\\"" $line]
puts "\"$x\\n\""
}
}
} else {
puts [read $in2]
}
puts "/* END $path */"
close $in2
continue
}
if {[regexp {^BEGIN_STRING} $line]} {
set instr 1
|
|
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
puts "/* $x */"
} else {
set x [string map "\\\\ \\\\\\\\ \\\" \\\\\"" $line]
puts "\"$x\\n\""
}
}
} else {
puts [regsub -all {\yEXTERN\y} [read $in2] {}]
}
puts "/* END $path */"
close $in2
continue
}
if {[regexp {^BEGIN_STRING} $line]} {
set instr 1
|