Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Вт мар 19, 2024 15:22

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 536 ]  На страницу Пред.  1 ... 28, 29, 30, 31, 32, 33, 34 ... 36  След.
Автор Сообщение
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 11:54 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:54, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 14:45 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
mOleg писал(а):
_KROL писал(а):
но я так и не понял, должно ли пропускать в начале символы WORD или нет

у меня так:
Код:
\ получить очередную лексему √
: LEXEME ( src --> asc # ) DUP MissSeparators PassLexeme ;

\ взять очередную лексему из входного потока √
: NextWord ( --> asc # ) system_buff LEXEME  system_buff MissOne ;


надеюсь понятно.
Я имел ввиду
F94 писал(а):
6.1.2450 WORD CORE
( char "<chars>ccc<char>" -- c-addr )
Пропускает ведущие разделители. Выделяет символы ccc ограниченные
char. Неопределенная ситуация существует, если длина выделенной
строки больше чем длина определенной реализацией строки со
счетчиком.

c-addr - адрес временной области, содержащей выделенное слово как
строку со счетчиком. Если область анализа была пуста или не
содержала других символов кроме разделителей, результирующая строка
имеет нулевую длину. За строкой следует не включенный в длину
пробел. Программа может изменять символы в пределах строки.

Примечание: Требование, о следовании пробела за строкой устаревшее и
включено как уступка существующим программам, которые используют
CONVERT. Программа не должна зависеть от существования пробела.
ну да ладно, сделаю так, как там написано.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 14:47 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:55, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:12 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
gudleifr писал(а):
_KROL писал(а):
ну да ладно, сделаю так, как там написано.
А на FORTH-форуме слабо прочитать?
Т.е. у тебя? :wink: Хорошо, поищу


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:28 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Есть предложение
:arrow: : (WORD) ( xt ch -- addr sz ) \ аналог NextWord, но принимает ещё адрес функции проверки на разделитель
: ' ( -- xt flag ) ' <= BL (WORD) ?DUP -IF FALSE EXIT THEN FIND ;
: WORD ( ch -- addr sz ) ' = SWAP (WORD) ;
:arrow: Ну а если ' будет в INTERPRET, то может имеет смысл расширит семантику так?
: ' ( -- xt sz_flags \ addr sz false ) ... ; \ если оно ничего не находит, то возвращается ещё и адрес+счётчик выделенной строки


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:33 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:55, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:36 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Цитата:
Ваша первая задача - написать хоть что-то работающее.

Ну уж нет! Я уже что-то работающее писал, хотелось бы разобраться с некоторыми смущающими моментами.
Цитата:
Понять, чем это лучше/хуже не-FORTH способа достижения этой же цели.
Какой цели? (про разработку классической ОС я передумал) Я хочу сделать хорошую основу ("однятся на новый уровень", как сказал Ethereal), а далее уже развивать систему как мне захочется.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:40 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:55, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:44 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Но вот как-раз вот эти смущающие моменты (реализация файлового/блочного в/в, к примеру) и не дают придумать куда его применить)) (отвлекают, как минимум)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 15:55 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:56, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 16:02 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Какого, для Pascal что-ли? :D Помню меня мой один товарищ попросил показать, как написать программу, в алгоритме которой (это пример, точно сейчас не помню) вводилось два числа и выводилась их сумма. Это конечно легко, но что если надо эту программу скомпилировать отдельно от системы, т.е. числа будет принимать (заносить в стек) не главный цикл системы, а само слово?


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 16:08 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:56, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 16:57 
<Потерто по справедливому замечанию Victor__v>


Последний раз редактировалось gudleifr Сб янв 27, 2018 14:56, всего редактировалось 1 раз.

Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 17:03 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Я с преподами ещё на это тему серьёзно не говорил. Уже несолько лет (за исключением последних нескольких месяцев прошлого года: филсофствование и кривые проекты не считается) пока это лишь моя самодеятельность)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт янв 25, 2018 17:55 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1285
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
_KROL
допиши свой форт сделай так, чтобы в нём багов не было.
А уж потом мы и парсинг, оптимизацию, логику ( нужное выбрать ) обсудим

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 536 ]  На страницу Пред.  1 ... 28, 29, 30, 31, 32, 33, 34 ... 36  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB