diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | library/init.tcl | 15 |
2 files changed, 19 insertions, 0 deletions
@@ -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 +} |