aboutsummaryrefslogtreecommitdiffstats
path: root/ext/sha1/sha1-ruby.c
diff options
context:
space:
mode:
Diffstat (limited to 'ext/sha1/sha1-ruby.c')
-rw-r--r--ext/sha1/sha1-ruby.c111
1 files changed, 0 insertions, 111 deletions
diff --git a/ext/sha1/sha1-ruby.c b/ext/sha1/sha1-ruby.c
deleted file mode 100644
index abd704c638..0000000000
--- a/ext/sha1/sha1-ruby.c
+++ /dev/null
@@ -1,111 +0,0 @@
-#include "ruby.h"
-#include "sha1.h"
-
-static VALUE cSHA1;
-
-static VALUE
-sha1_update(obj, str)
- VALUE obj;
- struct RString *str;
-{
- SHA1_CTX *sha1;
-
- Check_Type(str, T_STRING);
- Data_Get_Struct(obj, SHA1_CTX, sha1);
- SHA1Update(sha1, str->ptr, str->len);
-
- return obj;
-}
-
-static VALUE
-sha1_digest(obj)
- VALUE obj;
-{
- SHA1_CTX *sha1, ctx;
- unsigned char digest[20];
-
- Data_Get_Struct(obj, SHA1_CTX, sha1);
- ctx = *sha1;
- SHA1Final(digest, &ctx);
-
- return rb_str_new(digest, 20);
-}
-
-static VALUE
-sha1_hexdigest(obj)
- VALUE obj;
-{
- SHA1_CTX *sha1, ctx;
- unsigned char digest[20];
- char buf[41];
- int i;
-
- Data_Get_Struct(obj, SHA1_CTX, sha1);
- ctx = *sha1;
- SHA1Final(digest, &ctx);
-
- for (i=0; i<20; i++) {
- sprintf(buf+i*2, "%02x", digest[i]);
- }
- return rb_str_new(buf, 40);
-}
-
-static VALUE
-sha1_clone(obj)
- VALUE obj;
-{
- SHA1_CTX *sha1, *sha1_new;
-
- Data_Get_Struct(obj, SHA1_CTX, sha1);
- obj = Data_Make_Struct(CLASS_OF(obj), SHA1_CTX, 0, free, sha1_new);
- *sha1_new = *sha1;
-
- return obj;
-}
-
-static VALUE
-sha1_init(argc, argv, self)
- int argc;
- VALUE* argv;
- VALUE self;
-{
- VALUE arg;
-
- rb_scan_args(argc, argv, "01", &arg);
-
- if (!NIL_P(arg)) sha1_update(self, arg);
-
- return self;
-}
-
-static VALUE
-sha1_new(argc, argv, class)
- int argc;
- VALUE* argv;
- VALUE class;
-{
- VALUE obj;
- SHA1_CTX *sha1;
-
- obj = Data_Make_Struct(class, SHA1_CTX, 0, free, sha1);
- SHA1Init(sha1);
- rb_obj_call_init(obj, argc, argv);
-
- return obj;
-}
-
-void
-Init_sha1()
-{
- cSHA1 = rb_define_class("SHA1", rb_cObject);
-
- rb_define_singleton_method(cSHA1, "new", sha1_new, -1);
- rb_define_singleton_method(cSHA1, "sha1", sha1_new, -1);
-
- rb_define_method(cSHA1, "update", sha1_update, 1);
- rb_define_method(cSHA1, "initialize", sha1_init, -1);
- rb_define_method(cSHA1, "<<", sha1_update, 1);
- rb_define_method(cSHA1, "digest", sha1_digest, 0);
- rb_define_method(cSHA1, "hexdigest", sha1_hexdigest, 0);
- rb_define_method(cSHA1, "clone", sha1_clone, 0);
-}