FD_ZERO

BlackBox/_Linux_/Lin/Mod/Net.txt

@@ -149,7 +149,6 @@ MODULE LinNet ["libc.so.6"];
 
 		(* /usr/include/i386-linux-gnu/bits/typesizes.h *)
 			__FD_SETSIZE = 1024;
-			__NFDBITS = SIZE(SET) * 8;
 
 	TYPE
 		SOCKET* = INTEGER;
@@ -215,7 +214,7 @@ MODULE LinNet ["libc.so.6"];
 
 		(* /usr/include/i386-linux-gnu/sys/select.h *)
 			__fd_mask = SET;
-			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV __NFDBITS OF __fd_mask;
+			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV (SIZE(__fd_mask) * 8) OF __fd_mask;
 
 	VAR
 		h_errno*: INTEGER;
@@ -244,7 +243,7 @@ MODULE LinNet ["libc.so.6"];
 	PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 		VAR i: INTEGER;
 	BEGIN
-		i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+		i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 	END FD_ZERO;
 
 	PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);

BlackBox/_Linux_/Lin/Mod/Termios.txt

@@ -133,16 +133,16 @@ MODULE LinTermios ["libc.so.6"];
 		END;
 
 	(* POSIX.1 *)
-	PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
-	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
-	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
+		PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 
-	PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
 
 END LinTermios.

BlackBox/_Linux_/Lin/Mod/gen-Net/Net.txt.templ

@@ -31,7 +31,6 @@ MODULE LinNet ["libc.so.6"];
 %%defs-netdb%%
 		(* /usr/include/i386-linux-gnu/bits/typesizes.h *)
 			__FD_SETSIZE = 1024;
-			__NFDBITS = SIZE(SET) * 8;
 
 	TYPE
 		SOCKET* = INTEGER;
@@ -97,7 +96,7 @@ MODULE LinNet ["libc.so.6"];
 
 		(* /usr/include/i386-linux-gnu/sys/select.h *)
 			__fd_mask = SET;
-			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV __NFDBITS OF __fd_mask;
+			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV (SIZE(__fd_mask) * 8) OF __fd_mask;
 
 	VAR
 		h_errno*: INTEGER;
@@ -126,7 +125,7 @@ MODULE LinNet ["libc.so.6"];
 	PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 		VAR i: INTEGER;
 	BEGIN
-		i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+		i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 	END FD_ZERO;
 
 	PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);

BlackBox/_Linux_/Lin/Mod/gen-Termios/Termios.txt.templ

@@ -25,16 +25,16 @@ MODULE LinTermios ["libc.so.6"];
 		END;
 
 	(* POSIX.1 *)
-	PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
-	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
-	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
+		PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 
-	PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
 
 END LinTermios.

BlackBox/_OpenBSD_/Lin/Mod/Net.txt

@@ -257,7 +257,7 @@ MODULE LinNet ["libc.so.66.0"];
 	PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 		VAR i: INTEGER;
 	BEGIN
-		i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+		i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 	END FD_ZERO;
 
 	PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);

BlackBox/_OpenBSD_/Lin/Mod/Termios.txt

@@ -133,22 +133,22 @@ MODULE LinTermios ["libc.so.66.0"];
 		END;
 
 	(* POSIX.1 *)
-	PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
-	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
-	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
+		PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 
-	PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
 
 	(* extensions *)
 (*
-	PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfmakeraw* (VAR tp: termios);
+		PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfmakeraw* (VAR tp: termios);
 *)
 
 END LinTermios.

BlackBox/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ

@@ -127,7 +127,7 @@ MODULE LinNet ["libc.so.66.0"];
 	PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 		VAR i: INTEGER;
 	BEGIN
-		i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+		i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 	END FD_ZERO;
 
 	PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);

BlackBox/_OpenBSD_/Lin/Mod/gen-Termios/Termios.txt.templ

@@ -24,22 +24,22 @@ MODULE LinTermios ["libc.so.66.0"];
 		END;
 
 	(* POSIX.1 *)
-	PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
-	PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
-	PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
-	PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] cfgetispeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetispeed* (VAR tp: termios; ispeed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfgetospeed* (VAR tp: termios): speed_t;
+		PROCEDURE [ccall] cfsetospeed* (VAR tp: termios; ospeed: speed_t): INTEGER;
+		PROCEDURE [ccall] tcgetattr* (fd: INTEGER; VAR tp: termios): INTEGER;
+		PROCEDURE [ccall] tcsetattr* (fd: INTEGER; action: INTEGER; VAR tp: termios): INTEGER;
 
-	PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
-	PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcdrain* (fd: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflow* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcflush* (fd: INTEGER; action: INTEGER): INTEGER;
+		PROCEDURE [ccall] tcsendbreak* (fd: INTEGER; len: INTEGER): INTEGER;
 
 	(* extensions *)
 (*
-	PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;
-	PROCEDURE [ccall] cfmakeraw* (VAR tp: termios);
+		PROCEDURE [ccall] cfsetspeed* (VAR tp: termios; speed: speed_t): INTEGER;
+		PROCEDURE [ccall] cfmakeraw* (VAR tp: termios);
 *)
 
 END LinTermios.