Import ruby/prism@e42ef99

Author: eregon

src/main/c/yarp/src/yarp/ast.h

@@ -0,0 +1,22 @@
+#include "diagnostic.h"
+
+// Append an error to the given list of diagnostic.
+void
+yp_diagnostic_list_append(yp_list_t *list, const char *start, const char *end, const char *message) {
+  yp_diagnostic_t *diagnostic = (yp_diagnostic_t *) malloc(sizeof(yp_diagnostic_t));
+  *diagnostic = (yp_diagnostic_t) { .start = start, .end = end, .message = message };
+  yp_list_append(list, (yp_list_node_t *) diagnostic);
+}
+
+// Deallocate the internal state of the given diagnostic list.
+void
+yp_diagnostic_list_free(yp_list_t *list) {
+  yp_list_node_t *node, *next;
+
+  for (node = list->head; node != NULL; node = next) {
+    next = node->next;
+
+    yp_diagnostic_t *diagnostic = (yp_diagnostic_t *) node;
+    free(diagnostic);
+  }
+}

src/main/c/yarp/src/yarp/diagnostic.c

@@ -0,0 +1,23 @@
+#ifndef YARP_DIAGNOSTIC_H
+#define YARP_DIAGNOSTIC_H
+
+#include <stdlib.h>
+#include "util/yp_list.h"
+
+// This struct represents a diagnostic found during parsing.
+typedef struct {
+  yp_list_node_t node;
+  const char *start;
+  const char *end;
+  const char *message;
+} yp_diagnostic_t;
+
+// Append a diagnostic to the given list of diagnostics.
+void
+yp_diagnostic_list_append(yp_list_t *list, const char *start, const char *end, const char *message);
+
+// Deallocate the internal state of the given diagnostic list.
+void
+yp_diagnostic_list_free(yp_list_t *list);
+
+#endif

src/main/c/yarp/src/yarp/diagnostic.h

@@ -0,0 +1,41 @@
+#include "yp_encoding.h"
+
+// Each element of the following table contains a bitfield that indicates a
+// piece of information about the corresponding ASCII character.
+static unsigned char yp_encoding_ascii_table[256] = {
+  //  0      1      2      3      4      5      6      7      8      9      A      B      C      D      E      F
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 0x
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 1x
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 2x
+  0b010, 0b010, 0b010, 0b010, 0b010, 0b010, 0b010, 0b010, 0b010, 0b010, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 3x
+  0b000, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, // 4x
+  0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b111, 0b000, 0b000, 0b000, 0b000, 0b000, // 5x
+  0b000, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, // 6x
+  0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b011, 0b000, 0b000, 0b000, 0b000, 0b000, // 7x
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 8x
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // 9x
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Ax
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Bx
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Cx
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Dx
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Ex
+  0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, 0b000, // Fx
+};
+
+__attribute__((__visibility__("default"))) extern size_t
+yp_encoding_ascii_alpha_char(const char *c) {
+  const unsigned char v = *c;
+  return (yp_encoding_ascii_table[v] & YP_ENCODING_ALPHABETIC_BIT) ? 1 : 0;
+}
+
+__attribute__((__visibility__("default"))) extern size_t
+yp_encoding_ascii_alnum_char(const char *c) {
+  const unsigned char v = *c;
+  return (yp_encoding_ascii_table[v] & YP_ENCODING_ALPHANUMERIC_BIT) ? 1 : 0;
+}
+
+__attribute__((__visibility__("default"))) extern bool
+yp_encoding_ascii_isupper_char(const char *c) {
+  const unsigned char v = *c;
+  return (yp_encoding_ascii_table[v] & YP_ENCODING_UPPERCASE_BIT) ? true : false;
+}