namazu-ml(avocado)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: experimental version of regexp'ized Namazu

From: Ken-ichi Hirose <hirose@xxxxxxxxxxxxxxxxxxxx>
Date: Wed, 27 May 1998 10:04:46 +0900
X-ml-name: namazu
X-mail-count: 00695
References: <199805242043.FAA05099@vega.aichi-u.ac.jp>
広瀬と申します。
 <Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>> wrote.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>正規表現および中間一致、後方一致での検索を可能としたものがそこそこ
>動くようになったので実験的に公開します。まだ私のところでしか試して
>いないので動くかどうか確認していただけると助かります。
><URL:http://saturn.aichi-u.ac.jp/%7Eccsatoru/Namazu/proto/> に
>namazu-120-proto-1.tar.gz として置いておきます。

これに対する for win の patch をお願いしたいのですが。。。

単語リストをどう作るか、まだ確定では無いと思いますが sjis だとまずいと
思うので。。。
＃ただ全く無くなるとそれも困るかも知れないので option にしました。

ついでに Makefile.W32 も付けておきますので置き換えて下さい。＞高林さん

---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<--
*** wdnmz.pl.org	Tue May 26 17:23:54 1998
--- wdnmz.pl	Tue May 26 17:24:54 1998
***************
*** 18,58 ****
    wdnmz.pl v$VERSION -  全文検索システム Namazu の登録単語リスト表示プログラム
    $COPYRIGHT
  
