Anton,
. does not flush; perhaps that's what Slava was getting at.
However, you are also doing things way wrong...your function expects
four arguments yet you leave them on the stack!
: stream-callback ( -- object )
"char" { "void*" "void*" "int" "void*" } "stdcall" [
"callbak'd!" print flush
4drop
1
] alien-callback ;
Doug
On Apr 2, 2007, at 10:28 AM, Anton Rolls wrote:
> I assure it does successfully print "callbacked" once.
>
> I think you missed the . word from prettyprint.
>
> (I should have known that comment on the next
> line would cause trouble.)
>
> Anton.
>
>> On 2-Apr-07, at 8:48 AM, Anton Rolls wrote:
>>
>>> : stream-callback ( -- object ) "char" { "void*" "void*" "int"
>>> "void*" }
>>> "stdcall" [
>>> "callbacked" .
>>> ! drop "len: " write . 2drop
>>> 1 ! return TRUE to continue the stream
>>> ] alien-callback ;
>>
>> This doesn't print anything; try "callbacked" print flush
>>
>> Slava
>
>
> ----------------------------------------------------------------------
> ---
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to
> share your
> opinions on IT & business topics through brief surveys-and earn cash
> http://www.techsay.com/default.php?
> page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Factor-talk mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
