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

alien.endian: use "c:" convention.

db4
John Benediktsson 2014-06-02 17:07:32 -07:00
parent 48c6bba132
commit 285c0c64b9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/alien/endian/endian.factor
View File

@ -4,7 +4,7 @@ USING: accessors alien alien.accessors alien.c-types alien.data
classes.struct.private combinators compiler.units endian fry classes.struct.private combinators compiler.units endian fry
generalizations kernel macros math namespaces sequences words generalizations kernel macros math namespaces sequences words
arrays slots math.bitwise ; arrays slots math.bitwise ;
QUALIFIED-WITH: alien.c-types ac QUALIFIED-WITH: alien.c-types c
IN: alien.endian IN: alien.endian
ERROR: invalid-signed-conversion n ; ERROR: invalid-signed-conversion n ;
@ -12,7 +12,7 @@ ERROR: invalid-signed-conversion n ;
: convert-signed-quot ( n -- quot ) : convert-signed-quot ( n -- quot )
{ {
{ 1 [ [ char <ref> char deref ] ] } { 1 [ [ char <ref> char deref ] ] }
{ 2 [ [ ac:short <ref> ac:short deref ] ] } { 2 [ [ c:short <ref> c:short deref ] ] }
{ 4 [ [ int <ref> int deref ] ] } { 4 [ [ int <ref> int deref ] ] }
{ 8 [ [ longlong <ref> longlong deref ] ] } { 8 [ [ longlong <ref> longlong deref ] ] }
[ invalid-signed-conversion ] [ invalid-signed-conversion ]
@ -47,7 +47,7 @@ ERROR: unknown-endian-c-type symbol ;
: endian-c-type>c-type-symbol ( symbol -- symbol' ) : endian-c-type>c-type-symbol ( symbol -- symbol' )
{ {
{ [ dup { ule16 ube16 } member? ] [ drop ushort ] } { [ dup { ule16 ube16 } member? ] [ drop ushort ] }
{ [ dup { le16 be16 } member? ] [ drop ac:short ] } { [ dup { le16 be16 } member? ] [ drop c:short ] }
{ [ dup { ule32 ube32 } member? ] [ drop uint ] } { [ dup { ule32 ube32 } member? ] [ drop uint ] }
{ [ dup { le32 be32 } member? ] [ drop int ] } { [ dup { le32 be32 } member? ] [ drop int ] }
{ [ dup { ule64 ube64 } member? ] [ drop ulonglong ] } { [ dup { ule64 ube64 } member? ] [ drop ulonglong ] }
@ -121,7 +121,7 @@ ERROR: unsupported-endian-type endian slot ;
{ {
{ [ dup char = ] [ 2drop char ] } { [ dup char = ] [ 2drop char ] }
{ [ dup uchar = ] [ 2drop uchar ] } { [ dup uchar = ] [ 2drop uchar ] }
{ [ dup ac:short = ] [ { le16 be16 } endian-slot ] } { [ dup c:short = ] [ { le16 be16 } endian-slot ] }
{ [ dup ushort = ] [ { ule16 ube16 } endian-slot ] } { [ dup ushort = ] [ { ule16 ube16 } endian-slot ] }
{ [ dup int = ] [ { le32 be32 } endian-slot ] } { [ dup int = ] [ { le32 be32 } endian-slot ] }
{ [ dup uint = ] [ { ule32 ube32 } endian-slot ] } { [ dup uint = ] [ { ule32 ube32 } endian-slot ] }