[macruby-changes] [3710] MacRuby/branches/icu/string.c
source_changes at macosforge.org
source_changes at macosforge.org
Fri Mar 5 18:48:43 PST 2010
Revision: 3710
http://trac.macosforge.org/projects/ruby/changeset/3710
Author: lsansonetti at apple.com
Date: 2010-03-05 18:48:42 -0800 (Fri, 05 Mar 2010)
Log Message:
-----------
added #crypt
Modified Paths:
--------------
MacRuby/branches/icu/string.c
Modified: MacRuby/branches/icu/string.c
===================================================================
--- MacRuby/branches/icu/string.c 2010-03-06 00:49:40 UTC (rev 3709)
+++ MacRuby/branches/icu/string.c 2010-03-06 02:48:42 UTC (rev 3710)
@@ -4901,6 +4901,31 @@
rstr_substr(str, pos + seplen, len - pos - seplen));
}
+/*
+ * call-seq:
+ * str.crypt(other_str) => new_str
+ *
+ * Applies a one-way cryptographic hash to <i>str</i> by invoking the standard
+ * library function <code>crypt</code>. The argument is the salt string, which
+ * should be two characters long, each character drawn from
+ * <code>[a-zA-Z0-9./]</code>.
+ */
+
+static VALUE
+rstr_crypt(VALUE str, SEL sel, VALUE salt)
+{
+ StringValue(salt);
+ if (RSTRING_LEN(salt) < 2) {
+ rb_raise(rb_eArgError, "salt too short (need >=2 bytes)");
+ }
+
+ VALUE crypted = rb_str_new2(crypt(RSTRING_PTR(str), RSTRING_PTR(salt)));
+ if (OBJ_TAINTED(str) || OBJ_TAINTED(salt)) {
+ OBJ_TAINT(crypted);
+ }
+ return crypted;
+}
+
// NSString primitives.
static void
@@ -5082,6 +5107,7 @@
rb_objc_define_method(rb_cRubyString, "hash", rstr_hash, 0);
rb_objc_define_method(rb_cRubyString, "partition", rstr_partition, 1);
rb_objc_define_method(rb_cRubyString, "rpartition", rstr_rpartition, 1);
+ rb_objc_define_method(rb_cRubyString, "crypt", rstr_crypt, 1);
// MacRuby extensions.
rb_objc_define_method(rb_cRubyString, "transform", rstr_transform, 1);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20100305/a29a76d7/attachment.html>
More information about the macruby-changes
mailing list