[doldaconnect.git] / common / makegdesc

#!/usr/bin/perl

$tempvar = 0;

sub printwidgets
{
    my($widget, $sl, $p, $sig, $cb, $data, $pf, $cpf, $mod, $key, @delayedlines);
    $sl = $_[1];
    $p = "    " . (" " x $sl);
    $cpf = $_[2];
    @delayedlines = ();
    foreach $widget (@{$_[0]})
    {
	if($widget->{"type"} eq "wnd")
	{
	    print "${p}stack[$sl] = gtk_window_new(GTK_WINDOW_TOPLEVEL);\n";
	    if($options{"hasaccels"}) {
		print "${p}gtk_window_add_accel_group(GTK_WINDOW(stack[$sl]), accel_group);\n";
	    }
	    if($widget->{"title"}) {
		print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "assistant") {
	    print "${p}stack[$sl] = gtk_assistant_new();\n";
	    if(defined($widget->{"title"})) {
		print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_assistant_append_page(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
		if(defined($widget->{"title"})) {
		    print "${p}gtk_assistant_set_page_title(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], _(\"" . $widget->{"title"} . "\"));\n";
		}
		if(defined($widget->{"ptype"})) {
		    print "${p}gtk_assistant_set_page_type(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], GTK_ASSISTANT_PAGE_" . $widget->{"ptype"} . ");\n";
		}
		if(defined($widget->{"cmpl"})) {
		    print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
		}
	    }
	} elsif($widget->{"type"} =~ /[hv]box/) {
	    print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new(";
	    print $widget->{"homo"}?"TRUE, ":"FALSE, ";
	    print $widget->{"spacing"} || "0";
	    print ");\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_box_pack_start(GTK_BOX(stack[" . ($sl - 1) . "]), stack[$sl], ";
		print (($widget->{"expand"} || $widget->{"parent"}->{"dexpand"})?"TRUE, ":"FALSE, ");
		print (($widget->{"fill"} || $widget->{"parent"}->{"dfill"})?"TRUE, ":"FALSE, ");
		print $widget->{"pad"} || "0";
		print ");\n";
	    }
	} elsif($widget->{"type"} eq "table") {
	    print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
	    print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");
	    print ");\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_table_attach(GTK_TABLE(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", " . $widget->{"tx"};
		print ", " . ($widget->{"tx"} + (defined($widget->{"tw"})?$widget->{"tw"}:1));
		print ", " . $widget->{"ty"};
		print ", " . ($widget->{"ty"} + (defined($widget->{"th"})?$widget->{"th"}:1));
		if($widget->{"fill"} eq "y") {
		    $widget->{"fillx"} = "y";
		    $widget->{"filly"} = "y";
		}
		if($widget->{"shrink"} eq "y") {
		    $widget->{"shrinkx"} = "y";
		    $widget->{"shrinky"} = "y";
		}
		if($widget->{"expand"} eq "y") {
		    $widget->{"expandx"} = "y";
		    $widget->{"expandy"} = "y";
		}
		print ", 0";
		print " | GTK_FILL" if $widget->{"fillx"} eq "y";
		print " | GTK_SHRINK" if $widget->{"shrinkx"} eq "y";
		print " | GTK_EXPAND" if $widget->{"expandx"} eq "y";
		print ", 0";
		print " | GTK_FILL" if $widget->{"filly"} eq "y";
		print " | GTK_SHRINK" if $widget->{"shrinky"} eq "y";
		print " | GTK_EXPAND" if $widget->{"expandy"} eq "y";
		print ", " . (defined($widget->{"padx"})?$widget->{"padx"}:"0");
		print ", " . (defined($widget->{"pady"})?$widget->{"pady"}:"0");
		print ");\n";
	    }
	} elsif($widget->{"type"} eq "btn") {
	    $widget->{"label"} || die("Can't have button without label\n");
	    print "${p}stack[$sl] = gtk_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	} elsif($widget->{"type"} eq "chk") {
	    $widget->{"label"} || die("Can't have check button without label\n");
	    print "${p}stack[$sl] = gtk_check_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	} elsif($widget->{"type"} eq "sbtn") {
	    $widget->{"stock"} || die("Can't have button without stock\n");
	    print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
	} elsif($widget->{"type"} eq "simg") {
	    $widget->{"stock"} || die("Can't have image without stock\n");
	    $widget->{"size"} || die("Can't have image without size\n");
	    print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
	} elsif($widget->{"type"} eq "lbl") {
	    $widget->{"label"} || die("Can't have label without label\n");
	    print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
	} elsif($widget->{"type"} eq "mlbl") {
	    $widget->{"label"} || die("Can't have label without label\n");
	    print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    if(defined($widget->{"mwidget"}))
	    {
		if($widget->{"var"} ne "y") {
		    $widget->{"var"} = "l";
		}
		if(!defined($widget->{"name"})) {
		    $widget->{"name"} = "temp" . $tempvar++;
		}
		$str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
		if($widget->{"var"} eq "y") {
		    $str .= $options{"prefix"};
		}
		$str .= $widget->{"name"};
		$str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
		push @delayedlines, ($str);
	    }
	} elsif($widget->{"type"} eq "text") {
	    print "${p}stack[$sl] = gtk_entry_new();\n";
	    if($widget->{"default"}) {
		print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
	    }
	} elsif($widget->{"type"} eq "menubar") {
	    print "${p}stack[$sl] = gtk_menu_bar_new();\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "menuitem") {
	    print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "smenuitem") {
	    print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "menusep") {
	    print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
	} elsif($widget->{"type"} eq "menu") {
	    print "${p}stack[$sl] = gtk_menu_new();\n";
	    if($options{"hasaccels"}) {
		print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    };
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} =~ /^[hv]paned$/) {
	    print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
	    $widget->{"cur"} = 1;
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
		print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
		print ");\n";
		$widget->{"parent"}->{"cur"}++;
	    }
	} elsif($widget->{"type"} eq "notebook") {
	    print "${p}stack[$sl] = gtk_notebook_new();\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
		print ");\n";
	    }
	} elsif($widget->{"type"} eq "sw") {
	    print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "frame") {
	    print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "exp") {
	    print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "treeview") {
	    print "${p}stack[$sl] = gtk_tree_view_new();\n";
	    if(defined($widget->{"hvis"})) {
		print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
	    }
	    if(defined($widget->{"rules"})) {
		print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
	    }
	    if(defined($widget->{"searchcol"})) {
		print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
		print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
		if($widget->{"expander"} eq "y") {
		    print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
		}
	    }
	} elsif($widget->{"type"} eq "tvcol") {
	    if(!defined($widget->{"subwidgets"}))
	    {
		print "${p}column = gtk_tree_view_column_new_with_attributes(";
		print "_(\"" . $widget->{"title"} . "\")";
		print ", gtk_cell_renderer_text_new()";
		if(defined($widget->{"text"})) {
		    print ", \"text\", " . $widget->{"text"};
		}
		print ", NULL);\n";
	    } else {
		print "${p}column = gtk_tree_view_column_new();\n";
		print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
	    }
	    if(defined($widget->{"sortcol"})) {
		print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
	    }
	    if(defined($widget->{"resizable"})) {
		print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
	    }
	    $widget->{"noshow"} = 1;
	    $pf = sub
	    {
	    }
	} elsif($widget->{"type"} eq "textrend") {
	    print "${p}renderer = gtk_cell_renderer_text_new();\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
	    if(defined($widget->{"text"})) {
		print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
	    }
	    if(defined($widget->{"func"})) {
		print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "custrend") {
	    print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
	    foreach $attr (keys %{$widget})
	    {
		if($attr =~ /attr\((\S+)\)/)
		{
		    print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
		}
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "pixbufrend") {
	    print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
	    if(defined($widget->{"stock_id"})) {
		print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "textview") {
	    print "${p}stack[$sl] = gtk_text_view_new();\n";
	    if(defined($widget->{"editable"})) {
		print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
	    }
	} elsif($widget->{"type"} eq "pbar") {
	    print "${p}stack[$sl] = gtk_progress_bar_new();\n";
	} elsif($widget->{"type"} eq "hr") {
	    print "${p}stack[$sl] = gtk_hseparator_new();\n";
	} elsif($widget->{"type"} eq "sbar") {
	    print "${p}stack[$sl] = gtk_statusbar_new();\n";
	    if($widget->{"grip"} eq "n") {
		print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
	    }
	} elsif($widget->{"type"} eq "filechooser") {
	    print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
	} else {
	    print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
	}
	if($widget->{"sensitive"}) {
	    print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
	}
	if($widget->{"var"} eq "y") {
	    print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
	}
	if($widget->{"var"} eq "l") {
	    print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
	}
	if($widget->{"sig"})
	{
	    while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
		print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
	    }
	}
	if($widget->{"accel"})
	{
	    $mod = "";
	    while($widget->{"accel"} =~ /\G(\w+)\+/gc)
	    {
		$mod .= " | " if($mod);
		$mod = $mod . "GDK_" . $1 . "_MASK";
	    }
	    $mod || ($mod = "0");
	    $widget->{"accel"} =~ /\G(\w+)/g;
	    $key = $1;
	    print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
	}
	foreach $attr (keys %{$widget})
	{
	    if($attr =~ /^sig\((\S+)\)/)
	    {
		$sig = $1;
		if($widget->{$attr} =~ /([^,]*),(.*)/)
		{
		    $cb = $1;
		    $data = $2;
		} else {
		    $cb = $widget->{$attr};
		    $data = "NULL";
		}
		print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK($cb), (gpointer)$data);\n";
	    }
	}
	if($widget->{"subwidgets"})
	{
	    print "$p\n";
	    printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
	}
	if($sl > 0)
	{
	    &$cpf($widget, $p, $sl);
	    if(!$widget->{"noshow"}) {
		print "${p}gtk_widget_show(stack[$sl]);\n";
	    }
	}
	print "$p\n";
    }
    foreach $line (@delayedlines)
    {
	print $p . $line . "\n";
    }
}

