X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/7d9af85556b0e64c70e3641764b7b49a306723f3..7db84757c6ba80836bc8c2cc9de326f16862a2cd:/25_var.pm

diff --git a/25_var.pm b/25_var.pm
new file mode 100644
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",
+};
+