1
0
mirror of https://github.com/gryf/wmaker.git synced 2026-01-06 13:54:12 +01:00

utils: Include the SHEXEC in the wm-oldmenu2new script

The script wm-oldmenu2new can now convert the SHEXEC lines.

Requested-by: Doug Barton <dougb@FreeBSD.org>
This commit is contained in:
Rodolfo García Peñas (kix)
2012-02-18 12:10:22 +01:00
committed by Carlos R. Mafra
parent a568686b39
commit f2585dc1f7

View File

@@ -129,6 +129,7 @@ perl - $T <<-'EOF' > $T-p
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=();
@@ -146,6 +147,7 @@ s/^(\s*)"([^"]*)"\s\s*OPEN_MENU\s\s*(.*)$/\1($v\n\1"\2",$v\n\1OPEN_MENU,$v\n\1"\
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=();