spf-dev — SPF developers

Re: [Spf-dev] Поиск файла в Винде

[Ruvim P. <ruv...@gm...>]

2016-05-10 13:28 GMT+03:00 витя ерыгин <vi...@ma...>:

> Отчего в СПФ для поиска используется GetFileAttributesA, а не
> FindFirstFileA ? Последний быстрее.  Как я понимаю, всё из-за дескрипторов?
>

Для какого поиска?
GetFileAttributes используется в FILE-EXIST — для определения существования
файла (так исторически, и так было проще).

FILE-EXIST можно определить и через FindFirstFile, но приведите тест,
который продемонстрирует, что так будет быстрей.

--
Ruvim

[Spf-dev] Поиск файла в Винде

[витя е. <vi...@ma...>]

 Отчего в СПФ для поиска используется GetFileAttributesA, а не FindFirstFileA ? Последний быстрее.  Как я понимаю, всё из-за дескрипторов?  


-- 
Виктор Ерыгин

[Spf-dev] Как подъускорить file-exists?

[витя е. <vi...@ma...>]

 Аналог этого слова можно ускорить, что я и сделал путём замены стандартного _WINAPI-CODE  на альтернативный \lib\win\api-call\altwinapi.f
А также выдернуть сам код  из динамика. Полученное слово в большинстве случаев быстрее file-exists Замерял с помощью профайлера.
Дел на полчаса, оказывается. Но полученный код ( написан в hex-кодах)  непонятен вместе с принципом как это вообще работает.
Как ещё увеличить скорость нахождения файла


-- 
Виктор Ерыгин

Re: [Spf-dev] Как быстрее вего проверить наличие файла на сервере?

[Gena <mg...@ya...>]

Только предварительное сканирование файловой системы на сервере с сохранеием 
результата. Других путей ускорения нет.

У меня в свое время была задача, файловый сервер ( помойка ) с 1 000 000 
файлов вида:
"Отчёт по ёлкам за 12.01.16 2016г.doc" и похожих в 1 000 каталогах... 
Пользователи часами искли там файлы в проводнике.

Решение: Небольшая консольная программа ( ffc.exe ) делает ночью текстовый файл
со списком всех имен файлов на сервере - index.txt

Пользователям выдана утилита ( fft.exe ) которая при старте читает файл индекса 
в память и уже там ищет файлы по имени используя маски. Поиск любого файла 
сейчас не более 2 секунд.

В письме от 23 апреля 2016 10:26:32 пользователь витя ерыгин написал:
>  Как проверить?
> FILE-EXISTS работает с этим медленно. Есть идеи?

[Spf-dev] Как быстрее вего проверить наличие файла на сервере?

[витя е. <vi...@ma...>]

 Как проверить?
FILE-EXISTS работает с этим медленно. Есть идеи?


-- 
Виктор Ерыгин

Re: [Spf-dev] Фантомная база

[витя е. <vi...@ma...>]

Тут FORCE-PATH должно быть после модификации строки, а не до

Упс, опечатка

>Четверг, 21 апреля 2016, 1:24 +03:00 от Ruvim Pinka <ruv...@gm...>:
>
>
>
>2016-04-20 18:37 GMT+03:00 витя ерыгин  < vi...@ma... > :
>>Программа быстрее всего ищет, если данные на компе, а не на сервере, что логично. Думаю стоит сделать фантомную базу. По принципу, есть такой файл с  таким каталогом на сервере? Если да, то создаём такой же файл вместе с каталогом на диск С ( ~pinka\samples\2005\lib\lay-path.f ) .   Размер полученного файла , ежели заглянуть в свойства 0 байт .
>>Весь отв за это код прост:
>>FORCE-PATH >R DUP [CHAR] C SWAP C! R>
>>R/W CREATE-FILE 0= IF CLOSE-FILE ELSE DROP THEN
>
>Тут FORCE-PATH должно быть после модификации строки, а не до.
>
> 
>>Можно ли таким образом  сделать аналог базы, что на сервере?
>>Мне самое главное, чтоб совпадали имена файлов, а размер не важен.
>>Если есть подводные камни, то как их обойти?
>>Да и вообще стоит ли?
>
>
>Это называется кэширование. Подводные камни будут в синхронизации (или инвалидации) данных в кэше, ибо главная проблема кэша — это его старение.
>
>Что касается эффективности, то если данные в память влезают, то быстрей будет если держать их в памяти, а не в виде файлов-флагов на диске. Т.е., проверять наличие ключа в хэш-таблице или дереве, а не файла на диске.
>
>И конечно же, сам кэш стоит затевать, если обращений к нему ожидается заметно больше, чем ключей в нем.
>
>--
>Ruvim
>
>------------------------------------------------------------------------------
>Find and fix application performance issues faster with Applications Manager
>Applications Manager provides deep performance insights into multiple tiers of
>your business applications. It resolves application problems quickly and
>reduces your MTTR. Get your free trial!
>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>_______________________________________________
>Spf-dev mailing list
>Sp...@li...
>https://lists.sourceforge.net/lists/listinfo/spf-dev

Re: [Spf-dev] Фантомная база

[Ruvim P. <ruv...@gm...>]

