Utilities/cmllpkgc/llpkgc_file.c

/* Distributed under the OSI-approved BSD 3-Clause License.
   See accompanying file LICENSE.rst for details.  */

#include "llpkgc_file.h"
#include "llpkgc_whitespace__internal.h"

/* Callback dispatch and EOF recipes are generated from the grammar. Pending
 * punctuation is owned by the parser. Deferred whitespace is borrowed only
 * under the explicit PFCE_NEED_MORE retention contract. */
int llpkgc_file__on_ident(llpkgc_file_t*, const unsigned char*,
    const unsigned char*);
int llpkgc_file__on_value_literal(llpkgc_file_t*, const unsigned char*,
    const unsigned char*);
int llpkgc_file__on_value_literal_complete(llpkgc_file_t*, const unsigned char*,
    const unsigned char*);

int llpkgc_file__mark(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  s->mark = *p;
  return 0;
}

int llpkgc_file__emit_ident_mark(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  const unsigned char* mark = &s->mark;
  return llpkgc_file__on_ident(s, mark, mark + 1);
}

int llpkgc_file__emit_literal_mark(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  const unsigned char* mark = &s->mark;
  return llpkgc_file__on_value_literal(s, mark, mark + 1);
}

int llpkgc_file__clear_whitespace(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  s->whitespace_start = NULL;
  s->whitespace_end = NULL;
  return 0;
}

int llpkgc_file__whitespace(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  if(s->whitespace_start == NULL)
    s->whitespace_start = (void*) p;
  s->whitespace_end = (void*) endp;
  return 0;
}

/* The private delivery grammar emits each physical range separately. */
int llpkgc_file__deferred_span(llpkgc_whitespace__internal_t* delivery,
    const unsigned char* p, const unsigned char* endp) {
  llpkgc_file_t* s = delivery->parent;
  int err;
  if(p == endp)
    return 0;
  err = llpkgc_file__on_value_literal(s, p, endp);
  if(err != 0)
    return err;
  return llpkgc_file__on_value_literal_complete(s, p, endp);
}

int llpkgc_file__flush_whitespace_all(llpkgc_file_t* s, const unsigned char* p,
    const unsigned char* endp) {
  llpkgc_whitespace__internal_t delivery;
  int err;
  if(s->whitespace_start == NULL)
    return 0;
  llpkgc_whitespace__internal_init(&delivery);
  delivery.parent = s;
  err = llpkgc_whitespace__internal_execute(&delivery, s->whitespace_start,
      s->whitespace_end);
  if(err != 0 && s->reason == NULL)
    s->reason = delivery.reason;
  llpkgc_file__clear_whitespace(s, p, endp);
  return err;
}

const char* llpkgc_file_get_retained_start(const llpkgc_file_t* s) {
  return s->whitespace_start;
}

size_t llpkgc_file_get_retained_length(const llpkgc_file_t* s) {
  if(s->whitespace_start == NULL)
    return 0;
  return (size_t) ((const char*) s->end - (const char*) s->whitespace_start);
}