OSDN Git Service
(root)
/
nkf
/
nkf.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8d307a4
)
perl module にしたときに --numchar-input が動かないのを修正
author
Rei FURUKAWA
<rei_furukawa@users.sourceforge.jp>
Mon, 24 Feb 2003 01:12:50 +0000
(
01:12
+0000)
committer
Rei FURUKAWA
<rei_furukawa@users.sourceforge.jp>
Mon, 24 Feb 2003 01:12:50 +0000
(
01:12
+0000)
nkf.c
patch
|
blob
|
history
diff --git
a/nkf.c
b/nkf.c
index
ef40684
..
23e6a99
100644
(file)
--- a/
nkf.c
+++ b/
nkf.c
@@
-1387,10
+1387,21
@@
code_status(c)
}
}
+#ifdef PERL_XS
+#define STD_GC_BUFSIZE (256)
+int std_gc_buf[STD_GC_BUFSIZE];
+int std_gc_ndx;
+#endif
+
int
std_getc(f)
FILE *f;
{
+#ifdef PERL_XS
+ if (std_gc_ndx){
+ return std_gc_buf[--std_gc_ndx];
+ }
+#endif
return getc(f);
}
@@
-1399,6
+1410,13
@@
std_ungetc(c,f)
int c;
FILE *f;
{
+#ifdef PERL_XS
+ if (std_gc_ndx == STD_GC_BUFSIZE){
+ return EOF;
+ }
+ std_gc_buf[std_gc_ndx++] = c;
+ return c;
+#endif
return ungetc(c,f);
}