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

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 16 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: Пт янв 02, 2009 15:46 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1261
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
И вот еще троица на основе DEFED - позволяют определять переменные "пачками":
Код:
: VARS
  PARSE
  BEGIN DUP C@
    0x5C OVER = OVER 0x2F = OR    \ Комментарий?
      IF DROP 0 [COMPILE] \ THEN
  WHILE
    DEFED HERE LIT, [COMPILE] ; 1 CELLS ALLOT
    PARSE
  REPEAT
  DROP
;

: QUANS
  PARSE
  BEGIN DUP C@
    0x5C OVER = OVER 0x2F = OR    \ Комментарий?
      IF DROP 0 [COMPILE] \ THEN
  WHILE
   DEFED 0 LIT, [COMPILE] ;
   PARSE
  REPEAT
  DROP
;

: FVARS
  PARSE
  BEGIN DUP C@
    0x5C OVER = OVER 0x2F = OR    \ Комментарий?
      IF DROP 0 [COMPILE] \ THEN
  WHILE
    DEFED HERE LIT, [COMPILE] ; 1 FLOATS ALLOT
    PARSE
  REPEAT
  DROP
;

Соответственно:
Код:
VARS var1 var2 var3 varN   \ VARIABLE-переменные
QUANS quan1 quan2 quan3 quanN   \ QUAN-переменные
FVARS float1 float2 float3 floatN  // FLOAT-переменные

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 16 ]  На страницу Пред.  1, 2

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


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

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


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

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