2016-04-20 18:37 GMT+03:00 витя ерыгин <vi...@ma...>:

> Программа быстрее всего ищет, если данные на компе, а не на сервере, что
> логично. Думаю стоит сделать фантомную базу. По принципу, есть такой файл
> с  таким каталогом на сервере? Если да, то создаём такой же файл вместе с
> каталогом на диск С ( ~pinka\samples\2005\lib\lay-path.f ) .   Размер
> полученного файла , ежели заглянуть в свойства 0 байт .
> Весь отв за это код прост:
> FORCE-PATH >R DUP [CHAR] C SWAP C! R>
> R/W CREATE-FILE 0= IF CLOSE-FILE ELSE DROP THEN
>

Тут FORCE-PATH должно быть после модификации строки, а не до.



> Можно ли таким образом  сделать аналог базы, что на сервере?
> Мне самое главное, чтоб совпадали имена файлов, а размер не важен.
> Если есть подводные камни, то как их обойти?
> Да и вообще стоит ли?
>


Это называется кэширование. Подводные камни будут в синхронизации (или
инвалидации) данных в кэше, ибо главная проблема кэша — это его старение.

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

И конечно же, сам кэш стоит затевать, если обращений к нему ожидается
заметно больше, чем ключей в нем.

--
Ruvim

[Spf-dev] Фантомная база

[витя е. <vi...@ma...>]

 Программа быстрее всего ищет, если данные на компе, а не на сервере, что логично. Думаю стоит сделать фантомную базу. По принципу, есть такой файл с  таким каталогом на сервере? Если да, то создаём такой же файл вместе с каталогом на диск С ( ~pinka\samples\2005\lib\lay-path.f ) .   Размер полученного файла , ежели заглянуть в свойства 0 байт .
Весь отв за это код прост:
FORCE-PATH >R DUP [CHAR] C SWAP C! R>
R/W CREATE-FILE 0= IF CLOSE-FILE ELSE DROP THEN

Можно ли таким образом  сделать аналог базы, что на сервере?
Мне самое главное, чтоб совпадали имена файлов, а размер не важен.
Если есть подводные камни, то как их обойти?
Да и вообще стоит ли?

-- 
Виктор Ерыгин

Re: [Spf-dev] Иное использование стека сопроцессора

[витя е. <vi...@ma...>]

 Я по колдовал с hex-обознчениями.
В mmx регистры можно складировать значения
Дольше всего мучился с двойным складированием (  a b c d - a b m0: c m1: d   )
Всё из-за [ebp] . Не нашёл методом науч.тыка среди movd, нашёл среди movq , но это блин учетверённое слово! 


>Вторник, 19 апреля 2016, 12:41 +04:00 от Королев Виктор <vic...@ya...>:
>
>Можно и погуглить
>http://osinavi.ru/asm/MMXexpansion/1.php
>Но в SPF это вроде не реализовано...
> 
>18.04.2016, 19:23, "витя ерыгин" < vi...@ma... >: Что-то я не нахожу справочник по MMX-регистрам. Где взять?  
>>
>>
>>>Понедельник, 18 апреля 2016, 19:49 +04:00 от Dmitry Yakimov < ya...@gm... >:
>>>
>>>Привет,
>>> 
>>>Никак, так как будут проблемы с неизменяемостью.
>>>А вот в в mmx регистрах наверное можно
>>>
>>>2016-04-18 18 :45 GMT+03:00 витя ерыгин  < vi...@ma... > :
>>>>Как хранить на стеке сопроцессора переменные? Что-то вроде float>data@ 
>>>>
>>>>
>>>>-- 
>>>>Виктор Ерыгин
>>>>------------------------------------------------------------------------------
>>>>Find and fix application performance issues faster with Applications Manager
>>>>Applications Manager provides deep performance insights into multiple tiers of
>>>>your business applications. It resolves application problems quickly and
>>>>reduces your MTTR. Get your free trial!
>>>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>>>_______________________________________________
>>>>Spf-dev mailing list
>>>>Sp...@li...
>>>>https://lists.sourceforge.net/lists/listinfo/spf-dev
>>
>>,
>>------------------------------------------------------------------------------
>>Find and fix application performance issues faster with Applications Manager
>>Applications Manager provides deep performance insights into multiple tiers of
>>your business applications. It resolves application problems quickly and
>>reduces your MTTR. Get your free trial!
>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>,
>>_______________________________________________
>>Spf-dev mailing list
>>Sp...@li...
>>https://lists.sourceforge.net/lists/listinfo/spf-dev

Re: [Spf-dev] Иное использование стека сопроцессора

[Королев В. <vic...@ya...>]

