steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix indentation in read-token

release
Erik Charlebois 2010-04-12 01:15:49 -07:00
parent 3d4dadffe2
commit 0448c867e2
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/images/pbm/pbm.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types arrays ascii bit-arrays byte-arrays
combinators continuations grouping images images.loader io
io.encodings.ascii io.encodings.string kernel locals make math
math.functions math.parser sequences specialized-arrays ;
SPECIALIZED-ARRAY: ushort
USING: accessors arrays ascii bit-arrays byte-arrays combinators
continuations grouping images images.loader io io.encodings.ascii
io.encodings.string kernel locals make math math.functions math.parser
sequences ;
IN: images.pbm
SINGLETON: pbm-image
@ -12,12 +11,14 @@ SINGLETON: pbm-image
<PRIVATE
: read-token ( -- token )
[ read1 dup blank?
[ t ]
[ dup CHAR: # =
[ "\n" read-until 2drop t ]
[ f ] if
] if
[
read1 dup blank?
[ t ]
[
dup CHAR: # =
[ "\n" read-until 2drop t ]
[ f ] if
] if
] [ drop ] while
" \n\r\t" read-until drop swap
prefix ascii decode ;