--- /dev/null
+
+
+/* must be defined before */
+#ifdef _MSC_VER
+#define _CRT_SECURE_NO_DEPRECATE
+#endif
+
+#include <windows.h>
+
+#include <sys/stat.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <locale.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <io.h>
+
+#ifdef _MSC_VER
+#define _CRT_SECURE_NO_DEPRECATE
+#define strdup _strdup
+#define fileno _fileno
+#define creat _creat
+#define open _open
+#define read _read
+#define write _write
+#endif
+
+#ifdef max
+ #undef max
+ #define max(h,i) ((h) > (i) ? (h) : (i))
+#endif
+
+#ifndef S_ISREG
+ #define S_ISREG(__mode) (((__mode) & S_IFMT) == S_IFREG)
+#endif
+
+#ifndef STDIN_FILENO
+#define STDIN_FILENO 0
+#endif
+
+#ifndef STDOUT_FILENO
+#define STDOUT_FILENO 1
+#endif
+
+
+static
+int exit_code = EXIT_SUCCESS;
+
+static char*
+rfname;
+
+static char*
+wfname = NULL;
+
+static
+int wfd;
+
+#ifndef _MSC_VER
+static size_t
+#else
+static int
+#endif
+bsize;
+
+static char *
+buf = NULL;
+
+static int
+fnumber = 0;
+
+int
+cat_files(char** fnames);
+
+int
+cat(int);
+
+char**
+fnames = NULL;
+
+void
+exit0(int errcode)
+{
+ if(fnames)
+ {
+ int i;
+
+ for(i = 0; i < fnumber; i++)
+ free(fnames[i]);
+
+ free(fnames);
+ }
+
+ if(buf)
+ free(buf);
+
+ if(wfname)
+ free(wfname);
+
+
+ exit(errcode);
+}
+
+int
+main(int argc, char *argv[])
+{
+ int i, j;
+ int success = 1;
+ int redirect = 0;
+ int exists = 0;
+
+ struct stat stat_buf = {0};
+
+ setlocale(LC_ALL, "");
+
+ bsize = BUFSIZ;
+
+ if(!(buf = (char*)malloc(bsize)))
+ {
+ fprintf(stderr, "[ERROR/cat] not enough memory\n");
+ exit0(EXIT_FAILURE);
+ }
+
+ if(argc > 1)
+ {
+ if(!(fnames = (char**)calloc(argc, sizeof(char*))))
+ {
+ fprintf(stderr, "[ERROR/cat] not enough memory\n");
+ exit0(EXIT_FAILURE);
+ }
+
+ for(i = 1, j= 0; i < argc; i++)
+ {
+ if(!strcmp(argv[i], ">"))
+ {
+ redirect = 1;
+ break;
+ }
+ else if(!strcmp(argv[i], ">>"))
+ {
+ redirect = 1;
+ exists = 1;
+ break;
+ }
+ else
+ {
+ if(stat(argv[i], &stat_buf))
+ {
+ fprintf(stderr, "[ERROR/cat (1)] could not get information about %s\n",argv[i]);
+ success = 0;
+ break;
+ }
+ else
+ {
+ if(S_ISREG(stat_buf.st_mode))
+ {
+ fnames[j++] = strdup(argv[i]);
+ fnumber++;
+ }
+ else
+ {
+ fprintf(stderr, "[ERROR/cat] %s is not a file\n",argv[i]);
+ success = 0;
+ break;
+ }
+ }
+ }
+ }
+
+ if(!success)
+ exit0(EXIT_FAILURE);
+ }
+
+ if(redirect)
+ {
+ if(i != argc - 2)
+ {
+ if(exists)
+ fprintf(stderr, "[ERROR/cat] syntax error near `>>' (i : %d - argc : %d\n", i , argc);
+ else
+ fprintf(stderr, "[ERROR/cat] syntax error near `>' (i : %d - argc : %d\n", i , argc);
+
+ exit0(EXIT_FAILURE);
+ }
+ else
+ {
+ wfname = strdup(argv[i + 1]);
+
+ if(!exists)
+ {
+ if((wfd = creat(wfname, _S_IREAD | _S_IWRITE)) < 0)
+ {
+ fprintf(stderr, "[ERROR/cat] could not create %s file\n",wfname);
+
+ exit0(EXIT_FAILURE);
+ }
+ }
+ else
+ {
+ if((wfd = open(wfname, O_WRONLY | O_APPEND, 0)) < 0)
+ {
+ fprintf(stderr, "[ERROR/cat] could not open %s file\n",wfname);
+
+ exit0(EXIT_FAILURE);
+ }
+ }
+ }
+ }
+ else
+ {
+ wfd = STDOUT_FILENO;
+
+ if(fstat(wfd, &stat_buf))
+ {
+ fprintf(stderr, "[ERROR/cat (3)] could not get information about stdout\n");
+ exit0(EXIT_FAILURE);
+ }
+ }
+
+ exit_code = cat_files(fnames);
+
+ if(wfd == STDOUT_FILENO)
+ {
+ if(fclose(stdout))
+ {
+ fprintf(stderr, "[ERROR/cat] could not close stdout\n");
+ exit_code = EXIT_FAILURE;
+ }
+ }
+ else
+ {
+ if(close(wfd))
+ {
+ fprintf(stderr, "[ERROR/cat] could not close %s\n", wfname);
+ exit_code = EXIT_FAILURE;
+ }
+ }
+
+ exit0(exit_code);
+}
+
+int
+cat_files(char **fnames)
+{
+ int rfd, i;
+ int failure = 0;
+
+ rfd = STDIN_FILENO;
+
+ rfname = "stdin";
+
+ if(fnumber)
+ {
+
+ for(i = 0; i < fnumber && !failure; i++)
+ {
+ if (!strcmp(fnames[i], "-"))
+ rfd = fileno(stdin);
+ else if ((rfd = open(fnames[i], O_RDONLY, 0)) < 0)
+ {
+ fprintf(stderr, "[WARN/cat] could not open %s file", fnames[i]);
+ exit_code = EXIT_FAILURE;
+ continue;
+ }
+
+ rfname = fnames[i];
+
+ failure = cat(rfd);
+
+ close(rfd);
+
+ }
+ }
+ else
+ failure = cat(rfd);
+
+ return failure ? 1 : 0;
+}
+
+int
+cat(int rfd)
+{
+
+ #ifndef _MSC_VER
+ size_t bytes_readed_nb;
+ #else
+ int bytes_readed_nb;
+ #endif
+ int bytes_written_nb, pos;
+
+ while ((bytes_readed_nb = read(rfd, buf, bsize)) != -1 && bytes_readed_nb != 0)
+ {
+ for (pos = 0; bytes_readed_nb; bytes_readed_nb -= bytes_written_nb, pos += bytes_written_nb)
+ {
+ if ((bytes_written_nb = write(wfd, buf + pos, bytes_readed_nb)) == 0 || bytes_written_nb == -1)
+ {
+ fprintf(stderr, "[ERROR/cat] could not write to %s\n", wfd == fileno(stdout) ? "stdout" : wfname);
+ return 1;
+ }
+ }
+ }
+
+ if(bytes_readed_nb < 0)
+ {
+ fprintf(stderr, "[WARN/cat] could not read %s file", rfname);
+ return 1;
+ }
+
+ return 0;
+}
