home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / 2.5 / pure-0.6p.diff.bz2 / pure-0.6p.diff
Lisp/Scheme  |  2001-09-16  |  18KB  |  399 lines
  1. diff -urN pure-0.5p/Makefile pure-0.6p/Makefile
  2. --- pure-0.5p/Makefile    Wed Jun  6 01:24:51 2001
  3. +++ pure-0.6p/Makefile    Mon Sep 17 00:34:36 2001
  4. @@ -1,6 +1,6 @@
  5.  #
  6.  # Makefile for PURE
  7. -# $Id: Makefile,v 1.6 2001/06/05 16:24:51 simm Exp $
  8. +# $Id: Makefile,v 1.7 2001/09/16 15:30:24 simm Exp $
  9.  #
  10.  
  11.  #EMACS    = mule
  12. @@ -12,7 +12,9 @@
  13.  CFLAGS="-O2 -Wall"
  14.  LDFLAGS=""
  15.  
  16. -DEST    =
  17. +PACKDIR    =
  18. +LISPDIR    =
  19. +BINDIR    =
  20.  
  21.  all: c lisp
  22.  
  23. @@ -23,14 +25,14 @@
  24.      $(EMACS) $(BYTECOMP) -f make-pure-compile
  25.  
  26.  install: c
  27. -    $(EMACS) $(BYTECOMP) -f make-pure-install $(DEST)
  28. +    $(EMACS) $(BYTECOMP) -f make-pure-install lispdir=$(LISPDIR) bindir=$(BINDIR)
  29.      cd c ; $(MAKE) clean
  30.  
  31.  package:
  32.      $(XEMACS) $(BYTECOMP) -f make-pure-compile
  33.  
  34.  install-package: c
  35. -    $(XEMACS) $(BYTECOMP) -f make-pure-package $(DEST)
  36. +    $(XEMACS) $(BYTECOMP) -f make-pure-package packagedir=$(PACKDIR) lispdir=$(LISPDIR) bindir=$(BINDIR)
  37.  
  38.  clean:
  39.      cd c ; $(MAKE) clean
  40. diff -urN pure-0.5p/make.el pure-0.6p/make.el
  41. --- pure-0.5p/make.el    Wed Jun  6 01:27:39 2001
  42. +++ pure-0.6p/make.el    Mon Sep 17 00:34:36 2001
  43. @@ -5,7 +5,7 @@
  44.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  45.  ;; Keywords: PURE, make, install
  46.  
  47. -;; $Id: make.el,v 1.11 2001/06/05 16:27:39 simm Exp $
  48. +;; $Id: make.el,v 1.12 2001/09/16 15:30:24 simm Exp $
  49.  
  50.  ;; This file is free software; you can redistribute it and/or modify
  51.  ;; it under the terms of the GNU General Public License as published by
  52. @@ -52,6 +52,11 @@
  53.      "pure-pr-server.el"
  54.      "pure-vs.el"))
  55.  
  56. +(defun make-pure-bindir (&optional default)
  57. +  (let ((bindir (or (pure-make-get-argument 'bindir) default pure-make-bindir)))
  58. +    (if (stringp bindir) (pure-make-directory bindir))
  59. +    bindir))
  60. +
  61.  (defun make-pure-compile ()
  62.    (pure-make-compile-lisp make-pure-lispfile-list 'pure-cs 'pure-vs))
  63.  
  64. @@ -59,26 +64,33 @@
  65.    (make-pure-compile)
  66.    (pure-make-install-current-lisp
  67.     make-pure-lispfile-list
  68. -   (or (car command-line-args-left) "pure"))
  69. -  (let ((puresv (concat "puresv" pure-make-exec-ext))
  70. -    (dccput (concat "dccput" pure-make-exec-ext))
  71. -    (dccget (concat "dccget" pure-make-exec-ext)))
  72. -    (if (file-exists-p (concat "c/" puresv))
  73. -    (copy-file (concat "c/" puresv) (expand-file-name puresv pure-make-bindir) t t))
  74. -    (if (file-exists-p (concat "c/" dccput))
  75. -    (copy-file (concat "c/" dccput) (expand-file-name dccput pure-make-bindir) t t))
  76. -    (if (file-exists-p (concat "c/" dccget))
  77. -    (copy-file (concat "c/" dccget) (expand-file-name dccget pure-make-bindir) t t))))
  78. +   ;;(or (car command-line-args-left) "pure"))
  79. +   (or (pure-make-get-argument 'lispdir) "pure"))
  80. +  (message "Install binary files...")
  81. +  (mapcar
  82. +   (function
  83. +    (lambda (item)
  84. +      (if (file-exists-p (concat "c/" item pure-make-exec-ext))
  85. +      (progn
  86. +        (copy-file (concat "c/" item pure-make-exec-ext)
  87. +               (expand-file-name (concat item pure-make-exec-ext) (make-pure-bindir))
  88. +               t t)
  89. +        (message "%s%s -> %s%s"
  90. +             item pure-make-exec-ext
  91. +             (expand-file-name item (make-pure-bindir)) pure-make-exec-ext)))))
  92. +   '("puresv" "dccput" "dccget")))
  93.  
  94.  (defun make-pure-package ()
  95. -  (make-pure-compile)
  96. -  (pure-make-install-package
  97. -   make-pure-lispfile-list
  98. -   "pure"
  99. -   (or (car command-line-args-left) pure-make-package-base)
  100. -   (cons (cons (concat "puresv" pure-make-exec-ext) "c") 'etcdir)
  101. -   (cons (cons (concat "dccput" pure-make-exec-ext) "c") 'etcdir)
  102. -   (cons (cons (concat "dccget" pure-make-exec-ext) "c") 'etcdir)))
  103. +  (if (pure-make-get-argument 'lispdir)
  104. +      (make-pure-install)
  105. +    (make-pure-compile)
  106. +    (pure-make-install-package
  107. +     make-pure-lispfile-list
  108. +     "pure"
  109. +     (or (pure-make-get-argument 'packagedir) pure-make-package-base)
  110. +     (cons (cons (concat "puresv" pure-make-exec-ext) "c") (make-pure-bindir 'etcdir))
  111. +     (cons (cons (concat "dccput" pure-make-exec-ext) "c") (make-pure-bindir 'etcdir))
  112. +     (cons (cons (concat "dccget" pure-make-exec-ext) "c") (make-pure-bindir 'etcdir)))))
  113.  
  114.  ;; That's all
  115.  (provide 'make)
  116. diff -urN pure-0.5p/pure-cs-japanese.el pure-0.6p/pure-cs-japanese.el
  117. --- pure-0.5p/pure-cs-japanese.el    Sun Jun 10 23:34:40 2001
  118. +++ pure-0.6p/pure-cs-japanese.el    Sat Sep  1 04:33:54 2001
  119. @@ -3,9 +3,9 @@
  120.  ;; Copyright (C) 2000-2001 by Project Pure.
  121.  
  122.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  123. -;; Keywords: PURE, coding-system, ISO-2022, JISX0201, $(BH>3Q%+%J(B
  124. +;; Keywords: PURE, coding-system, ISO-2022, JISX0201, $BH>3Q%+%J(B
  125.  
  126. -;; $Id: pure-cs-japanese.el,v 1.2 2001/06/10 14:30:26 simm Exp $
  127. +;; $Id: pure-cs-japanese.el,v 1.3 2001/07/28 16:36:15 simm Exp $
  128.  
  129.  ;; This file is free software; you can redistribute it and/or modify
  130.  ;; it under the terms of the GNU General Public License as published by
  131. @@ -35,28 +35,28 @@
  132.    "If non-nil, output message when non-ISO-2022-JP string was given.")
  133.  
  134.  (defconst pure-cs-japanese-kana-twobytes-character-alist
  135. -  '((")I╢▐" . "$(B%,(B") ("╖▐" . "$(B%.(B") ("╕▐" . "$(B%0(B") ("╣▐" . "$(B%2(B") ("║▐" . "$(B%4(B")-A
  136. -    (")I╗▐" . "$(B%6(B") ("╝▐" . "$(B%8(B") ("╜▐" . "$(B%:(B") ("╛▐" . "$(B%<(B") ("┐▐" . "$(B%>(B")-A
  137. -    (")I└▐" . "$(B%@(B") ("┴▐" . "$(B%B(B") ("┬▐" . "$(B%E(B") ("├▐" . "$(B%G(B") ("─▐" . "$(B%I(B")-A
  138. -    (")I╩▐" . "$(B%P(B") ("╦▐" . "$(B%S(B") ("╠▐" . "$(B%V(B") ("═▐" . "$(B%Y(B") ("╬▐" . "$(B%\(B")-A
  139. -    (")I╩▀" . "$(B%Q(B") ("╦▀" . "$(B%T(B") ("╠▀" . "$(B%W(B") ("═▀" . "$(B%Z(B") ("╬▀" . "$(B%](B")-A
  140. -    (")I│▐" . "$(B%t(B")))-A
  141. +  '(("(I6^(B" . "$B%,(B") ("(I7^(B" . "$B%.(B") ("(I8^(B" . "$B%0(B") ("(I9^(B" . "$B%2(B") ("(I:^(B" . "$B%4(B")
  142. +    ("(I;^(B" . "$B%6(B") ("(I<^(B" . "$B%8(B") ("(I=^(B" . "$B%:(B") ("(I>^(B" . "$B%<(B") ("(I?^(B" . "$B%>(B")
  143. +    ("(I@^(B" . "$B%@(B") ("(IA^(B" . "$B%B(B") ("(IB^(B" . "$B%E(B") ("(IC^(B" . "$B%G(B") ("(ID^(B" . "$B%I(B")
  144. +    ("(IJ^(B" . "$B%P(B") ("(IK^(B" . "$B%S(B") ("(IL^(B" . "$B%V(B") ("(IM^(B" . "$B%Y(B") ("(IN^(B" . "$B%\(B")
  145. +    ("(IJ_(B" . "$B%Q(B") ("(IK_(B" . "$B%T(B") ("(IL_(B" . "$B%W(B") ("(IM_(B" . "$B%Z(B") ("(IN_(B" . "$B%](B")
  146. +    ("(I3^(B" . "$B%t(B")))
  147.  
  148.  (defconst pure-cs-japanese-kana-onebyte-character-alist
  149. -  '((")Iº" . "$(B%!(B") ("¿" . "$(B%#(B") ("⌐" . "$(B%%(B") ("¬" . "$(B%'(B") ("½" . "$(B%)(B")-A
  150. -    (")I¼" . "$(B%c(B") ("¡" . "$(B%e(B") ("«" . "$(B%g(B") ("»" . "$(B%C(B")-A
  151. -    (")I▒" . "$(B%"(B") ("▓" . "$(B%$(B") ("│" . "$(B%&(B") ("┤" . "$(B%((B") ("╡" . "$(B%*(B")-A
  152. -    (")I╢" . "$(B%+(B") ("╖" . "$(B%-(B") ("╕" . "$(B%/(B") ("╣" . "$(B%1(B") ("║" . "$(B%3(B")-A
  153. -    (")I╗" . "$(B%5(B") ("╝" . "$(B%7(B") ("╜" . "$(B%9(B") ("╛" . "$(B%;(B") ("┐" . "$(B%=(B")-A
  154. -    (")I└" . "$(B%?(B") ("┴" . "$(B%A(B") ("┬" . "$(B%D(B") ("├" . "$(B%F(B") ("─" . "$(B%H(B")-A
  155. -    (")I┼" . "$(B%J(B") ("╞" . "$(B%K(B") ("╟" . "$(B%L(B") ("╚" . "$(B%M(B") ("╔" . "$(B%N(B")-A
  156. -    (")I╩" . "$(B%O(B") ("╦" . "$(B%R(B") ("╠" . "$(B%U(B") ("═" . "$(B%X(B") ("╬" . "$(B%[(B")-A
  157. -    (")I╧" . "$(B%^(B") ("╨" . "$(B%_(B") ("╤" . "$(B%`(B") ("╥" . "$(B%a(B") ("╙" . "$(B%b(B")-A
  158. -    (")I╘" . "$(B%d(B") ("╒" . "$(B%f(B") ("╓" . "$(B%h(B")-A
  159. -    (")I╫" . "$(B%i(B") ("╪" . "$(B%j(B") ("┘" . "$(B%k(B") ("┌" . "$(B%l(B") ("█" . "$(B%m(B")-A
  160. -    (")I▄" . "$(B%o(B") ("ª" . "$(B%r(B") ("▌" . "$(B%s(B")-A
  161. -    (")Iñ" . "$(B!"(B") ("í" . "$(B!#(B") ("Ñ" . "$(B!&(B")-A
  162. -    (")I▐" . "$(B!+(B") ("▀" . "$(B!,(B") ("░" . "$(B!<(B") ("ó" . "$(B!V(B") ("ú" . "$(B!W(B")))-A
  163. +  '(("(I'(B" . "$B%!(B") ("(I((B" . "$B%#(B") ("(I)(B" . "$B%%(B") ("(I*(B" . "$B%'(B") ("(I+(B" . "$B%)(B")
  164. +    ("(I,(B" . "$B%c(B") ("(I-(B" . "$B%e(B") ("(I.(B" . "$B%g(B") ("(I/(B" . "$B%C(B")
  165. +    ("(I1(B" . "$B%"(B") ("(I2(B" . "$B%$(B") ("(I3(B" . "$B%&(B") ("(I4(B" . "$B%((B") ("(I5(B" . "$B%*(B")
  166. +    ("(I6(B" . "$B%+(B") ("(I7(B" . "$B%-(B") ("(I8(B" . "$B%/(B") ("(I9(B" . "$B%1(B") ("(I:(B" . "$B%3(B")
  167. +    ("(I;(B" . "$B%5(B") ("(I<(B" . "$B%7(B") ("(I=(B" . "$B%9(B") ("(I>(B" . "$B%;(B") ("(I?(B" . "$B%=(B")
  168. +    ("(I@(B" . "$B%?(B") ("(IA(B" . "$B%A(B") ("(IB(B" . "$B%D(B") ("(IC(B" . "$B%F(B") ("(ID(B" . "$B%H(B")
  169. +    ("(IE(B" . "$B%J(B") ("(IF(B" . "$B%K(B") ("(IG(B" . "$B%L(B") ("(IH(B" . "$B%M(B") ("(II(B" . "$B%N(B")
  170. +    ("(IJ(B" . "$B%O(B") ("(IK(B" . "$B%R(B") ("(IL(B" . "$B%U(B") ("(IM(B" . "$B%X(B") ("(IN(B" . "$B%[(B")
  171. +    ("(IO(B" . "$B%^(B") ("(IP(B" . "$B%_(B") ("(IQ(B" . "$B%`(B") ("(IR(B" . "$B%a(B") ("(IS(B" . "$B%b(B")
  172. +    ("(IT(B" . "$B%d(B") ("(IU(B" . "$B%f(B") ("(IV(B" . "$B%h(B")
  173. +    ("(IW(B" . "$B%i(B") ("(IX(B" . "$B%j(B") ("(IY(B" . "$B%k(B") ("(IZ(B" . "$B%l(B") ("(I[(B" . "$B%m(B")
  174. +    ("(I\(B" . "$B%o(B") ("(I&(B" . "$B%r(B") ("(I](B" . "$B%s(B")
  175. +    ("(I$(B" . "$B!"(B") ("(I!(B" . "$B!#(B") ("(I%(B" . "$B!&(B")
  176. +    ("(I^(B" . "$B!+(B") ("(I_(B" . "$B!,(B") ("(I0(B" . "$B!<(B") ("(I"(B" . "$B!V(B") ("(I#(B" . "$B!W(B")))
  177.  
  178.  (defun pure-cs-japanese-kana-convert-region (beg end)
  179.    "Convert JISX0201 kana code into JISX0208"
  180. @@ -67,15 +67,15 @@
  181.        (save-restriction
  182.      (while (re-search-forward "\\ck" end t)
  183.        (setq ch (char-before))
  184. -      (cond ((and (= ch ?)IÑ) (looking-at "Ñ"))-A
  185. +      (cond ((and (= ch ?(I%(B) (looking-at "(I%(B"))
  186.           (delete-backward-char 1)
  187. -         (if (looking-at ")IÑÑ")-A
  188. +         (if (looking-at "(I%%(B")
  189.               (progn
  190.                 (delete-char 2)
  191. -               (insert "$(B!D(B"))
  192. +               (insert "$B!D(B"))
  193.             (delete-char 1)
  194. -           (insert "$(B!E(B")))
  195. -        ((looking-at "[)I▐▀]")-A
  196. +           (insert "$B!E(B")))
  197. +        ((looking-at "[(I^_(B]")
  198.           (backward-char)
  199.           (setq ch (cdr (assoc (buffer-substring (point) (+ 2 (point)))
  200.                        pure-cs-japanese-kana-twobytes-character-alist)))
  201. @@ -149,7 +149,6 @@
  202.    (unwind-protect
  203.        (save-restriction
  204.      (narrow-to-region beg end)
  205. -    (pure-cs-buffer-unibyte)
  206.      (let (ch result (eflag nil) (sflag nil) (escore 0) (sscore 0))
  207.        (save-excursion
  208.          (goto-char beg)
  209. diff -urN pure-0.5p/pure-cs.el pure-0.6p/pure-cs.el
  210. --- pure-0.5p/pure-cs.el    Wed Jun  6 23:23:06 2001
  211. +++ pure-0.6p/pure-cs.el    Sat Sep  1 04:33:54 2001
  212. @@ -5,7 +5,7 @@
  213.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  214.  ;; Keywords: PURE, coding-system
  215.  
  216. -;; $Id: pure-cs.el,v 1.5 2001/06/06 14:23:06 simm Exp $
  217. +;; $Id: pure-cs.el,v 1.7 2001/07/28 16:36:15 simm Exp $
  218.  
  219.  ;; This file is free software; you can redistribute it and/or modify
  220.  ;; it under the terms of the GNU General Public License as published by
  221. @@ -89,6 +89,7 @@
  222.                 result of FUNC evaluation (if CODING is nil)"
  223.    (or (pure-cs-detect-primitive string coding)
  224.        (with-temp-buffer
  225. +    (pure-cs-buffer-unibyte)
  226.      (insert string)
  227.      (funcall func (point-min) (point-max)))))
  228.  
  229. @@ -108,15 +109,17 @@
  230.        (goto-char beg)
  231.        (narrow-to-region beg end)
  232.        (while (re-search-forward "\033" nil t)
  233. -    (if (looking-at pure-cs-iso646-ank-regexp)
  234. -        (let ((tmpstr (decode-coding-string (buffer-substring pt (match-end 0)) 'x-ctext))
  235. -          (nchars (if pt (- (match-end 0) pt) 3)))
  236. -          (goto-char pt)
  237. -          (delete-char nchars)
  238. -          (insert (make-string nchars (or char pure-cs-hiding-char)))
  239. -          (add-text-properties pt (point) (list 'pure-cs-decode tmpstr) (current-buffer))
  240. -          (setq pt nil nchars nil))
  241. -      (or pt (setq pt (1- (point)))))))))
  242. +    (if (null pt)
  243. +        (setq pt (1- (point)))
  244. +      (if (looking-at pure-cs-iso646-ank-regexp)
  245. +          (let ((tmpstr
  246. +             (decode-coding-string (buffer-substring pt (match-end 0)) 'x-ctext))
  247. +            (nchars (if pt (- (match-end 0) pt) 3)))
  248. +        (goto-char pt)
  249. +        (delete-char nchars)
  250. +        (insert (make-string nchars (or char pure-cs-hiding-char)))
  251. +        (add-text-properties pt (point) (list 'pure-cs-decode tmpstr) (current-buffer))
  252. +        (setq pt nil nchars nil))))))))
  253.  
  254.  (defun pure-cs-unhide-region (beg end coding)
  255.    "Decode region with coding-system CODING, with text-property retains."
  256. diff -urN pure-0.5p/pure-make.el pure-0.6p/pure-make.el
  257. --- pure-0.5p/pure-make.el    Tue Jan  2 00:34:10 2001
  258. +++ pure-0.6p/pure-make.el    Mon Sep 17 00:34:37 2001
  259. @@ -5,7 +5,7 @@
  260.  ;; Author: SHIMADA Mitsunobu <simm@irc.fan.gr.jp>
  261.  ;; Keywords: PURE, make, install
  262.  
  263. -;; $Id: pure-make.el,v 1.4 2001/01/01 15:34:10 simm Exp $
  264. +;; $Id: pure-make.el,v 1.5 2001/09/16 15:30:24 simm Exp $
  265.  
  266.  ;; This file is free software; you can redistribute it and/or modify
  267.  ;; it under the terms of the GNU General Public License as published by
  268. @@ -90,15 +90,41 @@
  269.       dir))
  270.    "Directory of XEmacs package base. If FSF-Emacs, NIL.")
  271.  
  272. +(defvar pure-make-arguments
  273. +  (let ((alist nil) (rest command-line-args-left))
  274. +    (while rest
  275. +      (if (string-match "^\\([^=]+\\)=\\(.+\\)" (car rest))
  276. +      (setq alist (cons
  277. +               (cons
  278. +            (intern
  279. +             (downcase (substring (car rest) (match-beginning 1) (match-end 1))))
  280. +            (substring (car rest) (match-beginning 2) (match-end 2)))
  281. +               alist)))
  282. +      (setq rest (cdr rest)))
  283. +    alist)
  284. +  "Command line argunents for installation.
  285. +This variable assumes that command line (in Makefile) format is formatted below:
  286. +  $(EMACS) $(BYTECOMP) -f make-pure-install packagedir=$(PACKDIR) lispdir=$(LISPDIR)")
  287. +
  288. +(defun pure-make-get-argument (symbol)
  289. +  "Get argument value that equals to SYMBOL, from `pure-make-arguments'"
  290. +  (cdr (assq symbol pure-make-arguments)))
  291. +
  292.  (defun pure-make-directory (dir)
  293.    "Make directory named `dir'. If `dir' exists, do nothing.
  294.  If `dir'-named file exists, error occurs."
  295. -  (if (file-exists-p dir)
  296. -      (if (not (file-directory-p dir))
  297. -      (error "Canot make directory `%s': file `%s' exists." dir dir))
  298. -    (if (fboundp 'make-directory-internal)
  299. -    (make-directory-internal dir)
  300. -      (call-process "mkdir" nil nil nil dir))))
  301. +  (let ((parent (if (string-match "\\(.*\\)/[^/]*" dir)
  302. +            (substring dir (match-beginning 1) (match-end 1))
  303. +          dir)))
  304. +    (or (file-exists-p parent)
  305. +    (pure-make-directory parent))
  306. +    (if (file-exists-p dir)
  307. +    (if (not (file-directory-p dir))
  308. +        (error "Canot make directory `%s'" dir))
  309. +      (if (fboundp 'make-directory-internal)
  310. +      (make-directory-internal dir)
  311. +    (call-process "mkdir" nil nil nil dir))
  312. +      dir)))
  313.  
  314.  (defun pure-make-get-filename (item)
  315.    "Get filename from `item'.
  316. @@ -171,25 +197,30 @@
  317.       (lispbase (expand-file-name "lisp/" pbase))
  318.       (lispdir  (expand-file-name package lispbase))
  319.       (etcbase  (expand-file-name "etc/" pbase))
  320. -     (etcdir   (expand-file-name package etcbase))
  321. -     (infodir  (expand-file-name "pkginfo/" pbase)))
  322. -    (mapcar
  323. -     '(lambda (item) (pure-make-directory item))
  324. -     (list pbase lispbase lispdir etcbase etcdir infodir))
  325. +     (etcdir   (expand-file-name package etcbase)))
  326. +    (pure-make-directory lispdir)
  327.      (pure-make-install-current-lisp list lispdir)
  328. +    (message "Install other files...")
  329.      (mapcar
  330. -     '(lambda (item)
  331. +     (function
  332. +      (lambda (item)
  333.      (or (and (consp item)
  334.               (stringp (car item))
  335.               (symbolp (cdr item))
  336. -             (copy-file (car item) (expand-file-name (car item) (eval (cdr item))) t t))
  337. +             (progn
  338. +           (copy-file (car item) (expand-file-name (car item) (eval (cdr item))) t t)
  339. +           (message "%s -> %s"
  340. +                (car item) (expand-file-name (car item) (eval (cdr item))))))
  341.          (and (consp item)
  342.           (consp (car item))
  343.           (stringp (caar item))
  344.           (stringp (cdar item))
  345. -         (symbolp (cdr item))
  346. -         (copy-file (expand-file-name (caar item) (cdar item))
  347. -                (expand-file-name (caar item) (eval (cdr item))) t t))))
  348. +         (progn
  349. +           (copy-file (expand-file-name (caar item) (cdar item))
  350. +                  (expand-file-name
  351. +                   (caar item) (pure-make-directory (eval (cdr item)))) t t)
  352. +           (message "%s -> %s"
  353. +                (caar item) (expand-file-name (caar item) (eval (cdr item)))))))))
  354.       alist)))
  355.  
  356.  ;; That's all
  357. diff -urN pure-0.5p/pure-pr-ipaddr.el pure-0.6p/pure-pr-ipaddr.el
  358. --- pure-0.5p/pure-pr-ipaddr.el    Tue May  1 00:04:28 2001
  359. +++ pure-0.6p/pure-pr-ipaddr.el    Sat Sep  1 04:33:55 2001
  360. @@ -5,7 +5,7 @@
  361.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  362.  ;; Keywords: PURE, process, TCP, network, IP adress
  363.  
  364. -;; $Id: pure-pr-ipaddr.el,v 1.2 2001/04/30 15:04:28 simm Exp $
  365. +;; $Id: pure-pr-ipaddr.el,v 1.3 2001/07/09 16:12:51 simm Exp $
  366.  
  367.  ;; This file is free software; you can redistribute it and/or modify
  368.  ;; it under the terms of the GNU General Public License as published by
  369. @@ -63,7 +63,7 @@
  370.          (setq res "")
  371.        (setq res (number-to-string (/ num 390625))
  372.          num (% num 390625)))
  373. -    (concat res (number-to-string (+ ip0 (* 256 num))))))))
  374. +    (format "%s%08d" res (+ ip0 (* 256 num)))))))
  375.  
  376.  ;; That's all
  377.  (provide 'pure-pr-ipaddr)
  378. diff -urN pure-0.5p/pure-vs.el pure-0.6p/pure-vs.el
  379. --- pure-0.5p/pure-vs.el    Sun Jun 10 23:08:22 2001
  380. +++ pure-0.6p/pure-vs.el    Mon Sep 17 00:43:41 2001
  381. @@ -5,7 +5,7 @@
  382.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  383.  ;; Keywords: PURE, version-string
  384.  
  385. -;; $Id: pure-vs.el,v 1.6 2001/04/30 15:15:20 simm Exp $
  386. +;; $Id: pure-vs.el,v 1.7 2001/06/28 15:18:02 simm Exp $
  387.  
  388.  ;; This file is free software; you can redistribute it and/or modify
  389.  ;; it under the terms of the GNU General Public License as published by
  390. @@ -37,7 +37,7 @@
  391.    "Major version number of PURE current version")
  392.  ;(defconst pure-version-minor 0
  393.  ;  "Minor version number of PURE current version")
  394. -(defconst pure-version-branch 5
  395. +(defconst pure-version-branch 6
  396.    "Branch number of PURE current version")
  397.  (defconst pure-version-cvs nil
  398.    "If non-nil, this version of PURE is CVS version.
  399.