Branch: Tag:

2005-12-18

2005-12-18 21:17:30 by Marcus Comstedt <marcus@mc.pp.se>

Implemented INIT and EXIT keywords.

Rev: src/post_modules/GTK2/build_pgtk.pike:1.5
Rev: src/post_modules/GTK2/output/few.pike:1.6
Rev: src/post_modules/GTK2/output/split.pike:1.4

19:    if( !cls->functions["_sprintf"] )    cls->create_default_sprintf();    +  cls->create_init_exit(); +     /* Start output */    current_data += "#define EXTPRG extern\n"+sfhead;    if( sizeof( cls->pre ) )
90:    else    {    res += " ADD_STORAGE(struct object_wrapper);\n"; -  res += " set_init_callback(pgtk_clear_obj_struct);\n"; +     }    }   
116:    }    res += "}\n\n";    toplevel += res; +  +  if( cls->name == "_global" ) +  { +  if(sizeof(cls->init)) +  initfun += " gtk__init();\n"; +  if(sizeof(cls->exit)) +  exitfun += " gtk__exit();\n"; +  }    } )    werror(cls->file+":"+cls->line+": Error: "+    (stringp(e)?e:describe_backtrace(e))+"\n" );