Ticket #14: task_scheduler2.sc

File task_scheduler2.sc, 583 bytes (added by singhoff, 16 years ago)
Line 
1
2start_section  task2_start :
3   partition2_capacity : integer := 10;
4   partition2_duration : clock := 0;
5end section;
6 
7
8election_section  task2_election :
9   return min_to_index(tasks.priority);
10end section;
11
12
13automaton_section  task2_scheduler  :
14  Ready : state;
15  Pended : initial_state;
16   
17  transition Pended ==> [ , partition2_duration:=0; ,] ==> Ready;
18  transition Ready ==> [partition2_duration < partition2_capacity, ,task2_election! ] ==> Ready;
19  transition Ready ==> [partition2_duration=partition2_capacity,  , ] ==> Pended;
20end section;
21