<div>Можно и погуглить</div><div><a href="http://osinavi.ru/asm/MMXexpansion/1.php">http://osinavi.ru/asm/MMXexpansion/1.php</a></div><div>Но в SPF это вроде не реализовано...</div><div> </div><div>18.04.2016, 19:23, "витя ерыгин" &lt;vi...@ma...&gt;:</div><blockquote type="cite">Что-то я не нахожу справочник по MMX-регистрам. Где взять?  <br /><br /><br /><blockquote style="border-left:1px solid #0857A6;margin:10px;padding:0 0 0 10px;">Понедельник, 18 апреля 2016, 19:49 +04:00 от Dmitry Yakimov &lt;<a href="mailto:ya...@gm...">ya...@gm...</a>&gt;:<br /> <br /><div><div><div><div><div>Привет,<div> </div><div>Никак, так как будут проблемы с неизменяемостью.</div><div>А вот в в mmx регистрах наверное можно</div></div><div><br /><div><span>2016-04-18 18</span>:45 GMT+03:00 витя ерыгин <span>&lt;<a href="https://e.mail.ru/compose/?mailto=mailto%3av...@ma..." target="_blank">vi...@ma...</a>&gt;</span>:<br /><blockquote style="margin:0 0 0 0.8ex;border-left:1px #ccc solid;padding-left:1ex;"><div>Как хранить на стеке сопроцессора переменные? Что-то вроде float&gt;data@ <br /><span><font color="#888888"><br /><br />-- <br />Виктор Ерыгин</font></span></div><br />------------------------------------------------------------------------------<br /> Find and fix application performance issues faster with Applications Manager<br /> Applications Manager provides deep performance insights into multiple tiers of<br /> your business applications. It resolves application problems quickly and<br /> reduces your MTTR. Get your free trial!<br /> <a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z" target="_blank">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a><br />_______________________________________________<br /> Spf-dev mailing list<br /> <a href="https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li..." target="_blank">Sp...@li...</a><br /> <a href="https://lists.sourceforge.net/lists/listinfo/spf-dev" target="_blank">https://lists.sourceforge.net/lists/listinfo/spf-dev</a><br /> </blockquote></div></div></div></div></div></div></blockquote><br /> ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="mailto:Sp...@li...">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote>

Re: [Spf-dev] Иное использование стека сопроцессора

[витя е. <vi...@ma...>]

 Что-то я не нахожу справочник по MMX-регистрам. Где взять?  


>Понедельник, 18 апреля 2016, 19:49 +04:00 от Dmitry Yakimov <ya...@gm...>:
>
>Привет,
>
>Никак, так как будут проблемы с неизменяемостью.
>А вот в в mmx регистрах наверное можно
>
>2016-04-18 18:45 GMT+03:00 витя ерыгин  < vi...@ma... > :
>>Как хранить на стеке сопроцессора переменные? Что-то вроде float>data@ 
>>
>>
>>-- 
>>Виктор Ерыгин
>>------------------------------------------------------------------------------
>>Find and fix application performance issues faster with Applications Manager
>>Applications Manager provides deep performance insights into multiple tiers of
>>your business applications. It resolves application problems quickly and
>>reduces your MTTR. Get your free trial!
>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>_______________________________________________
>>Spf-dev mailing list
>>Sp...@li...
>>https://lists.sourceforge.net/lists/listinfo/spf-dev
>>
>

Re: [Spf-dev] Иное использование стека сопроцессора

[Dmitry Y. <ya...@gm...>]

Привет,

Никак, так как будут проблемы с неизменяемостью.
А вот в в mmx регистрах наверное можно

2016-04-18 18:45 GMT+03:00 витя ерыгин <vi...@ma...>:

> Как хранить на стеке сопроцессора переменные? Что-то вроде float>data@
>
>
> --
> Виктор Ерыгин
>
>
> ------------------------------------------------------------------------------
> Find and fix application performance issues faster with Applications
> Manager
> Applications Manager provides deep performance insights into multiple
> tiers of
> your business applications. It resolves application problems quickly and
> reduces your MTTR. Get your free trial!
> https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
> _______________________________________________
> Spf-dev mailing list
> Sp...@li...
> https://lists.sourceforge.net/lists/listinfo/spf-dev
>
>

[Spf-dev] Иное использование стека сопроцессора

[витя е. <vi...@ma...>]

 Как хранить на стеке сопроцессора переменные? Что-то вроде float>data@ 


-- 
Виктор Ерыгин

Re: [Spf-dev] Деление с точкой

[витя е. <vi...@ma...>]

 Вот примерно так и сделал, кстати


>Четверг, 14 апреля 2016, 21:10 +03:00 от Ruvim Pinka <ruv...@gm...>:
>
>
>2016-04-14 20:56 GMT+03:00 Ruvim Pinka  < ruv...@gm... > :
> 
>>Целую и дробную части можно представить парой  целых чисел, при этом дробная часть должна быть числителем простой дроби с заранее фиксированным знаменателем. Например, 3.33 может быть представлено парой ( 3 330 ) в тысячных долях, или ( 3 33 ) в сотых долях. При этом знаменатель (1000 или 100) должен быть един и фиксирован для всех таких пар.  Эта пара  не является числом двойной длины , поэтому при форматном выводе каждое из чисел этой пары надо обрабатывать отдельно.
>>
>>: picture-pair ( i f -- addr u )
>>  S>D <#
>>  # # # \ три знака для тысячных долей, знаменатель 1000
>>  OR ABORT" incorrect fractional part"   \ ошибка, если остаток не ноль (f > 999)
>>  [CHAR] . HOLD
>>  DUP >R ABS S>D #S R> SIGN #>
>>;
>>
>>\ test
>>
>>3 33 picture-pair TYPE \ 3.033
>>
>
>
>Следует добавить, что с тем же успехом такое дробное число (представимое
 в виде простой дроби с фиксированным знаменаелем) можно представить в 
