← Back to branch summary

~ubuntu-branches/ubuntu/wily/zlib/wily

« back to all changes in this revision

Viewing changes to zlib2ansi

  • Committer: Package Import Robot
  • Author(s): Mark Brown
  • Date: 2012-06-22 16:55:56 UTC
  • mfrom: (1.1.23 sid)
  • Revision ID: package-import@ubuntu.com-20120622165556-9xuc7gnq4w25b3i0
http://bugs.debian.org/678511
Yet more s390x cleanup.  Thanks to the s390x porters for thei
prompt an efficient buildd monitoring (closes: #678511).

Show diffs side-by-side

added added

removed removed

Lines of Context:
zlib2ansi
25
25
my $dList = qr{ $sp $decl (?: $sp , $d1 )* $sp ; $sp }xo ;
26
26
 
27
27
 
28
 
while (s/^ 
 
28
while (s/^
29
29
            (                  # Start $1
30
30
                (              #   Start $2
31
31
                    .*?        #     Minimal eat content
57
57
    my $i = 0 ;
58
58
    my %pList = map { $_ => $i++ }
59
59
                split /\s*,\s*/, $param_list;
60
 
    my $pMatch = '(\b' . join('|', keys %pList) . '\b)\W*$' ;            
 
60
    my $pMatch = '(\b' . join('|', keys %pList) . '\b)\W*$' ;
61
61
 
62
62
    my @params = split /\s*;\s*/, $params;
63
63
    my @outParams = ();
80
80
        }
81
81
    }
82
82
 
83
 
    
84
 
    my %tmp = map { /$pMatch/;  $_ => $pList{$1}  } 
 
83
 
 
84
    my %tmp = map { /$pMatch/;  $_ => $pList{$1}  }
85
85
              @outParams ;
86
86
 
87
 
    @outParams = map  { "    $_" }  
88
 
                 sort { $tmp{$a} <=> $tmp{$b} } 
 
87
    @outParams = map  { "    $_" }
 
88
                 sort { $tmp{$a} <=> $tmp{$b} }
89
89
                 @outParams ;
90
90
 
91
91
    print $prefix ;
92
 
    print "(\n" . join(",\n", @outParams) . ")\n";             
 
92
    print "(\n" . join(",\n", @outParams) . ")\n";
93
93
    print "{" ;
94
94
 
95
95
}
116
116
       )*          ##  0-or-more things which don't start with /
117
117
                   ##    but do end with '*'
118
118
       /           ##  End of /* ... */ comment
119
 
 
 
119
 
120
120
     |         ##     OR  C++ Comment
121
 
       //          ## Start of C++ comment // 
 
121
       //          ## Start of C++ comment //
122
122
       [^\n]*      ## followed by 0-or-more non end of line characters
123
123
 
124
124
     |         ##     OR  various things which aren't comments:
125
 
 
 
125
 
126
126
       (
127
127
         "           ##  Start of " ... " string
128
128
         (
131
131
           [^"\\]        ##  Non "\
132
132
         )*
133
133
         "           ##  End of " ... " string
134
 
 
 
134
 
135
135
       |         ##     OR
136
 
 
 
136
 
137
137
         '           ##  Start of ' ... ' string
138
138
         (
139
139
           \\.           ##  Escaped char
141
141
           [^'\\]        ##  Non '\
142
142
         )*
143
143
         '           ##  End of ' ... ' string
144
 
 
 
144
 
145
145
       |         ##     OR
146
 
 
 
146
 
147
147
         .           ##  Anything other char
148
148
         [^/"'\\]*   ##  Chars which doesn't start a comment, string or escape
149
149
       )