mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-28 00:48:06 +11:00
bd38d80f9c
and renamed it "Core words". Also, reworded the presentation.
12 lines
426 B
Plaintext
12 lines
426 B
Plaintext
( parsed is tight, all comments ahead. We read the first char
|
|
outside of the loop because it *has* to be nonzero, which
|
|
means _pdacc *has* to return 0.
|
|
|
|
Then, we check for '-'. If we get it, we advance by one,
|
|
recurse and invert result.
|
|
|
|
We loop until _pdacc is nonzero, which means either WS or
|
|
non-digit. 1 means WS, which means parsing was a success.
|
|
-1 means non-digit, which means we have a non-decimal. )
|
|
|