nedoPC.org

Electronics hobbyists community established in 2002
Atom Feed | View unanswered posts | View active topics It is currently 28 Mar 2024 07:33



Reply to topic  [ 49 posts ]  Go to page Previous  1, 2, 3, 4  Next
Язык FORTH 
Author Message
Senior

Joined: 12 Jan 2023 07:26
Posts: 165
Reply with quote
Lavr wrote:
Не извиняю ни в коей мере ибо читаю чистую демагогию. :-? .

Ok, имеете прво и не мне Вас в чём то переубежлать.

Lavr wrote:
Вот конкретная задача есть для этого топика:
http://www.nedopc.org/forum/viewtopic.php?p=168068#p168068
Топик, как видите, посетителям форума вполне интересен..

Мне вот, этот посыл не очевиден при ссылке на свой же созданный топик.
Есть ли сторонние реализации идей из обсуждения в топике?

Lavr wrote:
Задача: записать в массив заданного размера черно-белый bmp-файл размером 256х256 точек
побайтно с условием: 32 байта пишем 16 байт пропускаем и так до конца массива.

Я такие утилитки обычно пишу за 5 минут ибо есть готовые шаблоны у меня, но тут Винда 7 внесла
неприятные коррективы... :-? .

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

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


08 Feb 2023 08:56
Profile
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
forthuser wrote:
Lavr wrote:
Не извиняю ни в коей мере ибо читаю чистую демагогию. :-? .

Ok, имеете прво и не мне Вас в чём то переубежлать.

Lavr wrote:
Вот конкретная задача есть для этого топика:
http://www.nedopc.org/forum/viewtopic.php?p=168068#p168068
Топик, как видите, посетителям форума вполне интересен..

Мне вот, этот посыл не очевиден при ссылке на свой же созданный топик.
Есть ли сторонние реализации идей из обсуждения в топике?

Вы, видимо, действительно "пейсатель", а читать не научились... :-?

Я ни к чему не принуждал, к примеру, вот этого человека:
Lavr wrote:
Pavtik wrote:
Код вроде простой, но почему так происходит не могу понять. Надо бы это дело переписать по своему.
Это очень полезное дело будет, если Вы этот вопрос одолеете!
Исходник не раз правили и переписывали, но всё равно она у кого-то да падает, а у кого-то и совсем не запускается...

И я знаю, что он сделает, потому что может.

А вас просишь конкретную вещь помочь сделать, а вы начинаете словами юлить как ужик на сковородке... :-?
Грош цена тогда всей этой писанине про Форт с кучей ссылок куда-то... :osad:

_________________
iLavr


08 Feb 2023 09:14
Profile
Senior

Joined: 12 Jan 2023 07:26
Posts: 165
Reply with quote
Lavr wrote:
А вас просишь конкретную вещь помочь сделать, а вы начинаете словами юлить как ужик на сковородке... :-?
Грош цена тогда всей этой писанине про Форт с кучей ссылок куда-то... :osad:

О какой конкретной вещи речь идёт?
Сделать аналог программы Proteus с симуляцией TV модуля? :)


09 Feb 2023 10:13
Profile
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
forthuser wrote:
О какой конкретной вещи речь идёт?
Сделать аналог программы Proteus с симуляцией TV модуля? :)

Ну, это вы явно сделать не сможете... а конкретно о какой вещи идёт речь, я вам ранее четко написал:
Lavr wrote:
Задача: записать в массив заданного размера черно-белый bmp-файл размером 256х256 точек
побайтно с условием: 32 байта пишем 16 байт пропускаем и так до конца массива.

_________________
iLavr


09 Feb 2023 10:53
Profile
Fanat

Joined: 01 Jan 2023 11:37
Posts: 80
Reply with quote
Описание задачи непонятно. Но я бы например sed взял, к примеру, вот так:.
Code:
head -c 64k /dev/urandom | xxd -p -c 32 | sed "$(echo s/\$/ {0,0,0,0}{0,0,0,0} /)" | xxd -p -r > file.bin


Поскольку bmp-файла у меня нет. вместо него взял /dev/urandom. Можно вместо head -c 64k /dev/urandom воткнуть команду которая отрезает заголовок у bmp-файла, но я не хочу погружаться в тонкости этого формата, так что сам.

Но вообще, во-первых формат bmp мне не нравится, поскольку он слишком сложный. Гораздо лучше взять формат из серии pbm, ppm, pnm применяемый в пакете netpbm, поскольку в формте bmp слишком много заморочек. А bmp пора на свалку истории — есть png который сжатый, а есть pbm который не сжатый. А bmp пытается делать и то и то и получается плохо.

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


11 Feb 2023 07:27
Profile
Senior

Joined: 12 Jan 2023 07:26
Posts: 165
Reply with quote
Andnor wrote:
Но вообще, во-первых формат bmp мне не нравится, поскольку он слишком сложный.

Ничего в нём сложного нет и на Forth с ним можно поработать
Как пример в приложенном файле.

Andnor wrote:
Гораздо лучше взять формат из серии pbm, ppm, pnm

Куча всквозможного кода по обработке bmp (ppm) на площадке https://rosettacode.org,

P.S. Не вижу ничего сложного в реализации этой программной утилиты, но лень пока побеждает для сего действа. :)


Attachments:
chuck.pdf [315.56 KiB]
Downloaded 99 times
11 Feb 2023 07:57
Profile
Fanat

Joined: 01 Jan 2023 11:37
Posts: 80
Reply with quote
forthuser wrote:
P.S. Не вижу ничего сложного в реализации этой программной утилиты, но лень пока побеждает для сего действа. :)

Если тебе лень — это значит, что сложно. Было бы просто, тебе было бы проще взять и написать код, чем это сообщение. Вот на bash+coreutils это действительно просто — видишь, я прямо сходу написал команду, которая делает нужное.

