From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gaius@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1499)
	id 6CABB3858D37; Mon, 10 Oct 2022 14:11:21 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 6CABB3858D37
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1665411081;
	bh=3YbUfwi8uQwwJXRl1bZ65+KxgyF34QOVf9Fct6wmKiU=;
	h=From:To:Subject:Date:From;
	b=RNVQvPV1hrKfBrbCfnLt1Npjw6lT+Jd16eOPeRfF/IXodlM++KD7iSSbXxW9dz5Q3
	 wibEjXTHQ+RbiF4Q9QZLYEHce6KrX2YQ+W/CHEEMUaB82+JoWjj/wEFpBOehcTESvd
	 t+5/qYNg86kYjRtLDCvbuZIEOaCYjpz0yHFvx/bk=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: Gaius Mulley <gaius@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc/devel/modula-2] Remove unused script.
X-Act-Checkin: gcc
X-Git-Author: Gaius Mulley <gaiusmod2@gmail.com>
X-Git-Refname: refs/heads/devel/modula-2
X-Git-Oldrev: b8bcd40cae5c18030f1adcd365eb875364d9ea76
X-Git-Newrev: c92177a3eb2846ef63602e794032bdcc0c82cced
Message-Id: <20221010141121.6CABB3858D37@sourceware.org>
Date: Mon, 10 Oct 2022 14:11:21 +0000 (GMT)
List-Id: <gcc-cvs.sourceware.org>

https://gcc.gnu.org/g:c92177a3eb2846ef63602e794032bdcc0c82cced

commit c92177a3eb2846ef63602e794032bdcc0c82cced
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Mon Oct 10 14:42:04 2022 +0100

    Remove unused script.
    
    Remove an unused script.
    
    gcc/m2/ChangeLog:
    
            * tool-src/createUlmSys: (Removed).
    
    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

Diff:
---
 gcc/m2/tools-src/createUlmSys | 514 ------------------------------------------
 1 file changed, 514 deletions(-)

