Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added #hiIOPriority for protocol completeness
authorClaus Gittinger <cg@exept.de>
Fri, 15 Nov 1996 11:47:22 +0100
changeset 1981 de394714f50b
parent 1980 173122fed8e2
child 1982 8d4f97279e55
added #hiIOPriority for protocol completeness
ProcSched.st file | annotate | diff | comparison | revisions
ProcessorScheduler.st file | annotate | diff | comparison | revisions 
--- a/ProcSched.st	Fri Nov 15 11:46:45 1996 +0100
+++ b/ProcSched.st	Fri Nov 15 11:47:22 1996 +0100
@@ -449,76 +449,6 @@
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
 
-!ProcessorScheduler methodsFor:'constants'!
-
-highestPriority
-    "return the highest priority value (normal) processes can have."
-
-    "must be below schedulingPriority - 
-     otherwise scheduler could be blocked ...
-    "
-    ^ HighestPriority  
-!
-
-lowIOPriority
-    "not currently used - for ST80 compatibility only"
-
-    ^ 2 "claus: is this ok ?"
-!
-
-lowestPriority
-    "return the lowest priority value"
-
-    ^ 1   "do not change this - its not variable"
-!
-
-schedulingPriority
-    "return the priority at which the scheduler runs."
-
-    "must be above highestPriority - 
-     otherwise scheduler could be blocked ...
-    "
-    ^ SchedulingPriority
-!
-
-systemBackgroundPriority
-    "return the priority, at which background system processing
-     should take place.
-     Not currently used - for ST80 compatibility only"
-
-    ^ 4
-!
-
-timingPriority
-    "return the priority, at which all timing takes place (messageTally,
-     delay etc.)"
-
-    ^ TimingPriority
-!
-
-userBackgroundPriority
-    "return the priority, at which background user (non-interactive) processing
-     should take place.
-     Not currently used - for ST80 compatibility only"
-
-    ^ 6
-!
-
-userInterruptPriority
-    "return the priority, at which the event scheduler runs - i.e.
-     all processes running at a lower priority are interruptable by Cntl-C
-     or the timer. Processes running at higher prio will not be interrupted."
-
-    ^ UserInterruptPriority
-!
-
-userSchedulingPriority
-    "return the priority, at which all normal user (interactive) processing
-     takes place"
-
-    ^ UserSchedulingPriority
-! !
-
 !ProcessorScheduler methodsFor:'dispatching'!
 
 dispatch
@@ -908,6 +838,84 @@
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
 
+!ProcessorScheduler methodsFor:'priority constants'!
+
+highIOPriority
+    "not currently used - for ST80 compatibility only"
+
+    ^ 16 "claus: is this ok ?"
+
+    "Created: 15.11.1996 / 11:42:39 / cg"
+!
+
+highestPriority
+    "return the highest priority value (normal) processes can have."
+
+    "must be below schedulingPriority - 
+     otherwise scheduler could be blocked ...
+    "
+    ^ HighestPriority  
+!
+
+lowIOPriority
+    "not currently used - for ST80 compatibility only"
+
+    ^ 2 "claus: is this ok ?"
+!
+
+lowestPriority
+    "return the lowest priority value"
+
+    ^ 1   "do not change this - its not variable"
+!
+
+schedulingPriority
+    "return the priority at which the scheduler runs."
+
+    "must be above highestPriority - 
+     otherwise scheduler could be blocked ...
+    "
+    ^ SchedulingPriority
+!
+
+systemBackgroundPriority
+    "return the priority, at which background system processing
+     should take place.
+     Not currently used - for ST80 compatibility only"
+
+    ^ 4
+!
+
+timingPriority
+    "return the priority, at which all timing takes place (messageTally,
+     delay etc.)"
+
+    ^ TimingPriority
+!
+
+userBackgroundPriority
+    "return the priority, at which background user (non-interactive) processing
+     should take place.
+     Not currently used - for ST80 compatibility only"
+
+    ^ 6
+!
+
+userInterruptPriority
+    "return the priority, at which the event scheduler runs - i.e.
+     all processes running at a lower priority are interruptable by Cntl-C
+     or the timer. Processes running at higher prio will not be interrupted."
+
+    ^ UserInterruptPriority
+!
+
+userSchedulingPriority
+    "return the priority, at which all normal user (interactive) processing
+     takes place"
+
+    ^ UserSchedulingPriority
+! !
+
 !ProcessorScheduler methodsFor:'private'!
 
 remember:aProcess
