ferret 0.2.2 → 0.3.0

data/ext/term.c

@@ -10,179 +10,137 @@
 void
 frt_term_free(void *p)
 {
-	Term *term;
-	term = (Term *)p;
-	free((void *)(term->field));
-	free((void *)(term->text));
-	free(p);
+  Term *term = (Term *)p;
+  free(term->text);
+  free(p);
+}
+
+void
+frt_term_mark(void *p)
+{
+  Term *term = (Term *)p;
+  rb_gc_mark(term->field);
 }
 
 static VALUE
 frt_term_alloc(VALUE klass)
 {
-	Term *term;
-	term = (Term *)ALLOC(Term);
-	term->field = (char *)ALLOC_N(char, 1);
-	term->text = (char *)ALLOC_N(char, 1);
-	
-	VALUE rbuffer = Data_Wrap_Struct(klass, NULL, frt_term_free, term);
-	return rbuffer;
+  Term *term = ALLOC(Term);
+  MEMZERO(term, Term, 1);
+  term->field = Qnil;
+  return Data_Wrap_Struct(klass, frt_term_mark, frt_term_free, term);
 }
 
+#define GET_TERM Term *term; Data_Get_Struct(self, Term, term)
 VALUE 
 frt_term_set(VALUE self, VALUE rfield, VALUE rtext)
 {
-	Term *term;
-	int flen = RSTRING(rfield)->len;
-	int tlen = RSTRING(rtext)->len;
- 	char *field = RSTRING(rfield)->ptr;
- 	char *text = RSTRING(rtext)->ptr;
-	Data_Get_Struct(self, Term, term);
+  int tlen;
+  GET_TERM;
 
-	REALLOC_N(term->field, char, flen + 1);
-	REALLOC_N(term->text, char, tlen + 1);
-	
-	MEMCPY(term->field, field, char, flen);
-	MEMCPY(term->text, text, char, tlen);
-	term->flen = flen;
-	term->tlen = tlen;
-	
-	return Qnil;
+  tlen = RSTRING(rtext)->len;
+  term->field = rfield;
+  REALLOC_N(term->text, char, tlen + 1);
+  MEMCPY(term->text, RSTRING(rtext)->ptr, char, tlen);
+  term->tlen = tlen;
+  
+  return Qnil;
 }
 
 static VALUE 
 frt_term_init(VALUE self, VALUE rfield, VALUE rtext)
 {
-	frt_term_set(self, rfield, rtext);
-	return self;
+  frt_term_set(self, rfield, rtext);
+  return self;
 }
 
 static VALUE 
 frt_term_get_text(VALUE self)
 {
-	Term *term;
-	Data_Get_Struct(self, Term, term);
-	return rb_str_new(term->text, term->tlen);
+  GET_TERM;
+  return rb_str_new(term->text, term->tlen);
 }
 
 static VALUE 
 frt_term_set_text(VALUE self, VALUE rtext)
 {
-	Term *term;
-	int tlen = RSTRING(rtext)->len;
- 	char *text = RSTRING(rtext)->ptr;
-	Data_Get_Struct(self, Term, term);
+  int tlen;
+  char *text;
+  GET_TERM;
+  tlen = RSTRING(rtext)->len;
+  text = RSTRING(rtext)->ptr;
 
-	REALLOC_N(term->text, char, tlen + 1);
-	
-	MEMCPY(term->text, text, char, tlen);
-	term->tlen = tlen;
-	
-	return Qnil;
+  REALLOC_N(term->text, char, tlen + 1);
+    
+  MEMCPY(term->text, text, char, tlen);
+  term->tlen = tlen;
+    
+  return Qnil;
 }
 
 static VALUE 
 frt_term_get_field(VALUE self)
 {
-	Term *term;
-	Data_Get_Struct(self, Term, term);
-	return rb_str_new(term->field, term->flen);
+  GET_TERM;
+  return term->field;
 }
 
 static VALUE 
 frt_term_set_field(VALUE self, VALUE rfield)
 {
-	Term *term;
-	int flen = RSTRING(rfield)->len;
- 	char *field = RSTRING(rfield)->ptr;
-	Data_Get_Struct(self, Term, term);
-
-	REALLOC_N(term->field, char, flen + 1);
-	
-	MEMCPY(term->field, field, char, flen);
-	term->flen = flen;
-	
-	return Qnil;
+  GET_TERM;
+  term->field = rfield;
+  return Qnil;
 }
 
 VALUE 
 frt_term_to_s(VALUE self)
 {
-	Term *term;
-	int tlen, flen;
-	Data_Get_Struct(self, Term, term);
-	tlen = term->tlen;
-	flen = term->flen;
-	char res[flen + tlen + 1];
-	char delim[] = ":";
-	
-	MEMCPY(res, term->field, char, flen);
-	MEMCPY(res + flen, delim, char, 1);
-	MEMCPY(res + flen + 1, term->text, char, tlen);
-	return rb_str_new(res, tlen + flen + 1 );
+  int tlen, flen;
+  char delim[] = ":";
+  char *res;
+  GET_TERM;
+  tlen = term->tlen;
+  flen = RSTRING(term->field)->len;
+  res = alloca(flen + tlen + 1);    
+  
+  MEMCPY(res, StringValuePtr(term->field), char, flen);
+  MEMCPY(res + flen, delim, char, 1);
+  MEMCPY(res + flen + 1, term->text, char, tlen);
+  return rb_str_new(res, tlen + flen + 1 );
+}
+
+inline int
+frt_term_cmp(Term *t1, Term *t2)
+{
+  int comp, size, my_len, o_len;
+    
+  my_len = RSTRING(t1->field)->len;
+  o_len = RSTRING(t2->field)->len;
+  size = my_len >= o_len ? o_len : my_len;
+  comp = memcmp(RSTRING(t1->field)->ptr, RSTRING(t2->field)->ptr, size);
+  if (comp == 0) {
+    if (my_len == o_len) {
+      my_len = t1->tlen;
+      o_len = t2->tlen;
+      size = my_len >= o_len ? o_len : my_len;
+      comp = memcmp(t1->text, t2->text, size);
+      if(comp == 0 && my_len != o_len)
+        comp = my_len > o_len ? 1 : -1;
+    } else {
+      comp = my_len > o_len ? 1 : -1;
+    }
+  }
+  return comp;
 }
 
