Lines Matching refs:in
10 # It will add elapsed time for each process in that case.
14 # Redistribution and use in source and binary forms, with or without
19 # 2. Redistributions in binary form must reproduce the above copyright
20 # notice, this list of conditions and the following disclaimer in the
28 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
32 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
33 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
101 my ($in) = @_;
105 if ($in =~ s/^\\(.)//) {
107 } elsif ($in =~ s/^\"//) {
108 if ($in =~ s/^\.\.\.//) {
109 return ("$result...", $in);
111 return ($result, $in);
112 } elsif ($in =~ s/([^\\\"]*)//) {
115 return (undef, $in);
121 my ($in) = @_;
123 if ($in =~ s/^\"//) {
124 ($tmp, $in) = parse_str($in);
127 return (undef, $in);
129 return ($tmp, $in);
130 } elsif ($in =~ s/^0x(\x+)//) {
131 return (hex $1, $in);
132 } elsif ($in =~ s/^(\d+)//) {
133 return (int $1, $in);
136 return (undef, $in);
141 my ($in) = @_;
145 while (length $in) {
146 if ($in =~ s/^\[//) {
148 if ($in =~ s,^/\* (\d+) vars \*/\],,) {
151 while ($in !~ s/^\]//) {
152 ($tmp, $in) = parse_one($in);
155 unless ($in =~ /^\]/ or $in =~ s/^, //) {
156 print STDERR "$0: $ARGV: $.: missing comma in array.\n";
159 if ($in =~ s/^\.\.\.//) {
165 } elsif ($in =~ s/^\{//) {
167 while ($in !~ s/^\}//) {
169 unless ($in =~ s/^(\w+)=//) {
174 ($tmp, $in) = parse_one($in);
177 unless ($in =~ s/, //) {
178 print STDERR "$0: $ARGV: $.: missing comma in struct.\n";
184 ($tmp, $in) = parse_one($in);
188 unless (length($in) == 0 or $in =~ s/^, //) {
202 # seq forks and execs for this pid, in sequence (array)