sub printvars
{
    my($widget);
    foreach $widget (@{$_[0]})
    {
	if($widget->{"var"})
	{
	    print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
	}
	printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
    }
}

sub dequote
{
    my($text);
    ($text) = @_;
    $text =~ s/([^\\]|^)\"/$1/g;
    $text =~ s/\\(.)/$1/g;
    return $text;
}

$rootwidgets = [];
@estack = ($rootwidgets);
@wstack = ();
$curwidget = 0;
$maxstack = 1;

while(<>)
{
    chomp;
    s/(^|\s+)\#.*$//;
    s/^\s*//;
    if(/^;\s*(\w+)\s*:\s*(\w.*)/)
    {
	$options{$1} = $2;
    } elsif(/^([:\$])\s*(\w+)/g) {
	$curwidget = {"type" => $2};
	push @{$estack[0]}, $curwidget;
	if((scalar @wstack) > 0) {
	    $curwidget->{"parent"} = $wstack[0];
	}
	if($1 eq ":")
	{
	    unshift @estack, ($curwidget->{"subwidgets"} = []);
	    unshift @wstack, $curwidget;
	}
	$maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
	while(/\G\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/g)
	{
	    $curwidget->{$1} = dequote($2);
	}
    } elsif(/^%\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/) {
	$curwidget || die("No current widget\n");
	$curwidget->{$1} = dequote($2);
    } elsif(/^end/) {
	shift @estack;
	shift @wstack;
	$curwidget = $wstack[0] if((scalar @wstack) > 0);
    } elsif(!$_) {
    } else {
	print STDERR "Invalid construct: $_\n";
    }
}

