release 1.11.2

[descalc.git] / 25_var.pm

diff --git a/25_var.pm b/25_var.pm
new file mode 100644 (file)
index 0000000..44de41b
--- /dev/null
+++ b/25_var.pm
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+
+# 1.10.0 200410151900 - actions sto/?/rcl to copy/assign/recall variable
+
+my %var;
+
+#      "sto"   => [ 1, sub { $var{a} = $_[0] }], # copy
+#      '?'     => [ 1, sub { $var{a} = $_[0] }], # assign
+$action{sto} = [ 1, sub { $var{a} = $_[0] }]; # copy
+$action{rcl} = [ 0, sub { $var{a} }]; # recall
+
+return {
+       author  => "Shiar",
+       title   => "user variables",
+       version => "1.10",
+};
+