pike.git / src / post_modules / GL / gen.pike

version» Context lines:

pike.git/src/post_modules/GL/gen.pike:487:    foreach(fn, string f)    res += " add_function_constant(\""+f+"\", f_"+f+",\n\t\t\t\"function("+    prot[f]+")\", OPT_SIDE_EFFECT);\n";    foreach(sort(indices(constants)), string co) {    int val = constants[co];    if ((val & ~0x7fffffff) && ((val & ~0x7fffffff) != ~0x7fffffff))    error("Constant %s = %O out of range 32 bit (masked: %O).",    co, val, val & ~0x7fffffff);    else    res += " add_integer_constant(\""+co+"\", "+ -  (string)val+", 0);\n"; +  (string)val+", ID_FINAL);\n";    }    res += " post_init();\n";    res += "}\n";    return res;   }      void main(int argc, array(string) argv)   {    array(string) f = Stdio.File("stdin")->read()/"@@";    write(({    "#line 1 \"auto.c.in\"\n",    f[0],    sprintf("\n#line %d \"auto.c (generated by %s)\"\n",    String.count (f[0], "\n") + 4, __FILE__),    gen(),    sprintf("\n#line %d \"auto.c.in\"\n", sizeof(f[0]/"\n")),    @f[1..]})*"");   }