Source of Nothingness - TEXT

* Menu

About | Profile | まとめ | オリジナル | xyzzy | あんてな | | buzz

* 2006-03-28

「0(ゼロ)」にスラッシュが入ったフォントがいっぱい見つかってうれしくなったので、色設定を見直し。
暗い背景にしてみた。
http://raido.sakura.ne.jp/southly/xyzzy/xyzzy.png
(ReadMore...)

* memo : clispさくらインターネットにインストール

clispはサーバーのOSバージョンが上がっても動いていたけど、clispの方もバージョンが上がっているので入れなおしてみた。
いまいちうまくいっていないのでもう一回入れなおそう。

必要なライブラリであるlibsigsegvがきっちり認識されない。
libsigsegvはコンパイルはできるがチェックでエラーが出る状態。
$make check
Making check in src
Making check in tests
make  check-TESTS
Test passed.
PASS: sigsegv1
Test passed.
PASS: sigsegv2
FAIL: stackoverflow1
FAIL: stackoverflow2
===================
2 of 4 tests failed
===================
*** Error code 1

Stop in /home/raido/local/src/libsigsegv-2.5/tests.
*** Error code 1

Stop in /home/raido/local/src/libsigsegv-2.5/tests.
*** Error code 1

Stop in /home/raido/local/src/libsigsegv-2.5.

ということで --ignore-absence-of-libsigsegv を追加して作成。
本当は --with-module=bindings/glibc も指定する予定だったけれどうまくいかず、結局以下のような感じでインストール。

cd local/src/
wget http://ring.sakura.ad.jp/archives/GNU/clisp/release/2.43/clisp-2.43.tar.bz2
tar xf clisp-2.43.tar.bz2 
cd clisp-2.43
./configure --ignore-absence-of-libsigsegv --prefix=$HOME/local --with-module=rawsock --with-module=wildcard
cd src/
make
make check
make install

できあがった物。
$ clisp --version
GNU CLISP 2.43 (2007-11-18) (built 3410886803) (memory 3410887057)
Software: GNU C 3.4.4 [FreeBSD] 20050518 
gcc -g -O2 -Igllib -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -DNO_GETTEXT -DNO_SIGSEGV -I. -x none libavcall.a libcallback.a -lreadline -lncurses 
SAFETY=0 HEAPCODES STANDARD_HEAPCODES SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libreadline 5.0
Features: 
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
 LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
 UNICODE BASE-CHAR=CHARACTER PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /home/raido/local/lib/clisp-2.43/
User language: ENGLISH
Machine: I386 (I386) www658.sakura.ne.jp [59.106.19.88]

* xyzzy lisp: lyrical-mode

http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/lyrical-mode.lzh

リリカル☆Lisp ver1.1公開参照。

やっつけ仕事ですみません (^^;
lisp-modeの流用なのでインデントがまずいなーって感じです。後で何とかしておきます。→何とかしました。2007-11-15

やっていることは
・エディットコントロールを見つける。
・SET_TEXTでS式を貼り付ける。
・VK_RETURNを送る。
・5秒後(*lyrical-interval*)にWM_LBUTTONUPを送る。
というだけです。
フリーモードで使うことしか考えていなかったので、もしかすると4つ目が邪魔になる場合があるかもです。

* 2007-10-09 : pdftool

http://homepage3.nifty.com/e-papy/pdftool/index.html
まだ要素のみ。
(defvar *pdftool-dll-path* nil)
(unless *pdftool-dll-path*
  (setq *pdftool-dll-path* (merge-pathnames "pdftool.dll" (si:system-root))))

(c:define-dll-entry c:int *get-pdf-text ((c:char *) (c:char *))
  *pdftool-dll-path* "GetPDFText")

(c:define-dll-entry c:int *write-pdf-txt ((c:char *) (c:char *))
  *pdftool-dll-path* "WritePDFText")

(defun get-pdf-text(pdf txt)
  (if (path-equal pdf txt)
      (error "入出力のファイルが一致")
    (case (*get-pdf-text (si:make-string-chunk pdf)
                         (si:make-string-chunk txt))
      (-1 (error "失敗"))
      (-2 (error "PDFファイルが暗号化されてる"))
      (t t))))

(defun write-pdf-txt(txt pdf)
  (if (path-equal txt pdf)
      (error "入出力のファイルが一致")
    (case (*write-pdf-txt (si:make-string-chunk txt)
                          (si:make-string-chunk pdf))
      (-1 (error "失敗"))
      (t t))))

* editorパッケージのbuiltin関数

以下で調べて652個
(let ((count 0))
  (do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count))
    (when (and (not (find-symbol (symbol-name sym) "lisp"))
               (fboundp sym)
               (si:*builtin-function-p (symbol-function sym)))
      (format t "~a~%" sym)
      (incf count))))
(ReadMore...)

* RandomNoteWiki記法 - TextFormat

(ReadMore...)

* clispインストールのまとめ


(ReadMore...)

* xyzzy lisp : へなちょこ補完その3

絞込み
(ReadMore...)

* xyzzy lisp : へなちょこ補完その2

候補の絞込みしていなかったのを修正。
(ReadMore...)

* xyzzy lisp : へなちょこ補完

C/C++とかJavaとかのメンバをdabbrevライクに補完
てきとー
(ReadMore...)

* xyzzy lisp : 位置とサイズの操作

また勢いだけで使いそうに無いものを作ってしまった。
(ReadMore...)

* Scrapbook : Basic > Fixed width | dafont.com

http://www.dafont.com/theme.php?cat=503&page=3&nb_ppp_old=10&text=Type+your+text+here&nb_ppp=50&classt=alpha

* Scrapbook : Hyper Estraier: a full-text search system for communities

http://athlon64.fsij.org/~mikio/wikipedia/estseek.cgi

Wikipedia日本語版を検索

* xyzzy lisp : center-line

使ってみた感じだとこっちのほうがよさそう。
(in-package "editor")
; from $XYZZY/lisp/textmode.l
(defun center-line (&optional (arg 1))
  (interactive "*p")
  (center-region (progn (goto-bol) (point))
                 (progn
                   (forward-line arg)
                   (point))))

同じ感じでこういうのも。
(defun fill-line (&optional (arg 1))
  (interactive "*p")
  (fill-region (progn (goto-bol) (point))
               (progn (forward-line arg) (point))))

* Firefox searchplugin

# Mozilla/Fireox The Lisp Dictionary http://lispdoc.com/
# 2006-03-01
#
<search 
   name="lispdoc"
   description="The Lisp Dictionary"
   method="GET"
   action="http://lispdoc.com/"
   queryEncoding="Shift_JIS"
   queryCharset="Shift_JIS"
  sourceTextEncoding = "1"
>
<input name="q" user>
<input name="search" value="Basic search">

<INTERPRET
	browserResultType = "result"
	charset = "Shift_JIS" 
>
</search>

文字コードとかてきとー