* 2007-10-09 : pdftool
http://homepage3.nifty.com/e-papy/pdftool/index.html
まだ要素のみ。
update : 2007-10-09 (Tue) 12:58:05
まだ要素のみ。
(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))))
update : 2007-10-09 (Tue) 12:58:05
Source of Nothingness
NANRI
NANRI