Красивый код
=== CUT uses crt,dos,graph; label 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20; === CUT найду -- убью с*ку.
=== CUT uses crt,dos,graph; label 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20; === CUT найду -- убью с*ку.
http://img230.imageshack.us/my.php?image=amaroksuxx27xs.png
прикольно, наверное, будет увидеть это человеку, который все эти обложки с диалапа качал :)) что самое интересное, в документации нигде про это не написано :-\
Хочу: чтобы IPA-вские символы отображались фонтом Doulos или xipa (ну т.е., чтоб размер менять можно было).
Нужно: для первого: encoding-файл из muleipa в unicode, чтоб на основе него сделать fonts.dir для Doulos и юзать Doulos, как будто он в muleipa закодирован.
для второго: CCL-скрипт, которая конвертит из Muleipa в SilIpa. Чтобы сделать что-то наподобие:
(set-charset-registry 'ipa "silipa-1")
(set-charset-ccl-program 'ipa 'ccl-encode-silipa-font)
Если кто поможет документаций, проясняющей всю эту внутреннюю Mule-кухню в XEmacs, буду благодарен :)
Xemacs у меня версии 21.4.17
п.с. знаю, что объяснение спутанное, но как понял, так и попросил %))
Да, кстати, еще и в некоторых других командах этот "глюк" проявляется, например, в tempo-template-html-header-1. Эта команда просит ввести заголовок. Так вот, там тоже метод ввода отключается, а при попытке его активировать пишет "Cant activate input method `t'"... :-\
Помогите понять, в чем я неправ и где надо исправить, чтоб
заработало :) Значит, имеется следующий код, работающий правильно
в CLISP, но не работающий в ELisp по неизвестной мне причине:
;; нужно сделать closure, чтоб бегала по "кольцевому" списку
;; и выдавала текущее значение
(defun circulate-list-func (loop-list &optional first-elem)
(let ((curr (if (member first-elem loop-list)
first-elem
(first loop-list))))
(values (lambda ()
(let ((next (second (member curr loop-list))))
(setq curr (if (null next)
(first loop-list)
next))))
(lambda () curr))))
;; проверяем функцию
(multiple-value-bind (l1 l2)
(circulate-list-func '("russian-computer" "ukrainian-computer"))
(print (funcall l2))
(print (funcall l1))
(print (funcall l1))
(print (funcall l1))
(print (funcall l2)))
=====
Вот тут и происходит затык -- ELisp пишет, что символ curr не
является переменной (а CLISP хавает нормально!) :( пробовал curr
в defvar'е объявить перед функцией -- не помогает :(
Заранее спасибо за ответы :) зы. Тему, конечно, не я создавал, и возмущаться должен автор темы, но меня просто возмущает такая несправедливость, пипец просто... :-\
зызы. А ну-ка расскажи, что есть Он-топик в толках? Темы про яндексы/рамблеры? Или анекдоты на С? пипец... нет слов. :-\
2. Надо сделать следующую вещь. Есть файл (или строка, в которую прочитан этот файл, как угодно), допустим, следующего содержания: ================== \section{Расчеты тыры-пыры для lisp-inserts-here:stuff-name}
Тут чего-то понаписано: $$ a = \frac{b}{c} = lisp-inserts-here:(get-value a-param) $$ ... ================== и нужно в LISP эти формы после lisp-inserts-here eval'уатить и выдавать обратно тот же текст, но уже с подставленными значениями (может, проще через Perl или shell? Но я Perl не знаю, а мне это надо сделать до конца недели :( ), т.е. вроде:
(labels ((get-value (param) (param-pam-pam))) (let ((stuff-name 'X1)) (eval-this-file "my-stuff.tex"))) как-то так. Извиняюсь за невнятное изложение %)
1) Есть ли какая-нибудь прога для сопоставления кодировок локали (*.KOI8-R, *.CP1251) в чарсеты html (не знаю, как правильно это называется)? Т.е. чтоб ей на вход подал название локали, например, CP1251, и на выходе получил чарсет windows-1251. Или нет такой и надо руками?
2) Есть ли какая-нибудь прога для вытаскивания по регекспу из стандартного входа определенных обратных ссылок и выдачи их на выход? Пока что делаю примерно так: ... | perl -e 'print $1 if (<> ~= /регексп/)'. Но перл я совсем не знаю, поэтому хотелось бы что-нибудь типа grep.
$ grep XTerm ~/.Xresources XTerm*eightbitInput: false XTerm*metaSendsEscape: false XTerm*faceName: Lucida Console XTerm*faceSize: 14 !XTerm*font: -cronyx-fixed-medium-r-*-*-20-*-*-*-*-*-koi8-r XTerm*locale: koi8-r XTerm*background: black XTerm*foreground: gray
| ← назад | следующие → |