common/makegdesc

   1 #!/usr/bin/perl
   2
   3 use Getopt::Long;
   4 use IO::File;
   5
   6 GetOptions(\%args, "h=s") || exit 1;
   7
   8 $tempvar = 0;
   9
  10 sub printwidgets
  11 {
  12     my($widget, $sl, $p, $sig, $cb, $data, $pf, $cpf, $mod, $key, @delayedlines);
  13     $sl = $_[1];
  14     $p = "    " . (" " x $sl);
  15     $cpf = $_[2];
  16     @delayedlines = ();
  17     foreach $widget (@{$_[0]})
  18     {
  19         if($widget->{"type"} eq "wnd")
  20         {
  21             print "${p}stack[$sl] = gtk_window_new(GTK_WINDOW_TOPLEVEL);\n";
  22             if($options{"hasaccels"}) {
  23                 print "${p}gtk_window_add_accel_group(GTK_WINDOW(stack[$sl]), accel_group);\n";
  24             }
  25             if($widget->{"title"}) {
  26                 print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
  27             }
  28             $pf = sub
  29             {
  30                 my($widget, $p, $sl) = @_;
  31                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
  32             }
  33         } elsif($widget->{"type"} eq "assistant") {
  34             print "${p}stack[$sl] = gtk_assistant_new();\n";
  35             if(defined($widget->{"title"})) {
  36                 print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
  37             }
  38             $pf = sub
  39             {
  40                 my($widget, $p, $sl) = @_;
  41                 print "${p}gtk_assistant_append_page(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
  42                 if(defined($widget->{"title"})) {
  43                     print "${p}gtk_assistant_set_page_title(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], _(\"" . $widget->{"title"} . "\"));\n";
  44                 }
  45                 if(defined($widget->{"ptype"})) {
  46                     print "${p}gtk_assistant_set_page_type(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], GTK_ASSISTANT_PAGE_" . $widget->{"ptype"} . ");\n";
  47                 }
  48                 if(defined($widget->{"cmpl"})) {
  49                     print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
  50                 }
  51             }
  52         } elsif($widget->{"type"} =~ /[hv]box/) {
  53             print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new(";
  54             print $widget->{"homo"}?"TRUE, ":"FALSE, ";
  55             print $widget->{"spacing"} || "0";
  56             print ");\n";
  57             $pf = sub
  58             {
  59                 my($widget, $p, $sl) = @_;
  60                 print "${p}gtk_box_pack_start(GTK_BOX(stack[" . ($sl - 1) . "]), stack[$sl], ";
  61                 print (($widget->{"expand"} || $widget->{"parent"}->{"dexpand"})?"TRUE, ":"FALSE, ");
  62                 print (($widget->{"fill"} || $widget->{"parent"}->{"dfill"})?"TRUE, ":"FALSE, ");
  63                 print $widget->{"pad"} || "0";
  64                 print ");\n";
  65             }
  66         } elsif($widget->{"type"} =~ /([hv])btnbox/) {
  67             print "${p}stack[$sl] = gtk_" . $1 . "button_box_new();\n";
  68             if(defined($widget->{"layout"})) {
  69                 print "${p}gtk_button_box_set_layout(GTK_BUTTON_BOX(stack[$sl]), GTK_BUTTONBOX_" . $widget->{"layout"} . ");\n";
  70             }
  71             $pf = sub
  72             {
  73                 my($widget, $p, $sl) = @_;
  74                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
  75             }
  76         } elsif($widget->{"type"} eq "table") {
  77             print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
  78             print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");
  79             print ");\n";
  80             $pf = sub
  81             {
  82                 my($widget, $p, $sl) = @_;
  83                 print "${p}gtk_table_attach(GTK_TABLE(stack[" . ($sl - 1) . "]), stack[$sl]";
  84                 print ", " . $widget->{"tx"};
  85                 print ", " . ($widget->{"tx"} + (defined($widget->{"tw"})?$widget->{"tw"}:1));
  86                 print ", " . $widget->{"ty"};
  87                 print ", " . ($widget->{"ty"} + (defined($widget->{"th"})?$widget->{"th"}:1));
  88                 if($widget->{"fill"} eq "y") {
  89                     $widget->{"fillx"} = "y";
  90                     $widget->{"filly"} = "y";
  91                 }
  92                 if($widget->{"shrink"} eq "y") {
  93                     $widget->{"shrinkx"} = "y";
  94                     $widget->{"shrinky"} = "y";
  95                 }
  96                 if($widget->{"expand"} eq "y") {
  97                     $widget->{"expandx"} = "y";
  98                     $widget->{"expandy"} = "y";
  99                 }
 100                 print ", 0";
 101                 print " | GTK_FILL" if $widget->{"fillx"} eq "y";
 102                 print " | GTK_SHRINK" if $widget->{"shrinkx"} eq "y";
 103                 print " | GTK_EXPAND" if $widget->{"expandx"} eq "y";
 104                 print ", 0";
 105                 print " | GTK_FILL" if $widget->{"filly"} eq "y";
 106                 print " | GTK_SHRINK" if $widget->{"shrinky"} eq "y";
 107                 print " | GTK_EXPAND" if $widget->{"expandy"} eq "y";
 108                 print ", " . (defined($widget->{"padx"})?$widget->{"padx"}:"0");
 109                 print ", " . (defined($widget->{"pady"})?$widget->{"pady"}:"0");
 110                 print ");\n";
 111             }
 112         } elsif($widget->{"type"} eq "btn") {
 113             $widget->{"label"} || die("Can't have button without label\n");
 114             print "${p}stack[$sl] = gtk_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
 115         } elsif($widget->{"type"} eq "chk") {
 116             $widget->{"label"} || die("Can't have check button without label\n");
 117             print "${p}stack[$sl] = gtk_check_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
 118         } elsif($widget->{"type"} eq "radio") {
 119             $widget->{"label"} || die("Can't have check button without label\n");
 120             if(defined($widget->{"group"})) {
 121                 print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic_from_widget(GTK_RADIO_BUTTON(" . $options{"prefix"} . $widget->{"group"} . "), _(\"" . $widget->{"label"} . "\"));\n";
 122             } else {
 123                 print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic(NULL, _(\"" . $widget->{"label"} . "\"));\n";
 124             }
 125         } elsif($widget->{"type"} eq "sbtn") {
 126             $widget->{"stock"} || die("Can't have button without stock\n");
 127             print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
 128         } elsif($widget->{"type"} eq "simg") {
 129             $widget->{"stock"} || die("Can't have image without stock\n");
 130             $widget->{"size"} || die("Can't have image without size\n");
 131             print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
 132         } elsif($widget->{"type"} eq "xpmimg") {
 133             $widget->{"data"} || die("Can't have XPM image without data\n");
 134             print "${p}stack[$sl] = gtk_image_new_from_pixbuf(gdk_pixbuf_new_from_xpm_data((const char **)" . $widget->{"data"} . "));\n";
 135         } elsif($widget->{"type"} eq "lbl") {
 136             $widget->{"label"} || $widget->{"markup"} || die("Can't have label without label\n");
 137             if($widget->{"label"}) {
 138                 print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
 139             } else {
 140                 print "${p}stack[$sl] = gtk_label_new(NULL);\n";
 141                 print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"markup"} . "\"));\n";
 142             }
 143             if($widget->{"wrap"} eq "y") {
 144                 print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
 145             }
 146         } elsif($widget->{"type"} eq "mlbl") {
 147             $widget->{"label"} || die("Can't have label without label\n");
 148             print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
 149             if(defined($widget->{"mwidget"}))
 150             {
 151                 if($widget->{"var"} ne "y") {
 152                     $widget->{"var"} = "l";
 153                 }
 154                 if(!defined($widget->{"name"})) {
 155                     $widget->{"name"} = "temp" . $tempvar++;
 156                 }
 157                 $str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
 158                 if($widget->{"var"} eq "y") {
 159                     $str .= $options{"prefix"};
 160                 }
 161                 $str .= $widget->{"name"};
 162                 $str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
 163                 push @delayedlines, ($str);
 164             }
 165         } elsif($widget->{"type"} eq "text") {
 166             print "${p}stack[$sl] = gtk_entry_new();\n";
 167             if($widget->{"default"}) {
 168                 print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
 169             }
 170         } elsif($widget->{"type"} eq "menubar") {
 171             print "${p}stack[$sl] = gtk_menu_bar_new();\n";
 172             $pf = sub
 173             {
 174                 my($widget, $p, $sl) = @_;
 175                 print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 176             }
 177         } elsif($widget->{"type"} eq "menuitem") {
 178             print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
 179             $pf = sub
 180             {
 181                 my($widget, $p, $sl) = @_;
 182                 print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 183             }
 184         } elsif($widget->{"type"} eq "smenuitem") {
 185             print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
 186             $pf = sub
 187             {
 188                 my($widget, $p, $sl) = @_;
 189                 print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 190             }
 191         } elsif($widget->{"type"} eq "menusep") {
 192             print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
 193         } elsif($widget->{"type"} eq "menu") {
 194             print "${p}stack[$sl] = gtk_menu_new();\n";
 195             if($options{"hasaccels"}) {
 196                 print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
 197             }
 198             $pf = sub
 199             {
 200                 my($widget, $p, $sl) = @_;
 201                 print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 202             };
 203             $widget->{"noshow"} = 1;
 204         } elsif($widget->{"type"} =~ /^[hv]paned$/) {
 205             print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
 206             $widget->{"cur"} = 1;
 207             $pf = sub
 208             {
 209                 my($widget, $p, $sl) = @_;
 210                 print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
 211                 print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
 212                 print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
 213                 print ");\n";
 214                 $widget->{"parent"}->{"cur"}++;
 215             }
 216         } elsif($widget->{"type"} eq "notebook") {
 217             print "${p}stack[$sl] = gtk_notebook_new();\n";
 218             if(defined($widget->{"pos"})) {
 219                 print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ");\n";
 220             }
 221             $pf = sub
 222             {
 223                 my($widget, $p, $sl) = @_;
 224                 print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
 225                 print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
 226                 print ");\n";
 227             }
 228         } elsif($widget->{"type"} eq "sw") {
 229             print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
 230             $pf = sub
 231             {
 232                 my($widget, $p, $sl) = @_;
 233                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 234             }
 235         } elsif($widget->{"type"} eq "frame") {
 236             print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
 237             $pf = sub
 238             {
 239                 my($widget, $p, $sl) = @_;
 240                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 241             }
 242         } elsif($widget->{"type"} eq "exp") {
 243             print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
 244             $pf = sub
 245             {
 246                 my($widget, $p, $sl) = @_;
 247                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 248             }
 249         } elsif($widget->{"type"} eq "align") {
 250             print "${p}stack[$sl] = gtk_alignment_new(";
 251             if(defined($widget->{"xa"})) {
 252                 print $widget->{"xa"};
 253             } else {
 254                 print "0.5";
 255             }
 256             print ", ";
 257             if(defined($widget->{"ya"})) {
 258                 print $widget->{"ya"};
 259             } else {
 260                 print "0.5";
 261             }
 262             print ", ";
 263             if(defined($widget->{"xs"})) {
 264                 print $widget->{"xs"};
 265             } else {
 266                 print "1.0";
 267             }
 268             print ", ";
 269             if(defined($widget->{"ys"})) {
 270                 print $widget->{"ys"};
 271             } else {
 272                 print "1.0";
 273             }
 274             print ");\n";
 275             $pf = sub
 276             {
 277                 my($widget, $p, $sl) = @_;
 278                 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
 279             }
 280         } elsif($widget->{"type"} eq "treeview") {
 281             print "${p}stack[$sl] = gtk_tree_view_new();\n";
 282             if(defined($widget->{"hvis"})) {
 283                 print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
 284             }
 285             if(defined($widget->{"rules"})) {
 286                 print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
 287             }
 288             if(defined($widget->{"searchcol"})) {
 289                 print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
 290                 print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
 291             }
 292             $pf = sub
 293             {
 294                 my($widget, $p, $sl) = @_;
 295                 print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
 296                 if($widget->{"expander"} eq "y") {
 297                     print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
 298                 }
 299             }
 300         } elsif($widget->{"type"} eq "tvcol") {
 301             if(!defined($widget->{"subwidgets"}))
 302             {
 303                 print "${p}column = gtk_tree_view_column_new_with_attributes(";
 304                 print "_(\"" . $widget->{"title"} . "\")";
 305                 print ", gtk_cell_renderer_text_new()";
 306                 if(defined($widget->{"text"})) {
 307                     print ", \"text\", " . $widget->{"text"};
 308                 }
 309                 print ", NULL);\n";
 310             } else {
 311                 print "${p}column = gtk_tree_view_column_new();\n";
 312                 print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
 313             }
 314             if(defined($widget->{"sortcol"})) {
 315                 print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
 316             }
 317             if(defined($widget->{"resizable"})) {
 318                 print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
 319             }
 320             $widget->{"noshow"} = 1;
 321             $pf = sub
 322             {
 323             }
 324         } elsif($widget->{"type"} eq "textrend") {
 325             print "${p}renderer = gtk_cell_renderer_text_new();\n";
 326             print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
 327             if(defined($widget->{"text"})) {
 328                 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
 329             }
 330             if(defined($widget->{"func"})) {
 331                 print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
 332             }
 333             $widget->{"noshow"} = 1;
 334         } elsif($widget->{"type"} eq "progrend") {
 335             print "${p}renderer = gtk_cell_renderer_progress_new();\n";
 336             print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
 337             if(defined($widget->{"value"})) {
 338                 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"value\", " . $widget->{"value"} . ");\n";
 339             }
 340             if(defined($widget->{"func"})) {
 341                 print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
 342             }
 343             $widget->{"noshow"} = 1;
 344         } elsif($widget->{"type"} eq "custrend") {
 345             print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
 346             print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
 347             foreach $attr (keys %{$widget})
 348             {
 349                 if($attr =~ /attr\((\S+)\)/)
 350                 {
 351                     print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
 352                 }
 353             }
 354             $widget->{"noshow"} = 1;
 355         } elsif($widget->{"type"} eq "pixbufrend") {
 356             print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
 357             print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
 358             if(defined($widget->{"stock_id"})) {
 359                 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
 360             }
 361             $widget->{"noshow"} = 1;
 362         } elsif($widget->{"type"} eq "textview") {
 363             print "${p}stack[$sl] = gtk_text_view_new();\n";
 364             if(defined($widget->{"editable"})) {
 365                 print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
 366             }
 367         } elsif($widget->{"type"} eq "pbar") {
 368             print "${p}stack[$sl] = gtk_progress_bar_new();\n";
 369         } elsif($widget->{"type"} eq "hr") {
 370             print "${p}stack[$sl] = gtk_hseparator_new();\n";
 371         } elsif($widget->{"type"} eq "sbar") {
 372             print "${p}stack[$sl] = gtk_statusbar_new();\n";
 373             if($widget->{"grip"} eq "n") {
 374                 print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
 375             }
 376         } elsif($widget->{"type"} eq "filechooser") {
 377             print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
 378         } else {
 379             print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
 380         }
 381         if($widget->{"sensitive"}) {
 382             print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
 383         }
 384         if($widget->{"rqsz"} =~ /(\d+)x(\d+)/) {
 385             print "${p}gtk_widget_set_size_request(stack[$sl], $1, $2);\n";
 386         }
 387         if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
 388             print "${p}gtk_misc_set_alignment(GTK_MISC(stack[$sl]), $1, $2);\n";
 389         }
 390         if($widget->{"wpad"} =~ /([\d\.]+):([\d\.]+)/) {
 391             print "${p}gtk_misc_set_padding(GTK_MISC(stack[$sl]), $1, $2);\n";
 392         }
 393         if($widget->{"var"} eq "y") {
 394             print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
 395         }
 396         if($widget->{"var"} eq "l") {
 397             print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
 398         }
 399         if($widget->{"sig"})
 400         {
 401             while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
 402                 print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
 403             }
 404         }
 405         if($widget->{"accel"})
 406         {
 407             $mod = "";
 408             while($widget->{"accel"} =~ /\G(\w+)\+/gc)
 409             {
 410                 $mod .= " | " if($mod);
 411                 $mod = $mod . "GDK_" . $1 . "_MASK";
 412             }
 413             $mod || ($mod = "0");
 414             $widget->{"accel"} =~ /\G(\w+)/g;
 415             $key = $1;
 416             print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
 417         }
 418         foreach $attr (keys %{$widget})
 419         {
 420             if($attr =~ /^sig\((\S+)\)/)
 421             {
 422                 $sig = $1;
 423                 if($widget->{$attr} =~ /([^,]*),(.*)/)
 424                 {
 425                     $cb = $1;
 426                     $data = $2;
 427                 } else {
 428                     $cb = $widget->{$attr};
 429                     $data = "NULL";
 430                 }
 431                 print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$sig\", G_CALLBACK($cb), (gpointer)$data);\n";
 432             }
 433         }
 434         if($widget->{"subwidgets"})
 435         {
 436             print "$p\n";
 437             printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
 438         }
 439         if($sl > 0)
 440         {
 441             &$cpf($widget, $p, $sl);
 442             if(!$widget->{"noshow"}) {
 443                 print "${p}gtk_widget_show(stack[$sl]);\n";
 444             }
 445         }
 446         print "$p\n";
 447     }
 448     foreach $line (@delayedlines)
 449     {
 450         print $p . $line . "\n";
 451     }
 452 }
 453
 454 sub printheader
 455 {
 456     my($widget, $handle);
 457     $handle = $_[1];
 458     foreach $widget (@{$_[0]})
 459     {
 460         if($widget->{"var"})
 461         {
 462             $handle->print("extern GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n");
 463         }
 464         printheader($widget->{"subwidgets"}, $handle) if($widget->{"subwidgets"});
 465     }
 466 }
 467
 468 sub printvars
 469 {
 470     my($widget);
 471     foreach $widget (@{$_[0]})
 472     {
 473         if($widget->{"var"})
 474         {
 475             print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
 476         }
 477         printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
 478     }
 479 }
 480
 481 sub dequote
 482 {
 483     my($text);
 484     ($text) = @_;
 485     $text =~ s/([^\\]|^)\"/$1/g;
 486     $text =~ s/\\(.)/$1/g;
 487     return $text;
 488 }
 489
 490 $rootwidgets = [];
 491 @estack = ($rootwidgets);
 492 @wstack = ();
 493 $curwidget = 0;
 494 $maxstack = 1;
 495
 496 while(<>)
 497 {
 498     chomp;
 499     s/(^|\s+)\#.*$//;
 500     s/^\s*//;
 501     if(/^;\s*(\w+)\s*:\s*(\w.*)/)
 502     {
 503         $options{$1} = $2;
 504     } elsif(/^([:\$])\s*(\w+)/g) {
 505         $curwidget = {"type" => $2};
 506         push @{$estack[0]}, $curwidget;
 507         if((scalar @wstack) > 0) {
 508             $curwidget->{"parent"} = $wstack[0];
 509         }
 510         if($1 eq ":")
 511         {
 512             unshift @estack, ($curwidget->{"subwidgets"} = []);
 513             unshift @wstack, $curwidget;
 514         }
 515         $maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
 516         while(/\G\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/g)
 517         {
 518             $curwidget->{$1} = dequote($2);
 519         }
 520     } elsif(/^%\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/) {
 521         $curwidget || die("No current widget\n");
 522         $curwidget->{$1} = dequote($2);
 523     } elsif(/^end/) {
 524         shift @estack;
 525         shift @wstack;
 526         $curwidget = $wstack[0] if((scalar @wstack) > 0);
 527     } elsif(!$_) {
 528     } else {
 529         print STDERR "Invalid construct: $_\n";
 530     }
 531 }
 532
 533 if($args{"h"})
 534 {
 535     $hfile = IO::File->new($args{"h"}, "w") || die;
 536     $hfile->print("GtkWidget *create_" . $options{"prefix"} . "wnd(void);\n");
 537     printheader $rootwidgets, $hfile;
 538     $hfile->close();
 539 }
 540
 541 printvars $rootwidgets;
 542 print "\n";
 543 print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
 544 print "{\n";
 545 print "    GtkWidget *stack[$maxstack];\n";
 546 print "    GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
 547 print "    GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
 548 print "    GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
 549 print "    \n";
 550 print "    accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
 551 printwidgets $rootwidgets, 0;
 552 print "    return(stack[0]);\n";
 553 print "}\n";