preproc-nop.c

   1 /* ----------------------------------------------------------------------- *
   2  *
   3  *   Copyright 1996-2016 The NASM Authors - All Rights Reserved
   4  *   See the file AUTHORS included with the NASM distribution for
   5  *   the specific copyright holders.
   6  *
   7  *   Redistribution and use in source and binary forms, with or without
   8  *   modification, are permitted provided that the following
   9  *   conditions are met:
  10  *
  11  *   * Redistributions of source code must retain the above copyright
  12  *     notice, this list of conditions and the following disclaimer.
  13  *   * Redistributions in binary form must reproduce the above
  14  *     copyright notice, this list of conditions and the following
  15  *     disclaimer in the documentation and/or other materials provided
  16  *     with the distribution.
  17  *
  18  *     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  19  *     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  20  *     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  21  *     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  22  *     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  23  *     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  24  *     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  25  *     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  26  *     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  *     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  28  *     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  29  *     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  30  *     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31  *
  32  * ----------------------------------------------------------------------- */
  33
  34 /*
  35  * This is a null preprocessor which just copies lines from input
  36  * to output. It's used when someone explicitly requests that NASM
  37  * not preprocess their source file.
  38  */
  39
  40 #include "compiler.h"
  41
  42 #include <stdio.h>
  43 #include <stdarg.h>
  44 #include <stdlib.h>
  45 #include <string.h>
  46 #include <ctype.h>
  47 #include <inttypes.h>
  48 #include <limits.h>
  49 #include <time.h>
  50
  51 #include "nasm.h"
  52 #include "nasmlib.h"
  53 #include "preproc.h"
  54 #include "listing.h"
  55
  56 #define BUF_DELTA 512
  57
  58 static FILE *nop_fp;
  59 static int32_t nop_lineinc;
  60
  61 static void nop_reset(char *file, int pass, StrList **deplist)
  62 {
  63     src_set_fname(nasm_strdup(file));
  64     src_set_linnum(0);
  65     nop_lineinc = 1;
  66     nop_fp = fopen(file, "r");
  67
  68     if (!nop_fp)
  69         nasm_fatal(ERR_NOFILE, "unable to open input file `%s'", file);
  70     (void)pass;                 /* placate compilers */
  71
  72     if (deplist) {
  73         StrList *sl = nasm_malloc(strlen(file)+1+sizeof sl->next);
  74         sl->next = NULL;
  75         strcpy(sl->str, file);
  76         *deplist = sl;
  77     }
  78 }
  79
  80 static char *nop_getline(void)
  81 {
  82     char *buffer, *p, *q;
  83     int bufsize;
  84
  85     bufsize = BUF_DELTA;
  86     buffer = nasm_malloc(BUF_DELTA);
  87     src_set_linnum(src_get_linnum() + nop_lineinc);
  88
  89     while (1) {                 /* Loop to handle %line */
  90
  91         p = buffer;
  92         while (1) {             /* Loop to handle long lines */
  93             q = fgets(p, bufsize - (p - buffer), nop_fp);
  94             if (!q)
  95                 break;
  96             p += strlen(p);
  97             if (p > buffer && p[-1] == '\n')
  98                 break;
  99             if (p - buffer > bufsize - 10) {
 100                 int offset;
 101                 offset = p - buffer;
 102                 bufsize += BUF_DELTA;
 103                 buffer = nasm_realloc(buffer, bufsize);
 104                 p = buffer + offset;
 105             }
 106         }
 107
 108         if (!q && p == buffer) {
 109             nasm_free(buffer);
 110             return NULL;
 111         }
 112
 113         /*
 114          * Play safe: remove CRs, LFs and any spurious ^Zs, if any of
 115          * them are present at the end of the line.
 116          */
 117         buffer[strcspn(buffer, "\r\n\032")] = '\0';
 118
 119         if (!nasm_strnicmp(buffer, "%line", 5)) {
 120             int32_t ln;
 121             int li;
 122             char *nm = nasm_malloc(strlen(buffer));
 123             if (sscanf(buffer + 5, "%"PRId32"+%d %s", &ln, &li, nm) == 3) {
 124                 nasm_free(src_set_fname(nm));
 125                 src_set_linnum(ln);
 126                 nop_lineinc = li;
 127                 continue;
 128             }
 129             nasm_free(nm);
 130         }
 131         break;
 132     }
 133
 134     lfmt->line(LIST_READ, buffer);
 135
 136     return buffer;
 137 }
 138
 139 static void nop_cleanup(int pass)
 140 {
 141     (void)pass;                     /* placate GCC */
 142     if (nop_fp) {
 143         fclose(nop_fp);
 144         nop_fp = NULL;
 145     }
 146 }
 147
 148 static void nop_extra_stdmac(macros_t *macros)
 149 {
 150     (void)macros;
 151 }
 152
 153 static void nop_pre_define(char *definition)
 154 {
 155     (void)definition;
 156 }
 157
 158 static void nop_pre_undefine(char *definition)
 159 {
 160     (void)definition;
 161 }
 162
 163 static void nop_pre_include(char *fname)
 164 {
 165     (void)fname;
 166 }
 167
 168 static void nop_include_path(char *path)
 169 {
 170     (void)path;
 171 }
 172
 173 static void nop_error_list_macros(int severity)
 174 {
 175     (void)severity;
 176 }
 177
 178 const struct preproc_ops preproc_nop = {
 179     nop_reset,
 180     nop_getline,
 181     nop_cleanup,
 182     nop_extra_stdmac,
 183     nop_pre_define,
 184     nop_pre_undefine,
 185     nop_pre_include,
 186     nop_include_path,
 187     nop_error_list_macros,
 188 };