[DFooz]

Сущ-ют ли функции для работы с именем переменной?
Напр., есть имя "Func_1". Можно ли как-то выцепить единичку из имени?

[Клякса]

Почти уверен, что нет. А почему не ввести новую переменную?

[Makswell]

Программы с самомодифицирующемся кодом...
Ходят слухи что на лиспе это возможно, хотя может это просто слухи...

[Alaspher]

Сообщение от DFooz Сущ-ют ли функции для работы с именем переменной? Напр., есть имя "Func_1". Можно ли как-то выцепить единичку из имени?

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

Код:

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

(setq func_1    '(1 2 3 4)
      tmp       'func_1
      func_name (vl-symbol-name tmp)
      base_name (vl-string-right-trim "0123456789" func_name)
      digital   (atoi (substr func_name (1+ (strlen base_name))))
)
(set (read (strcat base_name (itoa (1+ digital)))) func_1)
(setq func_1 nil)

Сообщение от Makswell Программы с самомодифицирующемся кодом... Ходят слухи что на лиспе это возможно, хотя может это просто слухи...

Самомодификация это совсем другое. На ЛИСПе, действительно реализуется достаточно несложно, другое дело, что задач, где это можно применить с пользой, практически нет.

[DFooz]

Не очень понятно, зачем,

я делаю форматки и хотелось бы в функцию пересылать часть имени переменной (из А1 - 1, из А2 - 2). Просто, чтобы не писать всё время разные параметры пересылки(1, 2), а иметь эту функцию, саму выделяющую часть имени файла.

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

А если просто назначать значение переменной и его передавать в функцию? Что мешает?

[DFooz]

длина кода увеличится. Сущ-ют функции eval, apply, вот я и подумал, может вдруг есть и такая функция.

Всем большое спасибо.

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

Да ну?? Быть того не могет! Может, логику кода надо пересмотреть?

[DFooz]

Быть того не могет!

В моём случае может.

Может, логику кода надо пересмотреть?

Может. Если кто предложит свой вариант на ЛИСПе будет интересно посмотреть.

[Авдотья Прасковьевна]

Сообщение от DFooz Быть того не могет! В моём случае может. Может, логику кода надо пересмотреть? Может. Если кто предложит свой вариант на ЛИСПе будет интересно посмотреть.

Ой, я столько лиспов знаю.
Только непонятно, что именно вам надо.
Может вы свой вариант покажете?

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

Какой вариант кода? Вариантов рисования форматок, извиняюсь, как собак нерезанных (я и то свой написал).

[Apelsinov]

Я очень извиняюсь, что не в тему...
я, если честно, по теме ниче не понял...почти
я как в запяматованном году себе форматки нарисовал, так ими и пользуюсь, и не знаю зачем тут лисп.

Авдотья Прасковьевна - ваша фамилия случаем не Кибершутер ?

[Авдотья Прасковьевна]

Сообщение от Apelsinov Я очень извиняюсь, что не в тему... я, если честно, по теме ниче не понял...почти я как в запяматованном году себе форматки нарисовал, так ими и пользуюсь, и не знаю зачем тут лисп. Авдотья Прасковьевна - ваша фамилия случаем не Кибершутер ?

Да, но это девичья.
А как вы узнали?

[Apelsinov]

Сообщение от Авдотья Прасковьевна Да, но это девичья. А как вы узнали?

О, это простое совпадение!
Однако, обещаю Вам: жалеть, завидовать и охотно подсказывать.

Очень надеюсь на взаимность.

[Post]

[: |||||||| : ]

[Alaspher]

Сообщение от DFooz Не очень понятно, зачем, я делаю форматки и хотелось бы в функцию пересылать часть имени переменной (из А1 - 1, из А2 - 2). Просто, чтобы не писать всё время разные параметры пересылки(1, 2), а иметь эту функцию, саму выделяющую часть имени файла.

Честно сказать - стало значительно непонятнее... Передача данных в функции стандартно решается через аргументы.

[Profan]

Для DFooz.
У вас концепция не продумана. Или ее вовсе нет. Вот вы и паритесь.

я делаю форматки

Все делают форматки, но без таких проблем.

[Елпанов Евгений]

Сообщение от Alaspher Передача данных в функции стандартно решается через аргументы.

