[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/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]]