diff --git a/gcc/m2/tools-src/createUlmSys b/gcc/m2/tools-src/createUlmSys
deleted file mode 100755
index d0286595051..00000000000
--- a/gcc/m2/tools-src/createUlmSys
+++ /dev/null
@@ -1,514 +0,0 @@
-#!/bin/bash
-
-# createUlmSys creates a University of Ulm compatible SYSTEM module.
-# Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
-
-# Copyright (C) 2000-2022 Free Software Foundation, Inc.
-# This file is part of GNU Modula-2.
-#
-# GNU Modula-2 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, or (at your option)
-# any later version.
-#
-# GNU Modula-2 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 Modula-2; see the file COPYING.  If not, write to the
-# Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301, USA.
-#
-
-LIBS_H=$1
-
-PROTOTYPE_LIST=(i ii iii ip ipi ipp iipi ippp ipii iiip iip lp lili END)
-
-#
-#  createUlmSys - creates the Sys.def and SYSTEM.c files for the ulm
-#                 libraries. The stategy is to provide access to the
-#                 low level libc system call wrappers. We don't attempt
-#                 to support all system calls, as the priority
-#                 is portability.
-#
-#          system call     prototype
-CALL_LIST=(access          ipi
-           brk             ip
-           close           ii
-           creat           ipi
-           dup             ii
-           execve          ippp
-           exit            ii
-           fcntl           iiip
-           fstat           iip
-           getdents        iipi
-           getgid          i
-           getpid          i
-           gettimeofday    ipp
-           getuid          i
-           ioctl           iiip
-           kill            iii
-           link            ipp
-           lseek           lili
-           open            ipii
-           pause           i
-           pipe            ip
-           read            iipi
-           setitimer       iipp
-           setgid          ii
-           setuid          ii
-           stat            ipp
-           times           lp
-           unlink          ip
-           wait            ip
-           write           iipi
-           END             END)
-
-function createPrototypes () {
-   echo "int SYSTEM_UNIXCALL (int code, int *r0, int *r1, ...);"
-   echo "void _M2_SYSTEM_init ();"
-   echo "void _M2_SYSTEM_finish ();"
-   count=0
-   proto=1
-   while [ "${CALL_LIST[$count]}" != "END" ] ; do
-      echo ""
-      emitReturn ${CALL_LIST[$proto]}
-      func=`echo -n ${CALL_LIST[$count]}`
-      echo -n " no_$func "
-      emitPrototype ${CALL_LIST[$proto]}
-      echo ";"
-      count=`expr $count + 2`
-      proto=`expr $proto + 2`
-   done
-}
-
-function createSyscall () {
-    cat <<EOFEOF
-
-
-int SYSTEM_UNIXCALL (int code, int *r0, int *r1, ...)
-{
-#if defined(HAVE_STDARG_H)
-    va_list argsPtr;
-    int ret;
-#endif
-
-    if (! initialized)
-	_M2_SYSTEM_init ();
-
-#if defined(HAVE_STDARG_H)
-    va_start(argsPtr, r1);
-    switch (code) {
-
-EOFEOF
-
-   proto=0
-   while [ "${PROTOTYPE_LIST[$proto]}" != "END" ] ; do
-       parameters=${PROTOTYPE_LIST[$proto]}
-       count=0
-       while [ "${CALL_LIST[$count]}" != "END" ] ; do
-	   func=`echo -n ${CALL_LIST[$count]}`
-	   count=`expr $count + 1`
-	   if [ "${CALL_LIST[$count]}" == "$parameters" ] ; then
-	       echo "    case CALL_$func:"
-           fi
-	   count=`expr $count + 1`
-       done
-       echo    "      {"
-       emitDeclareVariables $parameters
-       echo -n "         ret = (*syscalls[code])"
-       emitPassParameters $parameters
-       echo ";"
-       echo    "      }"
-       echo    "      break;"
-       proto=`expr $proto + 1`
-   done
-
-   cat <<EOFEOF
-   }
-   va_end(argsPtr);
-#endif
-
-#if defined(HAVE_ERRNO_H)
-   if (errno == 0)
-      *r0 = ret;
-   else
-      *r0 = errno;
-   *r1 = *r0;
-   return errno == 0;
-#else
-   *r0 = 0;
-   *r1 = 0;
-   return 1;
-#endif
-}
-EOFEOF
-}
-
-#
-#  safeIncludeFile - wraps #include <$2> by #if defined($1)
-#
-
-safeIncludeFile () {
-   echo ""
-   echo "#if defined($1)"
-   echo "#   include <$2>"
-   echo "#endif"
-}
-
-#
-#  createSystem - creates the SYSTEM.c file.
-#                 It creates defines/includes/prototypes/syscalls.
-#
-
-function createSystem () {
-   cat <<EOFEOF
-/*
- *  Do not edit - as this is created automatically via
- *                gm2/tools-src/createUlmSys
- */
-EOFEOF
-   count=0
-   callno=0
-   while [ "${CALL_LIST[$count]}" != "END" ] ; do
-      func=`echo -n ${CALL_LIST[$count]} | tr '[:lower:]' '[:upper:]'`
-      if [ -f ${LIBS_H} ] ; then
-	  echo "#define CALL_${CALL_LIST[$count]} $callno"
-	  callno=`expr $callno + 1`
-	  count=`expr $count + 1`
-	  count=`expr $count + 1`
-      else
-          echo "cannot find ${LIBS_H}"
-          exit 1
-      fi
-   done
-   echo ""
-   echo "#include \"../config.h\""
-   safeIncludeFile HAVE_STDIO_H stdio.h
-   safeIncludeFile HAVE_STDARG_H stdarg.h
-   safeIncludeFile HAVE_UNISTD_H unistd.h
-   safeIncludeFile HAVE_DIRECT_H direct.h
-   safeIncludeFile HAVE_DIRENT_H dirent.h
-   safeIncludeFile HAVE_FCNTL_H fcntl.h
-   safeIncludeFile HAVE_INTTYPES_H inttypes.h
-   safeIncludeFile HAVE_PWD_H pwd.h
-   safeIncludeFile HAVE_STDDEF_H stddef.h
-   safeIncludeFile HAVE_STDINT_H stdint.h
-   safeIncludeFile HAVE_STDLIB_H stdlib.h
-   safeIncludeFile HAVE_SYS_FILE_H sys/file.h
-   safeIncludeFile HAVE_SYS_IOCTL_H sys/ioctl.h
-   safeIncludeFile HAVE_SYS_STAT_H sys/stat.h
-   safeIncludeFile HAVE_SYS_TIMES_H sys/times.h
-   safeIncludeFile HAVE_SYS_TIME_H sys/time.h
-   safeIncludeFile HAVE_SYS_WAIT_H sys/wait.h
-   safeIncludeFile HAVE_SIGNAL_H signal.h
-   safeIncludeFile HAVE_ERRNO_H errno.h
-   safeIncludeFile HAVE_SYS_ERRNO_H sys/errno.h
-   echo "#define ATTRIBUTE_UNUSED  __attribute__ ((__unused__))"
-   cat << EOFEOF
-
-typedef int (*ptrToSyscall)();
-static ptrToSyscall syscalls[$callno];
-static int initialized = 0;
-
-EOFEOF
-
-    createPrototypes
-
-    createNoSyscall
-
-    createSyscall
-
-    createUnixFork
-
-    createUnixSignal
-
-cat <<EOFEOF
-
-void _M2_SYSTEM_init ()
-{
-   if (initialized)
-      return;
-   initialized = 1;
-EOFEOF
-   count=0
-   while [ "${CALL_LIST[$count]}" != "END" ] ; do
-       func=`echo -n ${CALL_LIST[$count]} | tr '[:lower:]' '[:upper:]'`
-       if grep ^\#define ${LIBS_H} \
-	   | grep HAVE_$func | grep 1 >& /dev/null ; then
-           echo "# if defined(HAVE_$func)"
-	   echo "   syscalls[CALL_${CALL_LIST[$count]}] = (void *)${CALL_LIST[$count]};"
-           echo "# else"
-	   echo "   syscalls[CALL_${CALL_LIST[$count]}] = (void *)no_${CALL_LIST[$count]};"
-           echo "# endif"
-       elif grep ^\#undef ${LIBS_H} \
-	   | grep HAVE_$func >& /dev/null ; then
-           echo "# if defined(HAVE_$func)"
-	   echo "   syscalls[CALL_${CALL_LIST[$count]}] = (void *)${CALL_LIST[$count]};"
-           echo "# else"
-	   echo "   syscalls[CALL_${CALL_LIST[$count]}] = (void *)no_${CALL_LIST[$count]};"
-           echo "# endif"
-       else
-           echo "   /* ${LIBS_H} should test for the system call or libc call $func */"
-	   echo "   syscalls[CALL_${CALL_LIST[$count]}] = (void *)no_${CALL_LIST[$count]};"
-       fi
-       count=`expr $count + 1`
-       count=`expr $count + 1`
-   done
-   echo "}"
-   echo " "
-   echo "void _M2_SYSTEM_finish (void)"
-   echo "{"
-   echo "}"
-}
-
-function createUnixFork () {
-    cat <<EOF
-#if !defined(TRUE)
-#   define TRUE (1==1)
-#endif
-
-#if !defined(FALSE)
-#   define FALSE (1==0)
-#endif
-
-int
-SYSTEM_UNIXFORK (int *pid)
-{
-   int result = fork ();
-
-#if defined(HAVE_ERRNO_H)
-   if (errno != 0)
-     {
-        *pid = errno;
-        return FALSE;
-     }
-#endif
-   *pid = result;
-   return TRUE;
-}
-EOF
-}
-
-function createUnixSignal () {
-    cat <<EOF
-#if defined(HAVE_SIGNAL_H)
-
-/* Type of a signal handler.  */
-typedef void (*proc_t) (int);
-
-int
-SYSTEM_UNIXSIGNAL (int signo, proc_t p, proc_t *old, int *result)
-{
-  proc_t r = signal (signo, p);
-
-#if defined(HAVE_ERRNO_H)
-  *result = errno;
-#endif
-
-  if (r == SIG_ERR)
-    return FALSE;
-
-  *old = r;
-  return TRUE;
-}
-
-#else
-
-int
-SYSTEM_UNIXSIGNAL (int signo, void *p, void **old, int *result)
-{
-  return FALSE;
-}
-
-#endif
-EOF
-}
-
-function createSysDef () {
-   count=0
-   callno=0
-   echo "CONST"
-   while [ "${CALL_LIST[$count]}" != "END" ] ; do
-      echo "   ${CALL_LIST[$count]} = $callno ;"
-      count=`expr $count + 1`
-      count=`expr $count + 1`
-      callno=`expr $callno + 1`
-   done
-}
-
-function emitReturn () {
-    case $1 in
-
-    i)           echo -n "int" ;;
-    ii)          echo -n "int" ;;
-    iii)         echo -n "int" ;;
-    ip)          echo -n "int" ;;
-    ipi)         echo -n "int" ;;
-    ipp)         echo -n "int" ;;
-    iipp)        echo -n "int" ;;
-    iipi)        echo -n "int" ;;
-    ipii)        echo -n "int" ;;
-    ippp)        echo -n "int" ;;
-    iiip)        echo -n "int" ;;
-    iip)         echo -n "int" ;;
-    lp)          echo -n "long" ;;
-    lili)        echo -n "long" ;;
-
-    esac
-}
-
-function emitParameters () {
-    if [ $# -eq 1 ] ; then
-        echo -n "(void)"
-    else
-       shift 1 # remove return value
-       p=1
-       echo -n "("
-       while [ $# -ge 1 ] ; do
-           case $1 in
-
-           i)  echo -n "int ATTRIBUTE_UNUSED p$p" ;;
-           l)  echo -n "long ATTRIBUTE_UNUSED p$p" ;;
-           p)  echo -n "void ATTRIBUTE_UNUSED *p$p" ;;
-
-           esac
-           if [ $# -gt 1 ] ; then
-               echo -n ", "
-           fi
-           shift 1
-           p=`expr $p + 1`
-       done
-       echo -n ")"
-    fi
-}
-
-function emitPrototype () {
-    case $1 in
-
-    i)           emitParameters i ;;
-    ii)          emitParameters i i ;;
-    iii)         emitParameters i i i ;;
-    ip)          emitParameters i p ;;
-    ipi)         emitParameters i p i ;;
-    ipp)         emitParameters i p p ;;
-    iipp)        emitParameters i i p p ;;
-    iipi)        emitParameters i i p i ;;
-    ipii)        emitParameters i p i i ;;
-    ippp)        emitParameters i p p p ;;
-    iiip)        emitParameters i i i p ;;
-    iip)         emitParameters i i p ;;
-    lp)          emitParameters l p ;;
-    lili)        emitParameters l i l i ;;
-
-    esac
-}
-
-function emitVariable () {
-    if [ $# -ne 1 ] ; then
-       shift 1 # remove return value
-       v=1
-       while [ $# -ge 1 ] ; do
-           case $1 in
-
-           i)  echo "         int i$v = va_arg(argsPtr, int);" ;;
-           l)  echo "         int l$v = va_arg(argsPtr, int);" ;;
-           p)  echo "         void *p$v = va_arg(argsPtr, void *);" ;;
-
-           esac
-           shift 1
-           v=`expr $v + 1`
-       done
-    fi
-}
-
-function emitDeclareVariables () {
-    case $1 in
-
-    i)           emitVariable i ;;
-    ii)          emitVariable i i ;;
-    iii)         emitVariable i i i ;;
-    ip)          emitVariable i p ;;
-    ipi)         emitVariable i p i ;;
-    ipp)         emitVariable i p p ;;
-    iipp)        emitVariable i i p p ;;
-    iipi)        emitVariable i i p i ;;
-    ipii)        emitVariable i p i i ;;
-    ippp)        emitVariable i p p p ;;
-    iiip)        emitVariable i i i p ;;
-    iip)         emitVariable i i p ;;
-    lp)          emitVariable l p ;;
-    lili)        emitVariable l i l i ;;
-
-    esac
-}
-
-function emitPassParameters () {
-    case $1 in
-
-    i)           echo -n "()" ;;
-    ii)          echo -n "(i1)" ;;
-    iii)         echo -n "(i1, i2)" ;;
-    ip)          echo -n "(p1)" ;;
-    ipi)         echo -n "(p1, i2)" ;;
-    ipp)         echo -n "(p1, p2)" ;;
-    iipp)        echo -n "(i1, p2, p3)" ;;
-    iipi)        echo -n "(i1, p2, i3)" ;;
-    ipii)        echo -n "(p1, i2, i3)" ;;
-    ippp)        echo -n "(p1, p2, p3)" ;;
-    iiip)        echo -n "(i1, i2, p3)" ;;
-    iip)         echo -n "(i1, p2)" ;;
-    lp)          echo -n "(p1)" ;;
-    lili)        echo -n "(i1, l2, i3)" ;;
-
-    esac
-}
-
-function emitReturnValue () {
-   case $1 in
-
-    i)           echo "return 0;" ;;
-    ii)          echo "return 0;" ;;
-    iii)         echo "return 0;" ;;
-    ip)          echo "return 0;" ;;
-    ipi)         echo "return 0;" ;;
-    ipp)         echo "return 0;" ;;
-    iipp)        echo "return 0;" ;;
-    iipi)        echo "return 0;" ;;
-    ipii)        echo "return 0;" ;;
-    ippp)        echo "return 0;" ;;
-    iiip)        echo "return 0;" ;;
-    iip)         echo "return 0;" ;;
-    lp)          echo "return 0L;" ;;
-    lili)        echo "return 0L;" ;;
-
-    esac
-}
-
-function createNoSyscall () {
-   count=0
-   proto=1
-   while [ "${CALL_LIST[$count]}" != "END" ] ; do
-      echo ""
-      emitReturn ${CALL_LIST[$proto]}
-      func=`echo -n ${CALL_LIST[$count]}`
-      echo -n " no_$func "
-      emitPrototype ${CALL_LIST[$proto]}
-      echo ""
-cat <<EOF
-{
-#if defined(STDIO_H)
-    fprintf(stderr, "system call $func does not exist\\n");
-#endif
-EOF
-      echo -n "    "
-      emitReturnValue ${CALL_LIST[$proto]}
-      echo "}"
-      count=`expr $count + 2`
-      proto=`expr $proto + 2`
-   done
-}
-
-createSystem