aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Concurrent-computing/M2000-Interpreter/concurrent-computing.m2000
View file

@ -1,6 +1,6 @@
Thread.Plan Concurrent
Module CheckIt {
Flush \\ empty stack of values
Flush ' empty stack of values
Data "Enjoy", "Rosetta", "Code"
For i=1 to 3 {
Thread {
@ -13,21 +13,21 @@ Module CheckIt {
Threads
}
Rem : Wait 3000 ' we can use just a wait loop, or the main.task loop
\\ main.task exit if all threads erased
' main.task exit if all threads erased
Main.Task 30 {
}
\\ when module exit all threads from this module get a signal to stop.
\\ we can use Threads Erase to erase all threads.
\\ Also if we press Esc we do the same
' when module exit all threads from this module get a signal to stop.
' we can use Threads Erase to erase all threads.
' Also if we press Esc we do the same
}
CheckIt
\\ we can define again the module, and now we get three time each name, but not every time three same names.
\\ if we change to Threads.Plan Sequential we get always the three same names
\\ Also in concurrent plan we can use a block to ensure that statements run without other thread executed in parallel.
' we can define again the module, and now we get three time each name, but not every time three same names.
' if we change to Threads.Plan Sequential we get always the three same names
' Also in concurrent plan we can use a block to ensure that statements run without other thread executed in parallel.
Module CheckIt {
Flush \\ empty stack of values
Flush ' empty stack of values
Data "Enjoy", "Rosetta", "Code"
For i=1 to 3 {
Thread {
@ -42,11 +42,11 @@ Module CheckIt {
Threads
}
Rem : Wait 3000 ' we can use just a wait loop, or the main.task loop
\\ main.task exit if all threads erased
' main.task exit if all threads erased
Main.Task 30 {
}
\\ when module exit all threads from this module get a signal to stop.
\\ we can use Threads Erase to erase all threads.
\\ Also if we press Esc we do the same
' when module exit all threads from this module get a signal to stop.
' we can use Threads Erase to erase all threads.
' Also if we press Esc we do the same
}
CheckIt