виде одного целого числа (а не пары). Эта техника многократно описана в 
литературе.
>
>При этом дробное число 3.33 в тысячных долях представляется числом 3330, а 3.033 — числом 3033
>
>: picture/1000 ( n -- addr u )
>  DUP >R ABS S>D  <#
>  # # # \ три знака для тысячных долей, знаменатель 1000
>  [CHAR] . HOLD
>  #S R> SIGN #>
>;
>
>\ test
>3033 picture/1000 TYPE \ 3.033
>
>
>Для увеличения диапазона чисел, представимых таким образом, могут использоваться целые двойной длины.
>
>-- 
>Ruvim
>------------------------------------------------------------------------------
>Find and fix application performance issues faster with Applications Manager
>Applications Manager provides deep performance insights into multiple tiers of
>your business applications. It resolves application problems quickly and
>reduces your MTTR. Get your free trial!
>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>_______________________________________________
>Spf-dev mailing list
>Sp...@li...
>https://lists.sourceforge.net/lists/listinfo/spf-dev

Re: [Spf-dev] Деление с точкой

[Ruvim P. <ruv...@gm...>]

2016-04-14 20:56 GMT+03:00 Ruvim Pinka <ruv...@gm...>:


> Целую и дробную части можно представить парой *целых* чисел, при этом
> дробная часть должна быть числителем простой дроби с заранее фиксированным
> знаменателем. Например, 3.33 может быть представлено парой ( 3 330 ) в
> тысячных долях, или ( 3 33 ) в сотых долях. При этом знаменатель (1000 или
> 100) должен быть един и фиксирован для всех таких пар.  Эта пара *не
> является числом двойной длины*, поэтому при форматном выводе каждое из
> чисел этой пары надо обрабатывать отдельно.
>
> : picture-pair ( i f -- addr u )
>   S>D <#
>   # # # \ три знака для тысячных долей, знаменатель 1000
>   OR ABORT" incorrect fractional part"   \ ошибка, если остаток не ноль (f
> > 999)
>   [CHAR] . HOLD
>   DUP >R ABS S>D #S R> SIGN #>
> ;
>
> \ test
>
> 3 33 picture-pair TYPE \ 3.033
>
>

Следует добавить, что с тем же успехом такое дробное число (представимое в
виде простой дроби с фиксированным знаменаелем) можно представить в виде
одного целого числа (а не пары). Эта техника многократно описана в
литературе.

При этом дробное число 3.33 в тысячных долях представляется числом 3330, а
3.033 — числом 3033

: picture/1000 ( n -- addr u )
  DUP >R ABS S>D <#
  # # # \ три знака для тысячных долей, знаменатель 1000
  [CHAR] . HOLD
  #S R> SIGN #>
;

\ test
3033 picture/1000 TYPE \ 3.033


Для увеличения диапазона чисел, представимых таким образом, могут
использоваться целые двойной длины.

-- 
Ruvim

Re: [Spf-dev] Деление с точкой

[Ruvim P. <ruv...@gm...>]

2016-04-13 21:28 GMT+03:00 витя ерыгин <vi...@ma...>:

Относительно форматного вывода, а если после запятой идёт 0? Он не
> отображается. В этом деле понимания маловато
>
> Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор <
> vic...@ya...>:
>
> \ или вывод в форматном  виде
> ( d -- adr u ) SWAP OVER DABS <# # # # [CHAR] . HOLD #S ROT SIGN #>
>
>

> 12.04.2016, 18:42, "витя ерыгин" <vi...@ma...
> <https://e.mail.ru/compose?To=vi...@ma...>>:
>
> Необходимо получить результат от деления двух целых чисел в виде двойного
> числа
> 10 0 d>f
> 3  0  d>f
> f/
> f>d
>  выдаёт 3 0, а не 3 333...
>
> Число двойной длины — это целое число.
В паре ( 3 0 ) — 0 это старшая часть, 3 это младшая часть.
Поэтому, ( 3 333 ) здесь — это нонсенс.

Целую и дробную части можно представить парой *целых* чисел, при этом
дробная часть должна быть числителем простой дроби с заранее фиксированным
знаменателем. Например, 3.33 может быть представлено парой ( 3 330 ) в
тысячных долях, или ( 3 33 ) в сотых долях. При этом знаменатель (1000 или
100) должен быть един и фиксирован для всех таких пар.  Эта пара *не
является числом двойной длины*, поэтому при форматном выводе каждое из
чисел этой пары надо обрабатывать отдельно.

: picture-pair ( i f -- addr u )
  S>D <#
  # # # \ три знака для тысячных долей, знаменатель 1000
  OR ABORT" incorrect fractional part"   \ ошибка, если остаток не ноль (f
> 999)
  [CHAR] . HOLD
  DUP >R ABS S>D #S R> SIGN #>
;

\ test

3 33 picture-pair TYPE \ 3.033


--
Ruvim

Re: [Spf-dev] Деление с точкой

[Королев В. <vic...@ya...>]

