[SLOF] [PATCH v2 1/1] Fix output word

[Laurent Vivier]

Someone to review?

Thanks,
Laurent

On 10/11/2017 12:01, Laurent Vivier wrote:
> Ping?
> 
> Laurent
> 
> On 18/10/2017 10:32, Laurent Vivier wrote:
>> We can select the console output, but it does not really work
>>
>> Implement term-io-emit, as we have term-io-key to really
>> send characters to the output selected by stdout.
>>
>> Signed-off-by: Laurent Vivier <lvivier at redhat.com>
>> ---
>>  slof/fs/term-io.fs | 15 +++++++++++++++
>>  1 file changed, 15 insertions(+)
>>
>> diff --git a/slof/fs/term-io.fs b/slof/fs/term-io.fs
>> index 52ce12a..f801f8b 100644
>> --- a/slof/fs/term-io.fs
>> +++ b/slof/fs/term-io.fs
>> @@ -22,6 +22,9 @@
>>     THEN
>>  ;
>>  
>> +0 VALUE stdout_ihandle
>> +0 VALUE write_xt
>> +
>>  : output  ( dev-str dev-len -- )
>>     open-dev ?dup IF
>>        \ Close old stdout:
>> @@ -29,7 +32,10 @@
>>           decode-int nip nip ?dup IF close-dev THEN
>>        THEN
>>        \ Now set the new stdout:
>> +      dup to stdout_ihandle
>>        encode-int s" stdout" set-chosen
>> +      s" write" stdout_ihandle ihandle>phandle find-method
>> +      0= IF 0 THEN to write_xt
>>     THEN
>>  ;
>>  
>> @@ -40,6 +46,15 @@
>>  
>>  1 BUFFER: (term-io-char-buf)
>>  
>> +: term-io-emit ( char -- )
>> +    write_xt 0= IF [ ' emit behavior compile, ] EXIT THEN
>> +    (term-io-char-buf) c!
>> +    (term-io-char-buf) 1 write_xt stdout_ihandle call-package
>> +    drop
>> +;
>> +
>> +' term-io-emit to emit
>> +
>>  : term-io-key  ( -- char )
>>     s" stdin" get-chosen IF
>>        decode-int nip nip dup 0= IF 0 EXIT THEN
>>
> 
> _______________________________________________
> SLOF mailing list
> SLOF at lists.ozlabs.org
> https://lists.ozlabs.org/listinfo/slof
>