🚀 go-pugleaf

86/286$@$N(JMINIX$@$G$bF0$/F|K\8lF~NO5!G=IU$-%(%G%#%?!V$"$j!)!W(J version
1.00a (skksrch.c version 1.00 $@"*(J version 1.00a$@$X$N%Q%C%A(J)$@$r%]%9%H(J
$@$7$^$9!#(J

$@$3$l$O!"=>Mh$N!V$"$j!)!W(J version 1.00$@$,(J SKK5.29$@$GG[I[$5$l$??7$7$$(J
$@%U%)!<%^%C%H$N(JSKK$@<-=q$KBP1~$G$-$F$$$J$$$?$a$N6[5^%Q%C%A(J( :-)$@$G!"(J
$@0J2<$N%U%!%$%k$r4^$_$^$9!#(J

  $@!&(Jskksrch.cdf $@!D(J skksrch.c version 1.00$@$+$i(J version 1.00a$@$X$N:9J,%U%!%$%k(J
                   (context diff$@7A<0(J)
  $@!&(JREADME1.00a $@!D(J $@2r@b%I%-%e%a%s%H(J

$@%Q%C%A$NFbMF$K$D$$$F$OIUB0$N%I%-%e%a%s%H(J README1.00a$@$r;2>H2<$5$$!#(J

$@$J$*!"$=$l$J$j$KF0:n3NG'$O$7$F$$$k$D$b$j$G$9$,!"$$$D$b$h$j4E$$$G$9!#(J(_ _)
bug$@!"IT6q9g$,=P$^$7$?$i@'Hs%l%]!<%H$r2<$5$$!#$G$-$k%l%Y%k$GBP=h$5(J
$@$;$FD:$-$^$9!#(J


----8<--------8<--------8<--------8<--------8<--------8<--------8<--------8<----
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	README1.00a
#	skksrch.cdf
# This archive created: Wed May 20 08:56:12 1992
export PATH; PATH=/bin:/usr/bin:$PATH
if test -f 'README1.00a'
then
	echo shar: "will not over-write existing file 'README1.00a'"
else
cat << \SHAR_EOF > 'README1.00a'

$@!!!!!v!v!v!v(J $@!V$"$j!)(J(Japanese fat ae with mock SKK)$@!W$N@bL@(J  $@!v!v!v!v(J

			   ari version 1.00a,  Copyright (C) 1991 Yuji Nimura

$@K\%I%-%e%a%s%H$OF|K\8lF~NO5!G=IU$-%(%G%#%?!V$"$j!)!W(J version 1.00a$@$K4X$9$k2r(J
$@@b$G$9!#(J


$@!Z35MW![(J

version 1.00a$@$O!"(JSKK5.29$@$GG[I[$5$l$??7$7$$7A<0$N(JSKK$@<-=q$KBP1~$9$k$?$a$N!"(J
skksrch.c version 1.00 $@$KBP$9$k6[5^%Q%C%A$G$9!#(J

$@K\%Q%C%A$r$"$F$k$3$H$K$h$j!"(J

  $@!&=>Mh(J(SKK4.30$@$^$G(J?)$@$N>:=g$KJB$s$@(JSKK$@<-=q!"$"$k$$$O$=$l$KBP$9$k5l%U%)!<%^%C(J
    $@%H$N%$%s%G%C%/%9<-=q(J
  $@!&(J(SKK5.29$@$GG[I[$5$l$?(J)$@?7$7$$%U%)!<%^%C%H$N(J SKK$@<-=q!"$"$k$$$O$=$l$KBP1~$9$k(J
    $@?7%U%)!<%^%C%H$N%$%s%G%C%/%9<-=q(J

$@$KBP1~$9$k$3$H$,$G$-$^$9!#(J

$@$J$*!"(Jversion 1.00a$@$G$O%$%s%G%C%/%9<-=q$N%$%s%G%C%/%9%U%)!<%^%C%H$r(J SKK$@<-=q(J
$@$N%3%a%s%H$N7A$K$J$k$h$&?7$7$/$7$^$7$?!#=>Mh%U%)!<%^%C%H$N%$%s%G%C%/%9<-=q$r(J
$@MxMQ$G$-$^$9$,!"?7$?$K%$%s%G%C%/%9<-=q$r:n$k>l9g$O!"I,$:?7%$%s%G%C%/%9%U%)!<(J
$@%^%C%H$K$J$j$^$9!#(J


$@!ZCm0U;v9`![(J

$@!&%m!<%+%k<-=q$O=>Mh$N>:=g$N<-=q$N$_$N%5%]!<%H$G$9!#?7$7$$%U%)!<%^%C%H$N<-=q(J
  $@$O;H$o$J$$$G2<$5$$!#(J
  $@8m$C$F?7$7$$%U%)!<%^%C%H$N<-=q$r;H$&$H!"FI$_9~$`$3$H$O$G$-$^$9$,<-=q$N99?7(J
  $@$,@5$7$/$G$-$^$;$s!#(J($@<-=q99?7;~$K>:=g$r2>Dj$7$F$$$k$?$a(J)

$@!&%f!<%6%$%s%?%U%'!<%9$O0l@ZJQ$o$C$F$$$^$;$s!#(JSKK5.29$@$G$NF3F~$5$l$??7$7$$%f!<(J
  $@%6%$%s%?%U%'!<%95!G=$KAjEv$9$k3HD%$O9T$J$C$F$$$^$;$s!#(J

$@!&%P!<%8%g%sHV9f$O(J skksrch.c$@$N$_(J1.00a$@$H$J$j!"B>$N%U%!%$%k$K$D$$$F$O(J version
  1.00$@$N$^$^$G$9!#(J ari$@F0:n;~$N(J version$@I=<($b(J1.00$@$H$J$j$^$9$N$G$4Cm0U2<$5$$!#(J

$@!&?7$7$$%U%)!<%^%C%H$N(J SKK$@<-=q$KBP1~$7!"$^$?%$%s%G%C%/%9%U%)!<%^%C%H$b?7$7$/(J
  $@$7$?$?$a!"(Jari.doc version 1.00$@$NFbMF$N$&$A!"3:EvItJ,$K0lItIT@09g$,@8$8$F$$(J
  $@$^$9!#(J

$@!&:#8e$N%P!<%8%g%s%"%C%W$O(Jversion 1.00$@$KBP$7$F9T$J$&M=Dj$G$9!#(Jversion 1.00$@$N(J
  skksrch.c$@$OJ]B8$7$F$*$$$F2<$5$$!#(J

$@!&:n6HNN0h$,A}$($?$?$a!"(JMINIX-PC$@>e$G(J stand alone$@HG$N!V$"$j!)!W(J(m_ari)$@$r:n$k(J
  $@$H(J stack$@$,(J6KB$@6/$7$+$"$j$^$;$s!#0l1~F0$$$F$$$k$h$&$G$9$,IT0B$G$9!#(JX-(


$@!ZG[I[$9$kFbMF![(J

    $@!&(Jskksrch.cdf $@!D(J skksrch.c version 1.00$@$+$i(J version 1.00a$@$X$N:9J,%U%!%$%k(J
                     (context diff$@7A<0(J)


$@!Z%Q%C%A$N$"$FJ}$NNc![(J

$@%Q%C%A$r$"$F$kA0$N(J skksrch.c version 1.00 $@$rJ]B8$7$^$9!#(J

   $ cp skksrch.c skksrch.cORG

$@<!$K!"0J2<$N$h$&$K%Q%C%A$r$"$F$^$9!#(J

   $ patch < skksrch.cdf

$@$=$N8e(Jskksrch($@$"$k$$$O(Jstand alone$@HG$N(Jm_ari)$@$r:n$jD>$7$^$9!#(J

   $ make

$@?7$7$/$G$-$?(Jskksrch$@$r=>Mh$N(Jskksrch$@$HF~$l49$($^$9!#(J

   $ cp ./skksrch $HOME/bin/skksrch

$@0J>e$G$9!#(J

					    $@!V$"$j!)!W(J 1.00a $@HG(J  May  11 1992
							  $@Cx:n<T(J  $@FsB<(J  $@M4CO(J
						JUNET:nimura@isl.melco.co.jp
					     Yuji.Nimura@ecs.isl.melco.co.jp
SHAR_EOF
fi
if test -f 'skksrch.cdf'
then
	echo shar: "will not over-write existing file 'skksrch.cdf'"
else
cat << \SHAR_EOF > 'skksrch.cdf'
*** ../ari1.00/skksrch.c	Sat Apr 11 06:42:03 1992
--- skksrch.c	Tue May 12 09:52:53 1992
***************
*** 27,33 ****
   * disctionary. He also implemented this function as 'IDX_SAVE' option to keep
   * their binary image in files which were isolated from the SKK dictionaries.
   */
! static char *version = "skksrch version 1.00,  04.12.1992\n";
  
  #include "config.h"
  #include <sys/types.h>
--- 27,33 ----
   * disctionary. He also implemented this function as 'IDX_SAVE' option to keep
   * their binary image in files which were isolated from the SKK dictionaries.
   */
! static char *version = "skksrch version 1.00a,  05.11.1992";
  
  #include "config.h"
  #include <sys/types.h>
***************
*** 39,44 ****
--- 39,45 ----
  #else
  # include <string.h>
  #endif
+ #include <time.h>
  #include <stdio.h>
  #include <errno.h>
  
***************
*** 124,129 ****
--- 125,131 ----
                          /* pos[KANA_SIZE]   KANA_MAX            */
                          /* pos[KANA_SIZE+1] more than KANA_MAX  */
                          /* pos[KANA_SIZE+2] terminator          */
+     long rpos[POS_SIZE]; /* pos for entries with okurigana */
      long base;  /* point of first entry */
  } l_tbl, g_tbl;
  
***************
*** 135,141 ****
       *gdic_name = NULL,
       *src_dic   = NULL,
       *start_index_mark = " Start of Index\n",
!      *end_index_mark   = " End of Index\n";
  
  static int curpos, debug;
  
--- 137,146 ----
       *gdic_name = NULL,
       *src_dic   = NULL,
       *start_index_mark = " Start of Index\n",
!      *end_index_mark   = " End of Index\n",
!      *okuri_ari  = " okuri-ari entries.",
!      *okuri_nasi = " okuri-nasi entries.",
!      *add_index_msg = ";; Index is added by ";
  
  static int curpos, debug;
  
***************
*** 319,333 ****
      int i;
      long l;
  
      for ( i = l = 0 ; i < POS_SIZE ; i++) {
!         fprintf(fp, " %09ld", l_tbl.pos[i]);
!         l += 10;
!         if (l >= 70) {
!             fputc('\n', fp);
              l = 0;
          }
      }
!     fputc('\n', fp);
  }
  
  static int
--- 324,339 ----
      int i;
      long l;
  
+     fputs(";;", fp);
      for ( i = l = 0 ; i < POS_SIZE ; i++) {
!         fprintf(fp, " %09ld:%09ld", l_tbl.pos[i], l_tbl.rpos[i]);
!         l += 20;
!         if (l >= 60) {
!             fputs("\n;;", fp);
              l = 0;
          }
      }
!     fputs("\n", fp);
  }
  
  static int
***************
*** 337,342 ****
--- 343,350 ----
  {
      int i, l;
      FILE *fp;
+     time_t clk;
+     char *p;
  
      if ((l_tbl.fp = fopen(s, DIC_RDMODE)) == NULL) {
          fprintf(stderr, "%s : can not open jisyo to read\n", s);
***************
*** 359,367 ****
      init_tbl(&l_tbl);
  
      /* write index */
!     fputs(start_index_mark, fp);
      wr_postbl(fp);
!     fputs(end_index_mark, fp);
  
      /* copy body */
      fseek(l_tbl.fp, l_tbl.base, 0);
--- 367,377 ----
      init_tbl(&l_tbl);
  
      /* write index */
!     time(&clk); p = ctime(&clk); p[10] = 0;
!     fprintf(fp, "%s`%s' at %s %s", add_index_msg, version, &p[4], &p[20]);
!     fprintf(fp, ";;%s", start_index_mark);
      wr_postbl(fp);
!     fprintf(fp, ";;%s", end_index_mark);
  
      /* copy body */
      fseek(l_tbl.fp, l_tbl.base, 0);
***************
*** 407,413 ****
  init_tbl(p)
      struct jdic_tbl *p;
  {
!     int idx, cur_idx, c1, c2;
      long cur_pos;
      FILE *fp;
  
--- 417,423 ----
  init_tbl(p)
      struct jdic_tbl *p;
  {
!     int idx, cur_idx, c1, c2, slen;
      long cur_pos;
      FILE *fp;
  
***************
*** 424,456 ****
      fseek(fp, 0L, 0);
      idx = 0;
      p->pos[idx] = 0L;
      while ((c1 = fgetc(fp)) == ' ') {
          skip_entry(fp);
      }
!     if (c1 == EOF) {
!         fseek(fp, 0L, 2);
!         p->base = ftell(fp);
!         while (idx < KANA_SIZE + 2) {
!             p->pos[++idx] = 0L;
!         }
!         return;
!     }
      p->base = cur_pos = ftell(fp) - 1L;
      fseek(fp, cur_pos, 0);
      while(idx < KANA_SIZE) {
          if ((c1 = fgetc(fp)) == EOF) break;
          if ((c2 = fgetc(fp)) == EOF) break;
!         cur_idx = codetoidx(calcode(c1, c2));
!         cur_pos = ftell(fp);
!         while(idx < cur_idx) {
!             p->pos[++idx] = cur_pos - 2L - p->base;
          }
!         skip_entry(fp);
      }
      fseek(fp, 0L, 2);
      cur_pos = ftell(fp) - p->base;
      while (idx < KANA_SIZE + 2) {
!         p->pos[++idx] = cur_pos ;
      }
      return;
  }
--- 434,529 ----
      fseek(fp, 0L, 0);
      idx = 0;
      p->pos[idx] = 0L;
+     p->rpos[idx] = 0L;
      while ((c1 = fgetc(fp)) == ' ') {
          skip_entry(fp);
      }
!     if (c1 == EOF)
!         goto no_entry;
! 
      p->base = cur_pos = ftell(fp) - 1L;
      fseek(fp, cur_pos, 0);
+     /*
+      * skip comment
+      */
+     Debug((stderr, "skip comment\n"));
+     slen=strlen(okuri_ari);
+     while (fgets(entrybuf, ENTRYBUF - 1, fp) != NULL) {
+         if (entrybuf[0] == ';' && entrybuf[1] == ';') {
+             if (strncmp(entrybuf+2, okuri_ari, slen) == 0)
+                 goto for_rpos;
+             if (strcmp(entrybuf+2, end_index_mark) == 0)
+                 p->base = ftell(fp);
+         }
+         else {
+             fseek(fp, cur_pos, 0);
+             idx = 0;
+             while (idx < POS_SIZE)
+                 p->rpos[idx++] = cur_pos;
+             goto for_pos;
+         }
+        cur_pos = ftell(fp);
+     }
+     goto no_entry;
+ 
+ for_rpos:
+     Debug((stderr, "make rpos table\n"));
+     idx = cur_idx = KANA_SIZE + 2;
+     cur_pos = ftell(fp);
+     p->rpos[idx] = cur_pos - p->base;
+     slen = strlen(okuri_nasi);
+     while (idx > 0) {
+         if ((c1 = fgetc(fp)) == EOF) break;
+         if ((c2 = fgetc(fp)) == EOF) break;
+         if (c1 == ';' && c2 == ';') {
+             cur_pos = ftell(fp) - 2L;
+             if (fgets(entrybuf, ENTRYBUF - 1, fp) == NULL) break;
+             if (strncmp(entrybuf, okuri_nasi, slen) == 0) break;
+         }
+         else {
+             cur_idx = codetoidx(calcode(c1, c2));
+             cur_pos = ftell(fp);
+             while(idx > cur_idx) {
+                 p->rpos[--idx] = cur_pos - 2L - p->base;
+             }
+             skip_entry(fp);
+         }
+     }
+     while (idx > 0) {
+         p->rpos[--idx] = cur_pos - p->base;
+     }
+ 
+ for_pos:
+     Debug((stderr, "make pos table\n"));
+     idx = 0;
      while(idx < KANA_SIZE) {
          if ((c1 = fgetc(fp)) == EOF) break;
          if ((c2 = fgetc(fp)) == EOF) break;
!         if (c1 == ';' && c2 == ';') {
!             if (fgets(entrybuf, ENTRYBUF - 1, fp) == NULL) break;
          }
!         else {
!             cur_idx = codetoidx(calcode(c1, c2));
!             cur_pos = ftell(fp);
!             while(idx < cur_idx) {
!                 p->pos[++idx] = cur_pos - 2L - p->base;
!             }
!             skip_entry(fp);
!         }
      }
      fseek(fp, 0L, 2);
      cur_pos = ftell(fp) - p->base;
      while (idx < KANA_SIZE + 2) {
!         p->pos[++idx] = cur_pos;
!     }
!     return;
! 
! no_entry:
!     fseek(fp, 0L, 2);
!     p->base = ftell(fp);
!     while (idx < KANA_SIZE + 2) {
!         p->pos[++idx] = 0L;
!         p->rpos[idx] = 0L;
      }
      return;
  }
***************
*** 463,485 ****
      struct jdic_tbl *tblp;
  {
      FILE *fp;
!     int idx, c;
!     long l;
      char *p;
  
      fp = tblp->fp;
      if (fgets(entrybuf, ENTRYBUF - 1, fp) == NULL)
          return 0;
!     if (strcmp(entrybuf, start_index_mark) != 0)
          return 0;
  
      /* read index */
!     l = 0;
      idx = 0;
      while (fgets(entrybuf, ENTRYBUF - 1, fp) != NULL) {
!         if (entrybuf[0] != ' ')
              return 0; /* wrong index */
!         if (strcmp(entrybuf, end_index_mark) == 0)
              break;
          p = entrybuf;
          while (idx < POS_SIZE) {
--- 536,562 ----
      struct jdic_tbl *tblp;
  {
      FILE *fp;
!     int idx, c, pad;
!     long l, rl;
      char *p;
  
      fp = tblp->fp;
      if (fgets(entrybuf, ENTRYBUF - 1, fp) == NULL)
          return 0;
!     if (strncmp(entrybuf, add_index_msg, strlen(add_index_msg)) == 0 &&
!         fgets(entrybuf, ENTRYBUF - 1, fp) == NULL)
!         return 0;
!     pad = (entrybuf[0] == ';' && entrybuf[1] == ';') ? 2: 0;
!     if (strcmp(entrybuf + pad, start_index_mark) != 0)
          return 0;
  
      /* read index */
!     l = rl = 0L;
      idx = 0;
      while (fgets(entrybuf, ENTRYBUF - 1, fp) != NULL) {
!         if (entrybuf[pad] != ' ')
              return 0; /* wrong index */
!         if (strcmp(entrybuf + pad, end_index_mark) == 0)
              break;
          p = entrybuf;
          while (idx < POS_SIZE) {
***************
*** 487,497 ****
              if (c == 0)
                  break;
              for (l = 0; '0' <= (c = *p++) && c <= '9'; l = l*10 + c-'0') ;
!             tblp->pos[idx++] = l;
          }
      }
!     while (idx < POS_SIZE)
          tblp->pos[idx++] = l;
  
      /* skip wrong entry */
      while ((c = fgetc(fp)) == ' ') {
--- 564,585 ----
              if (c == 0)
                  break;
              for (l = 0; '0' <= (c = *p++) && c <= '9'; l = l*10 + c-'0') ;
!             tblp->pos[idx] = l;
!             if (c == ':') {
!                 p++;
!                 for (rl=0; '0' <= (c = *p++) && c <= '9'; rl = rl*10 + c-'0') ;
!                 tblp->rpos[idx] = rl;
!             }
!             else {
!                 tblp->rpos[idx] = 0L;
!             }
!             idx++;
          }
      }
!     while (idx < POS_SIZE) {
!         tblp->rpos[idx] = rl;
          tblp->pos[idx++] = l;
+     }
  
      /* skip wrong entry */
      while ((c = fgetc(fp)) == ' ') {
***************
*** 505,510 ****
--- 593,600 ----
      for (idx = 1 ; idx < POS_SIZE; idx++) {
          if (tblp->pos[idx-1] > tblp->pos[idx])
              return 0; /* wrong index */
+         if (tblp->rpos[idx-1] < tblp->rpos[idx])
+             return 0; /* wrong index */
      }
      /* check file size */
      fseek(fp, 0L, 2);
***************
*** 527,535 ****
  
      if (p->fp == NULL) return 0;
  
!     i = codetoidx(calcode(s[0], s[1]));
!     start = p->pos[i] + p->base;
!     end = p->pos[i + 1] + p->base;
      fseek(p->fp, start, 0);
      while(start < end) {
          for (i = 0; (c=(s[i]&0xff)) >= ' ' && c == (fgetc(p->fp)&0xff); i++) {
--- 617,640 ----
  
      if (p->fp == NULL) return 0;
  
!     for (i = 0; (c=(s[i]&0xff)) > ' '; i++) ;
!     if (i >= 3 && 'a' <= (c=(s[i-1]&0xff)) && c <= 'z' && (s[0]&0xff) >= 0x80) {
!         /* okuri-ari */
!         Debug((stderr, "find_key: okuri-ari\n"));
!         i = codetoidx(calcode(s[0], s[1])); /* i must be greater than 0 */
!         start = p->rpos[i] + p->base;
!         end = p->rpos[i - 1] + p->base;
!         if (start == end) {
!             start = p->pos[i] + p->base;
!             end = p->pos[i + 1] + p->base;
!         }
!     }
!     else {
!         Debug((stderr, "find_key: okuri-nasi\n"));
!         i = codetoidx(calcode(s[0], s[1]));
!         start = p->pos[i] + p->base;
!         end = p->pos[i + 1] + p->base;
!     }
      fseek(p->fp, start, 0);
      while(start < end) {
          for (i = 0; (c=(s[i]&0xff)) >= ' ' && c == (fgetc(p->fp)&0xff); i++) {
***************
*** 1068,1073 ****
--- 1173,1179 ----
          case 'V':
              fputs("1", stdout);
              fputs(version, stdout);
+             fputs("\n", stdout);
              fflush(stdout);
              break;
  #ifdef UPDATE_DIC
SHAR_EOF
fi
exit 0
#	End of shell archive
----8<--------8<--------8<--------8<--------8<--------8<--------8<--------8<----
---
 ^ ^    ^ ^    / $B@$<N$F$i$lG-(B $B$3$H(B $BFsB<(B $BM4CO(B  /   ^ ^     ^ ^  
= ''=  = @@=  / $B;0I)EE5!!J3t!K>pJsEE;R8&5f=j(B /   =** =   =`` =
 ~~~    ~~~  / $B<qL#!'!!G-$H4QMU?"J*(B         /     ~~~     ~~~