-VALUE 
-frt_term_compare_to(VALUE self, VALUE rother)
-{
-	int comp, size, mylen, olen;
-	Term *term, *other;
-	Data_Get_Struct(self, Term, term);
-	Data_Get_Struct(rother, Term, other);
-	
-	mylen = term->flen;
-	olen = other->flen;
-	size = mylen >= olen ? olen : mylen;
-	comp = memcmp(term->field, other->field, size);
-	if(comp == 0){
-		if(mylen == olen){
-			mylen = term->tlen;
-			olen = other->tlen;
-			size = mylen >= olen ? olen : mylen;
-			comp = memcmp(term->text, other->text, size);
-			if(comp == 0 && mylen != olen)
-				comp = mylen > olen ? 1 : -1;
-		} else
-			comp = mylen > olen ? 1 : -1;
-	}
-  /*
-	comp = strcmp(term->field, other->field);
-	if(comp == 0)
-		comp = strcmp(term->text, other->text);
-  */
-	return INT2FIX(comp);
-}
-
-/* keep in synch with fuction above */
 int
 frt_term_compare_to_int(VALUE self, VALUE rother)
 {
-	int comp, size, mylen, olen;
-	Term *term, *other;
-	Data_Get_Struct(self, Term, term);
-	Data_Get_Struct(rother, Term, other);
-	
-	mylen = term->flen;
-	olen = other->flen;
-	size = mylen >= olen ? olen : mylen;
-	comp = memcmp(term->field, other->field, size);
-	if(comp == 0){
-		if(mylen == olen){
-			mylen = term->tlen;
-			olen = other->tlen;
-			size = mylen >= olen ? olen : mylen;
-			comp = memcmp(term->text, other->text, size);
-			if(comp == 0 && mylen != olen)
-				comp = mylen > olen ? 1 : -1;
-		} else
-			comp = mylen > olen ? 1 : -1;
-	}
-  /*
-	comp = strcmp(term->field, other->field);
-	if(comp == 0)
-		comp = strcmp(term->text, other->text);
-  */
-	return comp;
+  Term *other;
+  GET_TERM;
+  Data_Get_Struct(rother, Term, other);
+  return frt_term_cmp(term, other);
 }
 
 VALUE
@@ -218,21 +176,18 @@ frt_term_eq(VALUE self, VALUE rother)
 }
 
 
