From 6e2753497124858210afbc4999e630e0b0812f17 Mon Sep 17 00:00:00 2001 From: Rei FURUKAWA Date: Sun, 6 Oct 2002 08:44:09 +0000 Subject: [PATCH] *** empty log message *** --- INSTALL | 27 +++++++++++++++++++++++++++ INSTALL.j | 23 +++++++++++++++++++++++ make_test.pl | 27 +++++++++++++++++++++++++++ 3 files changed, 77 insertions(+) create mode 100644 INSTALL create mode 100644 INSTALL.j create mode 100644 make_test.pl diff --git a/INSTALL b/INSTALL new file mode 100644 index 0000000..e0a8433 --- /dev/null +++ b/INSTALL @@ -0,0 +1,27 @@ +INSTALL + + Sun Sep 8 14:11:16 JST 2002 + +See Makefile, check + CC + CFLAGS + PERL +are correct. Then do + make +It should work on Linux, Solaris, Mac OS X. + +If mkstemp is not in the library, comment out +#define OVERWRITE in config.h + +To make Perl module, do + make perl +it creates NKF.mod. Or you can perform standard + perl Makefile.PL; make +in NKF.mod. It should work above Perl 5. Perl 5.6 or Perl 5.8 +is checked. + +You can do test, + make test +both in here and NKF.mod. + +Shinji KONO kono@ie.u-ryukyu.ac.jp diff --git a/INSTALL.j b/INSTALL.j new file mode 100644 index 0000000..51cdc40 --- /dev/null +++ b/INSTALL.j @@ -0,0 +1,23 @@ +INSTALLの仕方 + + Sun Sep 8 14:11:16 JST 2002 + +Makefile があるので、 + CC + CFLAGS + PERL +が正しいかどうかを確認して、 + make +してください。Linux, Solaris, Mac OS X で動作確認しています。 + +mkstemp がない場合は、config.h の #define OVERWRITE をコメントアウト +してください。 + +Perl モジュールを作るには、 + make perl +です。NKF.mod 下にできます。そちらで、perl Makefile.PL; make +でもOk。 Perl 5 以上で動作します。5.6, 5.8 で動作確認しています。 + +make test でテストが行われます。NKF.mod でも make test +が可能。 + diff --git a/make_test.pl b/make_test.pl new file mode 100644 index 0000000..e743ad4 --- /dev/null +++ b/make_test.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl +while ( ) { + $file = $_; + $test = $file; $test =~ s/\.cmd$//; + $out = $test.".out"; $out = `cat $out`; + $in = $test.".in"; $in = `cat $in`; + $opt = `cat $file`; chop($opt); + + $inpack = pack('u',$in); chop($inpack); + $outpack = pack('u',$out); chop($outpack); + +print << "EOFEOF"; +# $test + +\$example{'$test'} = unpack('u',<<'eofeof'); +$inpack +eofeof + +\$example{'$test.ans'} = unpack('u',<<'eofeof'); +$outpack +eofeof + +print "$test "; + \&test("\$nkf $opt",\$example{'$test'},\$example{'$test.ans'}); +EOFEOF + +} -- 2.11.0