@@ -2292,6 +2300,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.100 1996-10-28 19:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.101 1996-11-15 10:47:22 cg Exp $'
 ! !
 ProcessorScheduler initialize!
--- a/ProcessorScheduler.st	Fri Nov 15 11:46:45 1996 +0100
+++ b/ProcessorScheduler.st	Fri Nov 15 11:47:22 1996 +0100
@@ -449,76 +449,6 @@
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
 
-!ProcessorScheduler methodsFor:'constants'!
-
-highestPriority
-    "return the highest priority value (normal) processes can have."
-
-    "must be below schedulingPriority - 
-     otherwise scheduler could be blocked ...
-    "
-    ^ HighestPriority  
-!
-
-lowIOPriority
-    "not currently used - for ST80 compatibility only"
-
-    ^ 2 "claus: is this ok ?"
-!
-
-lowestPriority
-    "return the lowest priority value"
-
-    ^ 1   "do not change this - its not variable"
-!
-
-schedulingPriority
-    "return the priority at which the scheduler runs."
-
-    "must be above highestPriority - 
-     otherwise scheduler could be blocked ...
-    "
-    ^ SchedulingPriority
-!
-
-systemBackgroundPriority
-    "return the priority, at which background system processing
-     should take place.
-     Not currently used - for ST80 compatibility only"
-
-    ^ 4
-!
-
-timingPriority
-    "return the priority, at which all timing takes place (messageTally,
-     delay etc.)"
-
-    ^ TimingPriority
-!
-
-userBackgroundPriority
-    "return the priority, at which background user (non-interactive) processing
-     should take place.
-     Not currently used - for ST80 compatibility only"
-
-    ^ 6
-!
-
-userInterruptPriority
-    "return the priority, at which the event scheduler runs - i.e.
-     all processes running at a lower priority are interruptable by Cntl-C
-     or the timer. Processes running at higher prio will not be interrupted."
-
-    ^ UserInterruptPriority
-!
-
-userSchedulingPriority
-    "return the priority, at which all normal user (interactive) processing
-     takes place"
-
-    ^ UserSchedulingPriority
-! !
-
 !ProcessorScheduler methodsFor:'dispatching'!
 
 dispatch
@@ -908,6 +838,84 @@
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
 
+!ProcessorScheduler methodsFor:'priority constants'!
+
+highIOPriority
+    "not currently used - for ST80 compatibility only"
+
+    ^ 16 "claus: is this ok ?"
+
+    "Created: 15.11.1996 / 11:42:39 / cg"
+!
+
+highestPriority
+    "return the highest priority value (normal) processes can have."
+
+    "must be below schedulingPriority - 
+     otherwise scheduler could be blocked ...
+    "
+    ^ HighestPriority  
+!
+
+lowIOPriority
+    "not currently used - for ST80 compatibility only"
+
+    ^ 2 "claus: is this ok ?"
+!
+
+lowestPriority
+    "return the lowest priority value"
+
+    ^ 1   "do not change this - its not variable"
+!
+
+schedulingPriority
+    "return the priority at which the scheduler runs."
+
+    "must be above highestPriority - 
+     otherwise scheduler could be blocked ...
+    "
+    ^ SchedulingPriority
+!
+
+systemBackgroundPriority
+    "return the priority, at which background system processing
+     should take place.
+     Not currently used - for ST80 compatibility only"
+
+    ^ 4
+!
+
+timingPriority
+    "return the priority, at which all timing takes place (messageTally,
+     delay etc.)"
+
+    ^ TimingPriority
+!
+
+userBackgroundPriority
+    "return the priority, at which background user (non-interactive) processing
+     should take place.
+     Not currently used - for ST80 compatibility only"
+
+    ^ 6
+!
+
+userInterruptPriority
+    "return the priority, at which the event scheduler runs - i.e.
+     all processes running at a lower priority are interruptable by Cntl-C
+     or the timer. Processes running at higher prio will not be interrupted."
+
+    ^ UserInterruptPriority
+!
+
+userSchedulingPriority
+    "return the priority, at which all normal user (interactive) processing
+     takes place"
+
+    ^ UserSchedulingPriority
+! !
+
 !ProcessorScheduler methodsFor:'private'!
 
 remember:aProcess
@@ -2292,6 +2300,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.100 1996-10-28 19:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.101 1996-11-15 10:47:22 cg Exp $'
 ! !
 ProcessorScheduler initialize!
hg/stx-libbasic