RISCOS files by dschwertberger

1 files changed, 62 insertions, 0 deletions

diff --git a/RISCOS/unixstuff.c b/RISCOS/unixstuff.c
new file mode 100644
index 0000000..10648d2
--- /dev/null
+++ b/RISCOS/unixstuff.c
@@ -0,0 +1,62 @@
+/* Fudge unix isatty and fileno for RISCOS */
+
+#include "h.unixstuff"
+#include <math.h>
+#include "h.osfile"
+
+int fileno(FILE *f)
+{ return (int)f;
+}
+
+int isatty(int fn)
+{ return (fn==fileno(stdin));
+}
+
+bits unixtime(bits ld,bits ex)
+{ ld&=0xFF;
+  ld-=51;
+  if(ex<1855548004U) ld--;
+  ex-=1855548004U;
+  return ex/100+42949672*ld+(95*ld)/100;
+}
+
+int unlink(char *fname)
+{ remove(fname);
+  return 0;
+}
+
+
+/*#define RET(k) {printf(" %d\n",k);return k;}*/
+#define RET(k) return k
+
+int isdir(char *fn)
+{ int ob;
+/*  printf("isdir %s",fn);*/
+  if(xosfile_read_stamped_no_path(fn,&ob,0,0,0,0,0)) RET(0);
+  switch (ob)
+  {   case osfile_IS_DIR:RET(1);
+    case osfile_IS_IMAGE:RET(1);
+  }
+  RET(0);
+}
+
+int isfile(char *fn)
+{ int ob;  /*printf("isfile %s",fn);*/
+  if(xosfile_read_stamped_no_path(fn,&ob,0,0,0,0,0)) RET(0);
+  switch (ob)
+  {  case osfile_IS_FILE:RET(1);
+    case osfile_IS_IMAGE:RET(1);
+  }
+  RET(0);
+}
+
+int exists(char *fn)
+{ int ob;  /*printf("exists %s",fn);*/
+  if(xosfile_read_stamped_no_path(fn,&ob,0,0,0,0,0)) RET(0);
+  switch (ob)
+  {  case osfile_IS_FILE:RET(1);
+      case osfile_IS_DIR:RET(1);
+    case osfile_IS_IMAGE:RET(1);
+  }
+  RET(0);
+}