#include "jaro_winkler.h"
#include "distance.h"

VALUE rb_mJaroWinkler;

void Init_jaro_winkler(void){
  rb_mJaroWinkler = rb_define_module("JaroWinkler");
  rb_define_module_function(rb_mJaroWinkler, "c_distance", rb_distance, -1);
}

VALUE rb_distance(int argc, VALUE *argv, VALUE self){
  VALUE s1, s2, opt;
  rb_scan_args(argc, argv, "2:", &s1, &s2, &opt);
  Option *c_opt = option_new();
  if(TYPE(opt) == T_HASH){
    VALUE weight = rb_hash_aref(opt, ID2SYM(rb_intern("weight")));
    VALUE threshold = rb_hash_aref(opt, ID2SYM(rb_intern("threshold")));
    VALUE case_match = rb_hash_aref(opt, ID2SYM(rb_intern("case_match")));
    if(!NIL_P(weight)) c_opt->weight = NUM2DBL(weight);
    if(!NIL_P(threshold)) c_opt->threshold = NUM2DBL(threshold);
    if(!NIL_P(case_match)) c_opt->case_match = (TYPE(case_match) == T_FALSE || NIL_P(case_match)) ? 0 : 1;
  }
  // TODO: replace StringValueCStr with StringValuePtr and RSTRING_LEN
  VALUE ret = rb_float_new(c_distance(StringValueCStr(s1), StringValueCStr(s2), c_opt));
  free(c_opt);
  return ret;
}