text: /******************************************************************************
  Copyright (c) 1999 Daniel Stenberg
  
  Permission is hereby granted, free of charge, to any person obtaining a copy
  of this software and associated documentation files (the "Software"), to deal
  in the Software without restriction, including without limitation the rights
  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  copies of the Software, and to permit persons to whom the Software is
  furnished to do so, subject to the following conditions:
  
  The above copyright notice and this permission notice shall be included in
  all copies or substantial portions of the Software.
  
  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  SOFTWARE.
  ******************************************************************************/
  #include <stdio.h>
  #include <ctype.h>
  
  #include "cppdef.h"
  #include "cpp.h"
  
  #ifdef _AMIGA
  #include <proto/dos.h>
  #endif
  
  FILE_LOCAL void fpp_dump_line(struct Global *, int *);
  FILE_LOCAL ReturnCode fpp_doif(struct Global *, int);
  INLINE FILE_LOCAL ReturnCode fpp_doinclude(struct Global *);
  INLINE FILE_LOCAL int fpp_hasdirectory(char *, char *);
  
  
  /*
   * Generate (by hand-inspection) a set of unique values for each control
   * operator.  Note that this is not guaranteed to work for non-Ascii
   * machines.  CPP won't compile if there are hash conflicts.
   */
  
  #define L_assert    ('a' + ('s' << 1))
  #define L_define    ('d' + ('f' << 1))
  #define L_elif      ('e' + ('i' << 1))
  #define L_else      ('e' + ('s' << 1))
  #define L_endif     ('e' + ('d' << 1))
  #define L_error     ('e' + ('r' << 1))
  #define L_if        ('i' + (EOS << 1))
  #define L_ifdef     ('i' + ('d' << 1))
  #define L_ifndef    ('i' + ('n' << 1))
  #define L_include   ('i' + ('c' << 1))
  #define L_line      ('l' + ('n' << 1))
  #define L_nogood    (EOS + (EOS << 1))      /* To catch #i          */
  #define L_pragma    ('p' + ('a' << 1))
  #define L_undef     ('u' + ('d' << 1))
  
  ReturnCode fpp_control( struct Global *global,
      int *counter )  /* Pending newline counter */
  {
      /*
       * Process #control lines.  Simple commands are processed inline,
       * while complex commands have their own subroutines.
       *
       * The counter is used to force out a newline before #line, and
       * #pragma commands.  This prevents these commands from ending up at
       * the end of the previous line if cpp is invoked with the -C option.
       */
  
      int c;
      char *tp;
      int hash;
      char *ep;
      ReturnCode ret;
  
      c = fpp_skipws( global );
  
      if( c == '\n' || c == EOF_CHAR )
          {
          (*counter)++;
  
          return(FPP_OK);
          }
  
      if( !isdigit(c) )
          fpp_scanid( global, c );                  /* Get #word to tokenbuf        */
      else
          {
          fpp_unget( global );                    /* Hack -- allow #123 as a      */
  
          strcpy( global->tokenbuf, "line" );   /* synonym for #line 123        */
          }
  
      hash = (global->tokenbuf[1] == EOS) ? L_nogood : (global->tokenbuf[0] + (global->tokenbuf[2] << 1));
  
      switch( hash )
          {
          case L_assert:
              tp = "assert";
              break;
          case L_define:
              tp = "define";
              break;
          case L_elif:
              tp = "elif";
              break;
          case L_else:
              tp = "else";
              break;
          case L_endif:
              tp = "endif";
              break;
          case L_error:
              tp = "error";
              break;
          case L_if:
              tp = "if";
              break;
          case L_ifdef:
              tp = "ifdef";
              break;
          case L_ifndef:
              tp = "ifndef";
              break;
          case L_include:
              tp = "include";
              break;
          case L_line:
              tp = "line";
              break;
          case L_pragma:
              tp = "pragma";
              break;
          case L_undef:
              tp = "undef";
              break;
          default:
              hash = L_nogood;
          case L_nogood:
              tp = "";
              break;
          }
  
      if( !streq( tp, global->tokenbuf ) )
          hash = L_nogood;
  
      /*
       * hash is set to a unique value corresponding to the
       * control keyword (or L_nogood if we think it's nonsense).
       */
      if( global->infile->fp == NULL )
          fpp_cwarn( global, WARN_CONTROL_LINE_IN_MACRO, global->tokenbuf );
  
      if( !compiling )
          {                       /* Not compiling now    */
          switch( hash )
              {
              case L_if:              /* These can't turn     */
              case L_ifdef:           /*  compilation on, but */
              case L_ifndef:          /*   we must nest #if's */
                  if( ++global->ifptr >= &global->ifstack[BLK_NEST] )
                      {
                      fpp_cfatal( global, FATAL_TOO_MANY_NESTINGS, global->tokenbuf );
  
                      return( FPP_TOO_MANY_NESTED_STATEMENTS );
                      }
  
                  *global->ifptr = 0;       /* !WAS_COMPILING   */
  
              case L_line:            /* Many         */
                  /*
                   * Are pragma's always processed?
                   */
              case L_pragma:          /*  options     */
              case L_include:         /*   are uninteresting  */
              case L_define:          /*    if we     */
              case L_undef:           /*     aren't           */
              case L_assert:          /*  compiling.  */
              case L_error:
                  fpp_dump_line( global, counter );       /* Ignore rest of line  */
                  return(FPP_OK);
              }
          }
      /*
       * Make sure that #line and #pragma are output on a fresh line.
       */
      if( *counter > 0 && (hash == L_line || hash == L_pragma) )
          {
          fpp_Putchar( global, '\n' );
  
          (*counter)--;
          }
  
      switch( hash )
          {
          case L_line:
              /*
               * Parse the line to update the line number and "progname"
               * field and line number for the next input line.
               * Set wrongline to force it out later.
               */
              c = fpp_skipws( global );
  
              global->workp = global->work;       /* Save name in work    */
  
              while( c != '\n' && c != EOF_CHAR )
                  {
                  if( (ret = fpp_save( global, c )) )
                      return(ret);
  
                  c = fpp_get( global );
                  }
  
              fpp_unget( global );
  
              if( (ret = fpp_save( global, EOS )) )
                  return(ret);
  
              /*
               * Split #line argument into <line-number> and <name>
               * We subtract 1 as we want the number of the next line.
               */
              global->line = atoi(global->work) - 1;     /* Reset line number    */
  
              for( tp = global->work; isdigit(*tp) || type[(unsigned)*tp] == SPA; tp++)
                  ;             /* Skip over digits */
  
              if( *tp != EOS )
                  {
                  /* Got a filename, so:  */
  
                  if( *tp == '"' && (ep = strrchr(tp + 1, '"')) != NULL )
                      {
                      tp++;           /* Skip over left quote */
  
                      *ep = EOS;      /* And ignore right one */
                      }
  
                  if( global->infile->progname != NULL )
                      /* Give up the old name if it's allocated.   */
                      free( global->infile->progname );
  
                  global->infile->progname = fpp_savestring( global, tp );
                  }
  
              global->wrongline = FPP_TRUE;           /* Force output later   */
              break;
  
          case L_include:
              ret = fpp_doinclude( global );
              if( ret )
                  return(ret);
              break;
  
          case L_define:
              ret = fpp_dodefine( global );
              if( ret )
                  return(ret);
              break;
  
          case L_undef:
              fpp_doundef( global );
              break;
  
          case L_else:
              if( global->ifptr == &global->ifstack[0] )
                  {
                  fpp_cerror( global, ERROR_STRING_MUST_BE_IF, global->tokenbuf );
  
                  fpp_dump_line( global, counter );
  
                  return( FPP_OK );
                  }
              else if( (*global->ifptr & ELSE_SEEN) != 0 )
                  {
                  fpp_cerror( global, ERROR_STRING_MAY_NOT_FOLLOW_ELSE, global->tokenbuf );
  
                  fpp_dump_line( global, counter );
  
                  return( FPP_OK );
                  }
  
              *global->ifptr |= ELSE_SEEN;
  
              if( (*global->ifptr & WAS_COMPILING) != 0 )
                  {
                  if( compiling || (*global->ifptr & FPP_TRUE_SEEN) != 0 )
                      compiling = FPP_FALSE;
                  else
                      {
                      compiling = FPP_TRUE;
                      }
                  }
              break;
  
          case L_elif:
              if( global->ifptr == &global->ifstack[0] )
                  {
                  fpp_cerror( global, ERROR_STRING_MUST_BE_IF, global->tokenbuf );
  
                  fpp_dump_line( global, counter );
  
                  return( FPP_OK );
                  }
              else if( (*global->ifptr & ELSE_SEEN) != 0 )
                  {
                  fpp_cerror( global, ERROR_STRING_MAY_NOT_FOLLOW_ELSE, global->tokenbuf );
  
                  fpp_dump_line( global, counter );
  
                  return( FPP_OK );
                  }
  
              if( (*global->ifptr & (WAS_COMPILING | FPP_TRUE_SEEN)) != WAS_COMPILING )
                  {
                  compiling = FPP_FALSE;        /* Done compiling stuff */
  
                  fpp_dump_line( global, counter );   /* Skip this clause */
  
                  return( FPP_OK );
                  }
  
              ret = fpp_doif( global, L_if );
  
              if( ret )
                  return(ret);
  
              break;
  
          case L_error:
              fpp_cerror(global, ERROR_ERROR);
              break;
  
          case L_if:
          case L_ifdef:
          case L_ifndef:
              if( ++global->ifptr < &global->ifstack[BLK_NEST] )
                  {
                  *global->ifptr = WAS_COMPILING;
  
                  ret = fpp_doif( global, hash );
  
                  if( ret )
                      return(ret);
  
                  break;
                  }
  
              fpp_cfatal( global, FATAL_TOO_MANY_NESTINGS, global->tokenbuf );
  
              return( FPP_TOO_MANY_NESTED_STATEMENTS );
  
          case L_endif:
              if( global->ifptr == &global->ifstack[0] )
                  {
                  fpp_cerror( global, ERROR_STRING_MUST_BE_IF, global->tokenbuf );
  
                  fpp_dump_line( global, counter );
  
                  return(FPP_OK);
                  }
  
              if( !compiling && (*global->ifptr & WAS_COMPILING) != 0 )
                  global->wrongline = FPP_TRUE;
  
              compiling = ((*global->ifptr & WAS_COMPILING) != 0);
  
              --global->ifptr;
  
              break;
  
          case L_assert:
              {
              int result;
  
              ret = fpp_eval( global, &result );
  
              if(ret)
                  return(ret);
  
              if( result == 0 )
                  fpp_cerror( global, ERROR_PREPROC_FAILURE );
              }
              break;
  
          case L_pragma:
              /*
               * #pragma is provided to pass "options" to later
               * passes of the compiler.  cpp doesn't have any yet.
               */
              fpp_Putstring( global, "#pragma " );
  
              while( (c = fpp_get( global ) ) != '\n' && c != EOF_CHAR )
                  fpp_Putchar( global, c );
  
              fpp_unget( global );
  
              fpp_Putchar( global, '\n' );
  
              break;
  
          default:
              /*
               * Undefined #control keyword.
               * Note: the correct behavior may be to warn and
               * pass the line to a subsequent compiler pass.
               * This would allow #asm or similar extensions.
               */
              if( global->warnillegalcpp )
                  fpp_cwarn( global, WARN_ILLEGAL_COMMAND, global->tokenbuf );
  
              fpp_Putchar( global, '#' );
              fpp_Putstring( global, global->tokenbuf );
              fpp_Putchar( global, ' ' );
  
              while( (c = fpp_get( global ) ) != '\n' && c != EOF_CHAR )
                  fpp_Putchar( global, c );
  
              fpp_unget( global );
  
              fpp_Putchar( global, '\n' );
  
              break;
          }
  
      if( hash != L_include )
          {
          #if OLD_PREPROCESSOR
          /*
           * Ignore the rest of the #control line so you can write
           *      #if foo
           *      #endif  foo
           */
          fpp_dump_line( global, counter );         /* Take common exit */
  
          return( FPP_OK );
          #else
          if( fpp_skipws( global ) != '\n' )
              {
              fpp_cwarn( global, WARN_UNEXPECTED_TEXT_IGNORED );
  
              fpp_skipnl( global );
              }
          #endif
          }
  
      (*counter)++;
  
      return( FPP_OK );
  }
  
  FILE_LOCAL
  void fpp_dump_line(struct Global *global, int *counter)
  {
      fpp_skipnl( global );         /* Ignore rest of line  */
  
      (*counter)++;
  }
  
  FILE_LOCAL
  ReturnCode fpp_doif(struct Global *global, int hash)
  {
      /*
       * Process an #if, #ifdef, or #ifndef. The latter two are straightforward,
       * while #if needs a subroutine of its own to evaluate the expression.
       *
       * fpp_doif() is called only if compiling is FPP_TRUE.  If false, compilation
       * is always supressed, so we don't need to evaluate anything.  This
       * supresses unnecessary warnings.
       */
  
      int c;
      int found;
      ReturnCode ret;
  
      if( (c = fpp_skipws( global ) ) == '\n' || c == EOF_CHAR )
          {
          fpp_unget( global );
  
          fpp_cerror( global, ERROR_MISSING_ARGUMENT );
  
          #if !OLD_PREPROCESSOR
          fpp_skipnl( global );               /* Prevent an extra     */
  
          fpp_unget( global );                /* Error message        */
          #endif
  
          return(FPP_OK);
          }
  
      if( hash == L_if )
          {
          fpp_unget( global );
  
          ret = fpp_eval( global, &found );
  
          if( ret )
              return( ret );
  
          found = (found != 0);     /* Evaluate expr, != 0 is  FPP_TRUE */
  
          hash = L_ifdef;       /* #if is now like #ifdef */
          }
      else
          {
          if( type[c] != LET )
              {         /* Next non-blank isn't letter  */
                            /* ... is an error          */
              fpp_cerror( global, ERROR_MISSING_ARGUMENT );
  
              #if !OLD_PREPROCESSOR
              fpp_skipnl( global );             /* Prevent an extra     */
  
              fpp_unget( global );              /* Error message        */
              #endif
  
              return(FPP_OK);
              }
  
          found = ( fpp_lookid( global, c ) != NULL ); /* Look for it in symbol table */
          }
  
      if( found == (hash == L_ifdef) )
          {
          compiling = FPP_TRUE;
  
          *global->ifptr |= FPP_TRUE_SEEN;
          }
      else
          compiling = FPP_FALSE;
  
      return(FPP_OK);
  }
  
  INLINE FILE_LOCAL
  ReturnCode fpp_doinclude( struct Global *global )
  {
      /*
       *  Process the #include control line.
       *  There are three variations:
       *
       *      #include "file" search somewhere relative to the
       *                      current source file, if not found,
       *                      treat as #include <file>.
       *
       *      #include <file> Search in an implementation-dependent
       *                      list of places.
       *
       *      #include token  Expand the token, it must be one of
       *                      "file" or <file>, process as such.
       *
       *  Note:   the November 12 draft forbids '>' in the #include <file> format.
       *          This restriction is unnecessary and not implemented.
       */
  
      int c;
      int delim;
      ReturnCode ret;
  
      delim = fpp_skipws( global );
  
      if( (ret = fpp_macroid( global, &delim )) )
          return(ret);
  
      if( delim != '<' && delim != '"' )
          {
          fpp_cerror( global, ERROR_INCLUDE_SYNTAX );
  
          return( FPP_OK );
          }
  
      if( delim == '<' )
          delim = '>';
  
      global->workp = global->work;
  
      while( (c = fpp_get(global)) != '\n' && c != EOF_CHAR )
          if( (ret = fpp_save( global, c )) )       /* Put it away.                */
              return( ret );
  
      fpp_unget( global );                        /* Force nl after include      */
  
      /*
       * The draft is unclear if the following should be done.
       */
      while( --global->workp >= global->work &&
          (*global->workp == ' ' || *global->workp == '\t') )
          ;               /* Trim blanks from filename    */
  
      if( *global->workp != delim )
          {
          fpp_cerror( global, ERROR_INCLUDE_SYNTAX );
  
          return(FPP_OK);
          }
  
      *global->workp = EOS;         /* Terminate filename       */
  
      ret = fpp_openinclude( global, global->work, (delim == '"') );
  
      if( ret && global->warnnoinclude )
          {
          /*
           * Warn if #include file isn't there.
           */
          fpp_cwarn( global, WARN_CANNOT_OPEN_INCLUDE, global->work );
          }
  
      return( FPP_OK );
  }
  
  #ifdef _AMIGA
  ReturnCode MultiAssignLoad( struct Global *global, char *incptr, char *filename, char *tmpname );
  #endif
  
  ReturnCode fpp_openinclude( struct Global *global,
      char *filename,     /* Input file name         */
      int searchlocal )   /* FPP_TRUE if #include "file" */
  {
      /*
       * Actually open an include file.  This routine is only called from
       * fpp_doinclude() above, but was written as a separate subroutine for
       * programmer convenience.  It searches the list of directories
       * and actually opens the file, linking it into the list of
       * active files.  Returns ReturnCode. No error message is printed.
       */
  
      char **incptr;
      char tmpname[NWORK]; /* Filename work area    */
      size_t len;
  
      if( filename[0] == '/' )
          {
          if( ! fpp_openfile( global, filename ) )
              return(FPP_OK);
          }
  
      if( searchlocal && global->allowincludelocal )
          {
          /*
           * Look in local directory first.
           * Try to open filename relative to the directory of the current
           * source file (as opposed to the current directory). (ARF, SCK).
           * Note that the fully qualified pathname is always built by
           * discarding the last pathname component of the source file
           * name then tacking on the #include argument.
           */
          if( fpp_hasdirectory( global->infile->filename, tmpname ) )
              strcat( tmpname, filename );
          else
              strcpy( tmpname, filename );
  
          if( ! fpp_openfile( global, tmpname ) )
              return(FPP_OK);
          }
  
      /*
       * Look in any directories specified by -I command line
       * arguments, then in the builtin search list.
       */
      for( incptr = global->incdir; incptr < global->incend; incptr++ )
          {
          len = strlen(*incptr);
  
          if( len + strlen(filename) >= sizeof(tmpname) )
              {
              fpp_cfatal( global, FATAL_FILENAME_BUFFER_OVERFLOW );
  
              return( FPP_FILENAME_BUFFER_OVERFLOW );
              }
          else
              {
              if( (*incptr)[len-1] != '/' )
                  sprintf( tmpname, "%s/%s", *incptr, filename );
              else
                  sprintf( tmpname, "%s%s", *incptr, filename );
  
              if( !fpp_openfile( global, tmpname ) )
                  return(FPP_OK);
              }
          }
  
      return( FPP_NO_INCLUDE );
  }
  
  INLINE FILE_LOCAL
  int fpp_hasdirectory( char *source,   /* Directory to examine         */
      char *result )  /* Put directory stuff here     */
  {
      /*
       * If a device or directory is found in the source filename string, the
       * node/device/directory part of the string is copied to result and
       * fpp_hasdirectory returns FPP_TRUE.  Else, nothing is copied and it returns FPP_FALSE.
       */
  
      char *tp2;
  
      if( (tp2 = strrchr( source, '/' ) ) == NULL )
          return(FPP_FALSE);
  
      strncpy( result, source, tp2 - source + 1 );
  
      result[tp2 - source + 1] = EOS;
  
      return( FPP_TRUE );
  }
  
  #ifdef _AMIGA
  //
  //  amp July 9, 1997
  //
  //  Use the OS Luke...
  //
  //  We do the sneaky version and let the OS do all
  //  the hard work so we don't have to mess around
  //  a lot ;)
  //
  ReturnCode MultiAssignLoad( struct Global *global, char *incptr, char *filename, char *tmpname )
  
  { /* MultiAssignLoad */
  
      struct MsgPort  *FSTask;
      struct DevProc  *DevProc = NULL;
      LONG            RtnCode = FPP_NO_INCLUDE;
  
      FSTask = GetFileSysTask();
  
      do
          {
          //
          //  This should not bring up a requester.
          //  check to see if cpp does in fact tweek
          //  the process WindowPtr.
          //
          DevProc = GetDeviceProc( incptr, DevProc );
  
          if( DevProc )
              {
              SetFileSysTask( DevProc->dvp_Port );
  
              //
              //  Normally we would pass the lock and filename
              //  to the Load() routine, which would CD to the
              //  directory and Open(filename), but in order to
              //  satisfy the exisiting fpp_openfile() function, we
              //  bite the bullet and build the complete pathspec
              //  rather than add the standard Load() routine.
              //
              if( NameFromLock( DevProc->dvp_Lock, tmpname, NWORK ) )
                  {
                  AddPart( tmpname, filename, NWORK );
  
                  RtnCode = fpp_openfile( global, tmpname );
  
                  if( ! RtnCode )
                      break;
                  }
              }
  
          } while ( RtnCode &&
              DevProc &&
              (DevProc->dvp_Flags & DVPF_ASSIGN) &&
              IoErr() == ERROR_OBJECT_NOT_FOUND); /* repeat if multi-assign */
  
      SetFileSysTask( FSTask );
  
      if( DevProc )
          FreeDeviceProc( DevProc );
  
      return RtnCode;
  
  } /* MultiAssignLoad */
  #endif  //_AMIGA
  