← Back to branch summary

~profzoom/ubuntu/quantal/wmaker/bug-1079925

« back to all changes in this revision

Viewing changes to util/wm-oldmenu2new

  • Committer: Bazaar Package Importer
  • Author(s): Marcelo E. Magallon
  • Date: 2004-11-10 14:05:30 UTC
  • Revision ID: james.westby@ubuntu.com-20041110140530-qpd66b5lm38x7apk
Tags: upstream-0.91.0
Import upstream version 0.91.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/wm-oldmenu2new
 
1
#!/bin/sh
 
2
#
 
3
# wm-oldmenu2new: script to convert from old-style WindowMaker
 
4
# menu file to the new PropertyList style of the WMRootMenu.
 
5
#
 
6
# Note: ex in all the Linux systems I've used is badly
 
7
# broken, except for nex.  perl can be relied on however.
 
8
# Re-written to use perl.
 
9
#
 
10
# Local dependencies:
 
11
#   None.
 
12
#
 
13
# Authors: Luke Kendall, Toby J Sargeant
 
14
#
 
15
# Copyright waived; no warranty provided.
 
16
#
 
17
 
 
18
GLW=GNUstep/Library/WindowMaker
 
19
GD=GNUstep/Defaults
 
20
WLW=$HOME/$GLW
 
21
WD=$HOME/$GD
 
22
 
 
23
MYNAME=`basename $0`
 
24
USAGE="usage: $MYNAME [menu-file-specifier]
 
25
    E.g.        $MYNAME menu.pt
 
26
    or          $MYNAME pt
 
27
    The default menu if no arguments are given is the English one, 'menu'."
 
28
 
 
29
#
 
30
# Process arguments - work out which language menu we're converting.
 
31
# Note that foreign language locales do *not* have the .lang suffix
 
32
# attached to the WMRootMenu name.
 
33
#
 
34
OLD_MENU=menu
 
35
NEW_MENU=WMRootMenu
 
36
if [ $# = 1 ]
 
37
then
 
38
    if [ -s "$WLW/menu.$1" ]
 
39
    then
 
40
        OLD_MENU="menu.$1"
 
41
        NEW_MENU="WMRootMenu"
 
42
    elif [ -s "$WLW/$1" ]
 
43
    then
 
44
        OLD_MENU="$1"
 
45
        x=`expr "$1" : "menu\.\(.*\)"`
 
46
        [ "x$x" != "x" ] && NEW_MENU="WMRootMenu"
 
47
    else
 
48
        echo "$MYNAME: $WLW/$1 does not exist" >&2
 
49
        exit 1
 
50
    fi
 
51
elif [ $# != 0 ]
 
52
then
 
53
    echo "$USAGE" >&2
 
54
    exit 1
 
55
fi
 
56
 
 
57
#
 
58
# For working out what cc is installed
 
59
#
 
60
which1()
 
61
{
 
62
    oldpath=$PATH
 
63
    PATH=/bin:/usr/bin:/usr/local/bin
 
64
 
 
65
    IFS=":"
 
66
    for j in $oldpath
 
67
    do
 
68
        test -x $j/$1 && test ! -d $j/$1 && echo $j/$1 && return 0
 
69
    done
 
70
    IFS=" "
 
71
    return 1
 
72
}
 
73
 
 
74
#
 
75
# Expand macros if necessary.
 
76
# Create a temp copy of the menu file to edit to turn into the new.
 
77
#
 
78
T=/tmp/wmmenu$$
 
79
echo "Converting $GLW/$OLD_MENU --> $GD/$NEW_MENU"
 
80
cd $WLW || exit 1
 
81
if [ ! -s "$OLD_MENU" ]
 
82
then
 
83
    echo "$MYNAME: $WLW/$OLD_MENU does not exist" >&2
 
84
    exit 1
 
85
fi
 
86
#
 
87
# Always pre-process, to join lines split with \, and to strip comments.
 
88
# Not to mention the main purpose, include & process wmmacros if used.
 
89
#
 
90
set -e
 
91
CC=`which1 cc`
 
92
[ "x$CC" = "x" ] && CC=`which1 gcc`
 
93
[ "x$CC" = "x" ] && "$MYNAME: no cc, gcc found - can't preprocess" >&2 && exit 1
 
94
 
 
95
#
 
96
# Use the "parse as if it's C option" if cc is gcc, because
 
97
# newer versions apparently get confused.  Apparently gcc -E does
 
98
# not simply run the preprocessor (that's sad).
 
99
#
 
100
strings "$CC" | grep -l gcc > /dev/null && GCC_FLAGS="-x c"
 
101
 
 
102
cp $OLD_MENU $T-c
 
103
#
 
104
# Given the set -e, the exit 1 shouldn't be needed.  But it is, on my NeXT!
 
105
#
 
106
$CC -E -I. $GCC_FLAGS $T-c > $T+c || exit 1
 
107
sed '/^#/d;/^[  ]*$/d' $T+c > $T
 
108
rm $T-c $T+c
 
109
set +e
 
110
 
 
111
#
 
112
# This is the interesting bit.  Edit the old style menu and
 
113
# convert into new style property-list menu.
 
114
#
 
115
perl - $T <<-'EOF' > $T-p
 
116
        $v=chr(22);
 
117
        for (<>) {
 
118
                push @foo,$_;
 
119
        }
 
120
        for (@foo) {
 
121
                s/\s*$//;
 
122
                s/^(\s*)"*(Workspaces*)"*\s\s*(WORKSPACE_MENU)/\1(\2, \3),/;
 
123
                s/^(\s*)("[^"]*")\s+MENU/\1($v\n\1\2,/;
 
124
                push @foo2,split "\n";
 
125
        }
 
126
        @foo=();
 
127
        for (@foo2) {
 
128
                s/^(\s*)"([^"]*)"\s\s*END/\1),/;
 
129
                s/^(\s*)"([^"]*)"\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
 
