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

alien.marshall: add longlong and ulonglong marshallers

db4
Jeremy Hughes 2009-07-08 09:33:29 +12:00
parent 787b5d618a
commit fec504197b
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/alien/marshall/marshall.factor
View File

@ -72,6 +72,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint" [ [ marshall-uint ] ] } { "uint" [ [ marshall-uint ] ] }
{ "long" [ [ marshall-long ] ] } { "long" [ [ marshall-long ] ] }
{ "ulong" [ [ marshall-ulong ] ] } { "ulong" [ [ marshall-ulong ] ] }
{ "long" [ [ marshall-longlong ] ] }
{ "ulong" [ [ marshall-ulonglong ] ] }
{ "float" [ [ marshall-float ] ] } { "float" [ [ marshall-float ] ] }
{ "double" [ [ marshall-double ] ] } { "double" [ [ marshall-double ] ] }
{ "bool*" [ [ marshall-bool*-free ] ] } { "bool*" [ [ marshall-bool*-free ] ] }
@ -83,6 +85,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint*" [ [ marshall-uint*-free ] ] } { "uint*" [ [ marshall-uint*-free ] ] }
{ "long*" [ [ marshall-long*-free ] ] } { "long*" [ [ marshall-long*-free ] ] }
{ "ulong*" [ [ marshall-ulong*-free ] ] } { "ulong*" [ [ marshall-ulong*-free ] ] }
{ "longlong*" [ [ marshall-longlong*-free ] ] }
{ "ulonglong*" [ [ marshall-ulonglong*-free ] ] }
{ "float*" [ [ marshall-float*-free ] ] } { "float*" [ [ marshall-float*-free ] ] }
{ "double*" [ [ marshall-double*-free ] ] } { "double*" [ [ marshall-double*-free ] ] }
{ "bool&" [ [ marshall-bool*-free ] ] } { "bool&" [ [ marshall-bool*-free ] ] }
@ -94,6 +98,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint&" [ [ marshall-uint*-free ] ] } { "uint&" [ [ marshall-uint*-free ] ] }
{ "long&" [ [ marshall-long*-free ] ] } { "long&" [ [ marshall-long*-free ] ] }
{ "ulong&" [ [ marshall-ulong*-free ] ] } { "ulong&" [ [ marshall-ulong*-free ] ] }
{ "longlong&" [ [ marshall-longlong*-free ] ] }
{ "ulonglong&" [ [ marshall-ulonglong*-free ] ] }
{ "float&" [ [ marshall-float*-free ] ] } { "float&" [ [ marshall-float*-free ] ] }
{ "double&" [ [ marshall-double*-free ] ] } { "double&" [ [ marshall-double*-free ] ] }
{ "void*" [ [ marshall-void* ] ] } { "void*" [ [ marshall-void* ] ] }
@ -106,6 +112,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint**" [ [ marshall-uint**-free ] ] } { "uint**" [ [ marshall-uint**-free ] ] }
{ "long**" [ [ marshall-long**-free ] ] } { "long**" [ [ marshall-long**-free ] ] }
{ "ulong**" [ [ marshall-ulong**-free ] ] } { "ulong**" [ [ marshall-ulong**-free ] ] }
{ "longlong**" [ [ marshall-longlong**-free ] ] }
{ "ulonglong**" [ [ marshall-ulonglong**-free ] ] }
{ "float**" [ [ marshall-float**-free ] ] } { "float**" [ [ marshall-float**-free ] ] }
{ "double**" [ [ marshall-double**-free ] ] } { "double**" [ [ marshall-double**-free ] ] }
{ "void**" [ [ marshall-void** ] ] } { "void**" [ [ marshall-void** ] ] }
@ -123,6 +131,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint" [ [ marshall-uint ] ] } { "uint" [ [ marshall-uint ] ] }
{ "long" [ [ marshall-long ] ] } { "long" [ [ marshall-long ] ] }
{ "ulong" [ [ marshall-ulong ] ] } { "ulong" [ [ marshall-ulong ] ] }
{ "longlong" [ [ marshall-longlong ] ] }
{ "ulonglong" [ [ marshall-ulonglong ] ] }
{ "float" [ [ marshall-float ] ] } { "float" [ [ marshall-float ] ] }
{ "double" [ [ marshall-double ] ] } { "double" [ [ marshall-double ] ] }
{ "bool*" [ [ marshall-bool* ] ] } { "bool*" [ [ marshall-bool* ] ] }
@ -134,6 +144,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint*" [ [ marshall-uint* ] ] } { "uint*" [ [ marshall-uint* ] ] }
{ "long*" [ [ marshall-long* ] ] } { "long*" [ [ marshall-long* ] ] }
{ "ulong*" [ [ marshall-ulong* ] ] } { "ulong*" [ [ marshall-ulong* ] ] }
{ "longlong*" [ [ marshall-longlong* ] ] }
{ "ulonglong*" [ [ marshall-ulonglong* ] ] }
{ "float*" [ [ marshall-float* ] ] } { "float*" [ [ marshall-float* ] ] }
{ "double*" [ [ marshall-double* ] ] } { "double*" [ [ marshall-double* ] ] }
{ "bool&" [ [ marshall-bool* ] ] } { "bool&" [ [ marshall-bool* ] ] }
@ -145,6 +157,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint&" [ [ marshall-uint* ] ] } { "uint&" [ [ marshall-uint* ] ] }
{ "long&" [ [ marshall-long* ] ] } { "long&" [ [ marshall-long* ] ] }
{ "ulong&" [ [ marshall-ulong* ] ] } { "ulong&" [ [ marshall-ulong* ] ] }
{ "longlong&" [ [ marshall-longlong* ] ] }
{ "ulonglong&" [ [ marshall-ulonglong* ] ] }
{ "float&" [ [ marshall-float* ] ] } { "float&" [ [ marshall-float* ] ] }
{ "double&" [ [ marshall-double* ] ] } { "double&" [ [ marshall-double* ] ] }
{ "void*" [ [ marshall-void* ] ] } { "void*" [ [ marshall-void* ] ] }
@ -157,6 +171,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint**" [ [ marshall-uint** ] ] } { "uint**" [ [ marshall-uint** ] ] }
{ "long**" [ [ marshall-long** ] ] } { "long**" [ [ marshall-long** ] ] }
{ "ulong**" [ [ marshall-ulong** ] ] } { "ulong**" [ [ marshall-ulong** ] ] }
{ "longlong**" [ [ marshall-longlong** ] ] }
{ "ulonglong**" [ [ marshall-ulonglong** ] ] }
{ "float**" [ [ marshall-float** ] ] } { "float**" [ [ marshall-float** ] ] }
{ "double**" [ [ marshall-double** ] ] } { "double**" [ [ marshall-double** ] ] }
{ "void**" [ [ marshall-void** ] ] } { "void**" [ [ marshall-void** ] ] }
@ -204,6 +220,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint" [ [ ] ] } { "uint" [ [ ] ] }
{ "long" [ [ ] ] } { "long" [ [ ] ] }
{ "ulong" [ [ ] ] } { "ulong" [ [ ] ] }
{ "longlong" [ [ ] ] }
{ "ulonglong" [ [ ] ] }
{ "float" [ [ ] ] } { "float" [ [ ] ] }
{ "double" [ [ ] ] } { "double" [ [ ] ] }
{ "bool*" [ [ *bool ] ] } { "bool*" [ [ *bool ] ] }
@ -215,6 +233,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint*" [ [ *uint ] ] } { "uint*" [ [ *uint ] ] }
{ "long*" [ [ *long ] ] } { "long*" [ [ *long ] ] }
{ "ulong*" [ [ *ulong ] ] } { "ulong*" [ [ *ulong ] ] }
{ "longlong*" [ [ *long ] ] }
{ "ulonglong*" [ [ *ulong ] ] }
{ "float*" [ [ *float ] ] } { "float*" [ [ *float ] ] }
{ "double*" [ [ *double ] ] } { "double*" [ [ *double ] ] }
{ "bool&" [ [ *bool ] ] } { "bool&" [ [ *bool ] ] }
@ -226,6 +246,8 @@ M: struct-wrapper dynamic-cast ;
{ "uint&" [ [ *uint ] ] } { "uint&" [ [ *uint ] ] }
{ "long&" [ [ *long ] ] } { "long&" [ [ *long ] ] }
{ "ulong&" [ [ *ulong ] ] } { "ulong&" [ [ *ulong ] ] }
{ "longlong&" [ [ *long ] ] }
{ "ulonglong&" [ [ *ulong ] ] }
{ "float&" [ [ *float ] ] } { "float&" [ [ *float ] ] }
{ "double&" [ [ *double ] ] } { "double&" [ [ *double ] ] }
[ drop f ] [ drop f ]