common/makegdesc

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