Liste des Groupes | Revenir à cl forth |
On 13-06-2025 06:46, dxf wrote:On 13/06/2025 8:24 am, B. Pym wrote:: keep { lo hi adr len } lo adr len ;>
: get { adr len } 0. adr len >number keep 1 /string ;
: hms ( adr len -- h m s) get get get 2drop ;
: test clearstack s" 12:34:56" hms ;
Not worth the locals IMO. OTOH I guarantee (number) will be re-used.
>
: (number) ( adr len -- ud adr' len' ) 0. 2swap >number ;
: get ( adr len -- u adr' len' ) (number) rot drop 1 /string ;
: hms ( adr len -- h m s) get get get 2drop ;
: test clearstack s" 12:34:56" hms ;
Frankly, this is the first time I see how >NUMBER can be used as a dedicated parsing tool.
Fun part, though -- in 4tH, single numbers are preferred (for reasons listed in the manual) and hence: double numbers are expensive.
I do have both a single number version of >NUMBER as well as a double number version.
...
Les messages affichés proviennent d'usenet.