<div><div>Сам запутался.. так правильнее</div><div><div>Если двойные числа не нужны, можно результат деления, с учетом разрядности, снять со стека </div><div>F&gt;DS ( -- n )</div><div>100 \ разрядность</div><div>/MOD  ( -- остаток целое ) DROP \ целое если не нужно</div><div> ( -- n ) \ остаток с учетом разрядности</div></div><div> </div></div><div> </div><div>14.04.2016, 18:33, "витя ерыгин" &lt;vi...@ma...&gt;:</div><blockquote type="cite">Спасибо!<br />На работе думал как ещё получить  дробь делением двух целых. Додумался через &lt;# делать в виде двух строк<br /><br /><br /><blockquote style="border-left:1px solid #0857A6;margin:10px;padding:0 0 0 10px;">Четверг, 14 апреля 2016, 19:25 +04:00 от Dmitry Yakimov &lt;<a href="mailto:ya...@gm...">ya...@gm...</a>&gt;:<br /> <br /><div><div><div><div><div><div>Привет,</div><div> </div><div>Можно более кратко</div><div>10e 3e F/ F.</div><div> </div><div>Можно получить строку</div><div>10e 3e F/ &gt;FNUM TYPE</div><div> </div><div>Если нужно получить на стеке именно два целых числа отражающих целую и дробную часть возникает вопрос - сколько знаков дробной части нужно. Если например нужно два</div><div>то:</div><div> </div><div>10e 3e F/ FDUP F&gt;D DROP \ выделили целую часть</div><div>FDUP FLOOR F- \ выделили дробную часть</div><div>100e ( два знака ) F* FLOOR F&gt;D DROP</div><div> </div><div>Вот так.</div><div>С уважением,</div><div>Дмитрий Якимов</div></div><div><br /><div><span>2016-04-13 21</span>:28 GMT+03:00 витя ерыгин <span>&lt;<a href="https://e.mail.ru/compose/?mailto=mailto%3av...@ma..." target="_blank">vi...@ma...</a>&gt;</span>:<br /><blockquote style="margin:0 0 0 0.8ex;border-left:1px #ccc solid;padding-left:1ex;"><div>Относительно форматного вывода, а если после запятой идёт 0? Он не отображается. В этом деле понимания маловато <br /><br /><br /><blockquote style="border-left:1px solid #0857a6;margin:10px;padding:0 0 0 10px;">Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор &lt;<a href="https://e.mail.ru/compose/?mailto=mailto%3avict%2dk...@ya..." target="_blank">vic...@ya...</a>&gt;:<div><div><br /> <br /><div><div><div><div><div>F&gt;D копирует целое число с арифметического стека на стек, причем без округления </div><div>Возможный вариант умножить результат в n 10 раз, на n требуемое количество разрядов после запятой</div><div>К примеру до 3-х знаков:</div><div>10 DS&gt;F \ или 10. D&gt;F</div><div>3  DS&gt;F \ или 3. D&gt;F</div><div>F/ </div><div>F10* F10* F10*</div><div>FINT \ если нужно округление по установленным правилам</div><div>F&gt;D \ Далее использовать по назначению</div><div>\ или вывод в форматном  виде</div><div>( d -- adr u ) SWAP OVER DABS &lt;# # # # [CHAR] . HOLD #S ROT SIGN #&gt;</div><div> </div><div>12.04.2016, 18:42, "витя ерыгин" &lt;<a href="https://e.mail.ru/compose?To=vi...@ma..." target="_blank">vi...@ma...</a>&gt;:</div><blockquote type="cite"><br />Необходимо получить результат от деления двух целых чисел в виде двойного числа<br />10 0 d&gt;f<br />3  0  d&gt;f<br />f/<br />f&gt;d<br /> выдаёт 3 0, а не 3 333...<br /><br /><br /><br />-- <br />Виктор Ерыгин ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z" target="_blank">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li..." target="_blank">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev" target="_blank">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote></div></div></div></div></div></div></blockquote></div><br />------------------------------------------------------------------------------<br /> Find and fix application performance issues faster with Applications Manager<br /> Applications Manager provides deep performance insights into multiple tiers of<br /> your business applications. It resolves application problems quickly and<br /> reduces your MTTR. Get your free trial!<br /> <a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z" target="_blank">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a><br />_______________________________________________<br /> Spf-dev mailing list<br /> <a href="https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li..." target="_blank">Sp...@li...</a><br /> <a href="https://lists.sourceforge.net/lists/listinfo/spf-dev" target="_blank">https://lists.sourceforge.net/lists/listinfo/spf-dev</a><br /> </blockquote></div></div></div></div></div></div></blockquote><br /> ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="mailto:Sp...@li...">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote>

Re: [Spf-dev] Деление с точкой

[Королев В. <vic...@ya...>]

