freebsd-ports/devel/cocktail/files/patch-reuse-m2c-SetsDrv.c
Edwin Groothuis 8937ed4066 [PORT UPGRADE] devel/cocktail corrected for 64bits compilation
The orignal port only ran on i386, since there were some
	64bit conversion problems. The included tar file replaces
	the compete devel/cocktail tree currently in the ports tree.

(lots of patches!)

PR:		ports/71940
Submitted by:	Willem Jan Withagen <wjw@withagen.nl>
2004-12-15 04:05:34 +00:00

139 lines
6.6 KiB
C

--- /usr/ports/devel/cocktail/work/cocktail-9309//./reuse/m2c/SetsDrv.c Tue Feb 15 14:27:00 1994
+++ ./reuse/m2c/SetsDrv.c Thu Aug 5 18:49:34 2004
@@ -25,39 +25,116 @@
for (i = 2; i <= max; i += 1) {
Sets_Include(&t, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, t);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&t), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
Sets_AssignEmpty(&s);
Sets_AssignElmt(&s, 1L);
Sets_Assign(&u, t);
Sets_Union(&s, t);
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, t);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&t), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
Sets_AssignEmpty(&t);
for (i = 0; i <= max; i += 2) {
Sets_Include(&t, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, t);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&t), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&t), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
Sets_Difference(&s, t);
for (i = 0; i <= max; i += 3) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 5) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 7) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 11) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 13) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 17) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 19) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 23) {
Sets_Exclude(&s, i);
}
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Size(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Minimum(&s), 5L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Maximum(&s), 5L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
for (i = 0; i <= max; i += 29) {
Sets_Exclude(&s, i);
}
@@ -101,7 +178,7 @@
Sets_Include(&s, 3L);
Sets_Include(&s, 7L);
IO_WriteNl((rSystem_tFile)IO_StdOutput);
- IO_WriteS((rSystem_tFile)IO_StdOutput, (STRING)"enter Size and Set like below! (Size=0 terminates)", 50L);
+ IO_WriteS((rSystem_tFile)IO_StdOutput, (STRING)"enter MaxSet and Set like below! (Size=0 terminates)", 52L);
IO_WriteNl((rSystem_tFile)IO_StdOutput);
IO_WriteS((rSystem_tFile)IO_StdOutput, (STRING)"10 ", 3L);
Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
@@ -115,6 +192,10 @@
goto EXIT_1;
}
Sets_MakeSet(&s, i);
+ Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
+ IO_WriteS((rSystem_tFile)IO_StdOutput, (STRING)" Card = ", 8L);
+ IO_WriteI((rSystem_tFile)IO_StdOutput, (LONGINT)Sets_Card(&s), 0L);
+ IO_WriteNl((rSystem_tFile)IO_StdOutput);
Sets_ReadSet((rSystem_tFile)IO_StdInput, &s);
Sets_WriteSet((rSystem_tFile)IO_StdOutput, s);
IO_WriteS((rSystem_tFile)IO_StdOutput, (STRING)" Card = ", 8L);