Преглед изворни кода

Added portable definition for ino type

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7706 8c9fc860-2736-0410-a75d-ab315db34111
negelef пре 7 година
родитељ
комит
ba8e077bd7

+ 3 - 2
source/Darwin.AMD64.Unix.Mod

@@ -186,10 +186,11 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: INTEGER;
 				mode-	: INTEGER;
 				nlink-		: INTEGER;
 				nlink-		: INTEGER;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -239,7 +240,7 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-		: LONGINT;
+				ino-		: InoT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: SHORTINT;
 				typ-		: SHORTINT;
 				namlen-	: SHORTINT;
 				namlen-	: SHORTINT;

+ 3 - 2
source/Darwin.I386.Unix.Mod

@@ -186,10 +186,11 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: INTEGER;
 				mode-	: INTEGER;
 				nlink-		: INTEGER;
 				nlink-		: INTEGER;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -239,7 +240,7 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-		: LONGINT;
+				ino-		: InoT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: SHORTINT;
 				typ-		: SHORTINT;
 				namlen-	: SHORTINT;
 				namlen-	: SHORTINT;

+ 3 - 2
source/Generic.Darwin.I386.Unix.Mod

@@ -269,10 +269,11 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: INTEGER;
 				mode-	: INTEGER;
 				nlink-		: INTEGER;
 				nlink-		: INTEGER;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -324,7 +325,7 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-		: LONGINT;
+				ino-		: InoT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: SHORTINT;
 				typ-		: SHORTINT;
 				namlen-	: SHORTINT;
 				namlen-	: SHORTINT;

+ 3 - 1
source/Generic.Linux.AMD64.Unix.Mod

@@ -262,6 +262,7 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = HUGEINT;
 	DevT* = HUGEINT;
+	InoT* = LONGWORD;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
@@ -314,7 +315,8 @@ TYPE
 
 
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;   (* these may change to HUGEINT in future Linux releases!! *)
+				ino-	: InoT;
+				off-	: LONGWORD;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: CHAR;
 				typ-		: CHAR;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;

+ 4 - 2
source/Generic.Linux.I386.Unix.Mod

@@ -262,11 +262,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = HUGEINT;
 	DevT* = HUGEINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				unused1-	: LONGINT;
 				unused1-	: LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -314,7 +315,8 @@ TYPE
 
 
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;   (* these may change to HUGEINT in future Linux releases!! *)
+				ino-	: InoT;   (* this may change to HUGEINT in future Linux releases!! *)
+				off-	: LONGINT;   (* this may change to HUGEINT in future Linux releases!! *)
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: CHAR;
 				typ-		: CHAR;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;

+ 4 - 2
source/Generic.Solaris.I386.Unix.Mod

@@ -270,11 +270,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				pad1-		: ARRAY 3 OF LONGINT;
 				pad1-		: ARRAY 3 OF LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -322,7 +323,8 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;
+				ino-	: InoT;
+				off-	: LONGINT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;
 			END;
 			END;

+ 4 - 2
source/Linux.AMD64.Unix.Mod

@@ -189,11 +189,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = HUGEINT;
 	DevT* = HUGEINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				unused1-	: LONGINT;
 				unused1-	: LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -239,7 +240,8 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;   (* these may change to HUGEINT in future Linux releases!! *)
+				ino-	: InoT;   (* this may change to HUGEINT in future Linux releases!! *)
+				off-	: LONGINT;   (* this may change to HUGEINT in future Linux releases!! *)
 				reclen-		: INTEGER;
 				reclen-		: INTEGER;
 				typ-		: CHAR;
 				typ-		: CHAR;
 				name-		: (*array of*) CHAR;
 				name-		: (*array of*) CHAR;

+ 4 - 2
source/Linux.I386.Unix.Mod

@@ -189,11 +189,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = HUGEINT;
 	DevT* = HUGEINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				unused1-	: LONGINT;
 				unused1-	: LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -241,7 +242,8 @@ TYPE
 
 
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;   (* these may change to HUGEINT in future Linux releases!! *)
+				ino-	: InoT;   (* this may change to HUGEINT in future Linux releases!! *)
+				off-	: LONGINT;   (* this may change to HUGEINT in future Linux releases!! *)
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				typ-		: CHAR;
 				typ-		: CHAR;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;

+ 4 - 2
source/Solaris.AMD64.Unix.Mod

@@ -190,11 +190,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				pad1-		: ARRAY 3 OF LONGINT;
 				pad1-		: ARRAY 3 OF LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -242,7 +243,8 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;
+				ino-	: InoT;
+				off-	: LONGINT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;
 			END;
 			END;

+ 4 - 2
source/Solaris.I386.Unix.Mod

@@ -190,11 +190,12 @@ TYPE
 
 
 TYPE
 TYPE
 	DevT* = LONGINT;
 	DevT* = LONGINT;
+	InoT* = LONGINT;
 
 
 	Status* = RECORD
 	Status* = RECORD
 				dev-		: DevT;
 				dev-		: DevT;
 				pad1-		: ARRAY 3 OF LONGINT;
 				pad1-		: ARRAY 3 OF LONGINT;
-				ino-		: LONGINT;
+				ino-		: InoT;
 				mode-	: LONGINT;
 				mode-	: LONGINT;
 				nlink-		: LONGINT;
 				nlink-		: LONGINT;
 				uid-		: LONGINT;
 				uid-		: LONGINT;
@@ -242,7 +243,8 @@ TYPE
 	FdSet* = ARRAY FdSetLen OF SET;
 	FdSet* = ARRAY FdSetLen OF SET;
 
 
 	Dirent* = POINTER TO RECORD
 	Dirent* = POINTER TO RECORD
-				ino-, off-	: LONGINT;
+				ino-	: InoT;
+				off-	: LONGINT;
 				reclen-	: INTEGER;
 				reclen-	: INTEGER;
 				name-	: (*array of*) CHAR;
 				name-	: (*array of*) CHAR;
 			END;
 			END;

+ 1 - 1
source/Unix.UnixFiles.Mod

@@ -531,7 +531,7 @@ TYPE
 				workName, registerName: Filename;
 				workName, registerName: Filename;
 				tempFile: BOOLEAN;
 				tempFile: BOOLEAN;
 				dev: Unix.DevT;
 				dev: Unix.DevT;
-				ino: LONGINT;
+				ino: Unix.InoT;
 				mtime: HUGEINT;
 				mtime: HUGEINT;
 				fsize, fpos: SIZE;
 				fsize, fpos: SIZE;
 				bufs: ARRAY NBufs OF Buffer;
 				bufs: ARRAY NBufs OF Buffer;