<div>Если двойные числа не нужны, можно результат деления, с учетом разрядности, снять со стека </div><div>F&gt;DS ( -- n )</div><div>100 \ разрядность</div><div>/MOD  ( -- остаток целое ) DROP \ целое если не нужно</div><div>100 \ разрядность</div><div>* ( -- n ) \ остаток с учетом разрядности</div><div> </div><div> </div><div>14.04.2016, 18:33, "витя ерыгин" &lt;vi...@ma...&gt;:</div><blockquote type="cite">Спасибо!<br />На работе думал как ещё получить  дробь делением двух целых. Додумался через &lt;# делать в виде двух строк<br /><br /><br /><blockquote style="border-left:1px solid #0857A6;margin:10px;padding:0 0 0 10px;">Четверг, 14 апреля 2016, 19:25 +04:00 от Dmitry Yakimov &lt;<a href="mailto:ya...@gm...">ya...@gm...</a>&gt;:<br /> <br /><div><div><div><div><div><div>Привет,</div><div> </div><div>Можно более кратко</div><div>10e 3e F/ F.</div><div> </div><div>Можно получить строку</div><div>10e 3e F/ &gt;FNUM TYPE</div><div> </div><div>Если нужно получить на стеке именно два целых числа отражающих целую и дробную часть возникает вопрос - сколько знаков дробной части нужно. Если например нужно два</div><div>то:</div><div> </div><div>10e 3e F/ FDUP F&gt;D DROP \ выделили целую часть</div><div>FDUP FLOOR F- \ выделили дробную часть</div><div>100e ( два знака ) F* FLOOR F&gt;D DROP</div><div> </div><div>Вот так.</div><div>С уважением,</div><div>Дмитрий Якимов</div></div><div><br /><div><span>2016-04-13 21</span>:28 GMT+03:00 витя ерыгин <span>&lt;<a href="https://e.mail.ru/compose/?mailto=mailto%3av...@ma..." target="_blank">vi...@ma...</a>&gt;</span>:<br /><blockquote style="margin:0 0 0 0.8ex;border-left:1px #ccc solid;padding-left:1ex;"><div>Относительно форматного вывода, а если после запятой идёт 0? Он не отображается. В этом деле понимания маловато <br /><br /><br /><blockquote style="border-left:1px solid #0857a6;margin:10px;padding:0 0 0 10px;">Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор &lt;<a href="https://e.mail.ru/compose/?mailto=mailto%3avict%2dk...@ya..." target="_blank">vic...@ya...</a>&gt;:<div><div><br /> <br /><div><div><div><div><div>F&gt;D копирует целое число с арифметического стека на стек, причем без округления </div><div>Возможный вариант умножить результат в n 10 раз, на n требуемое количество разрядов после запятой</div><div>К примеру до 3-х знаков:</div><div>10 DS&gt;F \ или 10. D&gt;F</div><div>3  DS&gt;F \ или 3. D&gt;F</div><div>F/ </div><div>F10* F10* F10*</div><div>FINT \ если нужно округление по установленным правилам</div><div>F&gt;D \ Далее использовать по назначению</div><div>\ или вывод в форматном  виде</div><div>( d -- adr u ) SWAP OVER DABS &lt;# # # # [CHAR] . HOLD #S ROT SIGN #&gt;</div><div> </div><div>12.04.2016, 18:42, "витя ерыгин" &lt;<a href="https://e.mail.ru/compose?To=vi...@ma..." target="_blank">vi...@ma...</a>&gt;:</div><blockquote type="cite"><br />Необходимо получить результат от деления двух целых чисел в виде двойного числа<br />10 0 d&gt;f<br />3  0  d&gt;f<br />f/<br />f&gt;d<br /> выдаёт 3 0, а не 3 333...<br /><br /><br /><br />-- <br />Виктор Ерыгин ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z" target="_blank">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li..." target="_blank">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev" target="_blank">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote></div></div></div></div></div></div></blockquote></div><br />------------------------------------------------------------------------------<br /> Find and fix application performance issues faster with Applications Manager<br /> Applications Manager provides deep performance insights into multiple tiers of<br /> your business applications. It resolves application problems quickly and<br /> reduces your MTTR. Get your free trial!<br /> <a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z" target="_blank">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a><br />_______________________________________________<br /> Spf-dev mailing list<br /> <a href="https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li..." target="_blank">Sp...@li...</a><br /> <a href="https://lists.sourceforge.net/lists/listinfo/spf-dev" target="_blank">https://lists.sourceforge.net/lists/listinfo/spf-dev</a><br /> </blockquote></div></div></div></div></div></div></blockquote><br /> ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="mailto:Sp...@li...">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote>

Re: [Spf-dev] Деление с точкой

[витя е. <vi...@ma...>]

 Спасибо!
На работе думал как ещё получить  дробь делением двух целых. Додумался через <# делать в виде двух строк


