Назначение параметра слова >NUMBER

AlexF

Описание слова (СПФ 4.18):

Код:

: >NUMBER ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 ) \ 94
\ ud2 - результат преобразования символов строки, заданной c-addr1 u1,
\ в цифры, используя число в BASE, и добавлением каждой к ud1 после
\ умножения ud1 на число в BASE. Преобразование продолжается слева
\ направо до первого непреобразуемого символа, включая символы "+" и "-",
\ или до полного преобразования строки.
\ c-addr2 - адрес первого непреобразумого символа или первого символа
\ за концом строки, если строка была полностью преобразована.
\ u2 - число непреобразованных символов в строке.
\ Неоднозначная ситуация возникает, если ud2 переполняется во время
\ преобразования.

не понял, назначение параметра ud1?

Hishnik

AlexF писал(а):

умножения ud1 на число в BASE

Разбираем строку "23". Сначала определяем цифру 2 и кладем ее на стек, это будет ud1. Есть еще цифра, поэтому умножаем то, что на стеке, на 10 (вообще - на BASE @), и прибавляем новую цифру. То есть 2*10 + 3. Итого, чтобы обработать следующую цифру, нужно умножить уже накопленное значение на BASE @ , а потом уже вносить туда новый разряд. То есть

345:
3 - на стек
Получили 4 - 3*10 + 4 = 34
Получили 5 - 34*10 + 5 = 345

ygrek

ud1 - это старшие разряды результирующего числа.
т.е. если разбирать новое число - то это 0 0

Код:

0 0 S" 32" >NUMBER 2DROP D>S

сравните с

Код:

1 0 S" 32" >NUMBER 2DROP D>S

AlexF

Спасибо за помощь.
Удалось разобраться -- вспомнил, что по нотации ud1 это безнаковое число двойной точности. Поэтому на стеке должно быть два числа. Полученный результат преобразования добавляется к ud1 в младшие разряды. Как понял, это было задумано с тем, чтобы строить нечто конвейеров.

Увы, пользоваться словом, оказалось неудобно:
- не понимает знаки;
- на ведущих пробелах спотыкается

- необходимо на стек константы забрасывать...

Поэтому проще оказалось написать новое слово для преобразования.

mOleg

AlexF писал(а):

- на ведущих пробелах спотыкается

тут можно поподробнее? откуда им браться?

AlexF писал(а):

необходимо на стек константы забрасывать...

зачем? можно ведь и так: : >numb 0 0 2SWAP >NUMBER ;

AlexF писал(а):

Поэтому проще оказалось написать новое слово для преобразования.

это тоже хороший выход

AlexF

Цитата:

тут можно поподробнее? откуда им браться?

Все просто -- нужно прочитать CSV файл. По опыту знаю, что пробелы будут и это не самое худшее...

Мне показалось, что это слово с претензией на универсальность, но слишком уж капризное...

profiT

Цитата:

Поэтому проще оказалось написать новое слово для преобразования.

Хотел тут написать гневную обличительную речь вида: "ах!.. да вы просто не вникаете в глубочайший онтологический смысл этого слова, предопределяющий преисполненный высочайщего эстетизма Forth!".

Но потом посмотрел на ~profit/lib/number.f и ~profit/lib/uni.f, с укоризной на себя поцыкал и одёрнул, не стал.

AlexF

Код:

Хотел тут написать гневную обличительную речь вида

та, тоже сам мучался долго, не хотелось изобретать велосипед.... Но, думаю в таких случаях лучше давать пример использования. В параллельной ветке про исключения это помогло лучше разобраться со стандартными словами и все оказалось так как и хотелось.

Назначение параметра слова >NUMBER

Кто сейчас на конференции