Lines Matching refs:cl
63 while (my $cl = <$COMPOSE>) {
65 chomp($cl);
66 my $original_line = $cl;
71 if ($cl =~ m{\*/(.*)$}) {
72 $cl = $1;
78 $cl =~ s{/\*.\**/}{}; # Remove single line C comments
79 if ($cl =~ m{^(.*)/\*}) { # Start of a multi-line C comment
80 $cl = $1;
83 next if $cl =~ m{^\s*XCOMM}; # Skip pre-processing comments
86 $cl =~ s{#.*$}{}; # Remove comments
87 next if $cl =~ m{^\s*$}; # Skip blank (or comment-only) lines
88 chomp($cl);
90 if ($cl =~ m{^(STATE\s+|END_STATE)}) { # Sun extension to compose file syntax
93 elsif ($cl =~ m{^([^:]+)\s*:\s*(.+)$}) {
131 } elsif ($cl =~ m{^(STATE_TYPE:|\@StartDeadKeyMap|\@EndDeadKeyMap)}) {
133 } elsif ($cl =~ m{^include "(.*)"}) {
141 $cl, "\n";