!   使い方: wdnmz.pl NMZ.i
    出力  : 登録単語  TAB その単語が含まれるファイルの数
  EOFusage
  
  &main;
  
  sub main {
!     if (($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) {
! 	open(SAVEOUT, ">&STDOUT");
! 	open(STDOUT, "|$NKF -s");
      }
  
-     die &usage if @ARGV == 0;
      $OBJFILE = shift (@ARGV);
      open(OBJFILE, $OBJFILE) || die "Can't open $OBJFILE!\n";
      binmode(OBJFILE);
      &getintsize;
  
      while(<OBJFILE>) {
! 	read(OBJFILE, $n, $INTSIZE);
! 	$nn = unpack("I", $n);
! 	read(OBJFILE, $dummy, $INTSIZE * $nn);
! 	<OBJFILE>;
! 
! 	chop;
! 	$nn /= 2;
! 	print "$_\t$nn\n";
      }
!     if (($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) {
! 	open(STDOUT, ">&SAVEOUT");
      }
  }
  
  sub usage () {
      print $USAGE;
      exit;
  }
  
--- 18,70 ----
    wdnmz.pl v$VERSION -  全文検索システム Namazu の登録単語リスト表示プログラム
    $COPYRIGHT
  
!   使い方: $0 <-a> NMZ.i
!       -s: Shift-JIS で出力する(WIN32 or OS2 用)
    出力  : 登録単語  TAB その単語が含まれるファイルの数
  EOFusage
  
  &main;
  
  sub main {
!     die &usage if @ARGV == 0;
!     while ($ARGV[0] =~ /^-/) {
!     $OUTPUTKANJI = "sjis" if $ARGV[0] =~ /s/;
!     shift @ARGV;
!     }
!     if ((($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) && ($OUTPUTKANJI eq "sjis")) {
!     open(SAVEOUT, ">&STDOUT");
!     open(STDOUT, "|$NKF -s");
      }
  
      $OBJFILE = shift (@ARGV);
      open(OBJFILE, $OBJFILE) || die "Can't open $OBJFILE!\n";
      binmode(OBJFILE);
      &getintsize;
  
      while(<OBJFILE>) {
!     read(OBJFILE, $n, $INTSIZE);
!     $nn = unpack("I", $n);
!     read(OBJFILE, $dummy, $INTSIZE * $nn);
!     <OBJFILE>;
! 
!     chop;
!     $nn /= 2;
!     print "$_\t$nn\n";
      }
!     if ((($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) && ($OUTPUTKANJI eq "sjis")) {
!     open(STDOUT, ">&SAVEOUT");
      }
  }
  
  sub usage () {
+     if (($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) {
+     open(SAVEOUT, ">&STDOUT");
+     open(STDOUT, "|$NKF -s");
+     }
      print $USAGE;
+     if (($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) {
+     open(STDOUT, ">&SAVEOUT");
+     }
      exit;
  }
---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<--
  

   Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx
begin 644 Makefile.W32.gz
M'XL("'1?:C4``TUA:V5F:6QE+E<S,@#56EMSXD86?D:_HF<@!7B#O#NI?2$U
M63.`;3)<7`:O,Q,GI)%:H+%ND<1@'&=_^WZG6RT)!CL/8:NRKJE(=)^O^]S/
MZ5:JU3_Y9U2K;,3OA>-Z@CEAS,;<YX]K&@YC=^D&W&.AP]*5FS!)L^$)\[DM
MV&++1K')SM>^N^7)FDT[LXG)9BL>W">F8?Q9QA1KTVV2"I_>$N$)*V7;<!VS
M1(ZRQLUX\`/89+>#\3=OFMAT^F$ZZX\JE;=JZ%A<#'FP7/.EH/?&]YVKSK@_
M[=/&_?'%<#"]I*V'G?'%3>>BC[TUA7&L_7MN#-EA#Y$8QKO.M-\;7).0I^LD
M/O5"BWM&]V*0#=8:&47S5*36Z2I-(_O46KJMA1L8X\ZH\_&&*'<(`V7T=X,Q
M?LZAQ=UI(!FK,C=(4N[!'P)OR^H*4V=6Z/L\L,T,K5C(]Y%@`S/]'_2NI3DW
ML,6#T9MT#P'MT#*&@W>'ICQW870GX]FUFMZ;M<(@C4%Q).U?\70%807%@1+:
MQ`Z.84RN9G.U[1S,G"LN%<=:I1GED1B)PV7,_:3.HHPE&G4="@H8)Q6!S=*0
MK1.113';N.F*W;K!-V^^ED3)*EQ[-K-%8D%!$DY+42RO$S=8LCO\L03:PSME
M`SF;B(C''/YG*IFO.K/+^57_>IC[(&Q\&HG8*Z;'[Z4^@GL'89B/ON^\[TP'
M-''/[WGB%C/=2SC;F&:L%4]$0#IC_0?N1UE>DE(8U?T-K#:Q#![H(4.!7L`/
M/=3NU0/;OPC+>#N2U3JV[P8N=$H:K"=,^-SU&+?M6"2)4FBG-QJ,Y_U19R!5
MNA$+GR/#Q6=.&)H+'IN?HF-Q@SS10J`R.TLI6YG38N'QU/TLV,WUL*EXPML<
MQ*`E(^O\\3\(J4OAP75RYZ9I=L*(A<O^$%XV_]CMS!AK,Q8I$A0CGC+Q$"'K
M4/:)2)'"EN7I2_2H,V9?HN%1/AY(7`IF[.U'9GBT>&KLKD3#GY9QZ#BL1=C6
M+'"C*#R:7J96*$//%^DJM*4PD&8Z&%T-^R1#@GG!4(H3%X&Q9?!;:PW307J$
M,#S&9TXL?EV+P-IJ].Q\T#MG.^@]F./:SLZ6C#4&*5S5%SP`.\[:8YN5"!@6
MCK$ITBM'+6#I)J0B&'Z&^>[%=A/&=@+OF78GUX/Q!>E*[GTLY<QXO!32=+)C
MT?+Y]X'_R-0?A!Q021&QGMW8.[-792>(H.N4Q6+I4K!!&5("C8P_/X^,!61&
MFDU7U`>E\./8+O9$X5K[(D@3A4S(T=$U><))L]0;I6X8L':KJ2&Z6BQ="4'@
MR7TAB;5.^0(YD#6L,-H6-6@?ZA`6T'-D#H*7H+N4N42R>]K;9&]13$E2F7S_
MB!]CUKF^Z,O04391NE=Z+!8\LCN<(WRES=+,/70C*WL+"J:&A8)"S8L($I>R
MG%1=X_7<%@Y?>^EK"@FN@+);"C<!7($*Y5($`GE;F!)BA^PD"-,366'KM3JC
M!%3_N4XNA'"**2=1+B+;(IPXE;*86[)P$H/D.1L7#=0"_K!.0V0@%Z&(..91
MA.*MPE'JSHP\PA#LI-NYF0TFXY,VJ]_56>L[/.[J7TL&Z$>M5E?I2ZE_?CX8
M4A-JGMS=F:O4]_[U)%_3AQ0O6N:C=:8BV)9,0*>$`\K0_48B`X82?Z(.%4)J
M/4%V<:T5K4!-2J[F#4=XHJ&1ECQ@1E-MF(@T)3N[D@?A."AL5,MDRE*>&*^1
MKF0SU.(LE-%G_A]8M-<??]BQY])UE#4;GZ+ETZ=(+)N9=7E,TX]/E.+5T(+?
MX^4_3W@U3_#?AS??X#D>?90#QSZ:;%7BI2%=V+5YJ4:4S(SJ$TA]+19(HRY5
M(:G,1A()RW6VI+$OU2\#4)A+4WF#].RG_/6II]Q:#LNFF,H7C$JE:[<E1B*^
MO;V%T_`8O(@`1UQA[B<$%?U@4I]T=5YH:L.<=VZ&6:S!.,<.JTG`1L(GK8ZX
MU*G/'U#S'Z5>?34#-T/?FM5P%2)H<2RHRRP="U8<D>"O(6H&\[FU@LCJ/$"F
M<`,K%EP6,P339^ZM96FE2,A3*$Q#Y9$\'8U'C(J?'04FX_FH/YI<?T!W]`,4
M\<^_R[]CZ8$R"YN2W$/7=U-.@:L"+W,MCY)^3($8E/B'D%N&N)8ZV@AY*EH(
M)0YYFV2=;#>?#C[VY\/!:#`#\_\X+O/?<W2H`HJ]4F8)\P9!G4.*WH+<4XUI
M"G4<VJ7HKOA4!+L4<^C^ZG*70B4Z&#M:A5ZXI(2D/0.V-(Q;[#23IZ!LSZ/5
M`@>.E?=/K=YX0L=BEDL1J$`LGXQSVO/.=*:['J+UT>%1K#IH9]#9?$&($'QW
M<P%"6RS6:)A#6U7]K/TQ#(3H8-RGBXQ63U\_O+U[76OH'\V[UYC*FM6WM4;V
MUF1W1J75PV]YE]0$S=[Y4:ZR-T:+2=S>@7:75HVIC6L-98=F@2O=)>2XTIC&
MZ9NFYM&B3.M,ZY:8E6?[)/0%RF@L3JF];-EH>[W6O9OFE(-Q=WC34VH>L%JC
MO`)=[UC>VA8Y]7#P;JIN27;I/'=!Z^NGR8\FF<>7TB&IYOLR?ZK6F[*;2"VD
M@N[YL',AN6I-WH"SS&^:C+5NZ;*+'$;)V#2&O8+8\XU">*.ZXWQ55M)+(6RQ
MT+'*Q.(3W8FJ_LN8O/N^\K:215>(8YHM$&.?\8I^*^%+D>`UXCBWQ#0-/8?D
M>Y4-OT=BE8C`P6/EX3R$9[A.HS6]J%J94<L$2RO1$1J/6,S1]<AI5&V48P1Y
MZGIF>"PA+V0/[K&I2%OK"`;KDOZ7EF5TY,4@V@3K5X3[57_<DV</9`Y;4/=E
M7'?&<#D:C'E`=X;7\FX8I^26`[2^=33-4_PXSFVM85IFV#8J9\):A:P;^I'K
M406MG9@61FN-;K<)EU!>A^1BJ1D#KM:NU!JJAX>#R)ZQG;>.1D4RS6IG1H7N
M.EIH5Y-77^W<QGWUJI1J:*#Y:EDGFU%&+0%48B/J+,4=)M.W;#O+XO=+Y"H9
M[B"R_/@"2&7%'5"6*`^#2M<T&E0:>ADTZHSW,!AY!J+RL^[U")9E[,/DI4L\
MO45IZ$40DGQ_%T,CST"*BSD-*4:>@91.AAI3&GH&E!\^-"0?>!90-,4%IAA[
M!K;30FK<SN`SP+T&3D/WALM@'4WL.QE(U@IM`_O;`_TPY&5%6]U9_'4#3K-W
M2`)YT=)6]RU_70DT>X<D4+6KC?R(6M;42?3UT`WN90X]>UU*H41"WUMZ.I6&
MI37D=5B[H"IW(,\LK-?-%SP,WMM';I-]/JM8D;YC*V9S2AP]<LIJ]4M:NAJK
MR"\6Z$2H,*`LH6:5/R2U;%1FH^)_IN\J)NKSLS1&]JUN+OG#BU'!@?!']HJU
M;"H_\FMAD_WT+1VE@B(^;#=FK:B@^):F'+<DFKP3S.?SC0YLHKX'OK1)1I%O
M4D;G;?H+^)SFX`KJL^)+^(SB(#K[CO<".J,XB"X^3KZHY(+JX"K%]]@_UJ*D
M*IOKI3O80O>2%%YDA];I";U<]U&!^O0V"WLA/7&J#)9B&"[EC\G5!YR2"N7I
M!0ZY8:$D395]FL56.])_Z5\EH0S#\@0/VN7HL/]4="#6KT<4V5F[Q4[0M6;;
M2%^6;T:E2L<!ZBL1]2W\TT#]/TS0'9MAJ&:S;50K.^2E)H]^3*^[)$K*XS8M
M,^J\[S>9WM&H--"!7@[^W7_[2[2QGRA?UY.S'W\^_>GD].QL6?_E6VWXANS"
M+5*`'*NDU``[#'O4?LL6^1WZ?9*3RT<WHER2@9N4=7]3G>_OIR4`72":RT>B
,`Y/_!3$/DM!6(@``
`
end
Follow-Ups:
- Re: experimental version of regexp'ized Namazu
  - From: Satoru Takabayashi
References:
- experimental version of regexp'ized Namazu
  - From: Satoru Takabayashi
Prev by Date: mkmnz.pl jcode.pl patch
Next by Date: Re: mkmnz.pl jcode.pl patch
Previous by thread: experimental version of regexp'ized Namazu
Next by thread: Re: experimental version of regexp'ized Namazu
Index(es):
- Date
- Thread