Initial revision

1987-01-27 15:57:55 +00:00
parent ee89196671
commit e49bbfbe1f
112 changed files with 4068 additions and 0 deletions
--- a/lang/cem/libcc/stdio/system.c
+++ b/lang/cem/libcc/stdio/system.c
@@ -0,0 +1,24 @@
+#include <signal.h>
+
+system(str)
+	char *str;
+{
+	int pid, exitstatus, waitval;
+	int i;
+
+	if ((pid = fork()) < 0) return -1;
+	if (pid == 0) {
+		for (i = 3; i <= 20; i++) close(i);
+		execl("/bin/sh", "sh", "-c", str, (char *) 0);
+		/* get here if execl fails ... */
+		_exit(127);	/* see manual page */
+	}
+	while ((waitval = wait(&exitstatus)) != pid) {
+		if (waitval == -1) break;
+	}
+	if (waitval == -1) {
+		/* no child ??? or maybe interrupted ??? */
+		exitstatus = -1;
+	}
+	return exitstatus;
+}