1999-02-11 07:23:11 +00:00
|
|
|
--- util/wm-oldmenu2new.orig Wed Jan 20 21:39:18 1999
|
|
|
|
|
+++ util/wm-oldmenu2new Wed Jan 20 21:39:29 1999
|
|
|
|
|
@@ -112,7 +112,7 @@
|
|
|
|
|
# This is the interesting bit. Edit the old style menu and
|
|
|
|
|
# convert into new style property-list menu.
|
|
|
|
|
#
|
|
|
|
|
-perl - $T <<-'EOF' > $T-p
|
|
|
|
|
+%%PERL%% - $T <<-'EOF' > $T-p
|
|
|
|
|
$v=chr(22);
|
|
|
|
|
for (<>) {
|
|
|
|
|
push @foo,$_;
|
1999-10-08 21:35:34 +00:00
|
|
|
@@ -127,6 +127,7 @@
|
|
|
|
|
for (@foo2) {
|
|
|
|
|
s/^(\s*)"([^"]*)"\s\s*END/\1),/;
|
|
|
|
|
s/^(\s*)"([^"]*)"\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
|
|
|
|
|
+ s/^(\s*)"([^"]*)"\s\s*SHEXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1SHEXEC,$v\n\1"\3"$v\n\1),/;
|
|
|
|
|
push @foo,split "\n";
|
|
|
|
|
}
|
|
|
|
|
@foo2=();
|
|
|
|
|
@@ -144,6 +145,7 @@
|
|
|
|
|
for (@foo) {
|
|
|
|
|
s/^(\s*)([^ ]*)\s\s*END/\1),/;
|
|
|
|
|
s/^(\s*)([^ ]*)\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
|
|
|
|
|
+ s/^(\s*)([^ ]*)\s\s*SHEXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1SHEXEC,$v\n\1"\3"$v\n\1),/;
|
|
|
|
|
push @foo2,split "\n";
|
|
|
|
|
}
|
|
|
|
|
@foo=();
|
