Структуры в spf

Pretorian

Структуры в SPF создаются через слово -- (оно же FIELD). Пример:

0
CHAR -- flag
CELL -- field
10 CELLS -- arr
CONSTANT struct

Слова flag, field и arr будут прибавлять к адресу своё смещение относительно начала структуры. А в struct записан общий размер всей структуры. То есть, можно:

struct ALLOCATE THROW TO s \ взяли память из кучи под один экземпляр struct
1 s flag С! 10 s field ! \ записали значения в поля структуры
s arr 10 CELLS DUMP \ вывели содержимое массива в структуре
s FREE THROW \ сняли экземпляр struct

Вот на этой строке forth уже начинает ругаться:
struct ALLOCATE THROW TO s \ взяли память из кучи под один экземпляр struct
Так как же делать структуры в forth?

profiT

Переменной такой нет под названием s , видимо:

Код:

0 VALUE s

struct ALLOCATE THROW TO s \ взяли память из кучи под один экземпляр struct 
1 s flag С! 10 s field ! \ записали значения в поля структуры 
s arr 10 CELLS DUMP \ вывели содержимое массива в структуре 
s FREE THROW \ сняли экземпляр struct

Видимо, мне это показалось очевидным. Надо исправить пример в intro.

Pretorian

Если не сложно то можно пример описания вот такой структуры (впринципе сам как бы смогу если подскажете какими словами определить байт и слово, толкать в стек числа не хочется, может есть слова?)
(fasm)
struc console
{
.sizex dw ? ;(0) размер экранного буфера консоли
.sizey dw ?
.x dw ? ;(4) координаты курсора
.y dw ?
.color dw ? ;(8) атрибуты символа под курсором
.left dw ? ;(10) размер буфера консоли
.top dw ?
.right dw ?
.bottom dw ?
.xmax dw ? ;(18) максимальная длинна буфера консоли
.ymax dw ?
.handle dd ? ;(22) handle консоли
.handin dd ? ;(26) handle консоли
.tcolor dd 7 ;(30) текущие цвета консоли
.chars dd ? ;(34) число введенных символов
.buf db 0 ;(38) длинна буфера для ввода
times 255 db ? ;текст ввода
}

P.S. Пример я думаю будет полезен тем кто еще плохо знает язык, но все же интересуется им.

Pretorian

Пока у меня получилось вот так (последний буфер не нужен, т.к. у форта есть свой буфер):
2 -- sizex \ размер экранного буфера консоли
2 -- sizey
2 -- x \ координаты курсора
2 -- y
2 -- color \ атрибуты символа под курсором
2 -- left \ размер буфера консоли
2 -- top
2 -- right
2 -- bottom
2 -- xmax \ максимальная длина буфера консоли
2 -- ymax
CELL -- hout \ handle вывода
CELL -- hin \ handle ввода
CELL -- tcolor \ текущие цвета консоли

CONSTANT con
0 VALUE console
con ALLOCATE THROW TO console
7 console tcolor !
console FREE THROW

только почему то исчерпание стека идет

profiT

Цитата:

если подскажете какими словами определить байт и слово, толкать в стек числа не хочется, может есть слова

Цитата:

Код:

0 
CHAR -- flag 
CELL -- field 
10 CELLS -- arr 
CONSTANT struct

CHAR , CELL . Хотя надо чётко различать CHAR (символ) и 1 (байт). В общем случае проще писать 1. Это уже было обсуждено. Про CHARS и CELLS тоже надо знать.

Цитата:

только почему то исчерпание стека идет

Цитата:

Код:

0 
CHAR -- flag 
CELL -- field 
10 CELLS -- arr 
CONSTANT struct

0 вначале поставь.

Pretorian

Сегодня CHAR 1 байт, завтра 2 (unicode), как бы не хотелось его использовать.

mOleg

Pretorian писал(а):

Сегодня CHAR 1 байт, завтра 2 (unicode), как бы не хотелось его использовать.

тут есть противный момент, дело в том, что CHAR - это не константа, определяющая длинну символа
а слово выгребающее из входного потока очередное слово и берущее значение первого символа из полученного слова. То есть CHAR -- выдаст сисло, ассоциируемое с символом'-' в текущей кодовой таблице.
К сожалению эту гадость подсовывает стандарт 94. Так что единственный портабельный вариант пока что должен выглядеть так: 1 CHARS --

profiT

Цитата:

...дело в том, что CHAR - это не константа, определяющая длинну символа...

Тьфу, забыл..

mOleg

profiT писал(а):

Цитата:
...дело в том, что CHAR - это не константа, определяющая длинну символа...

Тьфу, забыл..

Я с этой проблемой уже несколько раз сталкивался.
В СМАЛ32 более логичное слово CHAR"
а в стандарте видимо провели параллель с WORDом и получилась такая вот путаница 8(

yz

Еще вариант: http://www.forth.org.ru/~yz/record.html

mOleg

yz писал(а):

Еще вариант: http://www.forth.org.ru/~yz/record.html

ну уж тогда еще и http://spf.cvs.sourceforge.net/spf/deve ... ib/struct/

dir

А что насчёт массива структур? Можно это как-нибудь просто и удобно сделать?

profiT

dir писал(а):

А что насчёт массива структур?

Именно массив структур?..

Если именно массив структур, то ничего хоть сколько-нибудь сложного не вижу:

Код:

0
CELL -- x
CELL -- y
CONSTANT points

0 VALUE pArr \ наш будущий массив точек

20 points * \ 20 точек
ALLOCATE THROW ( addr ) TO pArr \ взяли массив

: points[] ( i addr1 -- addr2 ) SWAP point * + ;

   5 pArr points[] x @ \ x-координата пятой точки
13 5 pArr points[] y ! \ y-координату пятой точки ставим на 13

Не массив в структуре?.. С этим сложнее, но как раз недавно ковырял эти вопросы.. Что-то получалось..

seu

А обращаться в структуре к отдельным битам можно? Навроде вот этого?

Код:

typedef struct SDL_VideoInfo {
        Uint32 hw_available :1; /* Flag: Can you create hardware surfaces? */
        Uint32 wm_available :1; /* Flag: Can you talk to a window manager? */
        Uint32 UnusedBits1  :6;
        Uint32 UnusedBits2  :1;
        Uint32 blit_hw      :1; /* Flag: Accelerated blits HW --> HW */
        Uint32 blit_hw_CC   :1; /* Flag: Accelerated blits with Colorkey */
        Uint32 blit_hw_A    :1; /* Flag: Accelerated blits with Alpha */
        Uint32 blit_sw      :1; /* Flag: Accelerated blits SW --> HW */
        Uint32 blit_sw_CC   :1; /* Flag: Accelerated blits with Colorkey */
        Uint32 blit_sw_A    :1; /* Flag: Accelerated blits with Alpha */
        Uint32 blit_fill    :1; /* Flag: Accelerated color fill */
        Uint32 UnusedBits3  :16;
        Uint32 video_mem;       /* The total amount of video memory (in K) */
        SDL_PixelFormat *vfmt;  /* Value: The format of the video surface */
        int    current_w;       /* Value: The current video mode width */
        int    current_h;       /* Value: The current video mode height */
} SDL_VideoInfo;

Kopa

Создайте, в рамках Форт языка,
нужную Вам структуру с требуемыми возможностями семантики и синтаксиса!

Структуры в spf

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