четверг, 18 июня 2009 г.

Hunchentoot на 80-ом порту

Навеяно сообщением в списке рассылки tbnl-devel, я вдруг обнаружил, что не помню как это сделать, что называется, сделал и забыл. Порывшись в истории (я показывал эту команду catap-у) нашёл нужную команду:
sudo setcap CAP_NET_BIND_SERVICE=ep /usr/bin/sbcl
Пишу здесь, что б в следующий раз больше не искать, точнее рыться не в истории jabber-а, а просто в блоге (я пишу здесь заметно меньше) :)

среда, 17 июня 2009 г.

Убить ClozureCL

Оказывает это просто (по крайней мере, версию 1.3), такой вот код:
(asdf:operate 'asdf:load-op :lift)

(defpackage :clozure.lift.test
(:use :cl :lift)
(:export :test))

(in-package #:clozure.lift.test)

(deftestsuite clozure-lift-test () ())

(addtest (clozure-lift-test)
test1
(ensure-same 6000
(length (let ((str ""))
(dotimes (i 1000)
(setf str
(concatenate 'string
str
"Привет")))
(length str)))))

(defun test ()
(run-tests :suite 'clozure-lift-test :report-pathname nil))
Приводит к
An unhandled error condition has been signalled: value #<BOGUS object @ #x14BF07EE> is not of the expected type SEQUENCE.
Теперь контрольный выстрел:
(clozure.lift.test:test)
В итоге, ошибка сегментирования и скоропостижный конец...

вторник, 16 июня 2009 г.

cl-libxml2 в gentoo-lisp-overlay

cl-libxml2 теперь доступна пользователям Gentoo Linux через gentoo-lisp-overlay. Добиться этого оказалось чрезвычайно просто. Сначала я написал хозяину репозитория этого оверелея, но он предложил мне сделать заявку через Bugzilla, что я и сделал: зашёл на bugs.gentoo.org (я уже давно там зарегестрирован, как-то сообщал о проблеме с xalan-c) , выбрал действие "New-Ex", выбрал продукт "Gentoo Linux", в качестве компонента указал "Ebuilds", параметр "Severity" установил в "enhancement", в "Keywords" добавил "InOverlay", ввёл прочую информацию типа Url, Summary и Description, а в дополнительные подписчики ("CC") добавил common-lisp@gentoo.org (это, насколько я понимаю, существенно ускорило обработку), теперь "Commit" и следующим шагом приатачил ebuild-файл. Ну и появился в irc-канале #gentoo-lisp на FreeNode.

Может я правильно оформил заявку, а может там вообще ребята оперативные, но не прошло и двух часов, как Stelian Ionescu сообщил о том, что он добавил мои ebuild-файлы (их было два, для garbage-pools и cl-libxml2) в оверлей (а заодно и пропатчил мой Makefile для вспомогательной библиотеки).

понедельник, 15 июня 2009 г.

cl-libxml2-0.3.1

Выпустил новую версию cl-libxml2. Ключевые изменения:
  • Смена лицензии на Lisp LGPL
  • Перемещение исходного кода на github (об это я уже писал)
  • Добавление системы xfactory, которая позволяет достаточно просто генерить xml
  • Ну и ещё несколько небольших изменений
Пример использования XFACTORY:
(xtree:with-object (doc (xfactory:with-document-factory 
((XUL "http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul" "xul")
(SVG "http://www.w3.org/2000/svg" "svg"))
(xfactory:process-instruction "xml-stylesheet" "href=\"style.css\" type=\"text/css\"")
(XUL "window"
(xfactory:namespace "http://www.w3.org/1999/xlink" "xlink")
(XUL "vbox"
(xfactory:attributes :flex 1
:width 500)
(loop for i from 1 to 3
do (XUL "label"
(xfactory:text "text ~A" i)))
(SVG "svg"
(xfactory:attributes :width "500px"
:height "500px")
(SVG "a"
(xfactory:attributes "xlink:href" "http://www.w3.org")
(SVG "rect"
(xfactory:attributes :x 100
:y 100
:width 300
:height 200
:fill "red"))))))))
(xtree:serialize doc *standard-output* :pretty-print t))
==>
<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet href="style.css" type="text/css"?>
<xul:window xmlns:xul="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul" xmlns:xlink="http://www.w3.org/1999/xlink">
<xul:vbox flex="1" width="500">
<xul:label>text 1</xul:label>
<xul:label>text 2</xul:label>
<xul:label>text 3</xul:label>
<svg:svg xmlns:svg="http://www.w3.org/2000/svg" width="500px" height="500px">
<svg:a xlink:href="http://www.w3.org">
<svg:rect x="100" y="100" width="300" height="200" fill="red"/>
</svg:a>
</svg:svg>
</xul:vbox>
</xul:window>

четверг, 11 июня 2009 г.

Исходный код cl-libxml2 теперь на github

В общем, окончательно принял решение переводить все свои открытые проекты на git. Поскольку Project Hosting on Google Code не поддерживает git (а mercurial я не хочу), то решил воспользоваться github. Подобный перевод требует некоторого времени, поэтому буду переходить поэтапно, первая "жертва" - cl-libxml2. Т.е. проект по прежнему будет жить на Project Hosting on Google Code, но исходный код на github. Посмотреть его (исходный код) сейчас можно здесь, а получить так:
git clone git://github.com/archimag/cl-libxml2.git
В принципе, svn я не выкидываю полностью, документация (хотя её сейчас и откровенно мало), как и раньше, будет публиковаться через неё (svn), сейчас её можно смотреть здесь