(Untitled)

[kincajou]

Развёрнутый сишный макрос для псевдо-лисп выражения CADDR(proto):

(((((((((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr) == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[(((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr)].container.cdr) == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[((((((proto == (uclptr_t)~0))?(

Comments

[valenock]

Со всевозможными праздниками! Если ты есть в фейсбуке - дай координаты

[kincajou]

Меня там нет, пардон.

[qlman]

А это точно не для того чтобы дьявола вызвать? :)

[kincajou]

только если cyberdemon

[psilogic]

это такой хитрый способ чтобы года череp 3 в собственном коде не разобраться :))

[kincajou]

Нет, разумеется. Это развёрнутый макрос - то, во что он превращается после препроцессора. А дщо этого он вполне безобиден.

[psilogic]

препроцессор тут напрашивается, да

или инлайны

[kincajou]

Нет, это именно результат работы препроцессора.
Все ссылки - это просто индексы в массиве, эта идея в самом деле оказалась удобна.
Поэтому, если lst это список и я хочу получить его первый элемент, ( в лиспе это (car lst)), то пишу макрос CAR(lst), а он разворачивается в
(((lst == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[lst].container.car)

Выражение, выделенное болдом - (uclptr_t)~0 - это просто запись константы NIL. Остальное тривиально: если lst это NIL, то возвращаем NIL, в ином случае смотрим в массив m->uclmem по индексу lst, и достаём значение из поля .car структуры .container :)

[handed_n]

и это только первая строчка!

[kincajou]

строчек уже на много десятков килобайт кода. Немного, но я только начал.

[handed_n]

это старый прикол с баша)
типа:

-я тут скрипт написал который там чота делает. (строка хаотичных символов на пол экрана)
-....
-И это только первая строка!
-!!!!???!!!