printvars $rootwidgets;
print "\n";
print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
print "{\n";
print "    GtkWidget *stack[$maxstack];\n";
print "    GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
print "    GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
print "    GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
print "    \n";
print "    accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
printwidgets $rootwidgets, 0;
print "    return(stack[0]);\n";
print "}\n";
Commit	Line	Data
d3372da9	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	}
4e3cd270	28	} elsif($widget->{"type"} eq "assistant") {
4e3cd270	29	print "${p}stack[$sl] = gtk_assistant_new();\n";
4b4f9fc7	30	if(defined($widget->{"title"})) {
	31	print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	32	}
4e3cd270	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"})) {
ca2d6377	44	print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
4e3cd270	45	}
4e3cd270	46	}
d3372da9	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 "sbtn") {
	104	$widget->{"stock"} \|\| die("Can't have button without stock\n");
	105	print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
	106	} elsif($widget->{"type"} eq "simg") {
	107	$widget->{"stock"} \|\| die("Can't have image without stock\n");
	108	$widget->{"size"} \|\| die("Can't have image without size\n");
	109	print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
	110	} elsif($widget->{"type"} eq "lbl") {
111	$widget->{"label"} \|\| die("Can't have label without label\n");
112	print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
113	} elsif($widget->{"type"} eq "mlbl") {
114	$widget->{"label"} \|\| die("Can't have label without label\n");
115	print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
116	if(defined($widget->{"mwidget"}))
117	{
118	if($widget->{"var"} ne "y") {
119	$widget->{"var"} = "l";
120	}
121	if(!defined($widget->{"name"})) {
122	$widget->{"name"} = "temp" . $tempvar++;
123	}
124	$str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
125	if($widget->{"var"} eq "y") {
126	$str .= $options{"prefix"};
127	}
128	$str .= $widget->{"name"};
129	$str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
130	push @delayedlines, ($str);
131	}
132	} elsif($widget->{"type"} eq "text") {
133	print "${p}stack[$sl] = gtk_entry_new();\n";
134	if($widget->{"default"}) {
135	print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
136	}
137	} elsif($widget->{"type"} eq "menubar") {
138	print "${p}stack[$sl] = gtk_menu_bar_new();\n";
139	$pf = sub
140	{
141	my($widget, $p, $sl) = @_;
142	print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
143	}
144	} elsif($widget->{"type"} eq "menuitem") {
145	print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
146	$pf = sub
147	{
148	my($widget, $p, $sl) = @_;
149	print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
150	}
151	} elsif($widget->{"type"} eq "smenuitem") {
152	print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
153	$pf = sub
154	{
155	my($widget, $p, $sl) = @_;
156	print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
157	}
158	} elsif($widget->{"type"} eq "menusep") {
159	print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
160	} elsif($widget->{"type"} eq "menu") {
161	print "${p}stack[$sl] = gtk_menu_new();\n";
162	if($options{"hasaccels"}) {
163	print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
164	}
165	$pf = sub
166	{
167	my($widget, $p, $sl) = @_;
168	print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
169	};
170	$widget->{"noshow"} = 1;
171	} elsif($widget->{"type"} =~ /^[hv]paned$/) {
172	print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
173	$widget->{"cur"} = 1;
174	$pf = sub
175	{
176	my($widget, $p, $sl) = @_;
177	print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
178	print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
179	print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
180	print ");\n";
181	$widget->{"parent"}->{"cur"}++;
182	}
183	} elsif($widget->{"type"} eq "notebook") {
184	print "${p}stack[$sl] = gtk_notebook_new();\n";
185	$pf = sub
186	{
187	my($widget, $p, $sl) = @_;
188	print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
189	print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
190	print ");\n";
191	}
192	} elsif($widget->{"type"} eq "sw") {
193	print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
194	$pf = sub
195	{
196	my($widget, $p, $sl) = @_;
197	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
198	}
199	} elsif($widget->{"type"} eq "frame") {
200	print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
201	$pf = sub
202	{
203	my($widget, $p, $sl) = @_;
204	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
205	}
206	} elsif($widget->{"type"} eq "exp") {
207	print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
208	$pf = sub
209	{
210	my($widget, $p, $sl) = @_;
211	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
212	}
213	} elsif($widget->{"type"} eq "treeview") {
214	print "${p}stack[$sl] = gtk_tree_view_new();\n";
215	if(defined($widget->{"hvis"})) {
216	print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
217	}
218	if(defined($widget->{"rules"})) {
219	print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
220	}
221	if(defined($widget->{"searchcol"})) {
222	print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
223	print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
224	}
225	$pf = sub
226	{
227	my($widget, $p, $sl) = @_;
228	print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
229	if($widget->{"expander"} eq "y") {
230	print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
231	}
232	}
233	} elsif($widget->{"type"} eq "tvcol") {
234	if(!defined($widget->{"subwidgets"}))
235	{
236	print "${p}column = gtk_tree_view_column_new_with_attributes(";
237	print "_(\"" . $widget->{"title"} . "\")";
238	print ", gtk_cell_renderer_text_new()";
239	if(defined($widget->{"text"})) {
240	print ", \"text\", " . $widget->{"text"};
241	}
242	print ", NULL);\n";
243	} else {
244	print "${p}column = gtk_tree_view_column_new();\n";
245	print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
246	}
247	if(defined($widget->{"sortcol"})) {
248	print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
249	}
250	if(defined($widget->{"resizable"})) {
251	print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
252	}
253	$widget->{"noshow"} = 1;
254	$pf = sub
255	{
256	}
257	} elsif($widget->{"type"} eq "textrend") {
258	print "${p}renderer = gtk_cell_renderer_text_new();\n";
259	print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
260	if(defined($widget->{"text"})) {
261	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
262	}
263	if(defined($widget->{"func"})) {
264	print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} \|\| "NULL") . ", NULL);\n";
265	}
266	$widget->{"noshow"} = 1;
267	} elsif($widget->{"type"} eq "custrend") {
268	print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
269	print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
270	foreach $attr (keys %{$widget})
271	{
272	if($attr =~ /attr\((\S+)\)/)
273	{
274	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
275	}
276	}
277	$widget->{"noshow"} = 1;
278	} elsif($widget->{"type"} eq "pixbufrend") {
279	print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
280	print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
281	if(defined($widget->{"stock_id"})) {
282	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
283	}
284	$widget->{"noshow"} = 1;
285	} elsif($widget->{"type"} eq "textview") {
286	print "${p}stack[$sl] = gtk_text_view_new();\n";
287	if(defined($widget->{"editable"})) {
288	print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
289	}
b37ddeb6	290	} elsif($widget->{"type"} eq "pbar") {
b37ddeb6	291	print "${p}stack[$sl] = gtk_progress_bar_new();\n";
d3372da9	292	} elsif($widget->{"type"} eq "hr") {
	293	print "${p}stack[$sl] = gtk_hseparator_new();\n";
	294	} elsif($widget->{"type"} eq "sbar") {
	295	print "${p}stack[$sl] = gtk_statusbar_new();\n";
	296	if($widget->{"grip"} eq "n") {
	297	print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
	298	}
79138dda	299	} elsif($widget->{"type"} eq "filechooser") {
79138dda	300	print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
d3372da9	301	} else {
	302	print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
	303	}
	304	if($widget->{"sensitive"}) {
	305	print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
	306	}
	307	if($widget->{"var"} eq "y") {
	308	print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
	309	}
	310	if($widget->{"var"} eq "l") {
	311	print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
	312	}
	313	if($widget->{"sig"})
	314	{
	315	while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
	316	print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
	317	}
	318	}
	319	if($widget->{"accel"})
	320	{
	321	$mod = "";
	322	while($widget->{"accel"} =~ /\G(\w+)\+/gc)
	323	{
	324	$mod .= " \| " if($mod);
	325	$mod = $mod . "GDK_" . $1 . "_MASK";
	326	}
	327	$mod \|\| ($mod = "0");
	328	$widget->{"accel"} =~ /\G(\w+)/g;
	329	$key = $1;
	330	print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
	331	}
	332	foreach $attr (keys %{$widget})
	333	{
	334	if($attr =~ /^sig\((\S+)\)/)
	335	{
	336	$sig = $1;
	337	if($widget->{$attr} =~ /([^,]),(.)/)
	338	{
	339	$cb = $1;
	340	$data = $2;
	341	} else {
	342	$cb = $widget->{$attr};
	343	$data = "NULL";
	344	}
	345	print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK($cb), (gpointer)$data);\n";
	346	}
	347	}
	348	if($widget->{"subwidgets"})
	349	{
	350	print "$p\n";
	351	printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
	352	}
	353	if($sl > 0)
	354	{
	355	&$cpf($widget, $p, $sl);
	356	if(!$widget->{"noshow"}) {
	357	print "${p}gtk_widget_show(stack[$sl]);\n";
	358	}
	359	}
	360	print "$p\n";
	361	}
	362	foreach $line (@delayedlines)
	363	{
	364	print $p . $line . "\n";
365	}
366	}
367
368	sub printvars
369	{
370	my($widget);
371	foreach $widget (@{$_[0]})
372	{
373	if($widget->{"var"})
374	{
375	print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
376	}
377	printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
378	}
379	}
380
381	sub dequote
382	{
383	my($text);
384	($text) = @_;
385	$text =~ s/([^\\]\|^)\"/$1/g;
386	$text =~ s/\\(.)/$1/g;
387	return $text;
388	}
389
390	$rootwidgets = [];
391	@estack = ($rootwidgets);
392	@wstack = ();
393	$curwidget = 0;
394	$maxstack = 1;
395
396	while(<>)
397	{
398	chomp;
399	s/(^\|\s+)\#.*$//;
400	s/^\s*//;
401	if(/^;\s(\w+)\s:\s(\w.)/)
402	{
403	$options{$1} = $2;
404	} elsif(/^([:\$])\s*(\w+)/g) {
405	$curwidget = {"type" => $2};
406	push @{$estack[0]}, $curwidget;
407	if((scalar @wstack) > 0) {
408	$curwidget->{"parent"} = $wstack[0];
409	}
410	if($1 eq ":")
411	{
412	unshift @estack, ($curwidget->{"subwidgets"} = []);
413	unshift @wstack, $curwidget;
414	}
415	$maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
416	while(/\G\s(\S+)\s:\s((\w+\|\"([^\\\"]+\|\\.)([^\\]\|)\"\|\\.)+)/g)
417	{
418	$curwidget->{$1} = dequote($2);
419	}
420	} elsif(/^%\s(\S+)\s:\s((\w+\|\"([^\\\"]+\|\\.)([^\\]\|)\"\|\\.)+)/) {
421	$curwidget \|\| die("No current widget\n");
422	$curwidget->{$1} = dequote($2);
423	} elsif(/^end/) {
424	shift @estack;
425	shift @wstack;
426	$curwidget = $wstack[0] if((scalar @wstack) > 0);
427	} elsif(!$_) {
428	} else {
429	print STDERR "Invalid construct: $_\n";
430	}
431	}
432
433	printvars $rootwidgets;
434	print "\n";
435	print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
436	print "{\n";
437	print " GtkWidget *stack[$maxstack];\n";
438	print " GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
439	print " GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
440	print " GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
441	print " \n";
442	print " accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
443	printwidgets $rootwidgets, 0;
444	print " return(stack[0]);\n";
445	print "}\n";