summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
bc47325)
open INFO_FILE, $file or die "Cannot open '$file'\n";
$title = <INFO_FILE>;
$title =~ s@^\s*/\*\s*@@;
open INFO_FILE, $file or die "Cannot open '$file'\n";
$title = <INFO_FILE>;
$title =~ s@^\s*/\*\s*@@;
- $extra = "";
- if ($title =~ /^(.*)::(.*)$/) {
- $title = $1;
- $extra = " $2";
- }
- $extra =~ s@^\s*@@;
- $extra =~ s@\s*$@@;
close INFO_FILE;
print "GtkWidget *do_$basename (GtkWidget *do_widget);\n";
close INFO_FILE;
print "GtkWidget *do_$basename (GtkWidget *do_widget);\n";
- push @demos, {"name" => $basename, "title" => $title, "file" => "$file $extra",
+ push @demos, {"name" => $basename, "title" => $title, "file" => "$file",
"func" => "do_$basename"};
}
"func" => "do_$basename"};
}