pike.git/ src/ post_modules/ GTK2/ output/ split.pike

2006-01-06

2006-01-06 23:52:47 by Martin Nilsson <mani@lysator.liu.se>

• 2d49324eced610f9f328f8684b358a06cd7cfdf0 (13 lines) (+12/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

_STR() will be converted into a pike_string.

Rev: src/post_modules/GTK2/build_pgtk.pike:1.8
Rev: src/post_modules/GTK2/output/split.pike:1.8

162:      array(string) output( mapping(string:Class) classes,    mapping(string:Constant) constants, -  array(Node) global_code ) +  array(Node) global_code, +  mapping(string:string) strings)   {    head = Stdio.read_bytes( combine_path( sdir, "../pgtk.c.head" ) );    if(!head) error("Failed to load ../pgtk.c.head\n");
205:       foreach( sort(indices( done )), string w )    initfun += done[w]->pike_add(); +  +  foreach( strings; string name; string str ) +  { +  pre += "struct pike_string *" + name + ";\n"; +  initfun += " " + name + " = make_shared_binary_string(" + S(str,0,2) + +  "," + sizeof(str) + ");\n"; +  exitfun += " free_string(" + name + ");\n"; +  } +     pre += get_string_data()+"\n\n";    files = ({ "pgtk.c" }) + files;