>Четверг, 14 апреля 2016, 19:25 +04:00 от Dmitry Yakimov <ya...@gm...>:
>
>Привет,
>
>Можно более кратко
>10e 3e F/ F.
>
>Можно получить строку 
>10e 3e F/ >FNUM TYPE
>
>Если нужно получить на стеке именно два целых числа отражающих целую и дробную часть возникает вопрос - сколько знаков дробной части нужно. Если например нужно два
>то: 
>
>10e 3e F/ FDUP F>D DROP \ выделили целую часть
>FDUP FLOOR F- \ выделили дробную часть
>100e ( два знака ) F* FLOOR F>D DROP
>
>Вот так.
>С уважением,
>Дмитрий Якимов
>
>2016-04-13 21:28 GMT+03:00 витя ерыгин  < vi...@ma... > :
>>Относительно форматного вывода, а если после запятой идёт 0? Он не отображается. В этом деле понимания маловато 
>>
>>
>>>Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор < vic...@ya... >:
>>>
>>>
>>>F>D копирует целое число с арифметического стека на стек, причем без округления 
>>>Возможный вариант умножить результат в n 10 раз, на n требуемое количество разрядов после запятой
>>>К примеру до 3-х знаков:
>>>10 DS>F \ или 10. D>F
>>>3  DS>F \ или 3. D>F
>>>F/ 
>>>F10* F10* F10*
>>>FINT \ если нужно округление по установленным правилам
>>>F>D \ Далее использовать по назначению
>>>\ или вывод в форматном  виде
>>>( d -- adr u ) SWAP OVER DABS <# # # # [CHAR] . HOLD #S ROT SIGN #>
>>> 
>>>12.04.2016, 18:42, "витя ерыгин" < vi...@ma... >:
>>>>Необходимо получить результат от деления двух целых чисел в виде двойного числа
>>>>10 0 d>f
>>>>3  0  d>f
>>>>f/
>>>>f>d
>>>> выдаёт 3 0, а не 3 333...
>>>>
>>>>
>>>>
>>>>-- 
>>>>Виктор Ерыгин ,
>>>>------------------------------------------------------------------------------
>>>>Find and fix application performance issues faster with Applications Manager
>>>>Applications Manager provides deep performance insights into multiple tiers of
>>>>your business applications. It resolves application problems quickly and
>>>>reduces your MTTR. Get your free trial!
>>>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>>>,
>>>>_______________________________________________
>>>>Spf-dev mailing list
>>>>Sp...@li...
>>>>https://lists.sourceforge.net/lists/listinfo/spf-dev
>>
>>
>>------------------------------------------------------------------------------
>>Find and fix application performance issues faster with Applications Manager
>>Applications Manager provides deep performance insights into multiple tiers of
>>your business applications. It resolves application problems quickly and
>>reduces your MTTR. Get your free trial!
>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>_______________________________________________
>>Spf-dev mailing list
>>Sp...@li...
>>https://lists.sourceforge.net/lists/listinfo/spf-dev
>>
>

Re: [Spf-dev] Деление с точкой

[Dmitry Y. <ya...@gm...>]

Привет,

Можно более кратко
10e 3e F/ F.

Можно получить строку
10e 3e F/ >FNUM TYPE

Если нужно получить на стеке именно два целых числа отражающих целую и
дробную часть возникает вопрос - сколько знаков дробной части нужно. Если
например нужно два
то:

10e 3e F/ FDUP F>D DROP \ выделили целую часть
FDUP FLOOR F- \ выделили дробную часть
100e ( два знака ) F* FLOOR F>D DROP

Вот так.
С уважением,
Дмитрий Якимов

2016-04-13 21:28 GMT+03:00 витя ерыгин <vi...@ma...>:

> Относительно форматного вывода, а если после запятой идёт 0? Он не
> отображается. В этом деле понимания маловато
>
>
> Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор <
> vic...@ya...>:
>
>
> F>D копирует целое число с арифметического стека на стек, причем без
> округления
> Возможный вариант умножить результат в n 10 раз, на n требуемое количество
> разрядов после запятой
> К примеру до 3-х знаков:
> 10 DS>F \ или 10. D>F
> 3  DS>F \ или 3. D>F
> F/
> F10* F10* F10*
> FINT \ если нужно округление по установленным правилам
> F>D \ Далее использовать по назначению
> \ или вывод в форматном  виде
> ( d -- adr u ) SWAP OVER DABS <# # # # [CHAR] . HOLD #S ROT SIGN #>
>
> 12.04.2016, 18:42, "витя ерыгин" <vi...@ma...
> <https://e.mail.ru/compose?To=vi...@ma...>>:
>
>
> Необходимо получить результат от деления двух целых чисел в виде двойного
> числа
> 10 0 d>f
> 3  0  d>f
> f/
> f>d
>  выдаёт 3 0, а не 3 333...
>
>
>
> --
> Виктор Ерыгин ,
>
>
> ------------------------------------------------------------------------------
> Find and fix application performance issues faster with Applications
> Manager
> Applications Manager provides deep performance insights into multiple
> tiers of
> your business applications. It resolves application problems quickly and
> reduces your MTTR. Get your free trial!
> https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
> ,
>
> _______________________________________________
> Spf-dev mailing list
> Sp...@li...
> <https://e.mail.ru/compose/?mailto=mailto%3aSpf%2d...@li...>
> https://lists.sourceforge.net/lists/listinfo/spf-dev
>
>
>
>
> ------------------------------------------------------------------------------
> Find and fix application performance issues faster with Applications
> Manager
> Applications Manager provides deep performance insights into multiple
> tiers of
> your business applications. It resolves application problems quickly and
> reduces your MTTR. Get your free trial!
> https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
> _______________________________________________
> Spf-dev mailing list
> Sp...@li...
> https://lists.sourceforge.net/lists/listinfo/spf-dev
>
>

Re: [Spf-dev] Деление с точкой

