🚀 go-pugleaf

$@@n>e(J@$@ElBg$H?=$7$^$9!#(J

$@$$$D$bF|K\8lMQ(J vi $@$H$7$F;HMQ$5$;$F$$(J$@$?$@$$$F$*$j$^$9!#$H$3$m$G(J
Ctrl-SPC$@$r2!$9$H=*N;$7$F$7$^$&%P%0!J!)!K$,%*%j%8%J%k!J(Jelvis-1.6)
$@$G$OD>$C$F(J$@$$$^$7$?$,!"F|K\8l%Q%C%A$rEv$F$k$H:FH/$7$F$$$^$7$?!#(J

kanji.c$@$N(Jkttyread$@$N:G8e!J#8#8#59T$a!K$N(J
	return strlen(buf); 
$@$r(J
	return ret;
$@$K$9$k$H$H$j$"$($:D>$j$^$9!J(Junix.c$@$N(Jttyread$@$NLa$jCM$r$=$N$^$^;H$&(J)

#$@9T(J$@HV9f$,=P$k$h$&$K$J$C$F$H$F$b4r$7$$!*(J
--
----------------------------------------------------
     $@El5~(J$@Bg3X9)3XIt(J $@@:L)5!3#9)3X2JBg1`8&5f<<(J
               $@@n>e(J $@OBI'(J(Kazuhiko Kawakami)
  E-mail: kazz@ozono.pe.u-tokyo.ac.jp  $@Fb@~(J: 6472

$@<+8J%U%)%m!<$G$9!#(J
$@@h$[$I(J
        return strlen(buf);
$@$r(J
	return ret;
$@$K$9$k$H$+$$$F$7$^$$$^$7$?$,!"(J
        return j;
$@$N4V0c$$$G$9(J
--
----------------------------------------------------
     $@El5~Bg3X9)3XIt(J $@@:L)5!3#9)3X2JBg1`8&5f<<(J
               $@@n>e(J $@OBI'(J(Kazuhiko Kawakami)
  E-mail: kazz@ozono.pe.u-tokyo.ac.jp  $@Fb@~(J: 6472

	$B$$$H$B$e$s$G$9!#AaB.$G$9$,%P%0%U%#%C%/%9$G$9!#(B

1) $B@55,I=8=$r;H$C$FCV49$9$k$H(Bcore$B$rEG$/!#(B
	$B5\(B$B:j(B@$BF|N)%=%U%H$5$s$+$iD:$-$^$7$?!#$I$&$b$"$j$,$H$&$4$6$$$^$9!#(B

----$B$3$3$+$i(B
*** regexp.c.orig	Fri Oct  2 13:25:02 1992
--- regexp.c	Fri Oct  2 13:28:13 1992
***************
*** 1023,1029 ****
  	}
  #else
  	for (nmatched = 0;
! 	     nmatched < to && *here && match1(re, *here, token, token2) == 0;
  	     nmatched++, here++)
  	{
  		if (iskanji(here[0]) && here[1])
--- 1023,1029 ----
  	}
  #else
  	for (nmatched = 0;
! 	     nmatched < to && *here && match1(re, here, token, token2) == 0;
  	     nmatched++, here++)
  	{
  		if (iskanji(here[0]) && here[1])
***************
*** 1079,1088 ****
--- 1079,1096 ----
  	if (re->bol)
  	{
  		/* must occur at BOL */
+ #if !KANJI
  		if ((re->first
  			&& match1(re, *(char *)str, re->first))/* wrong first letter? */
  		 || len < re->minlen			/* not long enough? */
  		 || match(re, (char *)str, prog, str))	/* doesn't match? */
+ #else
+ 		/*match1() never used, but for safe*/
+ 		if ((re->first
+ 			&& match1(re, str, re->first, 0))/* wrong first letter? */
+ 		 || len < re->minlen			/* not long enough? */
+ 		 || match(re, (char *)str, prog, str))	/* doesn't match? */
+ #endif
  			return 0;			/* THEN FAIL! */
  	}
  #ifndef CRUNCH
----$B$3$3$^$G(B


2) $B%I%-%e%a%s%H$K=q$$$F$"$k(Bftp site$B$NL>A0$,0c$&!#(B
	$B8m(B: lkbreth.foretune.co.jp
	$B@5(B: ftp.foretune.co.jp


	$B8fLBOG$r$*$+$1$$$?$7$^$7$?!#6`$s$GD{@5$5$;$FD:$-$^$9!#(B
--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B

	$B$$$H$B$e$s$G$9!#(B

On 2 Oct 92 04:04:55 JST, kazz@ozono.pe.u-tokyo.ac.jp (Kazuhiko Kawakami) said:

kazz> $B$$$D$bF|K\8lMQ(B vi $B$H$7$F;HMQ$5$;$F$$$?$@(B$B$$$F$*$j$^$9!#$H$3$m$G(B
kazz> Ctrl-SPC$B$r2!$9$H=*N;$7$F$7$^$&%P%0!J!)!K$,%*%j%8%J%k!J(Belvis-1.6)
kazz> $B$G(B$B$OD>$C$F$$$^$7$?$,!"F|K\8l%Q%C%A$rEv$F$k$H:FH/$7$F$$$^$7$?!#(B

kazz> kanji.c$B$N(Bkttyread$B$N:G8e!J#8#8#59T(B$B$a!K$N(B
kazz> 	return strlen(buf); 
kazz> $B$r(B
kazz> 	return j;		(<-$B<!$N(Bpost$B$h$j(B: itojun)
kazz> $B$K$9$k$H(B$B$H$j$"$($:D>$j$^$9!J(Bunix.c$B$N(Bttyread$B$NLa$jCM$r$=$N$^$^;H$&(B)

	$B$4$a$s$J$5$$(B+$B$I$&$b$"$j$,$H$&$4$6$$$^$9!#(B
	$B$h$/9M$($?$i$=$NA0$N(Bstrcpy()$B$b$^$:$$$G$9$M!#(B
	$B$"$H$G(Bpatch$B$rN.$7$^$9!#(B
--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B

	$B$$$H$B$e$s$G$9!#99$K%P%0%U%#%C%/%9$G$9!#(B

3) ctrl-SPACE(NUL)$B$rF~NO$9$k$H(Belvis$B$+$iH4$1$F$7$^$&!#(B
     $BEl5~Bg3X9)3XIt$N@n>eOBI'$5$s$+$i8f;XE&D:$-$^$7(B$B$?!#(B

----$B$3$3$+$i(B
*** kanji.org	Thu Oct 01 22:55:56 1992
--- kanji.c	Fri Oct 02 21:59:40 1992
***************
*** 749,760 ****
  	int	time;
  {
  static	char	preserve[KEYBUFSIZE]	= "";
  static	int	kflag		= FALSE;
  static	int	pack		= 0;
  static	int	sequence	= 0;
  	int	ret;
  	int	i;
- 	int	j;
  
  	do
  	{
--- 749,760 ----
  	int	time;
  {
  static	char	preserve[KEYBUFSIZE]	= "";
+ static	int	j		= 0;
  static	int	kflag		= FALSE;
  static	int	pack		= 0;
  static	int	sequence	= 0;
  	int	ret;
  	int	i;
  
  	do
  	{
***************
*** 763,769 ****
  		else
  			ret = ttyread(buf, len, time);
  		i = 0;
- 		j = strlen(preserve);
  		
  		/*timeout*/
  		if (!ret)
--- 763,768 ----
***************
*** 782,788 ****
  				preserve[j++] = pack;
  				pack = 0;
  			}
- 			preserve[j] = '\0';
  			break;
  		}
  		
--- 781,786 ----
***************
*** 876,888 ****
  					preserve[j++] = buf[i++];
  				}
  			}
- 			preserve[j] = '\0';
  		}
  	} while (sequence || pack || (!time && !j));
  	
! 	strcpy(buf, preserve);
  	preserve[0] = '\0';
! 	return strlen(buf);
  }
  
  #endif	/*KANJI*/
--- 874,887 ----
  					preserve[j++] = buf[i++];
  				}
  			}
  		}
  	} while (sequence || pack || (!time && !j));
  	
! 	memcpy(buf, preserve, j);
! 	ret = j;
  	preserve[0] = '\0';
! 	j = 0;
! 	return ret;
  }
  
  #endif	/*KANJI*/
----$B$3$3$^$G(B

--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)(B$B3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B

	$B$$$H$B$e$s$G$9!#%(%s%P%0$7$F$7$^$$$^$7$?$N$G$b$R$H$D!#(B
	traffic$BA}$d$7$F?=$7Lu$J$$$N$G$9$,!"$1$C$3$&(B$BCWL?E*$J$N$G(B
	$B$O$d$a$K%]%9%H$5$;$FD:$-$^$9!#(B

4) MSDOS$B$@$HJ8;z2=$1$,B?H/$9$k(B($BB>$N(BOS$B$J$iB?J,J?5$(B)$B!#(B
	halfmoon@jinNet$B$5$s$+$i8f;XE&D:$-$^$7$?!#(B

----$B$3$3$+$i(B
*** /user/elvis16/kanji.org     Thu Oct 01 22:55:56 1992
--- /user/elvis16/kanji.c       Fri Oct 02 23:55:10 1992
***************
*** 680,686 ****
        else
        {
                lseek(fd, pos, SEEK_SET);
!               tlen = tread(fd, tmp, i + 1);
                ret = ext2buf(buf, tmp, tlen, code);
        }
        free(tmp);
--- 680,686 ----
        else
        {
                lseek(fd, pos, SEEK_SET);
!               tlen = tread(fd, tmp, len - (tlen - i));
                ret = ext2buf(buf, tmp, tlen, code);
        }
        free(tmp);
----$B$3$3$^$G(B

--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&(B$B5f2J7W;;5!2J3X@l96(B $B=j8&5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B

	$B<FED!w#S#G#I$H?=$7(B$B$^$9!#(B

  jelvis 1.6+j1.0 $B$N(B settings $B$H$$$&%U%!%$%k$NCf$G!"(B

>  $B$(!<$H!"(BIRIX $B$G$O(B$B2<5-$N@_Dj$,I,MW$G$9!#(B
>
> LIBS=   -ltermcap -lmalloc
> CC=     cc -cckr
> CFLAGS= -DM_SYSV -g -DNO_CURSORSHAPE -DIRIX

  $B$H8@$$$^$7$?$,!"(B-g $B$G$"$kI,MW$O$"$j$^$;$s$G$7$?(B$B!#(B-O $B$7$F$b$^$C$?$/Ld(B
$BBj$"$j$^$;$s!#!#(B
  $B;d$,%Y!<%?%F%9%H$N(B Makefile.mix $B$N(B$BFbMF$r%a!<%j%s%0%j%9%H$KAw$C$F$7$^(B
$B$&$H$$$&%_%9$r$*$+$7$?7k2L$G$9!#(B

  $B$$$H$8$e$s$5$s!"$_$J$5$s$4$a$s$J$5$$!#(B

--
(defvar after-five-hook				;	    $B<F(B$BED(B $B7r(B
  '((lambda ()					;   $BF|K\%7%j%3%s%0%i%U%#%C%/%9(B
      (while (<= (current-time) mid-night)	;	shibata@sgi.co.jp
	(drink beer)))))			;	shibata@nsg.sgi.com