mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-18 00:10:04 +00:00
9421a44868
I have left out zircon, which seems to have provisions for tcl81, and hfsutils and filerunner, which have been upgraded and probably checked in the meantime.
64 lines
2.8 KiB
Plaintext
64 lines
2.8 KiB
Plaintext
--- xmpeg3.orig Tue Mar 25 13:21:26 1997
|
|
+++ xmpeg3 Thu Oct 30 16:00:48 1997
|
|
@@ -1,3 +1,4 @@
|
|
+#!@@PREFIX@@/bin/wish8.0
|
|
#############################################################################
|
|
# Visual Tcl v1.07 Project
|
|
#
|
|
@@ -12,11 +13,11 @@
|
|
global Recursif_intelligent; set Recursif_intelligent {0}
|
|
global artiste; set artiste {}
|
|
global player_mode; set player_mode {disc}
|
|
-global random::a1; set random::a1 { 1941 1860 1812 1776 1492 1215 1066 12013 }
|
|
-global random::a2; set random::a2 { 1111 2222 3333 4444 5555 6666 7777 827 }
|
|
-global random::a3; set random::a3 { 1111 2222 3333 4444 5555 6666 7777 251 }
|
|
-global random::m1; set random::m1 {8729 43215 8810 53075 59930 23253 16377 62489 11794}
|
|
-global random::m2; set random::m2 {18086 23696 42786 37815 59442 39280 18624 35510 38884}
|
|
+global random.a1; set random.a1 { 1941 1860 1812 1776 1492 1215 1066 12013 }
|
|
+global random.a2; set random.a2 { 1111 2222 3333 4444 5555 6666 7777 827 }
|
|
+global random.a3; set random.a3 { 1111 2222 3333 4444 5555 6666 7777 251 }
|
|
+global random.m1; set random.m1 {8729 43215 8810 53075 59930 23253 16377 62489 11794}
|
|
+global random.m2; set random.m2 {18086 23696 42786 37815 59442 39280 18624 35510 38884}
|
|
global termine; set termine {2}
|
|
global xmpeg3_version; set xmpeg3_version {1.0}
|
|
global widget;
|
|
@@ -244,19 +245,19 @@
|
|
}
|
|
|
|
proc random {} {
|
|
-global random::m1 random::m2 random::a1 random::a2;
|
|
- set random::m1 [random::rand16 [set random::a1] [set random::m1]];
|
|
- set random::m2 [random::rand16 [set random::a2] [set random::m2]];
|
|
- return [expr (([lindex [set random::m1] 1] << 16) + [lindex [set random::m2] 1]) & 0x7FFFFFFF];
|
|
+global random.m1 random.m2 random.a1 random.a2;
|
|
+ set random.m1 [random.rand16 [set random.a1] [set random.m1]];
|
|
+ set random.m2 [random.rand16 [set random.a2] [set random.m2]];
|
|
+ return [expr (([lindex [set random.m1] 1] << 16) + [lindex [set random.m2] 1]) & 0x7FFFFFFF];
|
|
}
|
|
|
|
-proc random::rand16 {a m} {
|
|
+proc random.rand16 {a m} {
|
|
set n [expr [lindex $m 0] + [lindex $a 0] * [lindex $m 1] + [lindex $a 1] * [lindex $m 2] + [lindex $a 2] * [lindex $m 3] + [lindex $a 3] * [lindex $m 4] + [lindex $a 4] * [lindex $m 5] + [lindex $a 5] * [lindex $m 6] + [lindex $a 6] * [lindex $m 7] + [lindex $a 7] * [lindex $m 8]];
|
|
|
|
return [concat [expr $n >> 16] [expr $n & 0xFFFF] [lrange $m 1 7]];
|
|
}
|
|
|
|
-proc random::srand16 {seed} {
|
|
+proc random.srand16 {seed} {
|
|
set n1 [expr $seed & 0xFFFF];
|
|
set n2 [expr $seed & 0x7FFFFFFF];
|
|
set n2 [expr 30903 * $n1 + ($n2 >> 16)];
|
|
@@ -305,9 +306,9 @@
|
|
}
|
|
|
|
proc srandom {seed} {
|
|
-global random::m1 random::m2;
|
|
- set random::m1 [random::srand16 $seed];
|
|
- set random::m2 [random::srand16 [expr 4321+$seed]];
|
|
+global random.m1 random.m2;
|
|
+ set random.m1 [random.srand16 $seed];
|
|
+ set random.m2 [random.srand16 [expr 4321+$seed]];
|
|
return {};
|
|
}
|
|
|