pike.git/ src/ cpp.cmod

2018-02-27

2018-02-27 16:00:22 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• f6abaa08228da6be98f816eb717da3895e63c374 (49 lines) (+25/-24) ^{[ Show | Annotate ]}
  Branch: master

Cpp: Use directive_* function for #require.

Fixes support for disabled #require directives. Eg

#if 0
#require stuff
#endif

Improves code readability somewhat.

170:    return (struct define_struct *)get_storage(s->u.object, define_program);   }    + static ptrdiff_t calc(struct CPP_struct *this, PCHARP data, ptrdiff_t len, +  ptrdiff_t tmp, int flags); +    static void cpp_error(struct CPP_struct *this, const char *err) ATTRIBUTE((noinline));   static void cpp_error_vsprintf (struct CPP_struct *this, const char *fmt,    va_list args) ATTRIBUTE((noinline));
639:    *! @seealso    *! @[#if]    */ +  PIKEFUN string(0..0) directive_require(int flags, string line) +  { +  struct CPP_struct *this = THIS;    -  +  if (OUTP()) { +  ref_push_string(line); +  push_int(CPP_DO_IF); +  apply_current(f_CPP_cpp_fun_num, 2); +  +  if (TYPEOF(Pike_sp[-1]) == PIKE_T_STRING) { +  calc(this, MKPCHARP_STR(Pike_sp[-1].u.string), +  Pike_sp[-1].u.string->len, 0, 0); +  if(SAFE_IS_ZERO(Pike_sp-1)) this->dependencies_fail=1; +  } else { +  this->dependencies_fail=1; +  } +  pop_stack(); +  } +  +  push_empty_string(); +  } +    /*! @directive #endif    *!    *! End a block opened with @[#if], @[#ifdef], @[#ifndef],
4167:    FIND_EOL();    break;    } -  } -  /* FALLTHRU */ -  case 'r': /* require */ -  { -  if(GOBBLE_WORD(require_)) -  { -  struct string_builder save, tmp; -  save = this->buf; -  init_string_builder(&this->buf, 0); -  pos += low_cpp(this, ADD_PCHARP(data,pos), len-pos, -  CPP_END_AT_NEWLINE | CPP_DO_IF, -  charset); -  tmp = this->buf; -  this->buf = save; -  string_builder_putchar(&tmp, 0); -  tmp.s->len--; -  -  calc(this,MKPCHARP_STR(tmp.s),tmp.s->len,0,0); -  if(SAFE_IS_ZERO(Pike_sp-1)) this->dependencies_fail=1; -  pop_stack(); -  free_string_builder(&tmp); -  if(this->dependencies_fail) return pos; -  break; -  } +     goto unknown_preprocessor_directive;    }    default: