Le mercredi 14 juin 2023 à 11:56:57 UTC+2, none albert a écrit :
> In article <0a763f38-bc21-4486...@googlegroups.com>,
> NN <novembe...@gmail.com> wrote:
> <SNIP>
> >
> >
> >The most important thing to realise is that >number is not meant to be the
> >final word but a stepping stone..
> >
> >It applies to integers.
> >
> >Its weakness is that if there is an overflow there is no signal to the caller.
> On the contrary, it has all options open. However you have to add overflow.
> It is a "Swiss army knife" (or egg vending machine).
>
> The word >NUMBER used as a stepping stone suggest that it should be
> used internally. Don't fall for the temptation. Forcing a Forth to use
> this "switch army knife" result in a cumbersome Forth implementation.
>
> Come to think of this. >NUMBER is in the ciforth kernel and it is never
> used there. It wastes a whopping 300 bytes there and it is one of the
> 5 most complicated definitions in my whole Forth, making it look worse
> than it should be.
> >NUMBER should a loadable extension. A typical example where it is used
> in is a lisp interpreter.
> In normal situation it is rare. E.g. in my 400+ solutions of euler
> problems, it came up once.
> That was euler 13:
> "
> Work out the first ten digits of the sum of the following one-hundred
> 50-digit numbers.
> 37107287533902102798797998220837590246510135740250
> ..
> "
> You can see how that is appropriate.
> Groetjes Albert.
> >
> --
> Don't praise the day before the evening. One swallow doesn't make spring.
> You must not say "hey" before you have crossed the bridge. Don't sell the
> hide of the bear until you shot it. Better one bird in the hand than ten in
> the air. First gain is a cat spinning. - the Wise from Antrim -

in fact >number or >float & so on words works on natural strings build from any s" mystring" and variables affectation from there

this is why I had to use & adapt a commandout word specifically

Question about open-pipe is just a GFORTH word included in gforth dictonnary

Code open-pipe
0x000055d2e6c5b564 <gforth_engine+10020>: mov %rbp,0x5b3dd(%rip) # 0x55d2e6cb6948 <saved_ip>
0x000055d2e6c5b56b <gforth_engine+10027>: mov (%r15),%rdx
0x000055d2e6c5b56e <gforth_engine+10030>: mov 0x8(%r15),%rsi
0x000055d2e6c5b572 <gforth_engine+10034>: lea 0x1a9a7(%rip),%rax # 0x55d2e6c75f20 <pfileattr>
0x000055d2e6c5b579 <gforth_engine+10041>: lea 0x8(%r15),%r13
0x000055d2e6c5b57d <gforth_engine+10045>: mov 0x10(%r15),%rdi
0x000055d2e6c5b581 <gforth_engine+10049>: mov (%rax,%rdx,8),%r14
0x000055d2e6c5b585 <gforth_engine+10053>: mov $0x1,%edx
0x000055d2e6c5b58a <gforth_engine+10058>: call 0x55d2e6c67970 <cstr>
0x000055d2e6c5b58f <gforth_engine+10063>: mov %rax,%rdi
0x000055d2e6c5b592 <gforth_engine+10066>: mov %r14,%rsi
0x000055d2e6c5b595 <gforth_engine+10069>: call 0x55d2e6c585e0 <popen@plt>
0x000055d2e6c5b59a <gforth_engine+10074>: mov %rax,%r14
0x000055d2e6c5b59d <gforth_engine+10077>: test %rax,%rax
0x000055d2e6c5b5a0 <gforth_engine+10080>: je 0x55d2e6c5d538 <gforth_engine+18168>
0x000055d2e6c5b5a6 <gforth_engine+10086>: xor %eax,%eax
0x000055d2e6c5b5a8 <gforth_engine+10088>: mov %r14,0x8(%r13)
0x000055d2e6c5b5ac <gforth_engine+10092>: add $0x8,%rbp
0x000055d2e6c5b5b0 <gforth_engine+10096>: mov %r13,%r15
0x000055d2e6c5b5b3 <gforth_engine+10099>: mov %rax,0x0(%r13)
0x000055d2e6c5b5b7 <gforth_engine+10103>: mov -0x8(%rbp),%rcx
0x000055d2e6c5b5bb <gforth_engine+10107>: jmp *%rcx
Warning: 'set logging off', an alias for the command 'set logging enabled', is deprecated.
Use 'set logging enabled off'.

