Parent Directory
| 
Revision Log
| 
Patch
| revision 1.7 by wakaba, Thu Aug 14 15:50:42 2008 UTC | revision 1.8 by wakaba, Sun Sep 14 14:36:12 2008 UTC | |
|---|---|---|
| # | Line 115 sub generate_source_string_section ($) { | Line 115 sub generate_source_string_section ($) { |
| 115 | ||
| 116 | my $t = ''; | my $t = ''; |
| 117 | while (1) { | while (1) { |
| 118 | my $c = $char_stream->getc; | if ($char_stream->read ($t, 1024, length $t)) { |
| 119 | last unless defined $c; | # |
| 120 | $t .= $c; | } else { |
| 121 | last; | |
| 122 | } | |
| 123 | } | } |
| 124 | $s = \$t; | $s = \$t; |
| 125 | ## TODO: Output for each line, don't concat all of lines. | ## TODO: Output for each line, don't concat all of lines. |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |