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.6pl2.diff.gz / pure-0.6pl2.diff
Lisp/Scheme  |  2001-12-13  |  6KB  |  157 lines
  1. diff -urN pure-0.6p/c/pure-client.c pure-0.6pl2/c/pure-client.c
  2. --- pure-0.6p/c/pure-client.c    Sun Dec 31 01:31:42 2000
  3. +++ pure-0.6pl2/c/pure-client.c    Tue Nov 13 02:31:23 2001
  4. @@ -1,7 +1,7 @@
  5.  /*
  6.   * pure-client.c : common client process for PURE network service.
  7.   *
  8. - * $Id: pure-client.c,v 1.1 2000/12/30 16:31:42 simm Exp $
  9. + * $Id: pure-client.c,v 1.1.2.1 2001/11/12 17:31:23 simm Exp $
  10.   */
  11.  
  12.  #include "pure.h"
  13. @@ -13,8 +13,11 @@
  14.      struct hostent* hp;
  15.  
  16.      /* get IP address of peer */
  17. -    if ( !(hp = gethostbyname( peer->name )) ) return -1;
  18. -    peer->address = ntohl( ( (struct in_addr*)hp -> h_addr_list[0] ) -> s_addr );
  19. +    if(strchr(peer->name, '.')) {
  20. +        if ( !(hp = gethostbyname( peer->name )) ) return -1;
  21. +        peer->address = ntohl( ( (struct in_addr*)hp -> h_addr_list[0] ) -> s_addr );
  22. +    } else
  23. +        peer->address = strtoul(peer->name, NULL, 0);
  24.  
  25.      /* make connection */
  26.      if ( ( sock = socket( AF_INET, SOCK_STREAM, 0 ) ) < 0 ) return -2;
  27. diff -urN pure-0.6p/c/pure.h pure-0.6pl2/c/pure.h
  28. --- pure-0.6p/c/pure.h    Sun Dec 31 01:31:42 2000
  29. +++ pure-0.6pl2/c/pure.h    Tue Nov 13 02:31:23 2001
  30. @@ -1,7 +1,7 @@
  31.  /*
  32.   * pure.h : common header for PURE service.
  33.   *
  34. - * $Id: pure.h,v 1.1 2000/12/30 16:31:42 simm Exp $
  35. + * $Id: pure.h,v 1.1.2.1 2001/11/12 17:31:23 simm Exp $
  36.   */
  37.  
  38.  #include <fcntl.h>
  39. @@ -10,12 +10,12 @@
  40.  #include <stdio.h>
  41.  #include <stdlib.h>
  42.  #include <unistd.h>
  43. -#include <arpa/inet.h>
  44.  #include <sys/socket.h>
  45.  #include <sys/stat.h>
  46.  #include <sys/time.h>
  47.  #include <sys/types.h>
  48.  #include <netinet/in.h>
  49. +#include <arpa/inet.h>
  50.  
  51.  #ifndef O_BINARY
  52.  #define O_BINARY (0)
  53. diff -urN pure-0.6p/pure-cs.el pure-0.6pl2/pure-cs.el
  54. --- pure-0.6p/pure-cs.el    Sat Sep  1 04:33:54 2001
  55. +++ pure-0.6pl2/pure-cs.el    Thu Dec 13 01:07:07 2001
  56. @@ -5,7 +5,7 @@
  57.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  58.  ;; Keywords: PURE, coding-system
  59.  
  60. -;; $Id: pure-cs.el,v 1.7 2001/07/28 16:36:15 simm Exp $
  61. +;; $Id: pure-cs.el,v 1.7.2.1 2001/12/12 16:07:07 simm Exp $
  62.  
  63.  ;; This file is free software; you can redistribute it and/or modify
  64.  ;; it under the terms of the GNU General Public License as published by
  65. @@ -113,7 +113,8 @@
  66.          (setq pt (1- (point)))
  67.        (if (looking-at pure-cs-iso646-ank-regexp)
  68.            (let ((tmpstr
  69. -             (decode-coding-string (buffer-substring pt (match-end 0)) 'x-ctext))
  70. +             (decode-coding-string (buffer-substring pt (match-end 0))
  71. +                       (if (featurep 'xemacs) 'ctext 'x-ctext)))
  72.              (nchars (if pt (- (match-end 0) pt) 3)))
  73.          (goto-char pt)
  74.          (delete-char nchars)
  75. diff -urN pure-0.6p/pure-make.el pure-0.6pl2/pure-make.el
  76. --- pure-0.6p/pure-make.el    Mon Sep 17 00:34:37 2001
  77. +++ pure-0.6pl2/pure-make.el    Thu Sep 27 03:20:00 2001
  78. @@ -5,7 +5,7 @@
  79.  ;; Author: SHIMADA Mitsunobu <simm@irc.fan.gr.jp>
  80.  ;; Keywords: PURE, make, install
  81.  
  82. -;; $Id: pure-make.el,v 1.5 2001/09/16 15:30:24 simm Exp $
  83. +;; $Id: pure-make.el,v 1.5.2.1 2001/09/26 18:20:00 simm Exp $
  84.  
  85.  ;; This file is free software; you can redistribute it and/or modify
  86.  ;; it under the terms of the GNU General Public License as published by
  87. @@ -123,8 +123,8 @@
  88.          (error "Canot make directory `%s'" dir))
  89.        (if (fboundp 'make-directory-internal)
  90.        (make-directory-internal dir)
  91. -    (call-process "mkdir" nil nil nil dir))
  92. -      dir)))
  93. +    (call-process "mkdir" nil nil nil dir)))
  94. +    dir))
  95.  
  96.  (defun pure-make-get-filename (item)
  97.    "Get filename from `item'.
  98. @@ -194,6 +194,8 @@
  99.  (defun pure-make-install-package (list package &optional base &rest alist)
  100.    "Install Emacs Lisp in current directory as XEmacs package `package', according to `list'."
  101.    (let* ((pbase    (or base pure-make-package-base))
  102. +     (pkginfo  (expand-file-name "pkginfo/" pbase))
  103. +     (infodir  (expand-file-name "info/" pbase))
  104.       (lispbase (expand-file-name "lisp/" pbase))
  105.       (lispdir  (expand-file-name package lispbase))
  106.       (etcbase  (expand-file-name "etc/" pbase))
  107. diff -urN pure-0.6p/pure-vs.el pure-0.6pl2/pure-vs.el
  108. --- pure-0.6p/pure-vs.el    Mon Sep 17 00:43:41 2001
  109. +++ pure-0.6pl2/pure-vs.el    Thu Dec 13 01:34:15 2001
  110. @@ -5,7 +5,7 @@
  111.  ;; Author: SHIMADA Mitsunobu <simm@pure.fan.gr.jp>
  112.  ;; Keywords: PURE, version-string
  113.  
  114. -;; $Id: pure-vs.el,v 1.7 2001/06/28 15:18:02 simm Exp $
  115. +;; $Id: pure-vs.el,v 1.7.2.3 2001/12/12 16:34:15 simm Exp $
  116.  
  117.  ;; This file is free software; you can redistribute it and/or modify
  118.  ;; it under the terms of the GNU General Public License as published by
  119. @@ -39,17 +39,27 @@
  120.  ;  "Minor version number of PURE current version")
  121.  (defconst pure-version-branch 6
  122.    "Branch number of PURE current version")
  123. -(defconst pure-version-cvs nil
  124. -  "If non-nil, this version of PURE is CVS version.
  125. -If nil, package version.")
  126. -(defconst pure-version-string
  127. +(defconst pure-version-number
  128.    (if (boundp 'pure-version-minor)
  129. -      (format "%d.%d.%d%c"
  130. -          pure-version-major pure-version-minor pure-version-branch
  131. -          (if pure-version-cvs ?c ?p))
  132. -    (format "%d.%d%c"
  133. -        pure-version-major pure-version-branch
  134. -        (if pure-version-cvs ?c ?p)))
  135. +      (format "%d.%d.%d" pure-version-major pure-version-minor pure-version-branch)
  136. +    (format "%d.%d" pure-version-major pure-version-branch))
  137. +  "Version number string of PURE")
  138. +
  139. +(defconst pure-version-suffix 2
  140. +  "PURE version name suffix.
  141. +  NIL   : Package release version
  142. +  Number: Patch level to the release version
  143. +  String: CVS version
  144. +    \"c\": main trunk of CVS version
  145. +    \"m\": minesweepers' version (simm's working branch)")
  146. +(defconst pure-version-string
  147. +  (cond
  148. +   ((null pure-version-suffix)
  149. +    (concat pure-version-number "p"))
  150. +   ((numberp pure-version-suffix)
  151. +    (concat pure-version-number "pl" (number-to-string pure-version-suffix)))
  152. +   ((stringp pure-version-suffix)
  153. +    (concat pure-version-number pure-version-suffix)))
  154.    "Version string of PURE current version")
  155.  
  156.  ;;
  157.