amiga.c

   1 /* Running commands on Amiga
   2 Copyright (C) 1995-2013 Free Software Foundation, Inc.
   3 This file is part of GNU Make.
   4
   5 GNU Make is free software; you can redistribute it and/or modify it under the
   6 terms of the GNU General Public License as published by the Free Software
   7 Foundation; either version 3 of the License, or (at your option) any later
   8 version.
   9
  10 GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
  11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13
  14 You should have received a copy of the GNU General Public License along with
  15 this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 #include "makeint.h"
  18 #include "variable.h"
  19 #include "amiga.h"
  20 #include <assert.h>
  21 #include <exec/memory.h>
  22 #include <dos/dostags.h>
  23 #include <proto/exec.h>
  24 #include <proto/dos.h>
  25
  26 static const char Amiga_version[] = "$VER: Make 3.74.3 (12.05.96) \n"
  27                     "Amiga Port by A. Digulla (digulla@home.lake.de)";
  28
  29 int
  30 MyExecute (char **argv)
  31 {
  32     char * buffer, * ptr;
  33     char ** aptr;
  34     int len = 0;
  35     int status;
  36
  37     for (aptr=argv; *aptr; aptr++)
  38     {
  39         len += strlen (*aptr) + 4;
  40     }
  41
  42     buffer = AllocMem (len, MEMF_ANY);
  43
  44     if (!buffer)
  45       fatal (NILF, "MyExecute: Cannot allocate space for calling a command");
  46
  47     ptr = buffer;
  48
  49     for (aptr=argv; *aptr; aptr++)
  50     {
  51         if (((*aptr)[0] == ';' && !(*aptr)[1]))
  52         {
  53             *ptr ++ = '"';
  54             strcpy (ptr, *aptr);
  55             ptr += strlen (ptr);
  56             *ptr ++ = '"';
  57         }
  58         else if ((*aptr)[0] == '@' && (*aptr)[1] == '@' && !(*aptr)[2])
  59         {
  60             *ptr ++ = '\n';
  61             continue;
  62         }
  63         else
  64         {
  65             strcpy (ptr, *aptr);
  66             ptr += strlen (ptr);
  67         }
  68         *ptr ++ = ' ';
  69         *ptr = 0;
  70     }
  71
  72     ptr[-1] = '\n';
  73
  74     status = SystemTags (buffer,
  75         SYS_UserShell, TRUE,
  76         TAG_END);
  77
  78     FreeMem (buffer, len);
  79
  80     if (SetSignal (0L,0L) & SIGBREAKF_CTRL_C)
  81         status = 20;
  82
  83     /* Warnings don't count */
  84     if (status == 5)
  85         status = 0;
  86
  87     return status;
  88 }
  89
  90 char *
  91 wildcard_expansion (char *wc, char *o)
  92 {
  93 #   define PATH_SIZE    1024
  94     struct AnchorPath * apath;
  95
  96     if ( (apath = AllocMem (sizeof (struct AnchorPath) + PATH_SIZE,
  97             MEMF_CLEAR))
  98         )
  99     {
 100         apath->ap_Strlen = PATH_SIZE;
 101
 102         if (MatchFirst (wc, apath) == 0)
 103         {
 104             do
 105             {
 106                 o = variable_buffer_output (o, apath->ap_Buf,
 107                         strlen (apath->ap_Buf));
 108                 o = variable_buffer_output (o, " ",1);
 109             } while (MatchNext (apath) == 0);
 110         }
 111
 112         MatchEnd (apath);
 113         FreeMem (apath, sizeof (struct AnchorPath) + PATH_SIZE);
 114     }
 115
 116     return o;
 117 }