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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-09-21 16:05:34 -05:00
parent b5bd0532c2 6ce8eba961
commit 08b29b0b84
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
basis/alien/prettyprint/prettyprint.factor
View File

@ -38,8 +38,8 @@ M: typedef-word synopsis*
: pprint-function-arg ( type name -- ) : pprint-function-arg ( type name -- )
[ pprint-c-type ] [ text ] bi* ; [ pprint-c-type ] [ text ] bi* ;
: pprint-function-args ( word -- ) : pprint-function-args ( types names -- )
[ def>> fourth ] [ stack-effect in>> ] bi zip [ ] [ zip [ ] [
unclip-last unclip-last
[ [ first2 "," append pprint-function-arg ] each ] dip [ [ first2 "," append pprint-function-arg ] each ] dip
first2 pprint-function-arg first2 pprint-function-arg
@ -55,6 +55,29 @@ M: alien-function-word synopsis*
[ definer. ] [ definer. ]
[ def>> first pprint-c-type ] [ def>> first pprint-c-type ]
[ pprint-word ] [ pprint-word ]
[ <block "(" text pprint-function-args ")" text block> ] [
<block "(" text
[ def>> fourth ] [ stack-effect in>> ] bi
pprint-function-args
")" text block>
]
} cleave ; } cleave ;
M: alien-callback-type-word definer
"callback-abi" word-prop "stdcall" =
\ STDCALL-CALLBACK: \ CALLBACK: ?
f ;
M: alien-callback-type-word definition drop f ;
M: alien-callback-type-word synopsis*
{
[ seeing-word ]
[ definer. ]
[ def>> first pprint-c-type ]
[ pprint-word ]
[
<block "(" text
[ def>> second ] [ "callback-effect" word-prop in>> ] bi
pprint-function-args
")" text block>
]
} cleave ;