GIMP Script-Fu Первый Дан. Работа, Печать, Отладка
Процесс работы.
С консолью script-fu я работаю опосредованно, т.е весь код я пишу в текстовом редакторе, в моём случае это Emacs, а далее получившийся код копирую через буфер обмена в консоль, а результаты выведенные в консоль, если они чем то примечательны копирую через буфер обмена обратно в Emacs.
Обычно если я завершаю какую либо функционально обособленную группу функций я помещаю её в отдельный файл, библиотеку. А вот уже для загрузки библиотек я использую комманды загрузки:
;;задаём путь для загрузки библиотек
;;(define path-home "D:")
(define path-home (getenv "HOME"))
(define path-lib (string-append path-home "/work/gimp/lib/"))
(define path-work (string-append path-home "/work/gimp/"))
;;загружаем библиотеки
(load (string-append path-lib "util.scm"))
(load (string-append path-lib "defun.scm"))
(load (string-append path-lib "struct2.scm"))
Вывод данных.
Как только начинаешь работать, т.е писать более менее сложные функции, в интерпретаторе script-fu осознаешь необходимость иметь простое средство для вывода различных данных, без него просто не возможно что-то сделать, т.к. основным методом отладки здесь являтся вывод промежуточных результатов.
В script-fu есть несколько функций для перевода данных в текстовое представление и вывода его на консоль. Обычно пишут так:
(print 23)
23
#t
> (prin1 23)
23#t
(prin1 (string-append "number is " (number->string 23)))
"number is 23"#t
(print (string-append "list: " (apply string-append (map atom->string '(1 2 3)))))
"list: 123"
но вывод смешанных данных превращается в сущий кошмар из цепочек вызова функций преобразования данных в строку, объединения строк и печати, ну, а корректный вывод списка и вовсе невыполнимая задача.
Нам нужна функция которая инкапсулирует весь это процесс преобразований, за простым и понятным интерфейсом, хотелось бы иметь функцию на подобии printf или format, которая сразу может распечатать всё что угодно в одном вызове. Здесь нам не понадобятся макросы, а лишь пара вспомогательных функций которые переводят любой (ну практически любой) набор данных тинисхемы в строку:
(define (to-str elem)
(cond
((string? elem) elem)
((and (atom? elem)
(not (vector? elem))) (atom->string elem))
((list? elem)
(string-append "("
(apply string-append
(insert-between-elements
(map to-str elem) " "))
")"))
((vector? elem)
(string-append "#("
(apply string-append
(insert-between-elements
(map to-str
(vector->list elem)) " "))
")"))
))
;;полезная функция обработки списков, применяет функцию двух аргументов,
;;к списку, для первого применения используется начальный элемент инит
(define (fold f init lst)
(do ((rez init (f rez (car l)))
(l lst (cdr l)))
((null? l) rez)))
(define (insert-between-elements lst new-elem)
(reverse
(fold (lambda (prev elem)
(if (not (null? prev))
(cons elem (cons new-elem prev))
(cons elem prev)))
'()
lst))
)
(define (prn . args)
(display
(apply string-append
(map to-str
args))))
(to-str `((1 2 3 "hello" 'world 23 (q 3 e ,#(1 2 3) 4))))
;;"((1 2 3 hello (quote world) 23 (q 3 e #(1 2 3) 4)))"
(prn "Hello" " " "World!" "\n")
;;Hello World!
;;#t
(prn "x: " '(12 3 12 (23 q a b d) "next" "prev" q123) ", всё!" "\n")
;;x: (12 3 12 (23 q a b d) next prev q123), всё!
Это немного упрощённый вариант функции которой я пользуюсь, позволяющей печатать практически любые данные script-fu.
Не поймите меня не правильно, что тинисхема совсем «голая», нет! Например в файле инициализации определена функция foldr, аналог приведённой мной функции fold. Но я предпочитаю использовать итерационное определение обработки списка, а foldr имеет рекурсивное определение. Обратите внимание на цикл do в функции fold, у него отсутствует «тело» цикла. А что такое тело цикла? Это либо операции с «побочным эффектом», либо различные присваивания. Построение цикла в подобном стиле считается истинно функциональным. И с учётом того, что тинисхема нигде не обещает, что она имеет оптимизацию хвостовой рекурсии, постоянно использовать рекурсивные решения, это опрометчивый шаг.
Я поместил эти функции в файл util.scm. Кстати библиотеку функций я выложил на gitflic.ru
Отладка.
Отладка в Script-fu сводиться к распечатке промежуточных сообщений, позволяющих локализовать неисправность. А благодаря написанной выше функции, этот процесс значительно облегчается.
(define-m (reverse-str str)
(prn "run reverse-str with: " str "\n")
(list->string (reverse (string->list str))))
(reverse-str "смешарики")
;;run reverse-str with: смешарики
;;"икирашемс"#
Таким образом сегодня мы рассмотрели небольшую, но очень важную функцию универсальной печати, которая значительно облегчит нам дальнейшую работу со script-fu.
