Wapp

Differences From Artifact [e331df6dbe]:

• Executable file mkccode.tcl — part of check-in [15fbf713e6] at 2018-02-01 03:11:55 on branch trunk — Safety enhancements: (A) Invoke the application with the --lint option to do a self-check for unsafe constructs. (B) Bring back the wapp-unsafe command for the rare cases where it is actually needed. (C) Comment out wapp.tcl comment lines when building the wapptclsh application. (user: drh size: 3002)

To Artifact [b1d250c676]:

• Executable file mkccode.tcl — part of check-in [b7abbe4090] at 2024-11-09 12:34:10 on branch trunk — Add a makefile for windows. Improvements, including better comments, in existing makefiles. (user: drh size: 3032)

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