mescc: Mes C Library: Explode linux/tcc.c.

* lib/linux/close.c: New file.
* lib/linux/lseek.c: New file.
* lib/linux/rmdir.c: New file.
* lib/linux/stat.c: New file.
* lib/linux/tcc.c: Include them.
(close, lseek, rmdir, stat): Remove.

diff --git a/lib/linux/close.c b/lib/linux/close.c
new file mode 100644 (file)
index 0000000..7876169
--- /dev/null
+++ b/lib/linux/close.c
@@ -0,0 +1,27 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+int
+close (int filedes)
+{
+  if (filedes > 2)
+    __ungetc_buf[filedes] = -1;
+  return _sys_call1 (SYS_close, (int)filedes);
+}

diff --git a/lib/linux/lseek.c b/lib/linux/lseek.c
new file mode 100644 (file)
index 0000000..7f6fc85
--- /dev/null
+++ b/lib/linux/lseek.c
@@ -0,0 +1,25 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+off_t
+lseek (int filedes, off_t offset, int whence)
+{
+  return _sys_call3 (SYS_lseek, (int)filedes, (long)offset, (int)whence);
+}

diff --git a/lib/linux/rmdir.c b/lib/linux/rmdir.c
new file mode 100644 (file)
index 0000000..ab95d23
--- /dev/null
+++ b/lib/linux/rmdir.c
@@ -0,0 +1,25 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+int
+rmdir (char const *file_name)
+{
+  return _sys_call1 (SYS_rmdir, (long)file_name);
+}

diff --git a/lib/linux/stat.c b/lib/linux/stat.c
new file mode 100644 (file)
index 0000000..3f9e43c
--- /dev/null
+++ b/lib/linux/stat.c
@@ -0,0 +1,25 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+int
+stat (char const *file_name, struct stat *statbuf)
+{
+  return _sys_call2 (SYS_stat, (long)file_name, (long)statbuf);
+}

diff --git a/lib/linux/tcc.c b/lib/linux/tcc.c
index d57b58cc526b1fd621dfe8c02c85faddb5933c92..b6f6d8d05640eec0a6132c2b940d710f7c87d86e 100644 (file)
--- a/lib/linux/tcc.c
+++ b/lib/linux/tcc.c
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * GNU Mes --- Maxwell Equations of Software
- * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of GNU Mes.
  *
@@ -20,28 +20,7 @@
 
 #include <time.h>
 
-int
-close (int filedes)
-{
-  if (filedes > 2)
-    __ungetc_buf[filedes] = -1;
-  return _sys_call1 (SYS_close, (int)filedes);
-}
-
-off_t
-lseek (int filedes, off_t offset, int whence)
-{
-  return _sys_call3 (SYS_lseek, (int)filedes, (long)offset, (int)whence);
-}
-
-int
-rmdir (char const *file_name)
-{
-  return _sys_call1 (SYS_rmdir, (long)file_name);
-}
-
-int
-stat (char const *file_name, struct stat *statbuf)
-{
-  return _sys_call2 (SYS_stat, (long)file_name, (long)statbuf);
-}
+#include <linux/close.c>
+#include <linux/lseek.c>
+#include <linux/rmdir.c>
+#include <linux/stat.c>