text: /*
   *
   *  Copyright (C) 2010-2018, OFFIS e.V.
   *  All rights reserved.  See COPYRIGHT file for details.
   *
   *  This software and supporting documentation were developed by
   *
   *    OFFIS e.V.
   *    R&D Division Health
   *    Escherweg 2
   *    D-26121 Oldenburg, Germany
   *
   *
   *  Module:  dcmdata
   *
   *  Author:  Uli Schlachter
   *
   *  Purpose: Interface to the VR scanner.
   *
   */
  
  
  #include "dcmtk/config/osconfig.h"    /* make sure OS specific configuration is included first */
  
  #include "dcmtk/dcmdata/vrscan.h"
  #include "dcmtk/ofstd/ofbmanip.h"
  #include "dcmtk/ofstd/ofstd.h"        /* For OFString::strerror() */
  #include "dcmtk/dcmdata/dctypes.h"    /* For DCMDATA_WARN() */
  
  BEGIN_EXTERN_C
  #include "vrscani.h"
  #include "vrscanl.h"
  END_EXTERN_C
  
  int vrscan::scan(const OFString& vr, const char* const value, const size_t size)
  {
      yyscan_t scanner;
      if (yylex_init(&scanner))
      {
          DCMDATA_WARN("Error while setting up lexer: "
                  << OFStandard::getLastSystemErrorCode().message());
          return 16 /* UNKNOWN */;
      }
  
      struct cleanup_t
      {
          cleanup_t(yyscan_t& y) : t(y) {}
          ~cleanup_t() { yylex_destroy(t); }
          yyscan_t& t;
      }
      cleanup(scanner);
  
      OFString buffer;
      buffer.reserve(vr.size() + size + 2);
      buffer.append(vr);
      buffer.append(value, size);
      buffer.append("\0\0", 2); // yy_scan_buffer() requires this
  
      struct vrscan_error error;
      error.error_msg = "(Unknown error)";
      yyset_extra(&error, scanner);
  
      if (setjmp(error.setjmp_buffer)) // poor man's catch()
      {
          DCMDATA_WARN("Fatal error in lexer: " << error.error_msg);
          return 16 /* UNKNOWN */;
      }
  
      yy_scan_buffer(OFconst_cast(char*, buffer.data()), buffer.size(), scanner);
      const int result = yylex(scanner);
      if (yylex(scanner))
          return 16 /* UNKNOWN */;
  
      return result;
  }
  
  int vrscan::scan(const OFString& vr, const OFString& value)
  {
      return scan(vr, value.data(), value.size());
  }
  