pike.git
/
src
/
post_modules
/
GTK2
/
output
/
split.pike
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/post_modules/GTK2/output/split.pike:114:
sscanf(aaa[1],"%*[ \t](%s)",str1); predef::write("PSTR==%s\n",str1); */ } res += "}\n\n"; toplevel += res; if( cls->name == "_global" ) { if(sizeof(cls->init))
-
initfun += "
gtk
__init();\n";
+
initfun += "
pgtk
__init();\n";
if(sizeof(cls->exit))
-
exitfun += "
gtk
__exit();\n";
+
exitfun += "
pgtk
__exit();\n";
} } ) werror(cls->file+":"+cls->line+": Error: "+ (stringp(e)?e:describe_backtrace(e))+"\n" ); } string make_initfun() { string res = "";
pike.git/src/post_modules/GTK2/output/split.pike:193:
done[n] = s; q = sort(indices( done )); sort(map(q,sizeof),q); foreach( reverse(q), string w ) S("s_"+w,1); foreach( sort(indices( done )), string w ) initfun += done[w]->pike_add(); pre += get_string_data()+"\n\n"; files = ({ "pgtk.c" }) + files;
-
+
write_file( dir+"pgtk.c", pre + toplevel + "PIKE_MODULE_INIT {\n"+make_initfun()+initfun+"}\n\n" "PIKE_MODULE_EXIT {\n"+exitfun+"}\n\n" "struct program *pgtk_type_to_program(GObject *widget)\n" "{\n" +type_switch+ " return pg_object_program;\n}\n\n" ); return files;