Browse Source

* some constants moved from System

marco 22 years ago
parent
commit
5fbffcb2a7
2 changed files with 31 additions and 3 deletions
  1. 16 1
      rtl/linux/bunxtype.inc
  2. 15 2
      rtl/linux/sysconst.inc

+ 16 - 1
rtl/linux/bunxtype.inc

@@ -241,6 +241,18 @@ CONST
     WNOHANG   =          1;     { don't block waiting               }
     WNOHANG   =          1;     { don't block waiting               }
     WUNTRACED =          2;     { report status of stopped children }
     WUNTRACED =          2;     { report status of stopped children }
 
 
+const
+
+  { For File control mechanism }
+  F_GetFd  = 1;
+  F_SetFd  = 2;
+  F_GetFl  = 3;
+  F_SetFl  = 4;
+  F_GetLk  = 5;
+  F_SetLk  = 6;
+  F_SetLkW = 7;
+  F_SetOwn = 8;
+  F_GetOwn = 9;
 
 
     {*************************************************************************}
     {*************************************************************************}
     {                               SIGNALS                                   }
     {                               SIGNALS                                   }
@@ -253,7 +265,10 @@ CONST
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2003-09-14 20:15:01  marco
+  Revision 1.4  2003-11-19 10:56:15  marco
+   * some constants moved from System
+
+  Revision 1.3  2003/09/14 20:15:01  marco
    * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
    * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
 
 
   Revision 1.2  2003/05/15 22:50:50  jonas
   Revision 1.2  2003/05/15 22:50:50  jonas

+ 15 - 2
rtl/linux/sysconst.inc

@@ -14,16 +14,24 @@
  **********************************************************************}
  **********************************************************************}
 
 
 Const
 Const
+
+ { For getting/setting priority }
+  Prio_Process = 0;
+  Prio_PGrp    = 1;
+  Prio_User    = 2;
+
+
   { Things for LSEEK call }
   { Things for LSEEK call }
   Seek_set = 0;
   Seek_set = 0;
   Seek_Cur = 1;
   Seek_Cur = 1;
   Seek_End = 2;
   Seek_End = 2;
+
   { Things for OPEN call - after linux/fcntl.h }
   { Things for OPEN call - after linux/fcntl.h }
   Open_Accmode   = 3;
   Open_Accmode   = 3;
   Open_RdOnly    = 0;
   Open_RdOnly    = 0;
   Open_WrOnly    = 1;
   Open_WrOnly    = 1;
   Open_RdWr      = 2;
   Open_RdWr      = 2;
-  Open_Creat     = 1 shl 6;
+  Open_Creat     = 1 shl 6;		// %100 etc
   Open_Excl      = 2 shl 6;
   Open_Excl      = 2 shl 6;
   Open_NoCtty    = 4 shl 6;
   Open_NoCtty    = 4 shl 6;
   Open_Trunc     = 1 shl 9;
   Open_Trunc     = 1 shl 9;
@@ -35,12 +43,14 @@ Const
   Open_LargeFile = 1 shl 15;
   Open_LargeFile = 1 shl 15;
   Open_Directory = 2 shl 15;
   Open_Directory = 2 shl 15;
   Open_NoFollow  = 4 shl 15;
   Open_NoFollow  = 4 shl 15;
+
   { The waitpid uses the following options:}
   { The waitpid uses the following options:}
   Wait_NoHang   = 1;
   Wait_NoHang   = 1;
   Wait_UnTraced = 2;
   Wait_UnTraced = 2;
   Wait_Any      = -1;
   Wait_Any      = -1;
   Wait_MyPGRP   = 0;
   Wait_MyPGRP   = 0;
   Wait_Clone    = $80000000;
   Wait_Clone    = $80000000;
+
   { Constants to check stat.mode }
   { Constants to check stat.mode }
   STAT_IFMT   = $f000; {00170000}
   STAT_IFMT   = $f000; {00170000}
   STAT_IFSOCK = $c000; {0140000}
   STAT_IFSOCK = $c000; {0140000}
@@ -90,7 +100,10 @@ Const
   IOCtl_TCGETS=$5401; // TCGETS is also in termios.inc, but the sysunix needs only this
   IOCtl_TCGETS=$5401; // TCGETS is also in termios.inc, but the sysunix needs only this
 {
 {
   $Log$
   $Log$
-  Revision 1.7  2003-11-17 11:28:08  marco
+  Revision 1.8  2003-11-19 10:56:15  marco
+   * some constants moved from System
+
+  Revision 1.7  2003/11/17 11:28:08  marco
    * Clone moved to linux, + few small unit unix changes
    * Clone moved to linux, + few small unit unix changes
 
 
   Revision 1.6  2002/09/07 16:01:19  peter
   Revision 1.6  2002/09/07 16:01:19  peter