-/*
 static VALUE
 frt_term_compare_to(VALUE self, VALUE other)
 {
-	return INT2FIX(frt_term_compare_to_int(self, other));
+  return INT2FIX(frt_term_compare_to_int(self, other));
 }
-*/
 
 static VALUE
 frt_term_hash(VALUE self)
 {
-	Term *term;
-	Data_Get_Struct(self, Term, term);
+  GET_TERM;
   return INT2FIX(frt_hash(term->text, term->tlen) +
-      frt_hash(term->field, term->flen));
+      frt_hash(RSTRING(term->field)->ptr, RSTRING(term->field)->len));
 }
 
 /****************************************************************************
@@ -244,24 +199,24 @@ frt_term_hash(VALUE self)
 void
 Init_term(void)
 {
-	/* Term */
-	cTerm = rb_define_class_under(mIndex, "Term", rb_cObject);
-	rb_define_alloc_func(cTerm, frt_term_alloc);
-	rb_include_module(cTerm, rb_mComparable);
-
-	rb_define_method(cTerm, "initialize", frt_term_init, 2);
-	rb_define_method(cTerm, "set!", frt_term_set, 2);
-	rb_define_method(cTerm, "to_s", frt_term_to_s, 0);
-	rb_define_method(cTerm, "<=>", frt_term_compare_to, 1);
-	rb_define_method(cTerm, "<", frt_term_lt, 1);
-	rb_define_method(cTerm, ">", frt_term_gt, 1);
-	rb_define_method(cTerm, "<=", frt_term_le, 1);
-	rb_define_method(cTerm, ">=", frt_term_ge, 1);
-	rb_define_method(cTerm, "eql?", frt_term_eq, 1);
-	rb_define_method(cTerm, "==", frt_term_eq, 1);
-	rb_define_method(cTerm, "text", frt_term_get_text, 0);
-	rb_define_method(cTerm, "text=", frt_term_set_text, 1);
-	rb_define_method(cTerm, "field", frt_term_get_field, 0);
-	rb_define_method(cTerm, "field=", frt_term_set_field, 1);
-	rb_define_method(cTerm, "hash", frt_term_hash, 0);
+  /* Term */
+  cTerm = rb_define_class_under(mIndex, "Term", rb_cObject);
+  rb_define_alloc_func(cTerm, frt_term_alloc);
+  rb_include_module(cTerm, rb_mComparable);
+
+  rb_define_method(cTerm, "initialize", frt_term_init, 2);
+  rb_define_method(cTerm, "set!", frt_term_set, 2);
+  rb_define_method(cTerm, "to_s", frt_term_to_s, 0);
+  rb_define_method(cTerm, "<=>", frt_term_compare_to, 1);
+  rb_define_method(cTerm, "<", frt_term_lt, 1);
+  rb_define_method(cTerm, ">", frt_term_gt, 1);
+  rb_define_method(cTerm, "<=", frt_term_le, 1);
+  rb_define_method(cTerm, ">=", frt_term_ge, 1);
+  rb_define_method(cTerm, "eql?", frt_term_eq, 1);
+  rb_define_method(cTerm, "==", frt_term_eq, 1);
+  rb_define_method(cTerm, "text", frt_term_get_text, 0);
+  rb_define_method(cTerm, "text=", frt_term_set_text, 1);
+  rb_define_method(cTerm, "field", frt_term_get_field, 0);
+  rb_define_method(cTerm, "field=", frt_term_set_field, 1);
+  rb_define_method(cTerm, "hash", frt_term_hash, 0);
 }

data/ext/term_buffer.c

@@ -1,6 +1,7 @@
 #include "ferret.h"
 