Quote:
Ничего в нём сложного нет и на Forth с ним можно поработать

Всё равно bmp сложнее чем pbm из-за зоопарка версий и субформатов, но при этом ничего полезного не добавляет, чего в более простых форматах нет.


11 Feb 2023 08:34
Profile
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
Andnor wrote:
А bmp пора на свалку истории...

Складывается у меня такое впечатление, что не *.bmp пора на свалку истории, а некоторым
досужим болтунам, которым, как плохому танцору, то то мешает... то это... :wink:

_________________
iLavr


12 Feb 2023 13:09
Profile
Maniac

Joined: 21 Jan 2003 04:08
Posts: 222
Reply with quote
Нашел в своих архивах, считанных когда-то с кассет, версии Форт-ЛГУ для РК86, Микроши и Партнера. В моих архивах из интернета вроде бы нет этих версий. Не очень следил за обсуждением, это актуальный софт, выложить куда-нибудь? Или это уже и так доступно где-то?

_________________
Эмулятор Emu80


15 Feb 2023 13:10
Profile ICQ WWW
Admin
User avatar

Joined: 08 Jan 2003 23:22
Posts: 22409
Location: Silicon Valley
Reply with quote
Ну выкладывай конечно :)
Можно прям сюда прицепить

_________________
:dj: https://mastodon.social/@Shaos


15 Feb 2023 13:18
Profile WWW
Maniac

Joined: 21 Jan 2003 04:08
Posts: 222
Reply with quote
Файлы датированы 99 годом, когда были прочитаны с кассет. Почему-то я в свое время не выложил их на сайт вместе с остальным считанным софтом.

P.S. если ошибся веткой, можно переместить в более подходящее место...


Attachments:
forthlgu.zip [19.34 KiB]
Downloaded 99 times

_________________
Эмулятор Emu80
15 Feb 2023 14:16
Profile ICQ WWW
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
Pyk wrote:
Нашел в своих архивах, считанных когда-то с кассет, версии Форт-ЛГУ для РК86, Микроши и Партнера. В моих архивах из интернета вроде бы нет этих версий. Не очень следил за обсуждением, это актуальный софт, выложить куда-нибудь? Или это уже и так доступно где-то?

Когда мне понадобились Форт-ы, я у тебя их всех и скачал...
Они в твоих архивах все есть!

_________________
iLavr


17 Feb 2023 00:12
Profile
Maniac

Joined: 21 Jan 2003 04:08
Posts: 222
Reply with quote
Lavr wrote:
Когда мне понадобились Форт-ы, я у тебя их всех и скачал...
Они в твоих архивах все есть!

Специально посмотрел сейчас все 4 архива с системными программами. Может быть, я тебе что-то присылал в индивидуальном порядке, но в архивах на сайте их нет!

_________________
Эмулятор Emu80


17 Feb 2023 02:08
Profile ICQ WWW
Supreme God
User avatar

Joined: 21 Oct 2009 08:08
Posts: 7777
Location: Россия
Reply with quote
Pyk wrote:
Lavr wrote:
Когда мне понадобились Форт-ы, я у тебя их всех и скачал...
Они в твоих архивах все есть!

Специально посмотрел сейчас все 4 архива с системными программами. Может быть, я тебе что-то присылал в индивидуальном порядке, но в архивах на сайте их нет!

Странно... я просто скачивал у тебя архивы программ к разным компам и перебирал их...
Вот посмотри - это Форты из твоих архивов: http://www.nedopc.org/forum/viewtopic.php?p=154442#p154442
В нынешнее время просто не разбежишься где-то ещё найти эти старые Форты.
А пишу я "со своего диска" потому что скачал я тогда почти все архивы "Микроши", "РК-86", "Специалиста" и т.п.,
и вынул из них файлы с текстовым описанием, чтобы легче что-то искать было.

В старых программах порой бывают забавные вещи: к примеру игра "Cross-Fire" - там интересный
генератор шума был - он в качестве "шума" использовал код самой программы... :wink:

P.S. Вряд ли я взял Форты с такими вот расширениями в каком-то другом месте: :ebiggrin:
Lavr wrote:
FORTH.RKS ~ 12 КБайт, FORTH.RKI ~ 16 КБайт, FORTH.RKR ~ 17 КБайт

_________________
iLavr


17 Feb 2023 10:41
Profile
Maniac

Joined: 21 Jan 2003 04:08
Posts: 222
Reply with quote
Lavr wrote:
Вот посмотри - это Форты из твоих архивов

Ну да, ты только подтверждаешь мои слова - именно этих версий там нет. Форт-ЛГУ был только для Специалиста, а для РК была версия ЛС-Форт.
А выше я выложил Форт-ЛГУ для РК. причем это другая версия, чуть боле ранняя, чем версия для Специалиста.

Другое дело, что ЛС-Форт вроде бы тоже на версии ЛГУ основан, но тут я уже не помню подробности... Даже не помню, какой версией сам пользовался, когда писал на форте (давно же это было...)

А фичу с рандомом в Cross-Fire помню. Кстати, версий Cross-Fire было как минимум 2, причем это была перекомпиляция, а не правка бинарника, так как код был смещен в памяти. Визуально вроде бы ничем не отличались, может быть какие-то баги были пофиксены...

Кстати, что за расширение - RKI? У меня такого точно не было...

_________________
Эмулятор Emu80


17 Feb 2023 13:04
Profile ICQ WWW
Display posts from previous:  Sort by  
Reply to topic   [ 49 posts ]  Go to page Previous  1, 2, 3, 4  Next

Who is online

Users browsing this forum: No registered users and 21 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group
Designed by ST Software.