Lines Matching refs:ch
57 my($token, $ch);
58 my($ch);
61 $ch = getc(STDIN);
62 return undef if ( !defined($ch) ); # EOF
63 if ( $ch eq '#' ) {
65 $ch = getc(STDIN);
66 return undef if ( !defined($ch) );
67 } while ( $ch ne "\n" );
69 } while ( $ch =~ /^[ \t\n\v\f\r]$/ );
71 $token = $ch;
73 $ch = getc(STDIN);
74 last if ( $ch =~ /^[ \t\n\v\f\r\#]$/ );
75 $token .= $ch;
77 if ( $ch eq '#' ) {
79 $ch = getc(STDIN);
80 } while ( defined($ch) && $ch ne "\n" );
141 my($ch);
144 $ch = getc(STDIN);
145 return undef if ( !defined($ch) );
146 return (255,255,255) if ( $ch eq '0' ); # White
147 return (0,0,0) if ( $ch eq '1'); # Black
148 if ( $ch eq '#' ) {
150 $ch = getc(STDIN);
151 return undef if ( !defined($ch) );
152 } while ( $ch ne "\n" );
154 } while ( $ch =~ /^[ \t\n\v\f\r]$/ );
