Sync

Task/Enforced-immutability/COBOL/enforced-immutability-1.cobol

@@ -0,0 +1 @@
+01  Foo CONSTANT AS "Foo".

Task/Enforced-immutability/COBOL/enforced-immutability-2.cobol

@@ -0,0 +1 @@
+78  Foo VALUE "Foo".

Task/Enforced-immutability/COBOL/enforced-immutability-3.cobol

@@ -0,0 +1,2 @@
+CONSTANT SECTION.
+01  Foo VALUE "Foo".

Task/Enforced-immutability/Logtalk/enforced-immutability.logtalk

@@ -0,0 +1,15 @@
+:- object(immutable).
+
+    % forbid using (complementing) categories for adding to or
+    % modifying (aka hot patching) the object
+    :- set_logtalk_flag(complements, deny).
+    % forbid dynamically adding new predicates at runtime
+    :- set_logtalk_flag(dynamic_declarations, deny).
+
+    :- public(foo/1).
+    foo(1).       % static predicate by default
+
+    :- private(bar/2)
+    bar(2, 3).    % static predicate by default
+
+:- end_object.

Task/Enforced-immutability/Ruby/enforced-immutability.rb

@@ -1,2 +1,22 @@
-msg = "Hello World"
+puts msg = "Hello World"
+msg << "!"
+puts msg                #=> Hello World!
+
+puts msg.frozen?        #=> false
 msg.freeze
+puts msg.frozen?        #=> true
+begin
+  msg << "!"
+rescue => e
+  p e                   #=> #<RuntimeError: can't modify frozen String>
+end
+
+puts msg                #=> Hello World!
+
+msg2 = msg
+
+# An object is frozen and it is not a variable.
+msg = "hello world"     # A new object was assigned to the variable.
+
+puts msg.frozen?        #=> false
+puts msg2.frozen?       #=> true