-ID field_name;
+ID id_field_name;
+ID id_field_array;
 
 /****************************************************************************
  *
@@ -11,115 +12,90 @@ ID field_name;
 void
 frt_termbuffer_free(void *p)
 {
-	TermBuffer *tb;
-	tb = (TermBuffer *)p;
-	free((void *)(tb->text));
-	free((void *)(tb->field));
-	free(p);
+  Term *tb = (Term *)p;
+  free(tb->text);
+  free(p);
+}
+
+void
+frt_termbuffer_mark(void *p)
+{
+  Term *tb = (Term *)p;
+  rb_gc_mark(tb->field);
 }
 
 static VALUE
 frt_termbuffer_alloc(VALUE klass)
 {
-	TermBuffer *tb;
-	tb = (TermBuffer *)ALLOC(TermBuffer);
-	tb->text = NULL;
-	tb->field = NULL;
-	tb->tlen = 0;
-	tb->flen = 0;
-
-	VALUE rbuffer = Data_Wrap_Struct(klass, NULL, frt_termbuffer_free, tb);
-	return rbuffer;
+  Term *tb = ALLOC(Term);
+  MEMZERO(tb, Term, 1);
+  tb->field = Qnil;
+  return Data_Wrap_Struct(klass, frt_termbuffer_mark, frt_termbuffer_free, tb);
 }
 
 static VALUE
 frt_termbuffer_init(VALUE self)
 {
-	rb_iv_set(self, "@term", Qnil);
+  rb_iv_set(self, "@term", Qnil);
   return Qnil;
 }
 
+#define GET_TB Term *tb; Data_Get_Struct(self, Term, tb)
 static VALUE
 frt_termbuffer_get_text_length(VALUE self)
 {
-
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
+  GET_TB;
   return INT2FIX(tb->tlen);
 }
 
 static VALUE
 frt_termbuffer_get_text(VALUE self)
 {
-
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
+  GET_TB;
   return rb_str_new(tb->text, tb->tlen);
 }
 
 static VALUE
 frt_termbuffer_get_field_name(VALUE self)
 {
-
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
-  return rb_str_new(tb->field, tb->flen);
+  GET_TB;
+  return tb->field;
 }
 
 static VALUE
 frt_termbuffer_reset(VALUE self)
 {
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
+  GET_TB;
 
-	tb->field = NULL;
-	tb->text = NULL;
-	tb->tlen = 0;
-	tb->flen = 0;
+  free(tb->text);
+  MEMZERO(tb, Term, 1);
+  tb->field = Qnil;
 
-	return Qnil;
+  return Qnil;
 }
 
-static VALUE
+VALUE
 frt_termbuffer_to_term(VALUE self)
 {
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
+  GET_TB;
 
-	if(tb->field == NULL) {
-		return Qnil;
+  if(NIL_P(tb->field)) {
+    return Qnil;
   } else {
-    VALUE field = rb_str_new(tb->field, tb->flen);
-    VALUE text = rb_str_new(tb->text, tb->tlen);
-    return rb_funcall(cTerm, frt_newobj, 2, field, text);
-	}
+    VALUE args[2];
+    args[0] = tb->field;
+    args[1] = rb_str_new(tb->text, tb->tlen);
+    return rb_class_new_instance(2, args, cTerm);
+  }
 }
 
 int 
 frt_termbuffer_compare_to_int(VALUE self, VALUE rother)
 {
-	int comp, size, my_len, o_len;
-	TermBuffer *tb, *other;
-	Data_Get_Struct(self, TermBuffer, tb);
-	Data_Get_Struct(rother, TermBuffer, other);
-	
-	my_len = tb->flen;
-	o_len = other->flen;
-	size = my_len >= o_len ? o_len : my_len;
-	comp = memcmp(tb->field, other->field, size);
-	if(comp == 0){
-		if(my_len == o_len) {
-			my_len = tb->tlen;
-			o_len = other->tlen;
-			size = my_len >= o_len ? o_len : my_len;
-			comp = memcmp(tb->text, other->text, size);
-			if(comp == 0 && my_len != o_len)
-				comp = my_len > o_len ? 1 : -1;
-		} else {
-			comp = my_len > o_len ? 1 : -1;
-    }
-	}
-	return comp;
+  Term *other; 
+  GET_TB;
+  Data_Get_Struct(rother, Term, other);
+  return frt_term_cmp(tb, other);
 }
 
 VALUE
@@ -157,105 +133,60 @@ frt_termbuffer_eq(VALUE self, VALUE rother)
 static VALUE
 frt_termbuffer_compare_to(VALUE self, VALUE rother)
 {
-	return INT2FIX(frt_termbuffer_compare_to_int(self, rother));
-}
-
-static VALUE
-frt_termbuffer_set_term(VALUE self, VALUE rterm)
-{
-	TermBuffer *tb;
-  Term *term;
-	int tlen, flen;
-	
-	Data_Get_Struct(self, TermBuffer, tb);
-	Data_Get_Struct(rterm, Term, term);
-
-	tlen = term->tlen;
-	flen = term->flen;
-	
-	if(tb->field == NULL){
-		tb->field = (char *)ALLOC_N(char, flen+1);
-		tb->text = (char *)ALLOC_N(char, tlen+1);
-	} else {
-		REALLOC_N(tb->text, char, tlen+1);
-		REALLOC_N(tb->field, char, flen+1);
-	}
-	
-	tb->flen = flen;
-	tb->tlen = tlen;
-	MEMCPY(tb->text, term->text, char, tlen);
-	MEMCPY(tb->field, term->field, char, flen);
-
-	return Qnil;
+  return INT2FIX(frt_termbuffer_compare_to_int(self, rother));
 }
 
-static VALUE
+VALUE
 frt_termbuffer_init_copy(VALUE self, VALUE rother)
 {
-	TermBuffer *tb, *other;
-	int tlen, flen;
-	
-	Data_Get_Struct(self, TermBuffer, tb);
-	Data_Get_Struct(rother, TermBuffer, other);
-
-	tlen = other->tlen;
-	flen = other->flen;
-	
-	if(tb->field == NULL){
-		tb->field = (char *)ALLOC_N(char, flen+1);
-		tb->text = (char *)ALLOC_N(char, tlen+1);
-	} else {
-		REALLOC_N(tb->text, char, tlen+1);
-		REALLOC_N(tb->field, char, flen+1);
-	}
-	
-	tb->flen = flen;
-	tb->tlen = tlen;
-	MEMCPY(tb->text, other->text, char, tlen);
-	MEMCPY(tb->field, other->field, char, flen);
-
-	return Qnil;
+  Term *tb_other;
+  int tlen;
+  GET_TB;
+  Data_Get_Struct(rother, Term, tb_other);
+
+  tlen = tb_other->tlen;
+  REALLOC_N(tb->text, char, tlen+1);
+  tb->tlen = tlen;
+  MEMCPY(tb->text, tb_other->text, char, tlen);
+
+  tb->field = tb_other->field;
+
+  return Qnil;
 }
 
-static VALUE
-frt_termbuffer_read(VALUE self, VALUE input, VALUE info)
-{
-	TermBuffer *tb;
-	int tlen, flen, start, length;
-	VALUE field, fnum;
-	Data_Get_Struct(self, TermBuffer, tb);
-	
-	start = frt_read_vint(input);
-	length = frt_read_vint(input);
-	tlen = start + length;
-	
-	if(tb->field == NULL){
-		tb->text = (char *)ALLOC_N(char, tlen+1);
-	} else {
-		REALLOC_N(tb->text, char, tlen+1);
-	}
-	
-	frt_read_chars(input, tb->text, start, length);
-  fnum = INT2FIX(frt_read_vint(input));
-  field = rb_funcall(info, field_name, 1, fnum);
-  flen = RSTRING(field)->len;
-  
-  REALLOC_N(tb->field, char, flen+1);
+VALUE
+frt_termbuffer_read(VALUE self, VALUE rinput, VALUE rfield_infos)
+{
+  IndexBuffer *input;
+  int tlen, start, length, fnum;
+  GET_TB;
+  Data_Get_Struct(rinput, IndexBuffer, input);
+    
+  start = frt_read_vint(rinput, input);
+  length = frt_read_vint(rinput, input);
+  tlen = start + length;
+  REALLOC_N(tb->text, char, tlen+1);
+    
+  frt_read_chars(rinput, tb->text, start, length);
+  fnum = frt_read_vint(rinput, input);
+  if (fnum < 0) {
+    tb->field = rb_str_new("", 0);
+  } else {
+    tb->field = rb_ivar_get(
+    rb_ary_entry(rb_ivar_get(rfield_infos, id_field_array), fnum),
+    id_field_name);
+  }
   
-  MEMCPY(tb->field, RSTRING(field)->ptr, char, flen);
-
-  tb->flen = flen;
   tb->tlen = tlen;
-	return Qnil;
+  return Qnil;
 }
 
 static VALUE
 frt_termbuffer_hash(VALUE self)
 {
-	TermBuffer *tb;
-	Data_Get_Struct(self, TermBuffer, tb);
+  GET_TB;
   return INT2FIX(frt_hash(tb->text, tb->tlen) +
-      frt_hash(tb->field, tb->flen));
+      frt_hash(RSTRING(tb->field)->ptr, RSTRING(tb->field)->len));
 }
 
 /****************************************************************************
@@ -268,32 +199,32 @@ frt_termbuffer_hash(VALUE self)
 void 
 Init_term_buffer(void) {
   /* IDs */
