Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,31 +0,0 @@
|
|||
include get.e
|
||||
|
||||
integer count
|
||||
|
||||
procedure sleeper(integer key)
|
||||
? key
|
||||
count -= 1
|
||||
end procedure
|
||||
|
||||
sequence s, val
|
||||
atom task
|
||||
|
||||
s = command_line()
|
||||
s = s[3..$]
|
||||
if length(s)=0 then
|
||||
puts(1,"Nothing to sort.\n")
|
||||
else
|
||||
count = 0
|
||||
for i = 1 to length(s) do
|
||||
val = value(s[i])
|
||||
if val[1] = GET_SUCCESS then
|
||||
task = task_create(routine_id("sleeper"),{val[2]})
|
||||
task_schedule(task,{val[2],val[2]}/10)
|
||||
count += 1
|
||||
end if
|
||||
end for
|
||||
|
||||
while count do
|
||||
task_yield()
|
||||
end while
|
||||
end if
|
||||
Loading…
Add table
Add a link
Reference in a new issue