[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

thread無しとimage無しがポイントだった。

cd local/src/
wget http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_source/gc-7.0.tar.gz
tar xf gc-7.0.tar.gz
cd gc-7.0
./configure --prefix=$HOME/local --enable-cplusplus --enable-threads=none
make
make install
cd ..
wget http://jaist.dl.sourceforge.net/sourceforge/w3m/w3m-0.5.2.tar.gz
tar xf w3m-0.5.2.tar.gz
cd w3m-0.5.2
make distclean
./configure --prefix=$HOME/local --with-gc=$HOME/local --enable-image=no
make
make install

案の定、昔入れたSubversionが動かなくなっていたので、以下のページを参考にインストールしなおしてみた。

空繰再繰 - Subversionをさくらインターネットにインストール
subversion1

何とかうまくいった模様。

mkdir -p $HOME/local/src
cd local/src/
wget http://jaist.dl.sourceforge.net/sourceforge/swig/swig-1.3.33.tar.gz
tar xf swig-1.3.33.tar.gz 
cd swig-1.3.33
which python
./configure --prefix=$HOME/local --with-python=/usr/local/bin/python
make
make install
cd ..
wget http://ftp.riken.jp/net/apache/apr/apr-1.2.12.tar.gz
tar xf apr-1.2.12.tar.gz 
cd apr-1.2.12
./configure --prefix=$HOME/local --disable-static
make
make install
cd ..
wget http://ftp.riken.jp/net/apache/apr/apr-util-1.2.12.tar.gz
tar xf apr-util-1.2.12.tar.gz 
cd apr-util-1.2.12
./configure --prefix=$HOME/local --with-apr=$HOME/local --disable-static
make
make install
cd ..
wget http://subversion.tigris.org/downloads/subversion-1.4.6.tar.bz2
wget http://subversion.tigris.org/downloads/subversion-deps-1.4.6.tar.bz2
tar xf subversion-1.4.6.tar.bz2 
tar xf subversion-deps-1.4.6.tar.bz2 
cd subversion-1.4.6
which apr-1-config
./configure --prefix=$HOME/local --without-brekelay-db --with-swig=$HOME/local/bin/swig --with-apr=$HOME/local/bin/apr-1-config -with-apr-util=$HOME/local/bin/apu-1-config --disable-static
make
make install

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))))

xyzzy で戻り値が double, float の C 関数を呼ぶとクラッシュする（70509/p1）というお話。
原因はdll.ccの247と250でしょうね。おそらくfn→proc。fnをキャストするのは明らかにおかしい。

dll.ccを眺めたのは初めてだったけれど、かなりのBynary Hacksな感じ。亀井さんスゲー!!!

--- dll.cc~	Sun Feb 25 08:58:21 2001
+++ dll.cc	Fri May 11 04:34:41 2007
@@ -244,10 +244,10 @@
       return make_integer (long_to_large_int (u_long (proc ())));
 
     case CTYPE_FLOAT:
-      return make_single_float (((float (__stdcall *)())fn)());
+      return make_single_float (((float (__stdcall *)())proc)());
 
     case CTYPE_DOUBLE:
-      return make_double_float (((double (__stdcall *)())fn)());
+      return make_double_float (((double (__stdcall *)())proc)());
     }
 #else
 # error "yet"

miyamukoさんだったら手元では直してらっしゃるんだろうな。亀井さんには連絡済みなんだろうか?

start-timerの件も[[patch/21:http://xyzzy.s53.xrea.com/wiki/index.php?patch%2F21]]の内容で大丈夫だと思うのだけど、連絡済みなのだろうか?

xyzzy MLに流してくれないと、この辺りの情報が回ってこなくて不便だよな〜と思う。

[[(ReadMore...) index.rb?1174689340.txt]]

　cgi?page=GnuMakeMaster
　makeMaster

以下で調べて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...) index.rb?1164371462.txt]]

Re: [[ふとした疑問 http://snmsts.orz.hm/~sana/wiki/index.php?%C6%FC%B5%AD%A4%C3%A4%DD%A4%AF%2F2006-12-14#u3c50745]]

• makeがあるかどうか分からない、どんなmakeが入っているか分からないからではないかなぁとか。

Re: [[著者全員のサイン本 http://snmsts.orz.hm/~sana/wiki/index.php?%C6%FC%B5%AD%A4%C3%A4%DD%A4%AF%2F2006-12-18#r7fd6511]]

• 持っている人間の一人だったり。
• もしかして超貴重!?

[[(ReadMore...) index.rb?1165203566.txt]]

make.shtml

[[(ReadMore...) index.rb?1140952274.txt]]

とりあえずこんなところか。
主だったところはsession.lから。
outline-tree2をバッファバーの代わりにしつつ、rename-bufferを良く使う人向け。
もしくは*compilation*バッファとかでうっかりそのまま編集して、undoができず残念な思いをする人向け。

(defun clone-buffer (buffer-name &optional (buffer (selected-buffer)))
  (interactive "sClone Buffer: ")
  (let ((major buffer-mode)
        (minor (mapcan #'(lambda (mode)
                           (let ((var (and (consp mode) (car mode))))
                             (and (symbolp var)
                                  (boundp var)
                                  (symbol-value var)
                                  (list var))))
                       *minor-mode-alist*))
        (locals (mapcar #'(lambda (var)
                            (and (symbolp var)
                                 (local-variable-p var)
                                 (cons var (symbol-value var))))
                        *buffer-info-variable-list*))
        (point (point)))
    (set-buffer (create-new-buffer buffer-name))
    (insert-buffer buffer)
    (funcall major)
    (mapc #'(lambda (f) (and (fboundp f) (funcall f))) minor)
    (mapc #'(lambda (x)
              (when (and (car x) (symbolp (car x)))
                (make-local-variable (car x))
                (set (car x) (cdr x))))
          locals)
    (goto-char point)))

メモ:
undo情報をそっくり写せるとうれしいかも。
[[(ReadMore...) index.rb?1161833288.txt]]

絞込み
[[(ReadMore...) index.rb?1155828305.txt]]

候補の絞込みしていなかったのを修正。
[[(ReadMore...) index.rb?1155742193.txt]]