From 9ff1e787f915539b1980654e3d3d2013ff5c81d2 Mon Sep 17 00:00:00 2001 From: shyouhei Date: Mon, 7 Jul 2008 07:38:25 +0000 Subject: wrong commit; sorry git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_6_269@17938 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ruby_1_8_6/ext/openssl/ossl_rand.c | 134 ------------------------------------- 1 file changed, 134 deletions(-) delete mode 100644 ruby_1_8_6/ext/openssl/ossl_rand.c (limited to 'ruby_1_8_6/ext/openssl/ossl_rand.c') diff --git a/ruby_1_8_6/ext/openssl/ossl_rand.c b/ruby_1_8_6/ext/openssl/ossl_rand.c deleted file mode 100644 index 71bb3bedd5..0000000000 --- a/ruby_1_8_6/ext/openssl/ossl_rand.c +++ /dev/null @@ -1,134 +0,0 @@ -/* - * $Id$ - * 'OpenSSL for Ruby' project - * Copyright (C) 2001-2002 Michal Rokos - * All rights reserved. - */ -/* - * This program is licenced under the same licence as Ruby. - * (See the file 'LICENCE'.) - */ -#include "ossl.h" - -/* - * Classes - */ -VALUE mRandom; -VALUE eRandomError; - -/* - * Struct - */ - -/* - * Public - */ - -/* - * Private - */ -static VALUE -ossl_rand_seed(VALUE self, VALUE str) -{ - StringValue(str); - RAND_seed(RSTRING(str)->ptr, RSTRING(str)->len); - - return str; -} - -static VALUE -ossl_rand_load_file(VALUE self, VALUE filename) -{ - SafeStringValue(filename); - - if(!RAND_load_file(RSTRING(filename)->ptr, -1)) { - ossl_raise(eRandomError, NULL); - } - return Qtrue; -} - -static VALUE -ossl_rand_write_file(VALUE self, VALUE filename) -{ - SafeStringValue(filename); - if (RAND_write_file(RSTRING(filename)->ptr) == -1) { - ossl_raise(eRandomError, NULL); - } - return Qtrue; -} - -static VALUE -ossl_rand_bytes(VALUE self, VALUE len) -{ - VALUE str; - - str = rb_str_new(0, FIX2INT(len)); - if (!RAND_bytes(RSTRING(str)->ptr, FIX2INT(len))) { - ossl_raise(eRandomError, NULL); - } - - return str; -} - -static VALUE -ossl_rand_pseudo_bytes(VALUE self, VALUE len) -{ - VALUE str; - - str = rb_str_new(0, FIX2INT(len)); - if (!RAND_pseudo_bytes(RSTRING(str)->ptr, FIX2INT(len))) { - ossl_raise(eRandomError, NULL); - } - - return str; -} - -static VALUE -ossl_rand_egd(VALUE self, VALUE filename) -{ - SafeStringValue(filename); - - if(!RAND_egd(RSTRING(filename)->ptr)) { - ossl_raise(eRandomError, NULL); - } - return Qtrue; -} - -static VALUE -ossl_rand_egd_bytes(VALUE self, VALUE filename, VALUE len) -{ - SafeStringValue(filename); - - if (!RAND_egd_bytes(RSTRING(filename)->ptr, FIX2INT(len))) { - ossl_raise(eRandomError, NULL); - } - return Qtrue; -} - -#define DEFMETH(class, name, func, argc) \ - rb_define_method(class, name, func, argc); \ - rb_define_singleton_method(class, name, func, argc); - -/* - * INIT - */ -void -Init_ossl_rand() -{ -#if 0 /* let rdoc know about mOSSL */ - mOSSL = rb_define_module("OpenSSL"); -#endif - - mRandom = rb_define_module_under(mOSSL, "Random"); - - eRandomError = rb_define_class_under(mRandom, "RandomError", eOSSLError); - - DEFMETH(mRandom, "seed", ossl_rand_seed, 1); - DEFMETH(mRandom, "load_random_file", ossl_rand_load_file, 1); - DEFMETH(mRandom, "write_random_file", ossl_rand_write_file, 1); - DEFMETH(mRandom, "random_bytes", ossl_rand_bytes, 1); - DEFMETH(mRandom, "pseudo_bytes", ossl_rand_pseudo_bytes, 1); - DEFMETH(mRandom, "egd", ossl_rand_egd, 1); - DEFMETH(mRandom, "egd_bytes", ossl_rand_egd_bytes, 2); -} - -- cgit v1.2.3