slow_blink 0.0.1 → 0.0.2

data/ext/slow_blink/ext_schema_parser/parser.y

@@ -0,0 +1,932 @@
+/* Blink Protocol Bison Configuration
+ *
+ * Cameron Harper 2016
+ * 
+ * */
+%{
+
+/* includes ***********************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <ruby.h>
+#include <assert.h>
+
+#include "lexer.h"
+
+/* function prototypes ************************************************/
+
+void yyerror(YYLTYPE *locp, yyscan_t scanner, VALUE filename, VALUE *tree, char const *msg, ... );
+
+/* static function prototypes *****************************************/
+
+static VALUE parseFileBuffer(int argc, VALUE* argv, VALUE self);
+static VALUE newLocation(VALUE filename, const YYLTYPE *location);
+
+/* static variables ***************************************************/
+
+static VALUE cSlowBlink;
+
+static VALUE cNameWithID;
+
+static VALUE cSchema;
+static VALUE cGroup;
+static VALUE cField;
+static VALUE cAnnotation;
+static VALUE cIncrementalAnnotation;
+
+static VALUE cDefinition;
+static VALUE cEnumeration;
+static VALUE cSym;
+
+static VALUE cI8;
+static VALUE cI16;
+static VALUE cI32;
+static VALUE cI64;
+static VALUE cU8;
+static VALUE cU16;
+static VALUE cU32;
+static VALUE cU64;
+static VALUE cF64;
+static VALUE cDECIMAL;
+static VALUE cFIXED;
+static VALUE cSEQUENCE;
+static VALUE cSTRING;
+static VALUE cBOOLEAN;
+static VALUE cOBJECT;
+static VALUE cBINARY;
+static VALUE cREF;
+
+static VALUE cDATE;
+static VALUE cTIME_OF_DAY_MILLI;
+static VALUE cTIME_OF_DAY_NANO;
+static VALUE cMILLI_TIME;
+static VALUE cNANO_TIME;
+
+static VALUE cSchemaRef;
+static VALUE cDefinitionRef;
+static VALUE cDefinitionTypeRef;
+static VALUE cFieldRef;
+static VALUE cFieldTypeRef;
+
+/* generated **********************************************************/
+
+%}
+
+%define api.value.type {VALUE}
+%define api.pure
+%locations
+%lex-param {yyscan_t scanner}
+%parse-param {yyscan_t scanner}{VALUE filename}{VALUE *tree}
+%define parse.error verbose
+%define api.token.prefix {TOK_}
+%glr-parser
+
+%token
+    I8                  "i8"
+    I16                 "i16"
+    I32                 "i32"
+    I64                 "i64"
+    U8                  "u8"
+    U16                 "u16"
+    U32                 "u32"
+    U64                 "u64"
+    F64                 "f64"
+    DECIMAL             "decimal"
+    DATE                "date"
+    TIME_OF_DAY_MILLI   "timeOfDayMilli"
+    TIME_OF_DAY_NANO    "timeOfDayNano"
+    NANO_TIME           "nanotime"
+    MILLI_TIME          "millitime"
+    BOOLEAN             "boolean"
+    STRING              "string"
+    OBJECT              "object" 
+    NAMESPACE           "namespace"
+    TYPE                "type" 
+    SCHEMA              "schema"
+    BINARY              "binary"
+    NUMBER              "number"
+    FIXED               "fixed"
+    LEFT_ARROW          "<-"
+    RIGHT_ARROW         "->"
+    HEX                 "hexnum"
+    UINT                "uint"
+    INT                 "int"
+    NAME                "name"
+    NC_NAME             "ncName"
+    ESCAPED_NC_NAME     "\\ncName"
+    C_NAME              "cName"
+    LITERAL             "\"<annotation>\" or '<annotation>'"
+    
+    
+%%    
+
+top:
+    schema
+    {
+        *tree = $schema;
+    }
+    ;
+
+schema:    
+    defs
+    {
+        VALUE args[] = {Qnil, $defs};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cSchema);            
+    }
+    |
+    nsDecl defs
+    {
+        VALUE args[] = {$nsDecl, $defs};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cSchema);            
+    }
+    ;
+
+defs:
+    e
+    {
+        $$ = rb_ary_new();
+    }
+    |
+    defList
+    ;
+
+defList:
+    def
+    {
+        $$ = rb_ary_new_from_args(1, $def);
+    }
+    |
+    defList def
+    {
+        rb_ary_push($$, $def);
+    }
+    ;
+
+def:
+    annots define
+    {
+        $$ = $define;
+        rb_funcall($$, rb_intern("annote"), 1, $annots);
+    }
+    |
+    annots groupDef
+    {
+        $$ = $groupDef;
+        rb_funcall($$, rb_intern("annote"), 1, $annots);
+    }
+    |
+    incrAnnot    
+    ;
+
+define:
+    nameWithId '=' enum
+    {
+        VALUE enumArgs[] = {$enum};        
+        VALUE args[] = {$nameWithId, rb_class_new_instance(sizeof(enumArgs)/sizeof(*enumArgs),enumArgs, cEnumeration), newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cDefinition);        
+    }
+    |
+    nameWithId '=' type
+    {
+        VALUE args[] = {$nameWithId, $type, newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cDefinition);        
+    }
+    ;
+
+groupDef:
+    nameWithId
+    {
+        VALUE args[] = {$nameWithId, Qnil, rb_ary_new(), newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cGroup);
+    }
+    |
+    nameWithId ':' qName
+    {
+        VALUE refArgs[] = {$qName, Qfalse, newLocation(filename, &@qName)};
+        VALUE args[] = {$nameWithId, rb_class_new_instance(sizeof(refArgs)/sizeof(*refArgs),refArgs, cREF), rb_ary_new(), newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cGroup);
+    }
+    |
+    nameWithId ':' qName RIGHT_ARROW fields
+    {
+        VALUE refArgs[] = {$qName, Qfalse, newLocation(filename, &@qName)};
+        VALUE args[] = {$nameWithId, rb_class_new_instance(sizeof(refArgs)/sizeof(*refArgs),refArgs, cREF), $fields, newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cGroup);
+    }
+    |
+    nameWithId RIGHT_ARROW fields
+    {
+        VALUE args[] = {$nameWithId, Qnil, $fields, newLocation(filename, &@$)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cGroup);
+    }
+    ;
+
+fields:
+    field
+    {
+        $$ = rb_ary_new_from_args(1, $field);
+    }
+    |
+    fields ',' field
+    {
+        rb_ary_push($$, $field);
+    }
+    ;
+
+field:
+    annots[typeAnnot] type annots[nameAnnot] nameWithId opt
+    {
+        VALUE args[] = {$nameWithId, $type, $opt, rb_funcall($type, rb_intern("location"), 0)};        
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args),args, cField);
+
+        rb_funcall($$, rb_intern("annote"), 1, $typeAnnot);
+        rb_funcall($nameWithId, rb_intern("annote"), 1, $nameAnnot);
+    }
+    ;
+
+opt:
+    e
+    {
+        $$ = Qfalse;
+    }
+    |
+    '?'
+    {
+        $$ = Qtrue;
+    }
+    ;
+
+type:
+    single
+    |
+    sequence
+    ;
+
+single:
+    ref
+    |
+    time
+    |
+    number
+    |
+    string
+    |
+    binary
+    |
+    fixed
+    |
+    BOOLEAN
+    {
+        VALUE args[] = {Qnil, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cBOOLEAN);
+    }
+    |
+    OBJECT
+    {
+        VALUE args[] = {Qnil, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cOBJECT);
+    }
+    ;
+
+sequence:
+    single '[' ']'
+    {
+        VALUE args[] = {$single, rb_funcall($single, rb_intern("location"), 0)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cSEQUENCE);
+    }
+    ;
+
+string:
+    STRING
+    {
+        VALUE args[] = {Qnil, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cSTRING);
+    }
+    |
+    STRING size
+    {
+        VALUE args[] = {$size, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cSTRING);
+    }
+    ;
+
+binary:
+    BINARY
+    {
+        VALUE args[] = {Qnil, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cBINARY);
+    }
+    |
+    BINARY size
+    {
+        VALUE args[] = {$size, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cBINARY);
+    }
+    ;
+
+fixed:
+    FIXED size
+    {
+        VALUE args[] = {$size, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cFIXED);
+    }
+    ;
+
+size:
+    '(' uInt ')'
+    {
+        $$ = $uInt;
+    }
+    |
+    '(' hexNum ')'
+    {
+        $$ = $hexNum;
+    }
+    ;
+
+ref:
+    qName
+    {
+        VALUE args[] = {$qName, Qfalse};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cREF);    
+    }
+    |
+    qName '*'
+    {
+        VALUE args[] = {$qName, Qtrue};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cREF);    
+    }
+    ;
+
+number:
+    I8
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cI8);
+    }
+    |
+    I16
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cI16);
+    }
+    |
+    I32
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cI32);
+    }
+    |
+    I64
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cI64);
+    }
+    |
+    U8
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cU8);
+    }
+    |
+    U16
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cU16);
+    }
+    |
+    U32
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cU32);
+    }
+    |
+    U64
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cU64);
+    }
+    |
+    F64
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cF64);
+    }
+    |
+    DECIMAL
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cDECIMAL);
+    }
+    ;
+
+time:
+    DATE
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cDATE);
+    }
+    |
+    TIME_OF_DAY_MILLI
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cTIME_OF_DAY_MILLI);
+    }
+    |
+    TIME_OF_DAY_NANO
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cTIME_OF_DAY_NANO);
+    }
+    |
+    NANO_TIME
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cNANO_TIME);
+    }
+    |
+    MILLI_TIME
+    {
+        VALUE args[] = {newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cMILLI_TIME);
+    }
+    ;
+
+/* note: a single entry enum does in fact lead with a '|' */
+enum:
+    '|' sym
+    {
+        $$ = rb_ary_new_from_args(1, $sym);
+    }
+    |
+    symList
+    ;
+
+symList:
+    sym
+    {
+        $$ = rb_ary_new_from_args(1, $sym);
+    }
+    |
+    symList '|' sym
+    {
+        rb_ary_push($$, $sym);
+    }
+    ;
+
+sym:
+    annots name val
+    {
+        VALUE args[] = {$name, $val, newLocation(filename, &@name)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cSym);
+        rb_funcall($$, rb_intern("annote"), 1, $annots);        
+    }
+    ;
+    
+val:
+    e
+    |
+    '/' int
+    {
+        $$ = $int;
+    }
+    |
+    '/' hexNum
+    {
+        $$ = $hexNum;
+    }
+    ;
+
+annots:
+    e
+    {
+        $$ = rb_ary_new();
+    }
+    |
+    annotList
+    ;
+
+annotList:
+    annot
+    {
+        $$ = rb_ary_new_from_args(1, $annot);
+    }
+    |
+    annotList annot
+    {
+        rb_ary_push($$, $annot);
+    }
+
+annot:
+    '@' qNameOrKeyword '=' literal
+    {
+        VALUE args[] = {$qNameOrKeyword, $literal, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cAnnotation);
+    }
+    ;
+
+literal:
+    literalSegment        
+    |
+    literal literalSegment
+    {
+        rb_str_append($$, $literalSegment);
+    }
+    ;
+
+nameWithId:
+    name id
+    {
+        VALUE args[] = {$name, $id};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cNameWithID);
+    }
+    ;
+
+id:
+    e
+    |
+    '/' uInt
+    {
+        $$ = $uInt;
+    }
+    |
+    '/' hexNum
+    {
+        $$ = $hexNum;
+    }
+    ;
+
+incrAnnot:
+    compRef LEFT_ARROW incrAnnotList
+    {
+        VALUE args[] = {$compRef, $incrAnnotList, newLocation(filename, &@$)};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cIncrementalAnnotation);
+    }
+    ;
+
+compRef:
+    SCHEMA
+    {
+        VALUE args[] = {cSchema};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cSchemaRef);        
+    }
+    |
+    qName
+    {
+        VALUE args[] = {$qName};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cDefinitionRef);        
+    }
+    |
+    qName '.' TYPE
+    {
+        VALUE args[] = {$qName};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cDefinitionTypeRef);        
+    }
+    |
+    qName '.' name
+    {
+        VALUE args[] = {$qName, $name};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cFieldRef);        
+    }
+    |
+    qName '.' name '.' TYPE
+    {
+        VALUE args[] = {$qName, $name};
+        $$ = rb_class_new_instance(sizeof(args)/sizeof(*args), args, cFieldTypeRef);        
+    }
+    ;
+
+incrAnnotList:
+    incrAnnotItem
+    {
+        $$ = rb_ary_new_from_args(1, $incrAnnotItem);
+    }
+    |
+    incrAnnotItem LEFT_ARROW incrAnnotList[list]
+    {
+        $$ = $list;
+        rb_ary_unshift($$, $incrAnnotItem);
+    }
+    ;
+
+incrAnnotItem:
+    INT
+    |
+    UINT
+    |
+    HEX
+    |
+    annot
+    ;
+
+qName:
+    name
+    |
+    cName
+    ;
+
+qNameOrKeyword:
+    qName
+    |
+    keyword
+    ;
+
+keyword:
+    I8
+    {
+        $$ = rb_str_new_cstr("i8");
+    }
+    |
+    I16
+    {
+        $$ = rb_str_new_cstr("i16");
+    }
+    |
+    I32
+    {
+        $$ = rb_str_new_cstr("i32");
+    }
+    |
+    I64
+    {
+        $$ = rb_str_new_cstr("i64");
+    }
+    |
+    U8
+    {
+        $$ = rb_str_new_cstr("u8");
+    }
+    |
+    U16
+    {
+        $$ = rb_str_new_cstr("u16");
+    }
+    |
+    U32
+    {
+        $$ = rb_str_new_cstr("u32");
+    }
+    |
+    U64
+    {
+        $$ = rb_str_new_cstr("u64");
+    }
+    |
+    F64
+    {
+        $$ = rb_str_new_cstr("f64");
+    }
+    |
+    DECIMAL
+    {
+        $$ = rb_str_new_cstr("decimal");
+    }
+    |
+    DATE
+    {
+        $$ = rb_str_new_cstr("date");
+    }
+    |
+    TIME_OF_DAY_MILLI
+    {
+        $$ = rb_str_new_cstr("timeOfDayMilli");
+    }
+    |
+    TIME_OF_DAY_NANO
+    {
+        $$ = rb_str_new_cstr("timeOfDayNano");
+    }
+    |
+    NANO_TIME
+    {
+        $$ = rb_str_new_cstr("nanoTime");
+    }
+    |
+    MILLI_TIME
+    {
+        $$ = rb_str_new_cstr("milliTime");
+    }
+    |
+    BOOLEAN
+    {
+        $$ = rb_str_new_cstr("boolean");
+    }
+    |
+    STRING
+    {
+        $$ = rb_str_new_cstr("string");
+    }
+    |
+    BINARY
+    {
+        $$ = rb_str_new_cstr("binary");
+    }
+    |
+    FIXED
+    {
+        $$ = rb_str_new_cstr("fixed");
+    }
+    |
+    OBJECT
+    {
+        $$ = rb_str_new_cstr("object");
+    }
+    |
+    NAMESPACE
+    {
+        $$ = rb_str_new_cstr("namespace");
+    }
+    |
+    TYPE
+    {
+        $$ = rb_str_new_cstr("type");
+    }
+    |
+    SCHEMA
+    {
+        $$ = rb_str_new_cstr("schema");
+    }
+    ;    
+
+cName:
+    C_NAME
+    ;
+
+name:
+    NC_NAME
+    |
+    ESCAPED_NC_NAME
+    ;
+
+nsDecl:
+    NAMESPACE name
+    {
+        $$ = $name;
+    }
+    ;
+
+literalSegment:
+    LITERAL
+    ;
+
+int:
+    INT
+    |
+    UINT
+    ;
+
+uInt:
+    UINT
+    ;
+
+hexNum:
+    HEX
+    ;
+
+e:
+    %empty
+    {
+        $$ = Qnil;
+    }   
+    ;
+
+%%
+
+/* functions **********************************************************/
+
+
+void Init_ext_schema_parser(void)
+{
+    cSlowBlink = rb_define_module("SlowBlink");
+
+    cNameWithID = rb_const_get(cSlowBlink, rb_intern("NameWithID"));
+    
+    cSchema = rb_const_get(cSlowBlink, rb_intern("Schema"));
+    cGroup = rb_const_get(cSlowBlink, rb_intern("Group"));
+    cField = rb_const_get(cSlowBlink, rb_intern("Field"));
+    cDefinition = rb_const_get(cSlowBlink, rb_intern("Field"));
+
+    cAnnotation = rb_const_get(cSlowBlink, rb_intern("Annotation"));
+    cIncrementalAnnotation = rb_const_get(cSlowBlink, rb_intern("IncrementalAnnotation"));
+
+    cDefinition = rb_const_get(cSlowBlink, rb_intern("Definition"));
+    cEnumeration = rb_const_get(cSlowBlink, rb_intern("Enumeration"));
+    cSym = rb_const_get(cSlowBlink, rb_intern("Sym"));
+
+    cU8 = rb_const_get(cSlowBlink, rb_intern("U8"));
+    cU16 = rb_const_get(cSlowBlink, rb_intern("U16"));
+    cU32 = rb_const_get(cSlowBlink, rb_intern("U32"));
+    cU64 = rb_const_get(cSlowBlink, rb_intern("U64"));
+    cI8 = rb_const_get(cSlowBlink, rb_intern("I8"));
+    cI16 = rb_const_get(cSlowBlink, rb_intern("I16"));
+    cI32 = rb_const_get(cSlowBlink, rb_intern("I32"));
+    cI64 = rb_const_get(cSlowBlink, rb_intern("I64"));
+    cF64 = rb_const_get(cSlowBlink, rb_intern("F64"));
+    cDECIMAL = rb_const_get(cSlowBlink, rb_intern("DECIMAL"));
+    cFIXED = rb_const_get(cSlowBlink, rb_intern("FIXED"));
+    cBINARY = rb_const_get(cSlowBlink, rb_intern("BINARY"));
+    cSTRING = rb_const_get(cSlowBlink, rb_intern("STRING"));
+    cBOOLEAN = rb_const_get(cSlowBlink, rb_intern("BOOLEAN"));
+    cDATE = rb_const_get(cSlowBlink, rb_intern("DATE"));
+    cMILLI_TIME = rb_const_get(cSlowBlink, rb_intern("MILLI_TIME"));
+    cNANO_TIME = rb_const_get(cSlowBlink, rb_intern("NANO_TIME"));
+    cTIME_OF_DAY_MILLI = rb_const_get(cSlowBlink, rb_intern("TIME_OF_DAY_MILLI"));
+    cTIME_OF_DAY_NANO = rb_const_get(cSlowBlink, rb_intern("TIME_OF_DAY_NANO"));
+    cSEQUENCE = rb_const_get(cSlowBlink, rb_intern("SEQUENCE"));
+    cREF = rb_const_get(cSlowBlink, rb_intern("REF"));
+    cOBJECT = rb_const_get(cSlowBlink, rb_intern("OBJECT"));
+
+    cSchemaRef = rb_const_get(cSlowBlink, rb_intern("SchemaRef"));
+    cDefinitionRef = rb_const_get(cSlowBlink, rb_intern("DefinitionRef"));
+    cDefinitionTypeRef = rb_const_get(cSlowBlink, rb_intern("DefinitionTypeRef"));
+    cFieldRef = rb_const_get(cSlowBlink, rb_intern("FieldRef"));
+    cFieldTypeRef = rb_const_get(cSlowBlink, rb_intern("FieldTypeRef"));
+
+    rb_define_singleton_method(cSchema, "parse", parseFileBuffer, -1);
+}
+
+void yyerror(YYLTYPE *locp, yyscan_t scanner, VALUE filename, VALUE *tree, char const *msg, ... )
+{
+    int retval;
+    VALUE rbString;
+    char error[500];
+
+    int hdrLen;
+    
+    hdrLen = snprintf(error, sizeof(error), "%s:%i:%i: error: ", (const char *)RSTRING_PTR(filename), locp->first_line, locp->first_column);
+
+    if((hdrLen > 0) && (hdrLen <= sizeof(error))){
+
+        va_list argptr;
+        va_start(argptr, msg);
+        retval = vsnprintf(&error[hdrLen], sizeof(error) - hdrLen, msg, argptr);
+        va_end(argptr);
+
+        if((retval > 0) && ((hdrLen + retval) <= sizeof(error))){
+
+            rbString = rb_str_new((const char *)error, (hdrLen + retval));
+            rb_io_puts(1, &rbString, rb_stderr);            
+        }
+        else{
+
+            rb_bug("yyerror buffer is too short to contain error message");
+        }
+    }
+    else{
+
+        rb_bug("yyerror buffer is too short to contain error message");
+    }
+}
+
+/* static functions ***************************************************/
+
+static VALUE parseFileBuffer(int argc, VALUE* argv, VALUE self)
+{
+    yyscan_t scanner;    
+    VALUE tree = Qnil;
+    VALUE buffer;
+    VALUE opts;
+
+    rb_scan_args(argc, argv, "10:", &buffer, &opts);
+
+    if(opts == Qnil){
+        opts = rb_hash_new();
+    }
+
+    VALUE filename = rb_hash_aref(opts, ID2SYM(rb_intern("filename")));
+
+    if(yylex_init(&scanner) == 0){
+
+            if(yy_scan_bytes((const char *)RSTRING_PTR(buffer), RSTRING_LEN(buffer), scanner)){
+
+            yyparse(scanner, filename, &tree);
+        }
+
+        yylex_destroy(scanner);
+    }
+
+    return tree;
+}
+
+static VALUE newLocation(VALUE filename, const YYLTYPE *location)
+{
+    char msg[500];
+    int pos = 0;
+
+    if(filename != Qnil){
+
+        if(RSTRING_LEN(filename) < sizeof(msg)){
+            memcpy(msg, RSTRING_PTR(filename), RSTRING_LEN(filename));
+            pos = RSTRING_LEN(filename);
+        }
+        else{
+            return rb_str_new("...", strlen("..."));
+        }
+    }
+    
+    int len = snprintf(&msg[pos], sizeof(msg) - pos, ":%i:%i:", location->first_line, location->first_column);
+
+    return rb_str_new(msg, len);
+}