vcl_output_lang_h(FILE *f)
{
fputs("/*\n", f);
- fputs(" * Stuff necessary to compile a VCL programs C code\n", f);
+ fputs(" * $Id$\n", f);
+ fputs(" *\n", f);
+ fputs(" * Interface to a compiled VCL program.\n", f);
fputs(" *\n", f);
fputs(" * XXX: When this file is changed, lib/libvcl/vcl_gen_fixed_token.tcl\n", f);
fputs(" * XXX: *MUST* be rerun.\n", f);
fputs(" unsigned nref;\n", f);
fputs(" unsigned busy;\n", f);
fputs("};\n", f);
- fputs("/* $Id$ */\n", f);
fputs("/*\n", f);
+ fputs(" * $Id$ \n", f);
+ fputs(" *\n", f);
fputs(" * Runtime support for compiled VCL programs.\n", f);
fputs(" *\n", f);
fputs(" * XXX: When this file is changed, lib/libvcl/vcl_gen_fixed_token.tcl\n", f);
fputs("\n", f);
fputs("struct sess;\n", f);
fputs("struct backend;\n", f);
+ fputs("struct VCL_conf;\n", f);
fputs("\n", f);
fputs("struct vrt_ref {\n", f);
fputs(" unsigned line;\n", f);
set fi [open $n]
while {[gets $fi a] >= 0} {
- if {"$a" == "#include <http_headers.h>"} {
- puts "FOO $a"
- set fx [open "../../include/http_headers.h"]
- while {[gets $fx b] >= 0} {
- regsub -all {"} $b {\"} b
- puts $fo "\tfputs(\"$b\\n\", f);"
- }
- close $fx
- continue
- }
regsub -all {\\} $a {\\\\} a
puts $fo "\tfputs(\"$a\\n\", f);"
}
puts $fo "void"
puts $fo "vcl_output_lang_h(FILE *f)"
puts $fo "{"
-copy_include ../../include/vcl_lang.h
+copy_include ../../include/vcl.h
copy_include ../../include/vrt.h
puts $fo "}"