rename process to priority

extra/io/process/process.factor

@@ -0,0 +1,17 @@
+USING: io.backend kernel ;
+IN: io.priority
+
+SYMBOL: +lowest-priority+
+SYMBOL: +low-priority+
+SYMBOL: +normal-priority+
+SYMBOL: +high-priority+
+SYMBOL: +highest-priority+
+
+HOOK: current-priority io-backend ( -- symbol )
+HOOK: set-current-priority io-backend ( symbol -- )
+HOOK: priority-values ( -- assoc )
+
+: lookup-priority ( symbol -- n )
+    priority-values at ;
+
+HOOK: get-process-list io-backend ( -- assoc )

extra/io/unix/process/process.factor

@@ -0,0 +1,19 @@
+USING: alien.syntax kernel io.process io.unix.backend
+unix ;
+IN: io.unix.process
+
+M: unix-io current-priority ( -- n )
+    clear_err_no
+    0 0 getpriority dup -1 = [ check-errno ] when ;
+
+M: unix-io set-current-priority ( n -- )
+    0 0 rot setpriority io-error ;
+
+M: unix-io priority-values ( -- assoc )
+    {
+        { +lowest-priority+ 20 }
+        { +low-priority+ 10 }
+        { +normal-priority+ 0 }
+        { +high-priority+ -10 }
+        { +highest-priority+ -20 }
+    } ;

extra/io/windows/process/priority.factor

@@ -0,0 +1,8 @@
+USING: kernel ;
+IN: io.windows.process
+
+M: windows-io current-priority ( -- n )
+    ;
+
+M: windows-io set-current-priority ( n -- )
+    ;

extra/io/windows/process/process.factor

@@ -0,0 +1,8 @@
+USING: kernel ;
+IN: io.windows.process
+
+M: windows-io current-priority ( -- n )
+    ;
+
+M: windows-io set-current-priority ( n -- )
+    ;