130
                push @foo,split "\n";
 
131
        }
 
132
        @foo2=();
 
133
        for (@foo) {
 
134
                 
 
135
s/^(\s*)"([^"]*)"\s\s*OPEN_MENU\s\s*(.*)$/\1($v\n\1"\2",$v\n\1OPEN_MENU,$v\n\1"\3"$v\n\1),/;
 
136
                push @foo2,split "\n";
 
137
        }
 
138
        @foo=();
 
139
        for (@foo2) {
 
140
                s/^(\s*)([^     ]*)\s\s*MENU/\1($v\n\1"\2",/;
 
141
                push @foo,split "\n";
 
142
        }
 
143
        @foo2=();
 
144
        for (@foo) {
 
145
                s/^(\s*)([^     ]*)\s\s*END/\1),/;
 
146
                s/^(\s*)([^     ]*)\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
 
147
                push @foo2,split "\n";
 
148
        }
 
149
        @foo=();
 
150
        for (@foo2) {
 
151
                s/^(\s*)([^      
 
152
]*)\s\s*OPEN_MENU\s\s*(.*)$/\1($v\n\1"\2",$v\n\1OPEN_MENU,$v\n\1"\3"$v\n\1),/;
 
153
                push @foo,split "\n";
 
154
        }
 
155
        @foo2=();
 
156
        for (@foo) {
 
157
                s/ WITH / QQQjjQQQ /;
 
158
                s/^(\s*)"([^"]*)"\s\s*([A-Z_][A-Z_]*)$/\1("\2", \3),/;
 
159
                s/^(\s*)"([^"]*)"\s+([A-Z_][A-Z_]*)\s\s*(.*)$/\1("\2", \3, \4),/;
 
160
                s/"(.*".*)"/JJJqqJJJ\1JJJqqJJJ/;
 
161
                /JJJqqJJJ/ && s/"/\\"/g;
 
162
                s/JJJqqJJJ/"/g;
 
163
                s/ QQQjjQQQ / WITH /;
 
164
                print "$_\n";
 
165
        }
 
166
EOF
 
167
mv $T-p $T
 
168
 
 
169
#
 
170
# Now strip off spurious commas from lines like:
 
171
#       ),
 
172
#    )
 
173
# since comma is a property separator, not terminator.  Sigh.
 
174
# Also correct for another problem - Linux ex's require the CTRL-V
 
175
# above; a real vi/ex doesn't; so we have to strip out any spurious
 
176
# CTRL-V characters if we're using a real ex:
 
177
#
 
178
sed 's///g' $T | awk '
 
179
        {
 
180
            if (last_line != null)
 
181
            {
 
182
                if ((last_line ~ /,$/) && ($0 ~ /^[     ]*\)/))
 
183
                    print substr(last_line, 0, length(last_line)-1)
 
184
                else
 
185
                    print last_line
 
186
            }
 
187
            last_line = $0
 
188
        }
 
189
 
 
190
END     {
 
191
            if (last_line != null)
 
192
            {
 
193
                if (last_line ~ /,$/)
 
194
                    print substr(last_line, 0, length(last_line)-1)
 
195
                else
 
196
                    print last_line
 
197
            }
 
198
        }
 
199
' > $WD/$NEW_MENU.new || exit 1
 
200
 
 
201
rm $T
 
202
 
 
203
#
 
204
# Now install it.
 
205
#
 
206
cd $WD
 
207
if [ -s $NEW_MENU ]
 
208
then
 
209
    echo "Preserving $NEW_MENU as $NEW_MENU.sav in $WD"
 
210
    mv $NEW_MENU $NEW_MENU.sav
 
211
fi
 
212
mv $NEW_MENU.new $NEW_MENU && echo "Created new $WD/$NEW_MENU"