Vocabulary
io.ports.private

Inputs
c-ptran object
n-remainingan object
portan object


Outputs
None

Definition


:: port-write ( c-ptr n-remaining port -- )
port buffer>> :> buffer n-remaining buffer size>> min
:> n-write n-write port wait-to-write
c-ptr n-write buffer buffer-write
n-remaining n-write fixnum-fast dup 0 >
[ n-write c-ptr <displaced-alien> swap port port-write ]
[ drop ] if ; inline recursive