end-code
ok

it doen't come from external

On 14/06/2023 8:56 pm, gobli...@gmail.com wrote:
> ...
> in fact >number or >float & so on words works on natural strings build from any s" mystring" and variables affectation from there

True. If ciForth hasn't used >NUMBER it's because it's converter is customised for,
and relies upon, the forth interpreter. This puts it in the same class as recognizers
in which different interpreters must be switched in to handle different types of numbers.
>NUMBER is a general-purpose factor that can be used independently of the forth
interpreter.

Le lundi 12 juin 2023 à 21:36:46 UTC+2, gobli...@gmail.com a écrit :
> hello,
>
> I would reuse some external data to do something with
>
> My idea was to :
> 1.capture data (get some string)
> 2. display
> 3. convertit to number
> 4. dostuff
> 5. display results
>
> So I defined some
>
> create buffer 1024 allot
> 5 constant SIZE
> variable out
> create outputgraph SIZE cells allot
> : commandout ( "cmd" -- variable out as string )
> r/o open-pipe throw dup buffer swap 256 swap read-file throw swap
> close-pipe throw drop buffer swap out 2!
> ;
> : [] ( n addr -- addr[n] ) swap cells + ; \ if i understood correctly the array model
>
> here I can now test the capture
>
> s\" psql -c \qselect sum(exp) from experience where champs ilike 'langues' ;\q | sed '3!d' " commandout
> out 2@ type \ should be 40 40
> ok
>
> now the goal is to convert it as an int inside my array
> so I thouthg I could just
>
> out 2@ s>number drop 0 outputgraph [] ! \ may be
>
> but before that even the out 2@ s>number just output 0 0 to the stack & not a number ...
>
> Ideas to fit my goal to capture the "40" value from that example ?
>
> regards

Hello,
thanks all for our advices
for now as a quite good solution for now

\ use case test / ideas / and fix
\ help from reddit :; community
create buffer 1024 allot \ for general purpose usage redefined buffer
2variable out \ general purpose output changed to 2variable ; idea from Armok628 on redit
variable var \ just for poc
: commandout ( "system" -- string )
r/o open-pipe throw dup buffer swap 256 swap read-file throw swap close-pipe throw drop buffer swap out 2!
; \ system capture

\ random example to get a value
s" psql -c 'select avg(prct)*100 from jx ;' | sed '3!d' " commandout

\ use delimiter
: DELIMITED ( addr len char -- addr len)
>R 2DUP R> SCAN NIP - \ good idea from bfox9900 reddit
;

: test
dup \ for tailing spaces count
." ["
0 DO ." #" loop
100 swap - 0 do 32 emit loop
." ]"
cr
;

page
out 2@ char . deliMITED evaluate cr test cr
bye

With this delimited word, then it can evaluate correctly to send the entire part of the numeric value captured as a string at first.

test word here is just as his name indicate a test to confirm it has been converted correctly :)
here displaying some sort of bargraph

[############################################### ]

On Thursday, June 15, 2023 at 4:10:30 AM UTC-4, gobli...@gmail.com wrote:

I might as well chime in here too. :-)

Forth has a standard word called SPACES so you can make this simpler.

: test
dup \ for tailing spaces count
.." ["
0 DO ." #" loop
100 swap - SPACES
.." ]"
cr
;

Le jeudi 15 juin 2023 à 17:16:08 UTC+2, Brian Fox a écrit :
> On Thursday, June 15, 2023 at 4:10:30 AM UTC-4, gobli...@gmail.com wrote:
>
> I might as well chime in here too. :-)
>
> Forth has a standard word called SPACES so you can make this simpler.
> : test
> dup \ for tailing spaces count
> ." ["
> 0 DO ." #" loop
> 100 swap - SPACES
> ." ]"
> cr
> ;

you're right :)