From e4b53b22228d935847b72e8f9ab0f49a15b54215 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 1 Feb 2000 03:12:21 +0000
Subject: 2000-02-01

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@611 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 object.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'object.c')

diff --git a/object.c b/object.c
index bf2ff5eed3..572c7406f7 100644
--- a/object.c
+++ b/object.c
@@ -297,6 +297,25 @@ rb_obj_untaint(obj)
     return obj;
 }
 
+VALUE
+rb_obj_freeze(obj)
+    VALUE obj;
+{
+    if (rb_safe_level() >= 4 && !OBJ_TAINTED(obj))
+	rb_raise(rb_eSecurityError, "Insecure: can't freeze object");
+	
+    OBJ_FREEZE(obj);
+    return obj;
+}
+
+static VALUE
+rb_obj_frozen_p(obj)
+    VALUE obj;
+{
+    if (OBJ_FROZEN(obj)) return Qtrue;
+    return Qfalse;
+}
+
 static VALUE
 nil_to_i(obj)
     VALUE obj;
@@ -1004,6 +1023,8 @@ Init_Object()
     rb_define_method(rb_mKernel, "taint", rb_obj_taint, 0);
     rb_define_method(rb_mKernel, "tainted?", rb_obj_tainted, 0);
     rb_define_method(rb_mKernel, "untaint", rb_obj_untaint, 0);
+    rb_define_method(rb_mKernel, "freeze", rb_obj_freeze, 0);
+    rb_define_method(rb_mKernel, "frozen?", rb_obj_frozen_p, 0);
 
     rb_define_method(rb_mKernel, "to_a", rb_any_to_a, 0);
     rb_define_method(rb_mKernel, "to_s", rb_any_to_s, 0);
-- 
cgit v1.2.3