Merge d997f35 into d0c7f21

OpenSmalltalk · May 16, 2018 · 0518ccb · 0518ccb
2 parents d0c7f21 + d997f35
commit 0518ccb
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/platforms/Cross/plugins/FilePlugin/sqFilePluginBasicPrims.c b/platforms/Cross/plugins/FilePlugin/sqFilePluginBasicPrims.c
@@ -582,8 +582,19 @@ sqFileStdioHandlesInto(SQFile files[])
 * 4 - cygwin terminal (windows only)
 */
 sqInt sqFileDescriptorType(int fdNum) {
-	/* TODO  Implement the unix version */
-	return isatty(fdNum);
+        int status;
+        struct stat statBuf;
+
+        /* Is this a terminal? */
+        if (isatty(fdNum)) return 1;
+
+        /* Is this a pipe? */
+        status = fstat(fdNum, &statBuf);
+        if (status) return -1;
+        if (S_ISFIFO(statBuf.st_mode)) return 2;
+
+        /* Must be a normal file */
+        return 3;
 }