Wapp

Diff
Login

Differences From Artifact [e331df6dbe]:

To Artifact [b1d250c676]:


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