summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormax <max@tclers.tk>2011-04-01 09:29:24 (GMT)
committermax <max@tclers.tk>2011-04-01 09:29:24 (GMT)
commitc8eb649431a107df0b9828649d96894768c00591 (patch)
tree840c4117ebfc7661a5afe2a042d46bb55792cab2
parent86d9abcd45aaf8619a159ae299d8df3fd30f2acf (diff)
downloadtcl-c8eb649431a107df0b9828649d96894768c00591.zip
tcl-c8eb649431a107df0b9828649d96894768c00591.tar.gz
tcl-c8eb649431a107df0b9828649d96894768c00591.tar.bz2
Implement TIP#131
-rw-r--r--ChangeLog4
-rw-r--r--library/init.tcl15
2 files changed, 19 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index e3d93dd..86ef9e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-01 Reinhard Max <max@suse.de>
+
+ * library/init.tcl: TIP#131 implementation.
+
2011-03-31 Donal K. Fellows <dkf@users.sf.net>
* generic/tclGetDate.y, generic/tclDate.c (TclClockOldscanObjCmd):
diff --git a/library/init.tcl b/library/init.tcl
index 33b6b33..e6e69c3 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -821,3 +821,18 @@ proc tcl::CopyDirectory {action src dest} {
}
return
}
+
+# TIP 131
+proc tcl::rmmadwiw {} {
+ set magic {
+ 42 83 fe f6 ff f8 f1 e5 c6 f9 eb fd ff fb f1 e5 cc f5 ec f5 e3 fd fe
+ ff f5 fa f3 e1 c7 f9 f2 fd ff f9 fe f9 ed f4 fa f6 e6 f9 f2 e6 fd f9
+ ff f9 f6 e6 fa fd ff fc fb fc f9 f1 ed
+ }
+ foreach mystic [lassign $magic tragic] {
+ set comic [expr (0x$mystic ^ 0x$tragic) - 255 + 0x$tragic]
+ append logic [format %x $comic]
+ set tragic $mystic
+ }
+ binary format H* $logic
+}