Можно пойти другим путем, на основе данных, сгенерировать функцию, специально заточенную под эти данные...
Как пример:
>Евгений Елпанов (2006-03-12 10:50:01)

[Alaspher]

Сообщение от Елпанов Евгений Можно пойти другим путем, на основе данных, сгенерировать функцию, специально заточенную под эти данные...

Можно, но, обычно, проще сделать что-то такое:

Код:

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

(defun multi-subst-1 (lst lst-i / tmp i)
    (cond ((not lst) nil)
          ((setq tmp (assoc (setq i (car lst)) lst-i))
           (cons (cadr tmp) (multi-subst-1 (cdr lst) lst-i))
          )
          (t (cons i (multi-subst-1 (cdr lst) lst-i)))
    )
)

Не так универсально, но гораздо проще.

[* небольшая правка - локализация переменных]

[Елпанов Евгений]

>Alaspher
Вы конечно правы, так проще, короче, понятнее...
Я изучал различные способы загрузки программ - мне нужна была защита изнутри лиспа. Я ее получил!
Принципы те же, что и в предложенной мной функции - программа генерируется на основе ключа, если ключ правильный - программа будет работать, не правильный - не будет! Самое главное в том, что в лиспе не хранится проверки ключа - проверить можно самой работой программы.

[Alaspher]

> Елпанов Евгений
Как демонстрация возможностей создания функций по данным - не вопрос - нормальный пример.

Кста, я погорячился, насчёт меньшей универсальности моего варианта мультизамены, как раз наоборот - он чуть более универсальный, поскольку, в оригинальной мультизамене есть проблемы при неатомарных элементах замены.

[Эдуард]

Я так понял имеется ввиду динамическое конструирование имени переменной ? Поиграйтесь с функцией set.
Пример:
Присваиваем переменной A1 значение 4

Код:

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

(setq x 1)
 (set (read(strcat "A" (itoa x))) 4)

[DFooz]

извиняюсь за оффтопик.

Я так понял имеется ввиду динамическое конструирование имени переменной?

Не, выделение части имени переменной. Но такое реализовать нельзя. За этот код тоже большое спасибо=)

Какой вариант кода? Вариантов рисования форматок, извиняюсь, как собак нерезанных (я и то свой написал).

Через поиск не нашёл.
Мне для штампа.
Как я понял, все делают с помощью блока с атрибутами, кот. потом изменяют, да? А если надо в несколько строк написать, то берут несколько атрибутов.

Ой, я столько лиспов знаю. Только непонятно, что именно вам надо.

сейчас надо заполнить штамп.

и не знаю зачем тут лисп.

Чтоб его изучить.

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

Сообщение от DFooz Через поиск не нашёл.

Поиск по словам блок формат и там перейти по ссылке "в сообщениях".

Сообщение от DFooz Как я понял, все делают с помощью блока с атрибутами, кот. потом изменяют, да? А если надо в несколько строк написать, то берут несколько атрибутов.

"Я Вам не скажу за всю Одессу..." Лично я делал именно блоком с атрибутами. Хотя, по-моему, варианты использования и таблиц были, а уж динамические блоки форматок - так те сами просятся... Была бы возможность использовать дин.блоки, а остальное - вопрос техники.

Сообщение от DFooz сейчас надо заполнить штамп.

А данные откуда брать?

[Эдуард]

(setq A1 5)
(set (read(vl-string-translate "1" "2"(vl-princ-to-string (quote A1)))) 2)

[Profan]

Как я понял, все делают с помощью блока с атрибутами

Совсем не все. Можно вставить штамп блоком, а текст вводить (или редактировать) прямо на экране. Не думаю, что это займет больше времени, чем редактиирование атрибутов. А уж рамку можно просто отрисовать программно, на фига для нее городить динамический блок. Рамка и штамп - ничтожная часть чертежа, на кой ляд им уделять какое-то особое внимание?

[DFooz]

Эдуард, спасибо.

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

рамка отрисовывается программно.

Рамка и штамп - ничтожная часть чертежа, на кой ляд им уделять какое-то особое внимание?

Для изучения ЛИСПа и т.д. Надо ведь начинать с малого=)

А данные откуда брать?

Из файла записывает в список, а потом распределяет по аттрибутам.