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

images.loader: optionally register "non-system" image classes.

db4
John Benediktsson 2014-03-14 07:31:27 -07:00
parent c24e15c0d0
commit 4e206f4181
10 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/images/loader/loader.factor
View File

@ -32,6 +32,9 @@ GENERIC: stream>image* ( stream class -- image )
: register-image-class ( extension class -- )
swap types get set-at ;
: ?register-image-class ( extension class -- )
over types get key? [ 2drop ] [ register-image-class ] if ;
: load-image ( path -- image )
[ binary <file-reader> ] [ image-class ] bi load-image* ;

2
extra/images/bitmap/bitmap.factor
View File

@ -14,7 +14,7 @@ IN: images.bitmap
! http://www.digicamsoft.com/bmp/bmp.html
SINGLETON: bmp-image
"bmp" bmp-image register-image-class
"bmp" bmp-image ?register-image-class
: write2 ( n -- ) 2 >le write ;
: write4 ( n -- ) 4 >le write ;

2
extra/images/gif/gif.factor
View File

@ -7,7 +7,7 @@ kernel make math math.bitwise namespaces sequences ;
IN: images.gif
SINGLETON: gif-image
"gif" gif-image register-image-class
"gif" gif-image ?register-image-class
TUPLE: loading-gif
loading?

2
extra/images/pbm/pbm.factor
View File

@ -7,7 +7,7 @@ sequences io.streams.throwing ;
IN: images.pbm
SINGLETON: pbm-image
"pbm" pbm-image register-image-class
"pbm" pbm-image ?register-image-class
<PRIVATE
: read-token ( -- token )

2
extra/images/pgm/pgm.factor
View File

@ -7,7 +7,7 @@ SPECIALIZED-ARRAY: ushort
IN: images.pgm
SINGLETON: pgm-image
"pgm" pgm-image register-image-class
"pgm" pgm-image ?register-image-class
: read-token ( -- token )
[ read1 dup blank?

2
extra/images/png/png.factor
View File

@ -11,7 +11,7 @@ QUALIFIED: math
IN: images.png
SINGLETON: png-image
"png" png-image register-image-class
"png" png-image ?register-image-class
TUPLE: loading-png
chunks

2
extra/images/ppm/ppm.factor
View File

@ -6,7 +6,7 @@ math.parser sequences io.streams.throwing ;
IN: images.ppm
SINGLETON: ppm-image
"ppm" ppm-image register-image-class
"ppm" ppm-image ?register-image-class
: read-token ( -- token )
[ read1 dup blank?

2
extra/images/tga/tga.factor
View File

@ -7,7 +7,7 @@ ui.pixel-formats combinators continuations io.streams.throwing ;
IN: images.tga
SINGLETON: tga-image
"tga" tga-image register-image-class
"tga" tga-image ?register-image-class
ERROR: bad-tga-header ;
ERROR: bad-tga-footer ;

2
extra/images/tiff/tiff.factor
View File

@ -563,4 +563,4 @@ ERROR: unknown-component-order ifd ;
M: tiff-image stream>image* ( stream tiff-image -- image )
drop [ [ load-tiff tiff>image ] throw-on-eof ] with-input-stream ;
{ "tif" "tiff" } [ tiff-image register-image-class ] each
{ "tif" "tiff" } [ tiff-image ?register-image-class ] each

3
unmaintained/images/jpeg/jpeg.factor
View File

@ -21,8 +21,7 @@ TUPLE: loading-jpeg < image
{ huff-tables initial: { f f f f } }
{ components } ;
"jpg" jpeg-image register-image-class
"jpeg" jpeg-image register-image-class
{ "jpg" "jpeg" } [ jpeg-image ?register-image-class ] each
<PRIVATE