X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=primos%2Fprimos.c;fp=primos%2Fprimos.c;h=0000000000000000000000000000000000000000;hb=dc84183747ce1703eb99685b5dbde1f65a143c06;hp=18e228b69be8c5eaad809f5dce407073af73e046;hpb=a2016c1de6e4884f6c8ed5cc498f3bf821c25ca4;p=debian%2Fgzip

diff --git a/primos/primos.c b/primos/primos.c
deleted file mode 100644
index 18e228b..0000000
--- a/primos/primos.c
+++ /dev/null
@@ -1,123 +0,0 @@
-/*
-** primos.c
-**
-** This file contains emulation routines for some common Unix functions
-**
-** Author: Peter Eriksson <pen@lysator.liu.se>
-*/
-
-#ifdef __50SERIES
-
-#include <config.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-
-
-uid_t  primos_uid = 42;
-gid_t  primos_gid = 42;
-mode_t primos_mode = 600;
-
-/* Dummy do-nothing routine for chmod() */
-int chmod(path, mode)
-  char *path;
-  int mode;
-{
-   return 0;
-}
-
-char *getenv(var)
-  char *var;
-{
-  char buf[256];
-  extern char *gvget();
-
-  buf[0] = '.';
-  strcpy(buf+1, var);
-
-  return gvget(buf);
-}
-
-
-unlink(path)
-  char *path;
-{
-  return delete(path);
-}
-
-int lstat(path, buf)
-  char *path;
-  struct stat *buf;
-{
-  return stat(path, buf);
-}
-
-int stat(path, buf)
-  char *path;
-  struct stat *buf;
-{
-  buf->st_dev     = 1;
-  buf->st_ino     = 1;
-  buf->st_nlink   = 1;
-  buf->st_uid     = primos_uid;
-  buf->st_gid     = primos_gid;
-  buf->st_rdev    = 1;
-  buf->st_blksize = 2048;
-
-  buf->st_rwlock = frwlock(path);
-  switch (buf->st_type = ftype(path))
-  {
-    case 0:
-    case 1:
-      /* Regular file (SAM or DAM) */
-      buf->st_size   = fsize(path);
-      buf->st_mtime  = fdtm(path);
-
-      buf->st_mode = S_IFREG|primos_mode;
-      break;
-
-    case 4:
-      buf->st_size = 0;
-      buf->st_mtime = fdtm(path);
-
-      buf->st_mode = S_IFDIR|primos_mode;
-      break;
-
-    case -1:
-      return -1;
-
-    default:
-      buf->st_mode = primos_mode;
-      buf->st_size = fsize(path);
-      buf->st_mtime = fdtm(path);
-  }
-
-  buf->st_blocks = (buf->st_size-1) / buf->st_blksize + 1;
-
-  /* Should be fixed to really fetch these values, but that
-   * would require calling some PRIMOS subroutines and I don't have
-   * a copy of the Primos Subroutine reference manuals here..
-   */
-  buf->st_atime = buf->st_mtime;
-  buf->st_ctime = buf->st_mtime;
-
-  return 0;
-}
-
-int fstat(fd, buf)
-  int fd;
-  struct stat *buf;
-{
-  char path[1025];
-
-  return stat(getname(fd, path), buf);
-}
-
-int ascii2pascii(c)
-  int c;
-{
-  return (c ? (c | 0x80) : '\0');
-}
-
-
-#endif /* __50SERIES */