[LastGraff]

Нашел, что в LISPе можно использовать свои классы и создаются они вроде так:

Код:

[Выделить все]

 (defclass AClass ()
  ( 
    (foo :initform 2) 
    (bar :initarg :bar)
  )
)
(setf lobj (make-instance 'AClass :bar 4))
(lobj 'foo) ;; reads slot -> 2
(lobj 'bar) ;; reads slot -> 4
(lobj 'bar 6) ;; sets slot -> 6

но результат -
;ошибка: no function definition: BAR

Может кто-то знает другой способ создания класса?

[ShaggyDoc]

Нашел, что в LISPе можно использовать свои классы

Это не в том LISP, который имеется в AutoCAD - здесь достаточно примитивный диалект.

А вообще "классы" и прочее связанное с объектно-ориентированным программированием чисто функциональному языку и не нужны. На мой взгляд. Просто лишняя трата ресурсов. Наслушавшись "доцентов с кандидатами" слишком многие непременно хотят "объекты", там, где можно обойтись простыми средствами (и не только в LISP). Горе от ума, называется.

Хотя, если "очень хочется, то можно". Надо "только" написать свои расширения.

Например, функции defclass, make-instance и т.п. Но в любом случае "функции класса", т.е. реализацию методов и установку свойств надо самому писать. Если какая-то функция не определена, то в любом диалекте будет сообщение наподобие "no function definition: BAR". Кто эту функцию будет описывать, И.Ф. Крузенштерн, что ли? А сообщение именно об ней, потому что её вызов первым встретился.

[LastGraff]

Спасибо, значит мои сомнения подтвердились.

[Дима_]

Сообщение от ShaggyDoc А вообще "классы" и прочее связанное с объектно-ориентированным программированием чисто функциональному языку и не нужны.

полностью поддерживаю - но есть одно но - в автолиспе нету замыканий - и как следствие нельзя реализовать структуры по логике схожие с объектами (при желании конечно можно - парсингом списка symbol'ов - но сильно геморно). Хотя конечно классы в лиспе (функциональных языках) могут понадобятся либо для совместимости с классо-ориентированными языками, либо от незнания лиспа.

[LastGraff]

Сообщение от Дима_ Хотя конечно классы в лиспе (функциональных языках) могут понадобятся либо для совместимости с классо-ориентированными языками, либо от незнания лиспа.

Мне ближе вторая причина)

[Олег (jr.)]

Сообщение от ShaggyDoc А вообще "классы" и прочее связанное с объектно-ориентированным программированием чисто функциональному языку и не нужны. На мой взгляд. Просто лишняя трата ресурсов. Наслушавшись "доцентов с кандидатами" слишком многие непременно хотят "объекты", там, где можно обойтись простыми средствами (и не только в LISP). Горе от ума, называется.

Согласен абсолютно - на фига в функциональном языке это надо?

[gomer]

нафига классы вообще нужны... ими же вообще никто не пользуется

[ShaggyDoc]

Сообщение от gomer нафига классы вообще нужны... ими же вообще никто не пользуется

Очень даже нужны. И очень даже пользуются. Но надо с умом, на любом языке.

А в AutoLISP - действительно "нафига". Хотя и здесь мы же пользуемся объектной моделью и, соответственно, классами. Только в виде vla-функций, которые где-то внутри потрохов AutoCAD обращаются к свойствам и методам.

[LastGraff]

Тогда может подскажете как создать динамически список, если у меня в переменной содержится его будущее имя в текстовом формате?

[gomer]

Сообщение от ShaggyDoc очень даже пользуются

Агоа, чтоб нифига не делать вообще, в системах RAD
список создается просто:

Код:

[Выделить все]

 (setq lst '())

ну, и далее используя (cons atom lst) с reverse или (append lst (list atm)) (append lst1 lst2)
для коротких списков просто (list atm1 atm2 ... atmn)

[LastGraff]

Это понятно, но вот в чем проблема (особенно для человека который всегда программировал с использованием классов) у меня есть имя будущего списка в переменной A

Код:

[Выделить все]

 (setq A "list1")

и мне не надо создавать список с именем A, мне надо с именем list1
А имена берутся из БД по запросу и вытягиваются из XML, поэтому даже их количество неизвестно... Известно только что дублирования нет...
Следовательно конструкция

Код:

[Выделить все]

 (setq A '())

не подходит совсем

[Capiton]

Код:

[Выделить все]

 (setq A  "list1" ) 
(set (read A) '( 1 2 3))

[LastGraff]

Спасибо, а как потом узнать, что именно в нем записано?

[Capiton]

Не вполне понятен смысл вопроса. Кому и для чего узнать?
возможно:

Код:

[Выделить все]

 (vl-symbol-value (read A))

LISP и так знает, если нужно Вам в процессе отладки - стандартные средства редактора вам в помощь(ПКМ+"изучить", например). А может пользователю нужно узнать?

[LastGraff]

Суть такая:
читается XML где указаны типы объектов и их координаты. Средствами лиспа делаем примитивы в автокаде... если происходит изменение одного из примитивов (перемещение) то лисп должен высылать сообщение на сервер, что внесены коррективы. Проблема в том, что я работал раньше с ООП и лисп для меня несколько непонятен. Я бы просто сделал на каждый примитив элемент собственного класса и отслеживал бы его свойства и методы. А как это реализовать функционально пока не знаю...

[Capiton]

Не.. Это Вам не ко мне, а к гуру местным. С ООП у меня не очень, а с XML вообще никак. По тем крохам опыта, что у меня есть могу сказать, что для отслеживания событий служат реакторы, но работают они, в общем случае, коряво(хотя только для перемещения может и сгодятся). А еще создаётся впечатление, что к примитивам автокада Вы относите не только те объекты, которые действительно являются примитивами(зачем отслеживать перемещения примитивов, например отрезков, я себе не представляю). Возможно среда ObjectARX Вам лучше подойдёт, чем лисп. Там как раз полное ООП

P.S. Собираюсь начать разбираться с XML. Буду признателен, если вышлите какие-нибудь материалы по языку, (на правах "спасибо" или просто так). Адрес
capiton@yandex.ru

[Кулик Алексей aka kpblc]

По xml или по работе с xml из-под Lisp'a? Если второе, то, например, http://kpblc.blogspot.com/2009/11/lisp-xml.html и http://kpblc.blogspot.com/2009/11/lisp-xml-2.html

[Capiton]

Спасибо.

[LastGraff]

Сообщение от Capiton (зачем отслеживать перемещения примитивов, например отрезков, я себе не представляю

в том то и дело, что отрезков

Сообщение от Кулик Алексей aka kpblc По xml или по работе с xml из-под Lisp'a? Если второе, то, например, http://kpblc.blogspot.com/2009/11/lisp-xml.html и http://kpblc.blogspot.com/2009/11/lisp-xml-2.html

я как раз с помощью этого и разобрался с XML теперь бьюсь с остальным)

[Дима_]

Сообщение от LastGraff Суть такая: читается XML где указаны типы объектов и их координаты. Средствами лиспа делаем примитивы в автокаде... если происходит изменение одного из примитивов (перемещение) то лисп должен высылать сообщение на сервер, что внесены коррективы. Проблема в том, что я работал раньше с ООП и лисп для меня несколько непонятен. Я бы просто сделал на каждый примитив элемент собственного класса и отслеживал бы его свойства и методы. А как это реализовать функционально пока не знаю...

1. Повесить либо один общий реактор на изменение документа, либо на каждый элемент в отдельности (если под каждый примитив надо генерировать отдельную функцию - без замыканих (которых нет в автолиспе) - то это геморно - я бы в большинстве случаев предпочел "общий" вариант - но в зависимости от предполагаемого использования). Данные о нахождении данных хранить либо в расширенных данных самого примитива (ИХМО - более предпочтительный вариант) - либо создавать отдельный список в памяти, либо "расширять" xml на "поле" имени примитива (как вариант можно рассмотреть подходит ли вариант индексации примитивов по сохраняемым признакам - тогда вобще никакие доп. данные не нужны - функция сама определит какую "nod'у" в XML изменить по состоянию до и после изменения).