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

...
Google Search
Forth-FAQ Spy Grafic

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




Ответить
Имя пользователя:
Заголовок:
Текст сообщения:
Введите текст вашего сообщения. Длина сообщения в символах не более: 60000

Размер шрифта:
Цвет шрифта
Настройки:
BBCode ВКЛЮЧЕН
[img] ВЫКЛЮЧЕН
[flash] ВЫКЛЮЧЕН
[url] ВКЛЮЧЕН
Смайлики ВЫКЛЮЧЕНЫ
Отключить в этом сообщении BBCode
Не преобразовывать адреса URL в ссылки
Вопрос
Теперь гостю придется вводить здесь пароль. Не от своей учетной записи, а ПАРОЛЬ ДЛЯ ГОСТЯ, получить который можно после регистрации на форуме через ЛС.:
Этот вопрос предназначен для выявления и предотвращения автоматических регистраций.
   

Обзор темы - перечисления
Автор Сообщение
  Заголовок сообщения:  перечисления  Ответить с цитатой
вот, маленько понадобилось.
source file: enum.fts
\ 15.09.2012 m0leg
\ перечисления

vocs/ struct.fts

ALSO HIDDEN UNITS DEFINITIONS

\ завершение перечисления
: ;ENUM TDROP RECENT ;

\ создание очередного элемента перечисления
: :elem ( u asc # --> u ) THRID >L (F) L> LIT, [COMPILE] ;F IMMEDIATE 1 + ;

\ начать перечисление, определить его в словарь NAME
: ENUM: ( / NAME a b .. ;ENUM --> )
0 Unit:
BEGIN
NEXT-WORD DDUP WHERE SEARCH-NAME LFA ;ENUM <> WHILE
DDUP s" \\" COMPARE
IFNOT DDROP [COMPILE] \
ELSE :elem
THEN
REPEAT ;ENUM
;

UNDER DEFINITIONS
ALIAS ENUM: ENUM:
UNDER PREVIOUS

?ABSENT test{ \EOF -- тестовая секция ------------------------------------------
test{
DEPTH >L ENUM: ENUMS a b c d e f ;ENUM DEPTH L> <> THROW
ENUMS c 2 <> THROW ENUMS b 1 <> THROW ENUMS e 4 <> THROW
ENUM: DIGITS
zero
one
two
three
four
five
six
seven
eight
nine
;ENUM

DIGITS four 4 <> THROW
}test
Сообщение Добавлено: Вт сен 18, 2012 18:35

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


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