← Back to branch summary

~ubuntu-branches/ubuntu/precise/xfce4-panel/precise

« back to all changes in this revision

Viewing changes to libxfce4panel/make-libxfce4panel-alias.pl

  • Committer: Bazaar Package Importer
  • Author(s): Lionel Le Folgoc
  • Date: 2010-12-04 15:45:53 UTC
  • mto: (4.1.3 experimental)
  • mto: This revision was merged to the branch mainline in revision 50.
  • Revision ID: james.westby@ubuntu.com-20101204154553-f452gq02eiksf09f
Tags: upstream-4.7.5
Import upstream version 4.7.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
libxfce4panel/make-libxfce4panel-alias.pl
1
1
#!/usr/bin/env perl -w
2
2
#
3
3
# Copyright (c) 2004 The GLib Development Team.
4
 
# Copyright (c) 2007 Nick Schermer <nick@xfce.org>
 
4
# Copyright (c) 2005 Benedikt Meurer <benny@xfce.org>.
5
5
#
6
6
# This library is free software; you can redistribute it and/or
7
 
# modify it under the terms of the GNU Library General Public
 
7
# modify it under the terms of the GNU Lesser General Public
8
8
# License as published by the Free Software Foundation; either
9
 
# version 2 of the License, or (at your option) any later version.
 
9
# version 2.1 of the License, or (at your option) any later version.
10
10
#
11
11
# This library is distributed in the hope that it will be useful,
12
12
# but WITHOUT ANY WARRANTY; without even the implied warranty of
13
13
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14
 
# Library General Public License for more details.
 
14
# Lesser General Public License for more details.
15
15
#
16
 
# You should have received a copy of the GNU Library General Public
17
 
# License along with this library; if not, write to the
18
 
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19
 
# Boston, MA 02111-1307, USA.
 
16
# You should have received a copy of the GNU Lesser General Public
 
17
# License along with this library; if not, write to the Free Software
 
18
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20
19
#
21
20
 
22
21
my $option_def = 0;
23
22
 
24
23
if (($#ARGV >= 0) && ($ARGV[0] eq "-def"))
25
 
{
 
24
  {
26
25
    shift;
27
26
    $option_def = 1;
28
 
}
 
27
  }
29
28
 
30
29
print <<EOF;
31
30
/* Generated by make-libxfce4panel-alias.pl. Do not edit this file. */
37
36
EOF
38
37
 
39
38
if ($option_def)
40
 
{
 
39
  {
41
40
    print <<EOF
42
41
#undef IN_HEADER
43
42
#define IN_HEADER(x) 1
46
45
#define IN_SOURCE defined
47
46
 
48
47
EOF
49
 
}
 
48
  }
50
49
else
51
 
{
 
50
  {
52
51
    print <<EOF
53
52
#define IN_HEADER defined
54
53
#define IN_SOURCE(x) 1
55
54
 
56
55
EOF
57
 
}
 
56
  }
58
57
 
59
58
my $in_comment = 0;
60
59
my $in_skipped_section = 0;
61
60
 
62
61
while (<>)
63
 
{
 
62
  {
64
63
    # ignore empty lines
65
64
    next if /^\s*$/;
66
65
 
67
66
    # skip comments
68
67
    if ($_ =~ /^\s*\/\*/)
69
 
    {
 
68
      {
70
69
        $in_comment = 1;
71
 
    }
72
 
 
 
70
      }
 
71
    
73
72
    if ($in_comment)
74
 
    {
 
73
      {
75
74
        if ($_ =~  /\*\/\s$/)
76
 
        {
 
75
          {
77
76
            $in_comment = 0;
78
 
        }
 
77
          }
79
78
        next;
80
 
    }
 
79
      }
81
80
 
82
81
    # handle ifdefs
83
82
    if ($_ =~ /^\#endif/)
84
 
    {
 
83
      {
85
84
        if (!$in_skipped_section)
86
 
        {
 
85
          {
87
86
            print $_;
88
 
        }
 
87
          }
89
88
 
90
89
        $in_skipped_section = 0;
91
90
        next;
92
 
    }
 
91
      }
93
92
 
94
93
    if ($_ =~ /^\#ifdef\s+(INCLUDE_VARIABLES|INCLUDE_INTERNAL_SYMBOLS|ALL_FILES)/)
95
 
    {
 
94
      {
96
95
        $in_skipped_section = 1;
97
 
    }
 
96
      }
98
97
 
99
98
    if ($in_skipped_section)
100
 
    {
 
99
      {
101
100
        next;
102
 
    }
 
101
      }
103
102
 
104
103
    if ($_ =~ /^\#ifn?def\s+G/)
105
 
    {
 
104
      {
106
105
        print $_;
107
106
        next;
108
 
    }
109
 
 
 
107
      }
 
108
   
110
109
    if ($_ =~ /^\#if.*(IN_SOURCE|IN_HEADER)/)
111
 
    {
 
110
      {
112
111
        print $_;
113
112
        next;
114
 
    }
 
113
      }
115
114
 
116
115
    chop;
117
116
    my $line = $_;
122
121
    my $symbol = shift (@words);
123
122
    chomp ($symbol);
124
123
    my $alias = "IA__".$symbol;
125
 
 
 
124
    
126
125
    # Drop any Win32 specific .def file syntax,  but keep attributes
127
126
    foreach $word (@words)
128
 
    {
 
127
      {
129
128
        $attributes = "$attributes $word" unless $word eq "PRIVATE";
130
 
    }
131
 
 
 
129
      }
 
130
    
132
131
    if (!$option_def)
133
 
    {
 
132
      {
134
133
        print <<EOF
135
134
extern __typeof ($symbol) $alias __attribute((visibility("hidden")))$attributes;
136
135
\#define $symbol $alias
137
136
 
138
137
EOF
139
 
    }
 
138
      }
140
139
    else
141
 
    {
 
140
      {
142
141
        print <<EOF
143
 
\#undef $symbol
 
142
\#undef $symbol 
144
143
extern __typeof ($symbol) $symbol __attribute((alias("$alias"), visibility("default")));
145
144
 
146
145
EOF
147
 
    }
148
 
}
 
146
      }
 
147
  }
149
148
 
150
149
print <<EOF;
151
150