-	field_name = rb_intern("name");
+  id_field_name = rb_intern("@name");
+  id_field_array = rb_intern("@fi_array");
 
-	/* TermBuffer */
-	cTermBuffer = rb_define_class_under(mIndex, "TermBuffer", rb_cObject);
-	rb_define_alloc_func(cTermBuffer, frt_termbuffer_alloc);
-	rb_include_module(cTermBuffer, rb_mComparable);
+  /* TermBuffer */
+  cTermBuffer = rb_define_class_under(mIndex, "TermBuffer", rb_cObject);
+  rb_define_alloc_func(cTermBuffer, frt_termbuffer_alloc);
+  rb_include_module(cTermBuffer, rb_mComparable);
 
   /* Methods */
-	rb_define_method(cTermBuffer, "initialize", frt_termbuffer_init, 0);
-	rb_define_method(cTermBuffer, "initialize_copy", frt_termbuffer_init_copy, 1);
-	rb_define_method(cTermBuffer, "text", frt_termbuffer_get_text, 0);
-	rb_define_method(cTermBuffer, "field", frt_termbuffer_get_field_name, 0);
-	rb_define_method(cTermBuffer, "text_length", frt_termbuffer_get_text_length, 0);
-	rb_define_method(cTermBuffer, "<=>", frt_termbuffer_compare_to, 1);
-	rb_define_method(cTermBuffer, "<", frt_termbuffer_lt, 1);
-	rb_define_method(cTermBuffer, ">", frt_termbuffer_gt, 1);
-	rb_define_method(cTermBuffer, "<=", frt_termbuffer_le, 1);
-	rb_define_method(cTermBuffer, ">=", frt_termbuffer_ge, 1);
-	rb_define_method(cTermBuffer, "eql?", frt_termbuffer_eq, 1);
-	rb_define_method(cTermBuffer, "==", frt_termbuffer_eq, 1);
-	rb_define_method(cTermBuffer, "hash", frt_termbuffer_hash, 0);
-	rb_define_method(cTermBuffer, "read", frt_termbuffer_read, 2);
-	rb_define_method(cTermBuffer, "reset", frt_termbuffer_reset, 0);
-	rb_define_method(cTermBuffer, "to_term", frt_termbuffer_to_term, 0);
-	rb_define_method(cTermBuffer, "term", frt_termbuffer_to_term, 0);
-	rb_define_method(cTermBuffer, "term=", frt_termbuffer_set_term, 1);
-	rb_define_method(cTermBuffer, "set!", frt_termbuffer_init_copy, 1);
-	rb_define_method(cTermBuffer, "text_str", frt_termbuffer_get_text, 0);
+  rb_define_method(cTermBuffer, "initialize", frt_termbuffer_init, 0);
+  rb_define_method(cTermBuffer, "initialize_copy", frt_termbuffer_init_copy, 1);
+  rb_define_method(cTermBuffer, "text", frt_termbuffer_get_text, 0);
+  rb_define_method(cTermBuffer, "field", frt_termbuffer_get_field_name, 0);
+  rb_define_method(cTermBuffer, "text_length", frt_termbuffer_get_text_length, 0);
+  rb_define_method(cTermBuffer, "<=>", frt_termbuffer_compare_to, 1);
+  rb_define_method(cTermBuffer, "<", frt_termbuffer_lt, 1);
+  rb_define_method(cTermBuffer, ">", frt_termbuffer_gt, 1);
+  rb_define_method(cTermBuffer, "<=", frt_termbuffer_le, 1);
+  rb_define_method(cTermBuffer, ">=", frt_termbuffer_ge, 1);
+  rb_define_method(cTermBuffer, "eql?", frt_termbuffer_eq, 1);
+  rb_define_method(cTermBuffer, "==", frt_termbuffer_eq, 1);
+  rb_define_method(cTermBuffer, "hash", frt_termbuffer_hash, 0);
+  rb_define_method(cTermBuffer, "read", frt_termbuffer_read, 2);
+  rb_define_method(cTermBuffer, "reset", frt_termbuffer_reset, 0);
+  rb_define_method(cTermBuffer, "to_term", frt_termbuffer_to_term, 0);
+  rb_define_method(cTermBuffer, "term", frt_termbuffer_to_term, 0);
+  rb_define_method(cTermBuffer, "term=", frt_termbuffer_init_copy, 1);
+  rb_define_method(cTermBuffer, "set!", frt_termbuffer_init_copy, 1);
 }