[витя е. <vi...@ma...>]

 Относительно форматного вывода, а если после запятой идёт 0? Он не отображается. В этом деле понимания маловато 


>Вторник, 12 апреля 2016, 20:51 +04:00 от Королев Виктор <vic...@ya...>:
>
>F>D копирует целое число с арифметического стека на стек, причем без округления 
>Возможный вариант умножить результат в n 10 раз, на n требуемое количество разрядов после запятой
>К примеру до 3-х знаков:
>10 DS>F \ или 10. D>F
>3  DS>F \ или 3. D>F
>F/ 
>F10* F10* F10*
>FINT \ если нужно округление по установленным правилам
>F>D \ Далее использовать по назначению
>\ или вывод в форматном  виде
>( d -- adr u ) SWAP OVER DABS <# # # # [CHAR] . HOLD #S ROT SIGN #>
> 
>12.04.2016, 18:42, "витя ерыгин" < vi...@ma... >:
>>Необходимо получить результат от деления двух целых чисел в виде двойного числа
>>10 0 d>f
>>3  0  d>f
>>f/
>>f>d
>> выдаёт 3 0, а не 3 333...
>>
>>
>>
>>-- 
>>Виктор Ерыгин ,
>>------------------------------------------------------------------------------
>>Find and fix application performance issues faster with Applications Manager
>>Applications Manager provides deep performance insights into multiple tiers of
>>your business applications. It resolves application problems quickly and
>>reduces your MTTR. Get your free trial!
>>https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
>>,
>>_______________________________________________
>>Spf-dev mailing list
>>Sp...@li...
>>https://lists.sourceforge.net/lists/listinfo/spf-dev

Re: [Spf-dev] Деление с точкой

[Королев В. <vic...@ya...>]

<div>F&gt;D копирует целое число с арифметического стека на стек, причем без округления </div><div>Возможный вариант умножить результат в n 10 раз, на n требуемое количество разрядов после запятой</div><div>К примеру до 3-х знаков:</div><div>10 DS&gt;F \ или 10. D&gt;F</div><div>3  DS&gt;F \ или 3. D&gt;F</div><div>F/ </div><div>F10* F10* F10*</div><div>FINT \ если нужно округление по установленным правилам</div><div>F&gt;D \ Далее использовать по назначению</div><div>\ или вывод в форматном  виде</div><div>( d -- adr u ) SWAP OVER DABS &lt;# # # # [CHAR] . HOLD #S ROT SIGN #&gt;</div><div> </div><div>12.04.2016, 18:42, "витя ерыгин" &lt;vi...@ma...&gt;:</div><blockquote type="cite"><br />Необходимо получить результат от деления двух целых чисел в виде двойного числа<br />10 0 d&gt;f<br />3  0  d&gt;f<br />f/<br />f&gt;d<br /> выдаёт 3 0, а не 3 333...<br /><br /><br /><br />-- <br />Виктор Ерыгин ,<p>------------------------------------------------------------------------------<br />Find and fix application performance issues faster with Applications Manager<br />Applications Manager provides deep performance insights into multiple tiers of<br />your business applications. It resolves application problems quickly and<br />reduces your MTTR. Get your free trial!<br /><a href="https://ad.doubleclick.net/ddm/clk/302982198;130105516;z">https://ad.doubleclick.net/ddm/clk/302982198;130105516;z</a></p>,<p>_______________________________________________<br />Spf-dev mailing list<br /><a href="mailto:Sp...@li...">Sp...@li...</a><br /><a href="https://lists.sourceforge.net/lists/listinfo/spf-dev">https://lists.sourceforge.net/lists/listinfo/spf-dev</a></p></blockquote>

[Spf-dev] Деление с точкой

[витя е. <vi...@ma...>]

Необходимо получить результат от деления двух целых чисел в виде двойного числа
10 0 d>f
3  0  d>f
f/
f>d
 выдаёт 3 0, а не 3 333...



-- 
Виктор Ерыгин

[Spf-dev] forth на asm D + консоль для него на QtE5

[Мохов Г. <mg...@ya...>]

Консоль для управления forthD. Этакая заявка на IDE.

https://yadi.sk/d/sFSsybY1qs68J

В архиве все необходимое для запуска в Windows 32.
Файлов много, т.к. содержит RunTime для Qt-5 для 32 разрядов.

MGW
Мохов Геннадий

Re: [Spf-dev] Компиляция строк в код

[Ruvim P. <ruv...@gm...>]

2016-04-09 16:51 GMT+03:00 Ruvim Pinka <ruv...@gm...>:
[...]


> Или даже, с поддержкой других парных символов:
>
> \ REQUIRE PARSE-S$ http://forth.sourceforge.net/word/s-dollar/index.htm
> <http://forth.sourceforge.net/word/s-dollar/index.html>
>

Есть в штатном репозитории:

REQUIRE PARSE-S$ ~pinka/samples/2005/lib/s-dollar.f


> : [S] ?COMP PARSE-S$ SLIT, ; IMMEDIATE
> : TEST [S] 'MIXER' [S] {QWERTY} ;
>
> Впрочем, там уже определено и слово *S$* со сходной семантикой,
> работающее и в режиме исполнения.
>
>

--
Ruvim