src/glsl/pp/sl_pp_line.c

   1 /**************************************************************************
   2  *
   3  * Copyright 2009 VMware, Inc.
   4  * All Rights Reserved.
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining a
   7  * copy of this software and associated documentation files (the
   8  * "Software"), to deal in the Software without restriction, including
   9  * without limitation the rights to use, copy, modify, merge, publish,
  10  * distribute, sub license, and/or sell copies of the Software, and to
  11  * permit persons to whom the Software is furnished to do so, subject to
  12  * the following conditions:
  13  *
  14  * The above copyright notice and this permission notice (including the
  15  * next paragraph) shall be included in all copies or substantial portions
  16  * of the Software.
  17  *
  18  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  19  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  20  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
  21  * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
  22  * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  23  * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  24  * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  25  *
  26  **************************************************************************/
  27
  28 #include <stdlib.h>
  29 #include <string.h>
  30 #include "sl_pp_public.h"
  31 #include "sl_pp_process.h"
  32
  33
  34 int
  35 sl_pp_process_line(struct sl_pp_context *context,
  36                    const struct sl_pp_token_info *input,
  37                    unsigned int first,
  38                    unsigned int last,
  39                    struct sl_pp_process_state *pstate)
  40 {
  41    unsigned int i;
  42    struct sl_pp_process_state state;
  43    int line_number = -1;
  44    int file_number = -1;
  45    unsigned int line;
  46    unsigned int file;
  47
  48    memset(&state, 0, sizeof(state));
  49    for (i = first; i < last;) {
  50       switch (input[i].token) {
  51       case SL_PP_WHITESPACE:
  52          i++;
  53          break;
  54
  55       case SL_PP_IDENTIFIER:
  56          if (sl_pp_macro_expand(context, input, &i, NULL, &state, sl_pp_macro_expand_normal)) {
  57             free(state.out);
  58             return -1;
  59          }
  60          break;
  61
  62       default:
  63          if (sl_pp_process_out(&state, &input[i])) {
  64             strcpy(context->error_msg, "out of memory");
  65             free(state.out);
  66             return -1;
  67          }
  68          i++;
  69       }
  70    }
  71
  72    if (state.out_len > 0 && state.out[0].token == SL_PP_UINT) {
  73       line_number = state.out[0].data._uint;
  74    } else {
  75       strcpy(context->error_msg, "expected a number after `#line'");
  76       free(state.out);
  77       return -1;
  78    }
  79
  80    if (state.out_len > 1) {
  81       if (state.out[1].token == SL_PP_UINT) {
  82          file_number = state.out[1].data._uint;
  83       } else {
  84          strcpy(context->error_msg, "expected a number after line number");
  85          free(state.out);
  86          return -1;
  87       }
  88
  89       if (state.out_len > 2) {
  90          strcpy(context->error_msg, "expected an end of line after file number");
  91          free(state.out);
  92          return -1;
  93       }
  94    }
  95
  96    free(state.out);
  97
  98    line = atoi(sl_pp_context_cstr(context, line_number));
  99    if (file_number != -1) {
 100       file = atoi(sl_pp_context_cstr(context, file_number));
 101    } else {
 102       file = context->file;
 103    }
 104
 105    if (context->line != line || context->file != file) {
 106       struct sl_pp_token_info ti;
 107
 108       ti.token = SL_PP_LINE;
 109       ti.data.line.lineno = line;
 110       ti.data.line.fileno = file;
 111       if (sl_pp_process_out(pstate, &ti)) {
 112          strcpy(context->error_msg, "out of memory");
 113          return -1;
 114       }
 115
 116       context->line = line;
 117       context->file = file;
 118    }
 119
 120    return 0;
 121 }