whitten

A Sharp (.NET)|A# .NET
A Sharp (Axiom)|A# (Axiom)
A-0 System
A+ (programming language)|A+
A++
ABAP
ABC (programming language)|ABC
ABC ALGOL
ABLE (programming language)|ABLE
ABSET

whitten

D			[0-9]
L			[a-zA-Z_]
H			[a-fA-F0-9]
E			([Ee][+-]?{D}+)
P                       ([Pp][+-]?{D}+)
FS			(f|F|l|L)
IS                      ((u|U)|(u|U)?(l|L|ll|LL)|(l|L|ll|LL)(u|U))

%{
#include <stdio.h>

whitten

// after running `vagrant ssh` to log into VM:
//   sudo su - osehra
//   cd ewdjs

var ewdGlobals = require('ewdjs/lib/ewdGlobals');
var interface = require('nodem/lib/mumps');
var db = new interface.Gtm();
var util = require('util');
var ok = db.open();
ewdGlobals.init(db);

whitten

inaccessible is ok by default
:start ::= document

AttDef ::= S Name S AttType S DefaultDecl 
AttDef_any ::= AttDef *
AttType ::= StringType 
AttType ::= TokenizedType 
AttType ::= EnumeratedType 
AttValue ::= _Lex030 _Gen060_any _Lex030 
AttValue ::= _Lex032 _Gen063_any _Lex032 

whitten

#!env perl
use strict;
use diagnostics;
use Marpa::R2;
use Data::Dumper;
use POSIX qw/EXIT_SUCCESS/;
use Data::Section -setup;
use open  qw(:std :utf8);    # Undeclared streams in UTF-8.

#

whitten

/**************************/
/* _xml_1_0_parseEventsb */
/**************************/

static C_INLINE marpaWrapperBool_t _xml_1_0_parseEventsb(void *datavp, marpaWrapper_t *marpaWrapperp, size_t nEventi, marpaWrapperEvent_t *marpaWrapperEventp) {
  marpaWrapperBool_t              rcb = MARPAWRAPPER_BOOL_TRUE;
  xml_1_0_t                 *xml_1_0p;
  marpaXmlLog_t                  *marpaXmlLogp = NULL;
  xml_1_0_symbol_t           symboli;
  int                             i;

whitten

use 5.010;
use strict;
use warnings;
 
use Data::Dumper;
 
use Marpa::R2;
 
my $g = Marpa::R2::Scanless::G->new( {
bless_package => 'main',

whitten

#!env perl
# -----------------------------------------------------------------------------------------
# Marpa grammar for EBNF published by ISO/IEC 14977:1996(E)
#
# Extensions are minor, and ONLY because our keyboards are more likely to expose Latin-1
# character rather than the Windows-1252 characters as per the spec, i.e.:
#
# Extension 1: Add ' to quoted strings    (ISO published the special neighbour character ’)
# Extension 2: Add ^ to <other character> (ISO published the special neighbour character ˆ)
# Extension 3: Add ` to <other character> (ISO published the special neighbour character ‘)

whitten

#!env perl
use strict;
use diagnostics;
use Marpa::R2 2.081001;

my $grammar = Marpa::R2::Scanless::G->new({ source => \do {local $/; <DATA>}});
my $fmt = "%5s %-20s %-20s %s\n";
printf $fmt, 'depth', 'ruleName', 'lhsName', 'rhsNames';
foreach (@{rulesByDepth($grammar)}) {
    printf $fmt, $_->{depth}, $_->{ruleName}, $_->{lhsName}, join(' ', @{$_->{rhsNames}});

whitten

#!env perl
use strict;
use diagnostics;
use Marpa::R2;
use Devel::Peek;

my $grammar_source = do {local $/; <DATA>};
my $input = "\x{2665}";
print "INPUT:\n--------------------\n";
Dump($input);