tadzik

grammar Foo {
    token TOP    { <bottom> }
    token bottom {   <?>    }
}

class Foo::Actions {
    method TOP($/) {
        my $grmr := Metamodel::GrammarHOW.new_type(name => 'BNFGrammar');
        $grmr.^add_method('TOP', token { <foo> });
        $grmr.^add_method('foo', $<bottom>.ast[0]);

tadzik

─> cat test
grammar Foo {
    token TOP    { <bottom> }
    token bottom {   <?>    }
}

class Foo::Actions {
    method TOP($/) {
        my $grmr := Metamodel::GrammarHOW.new_type(name => 'BNFGrammar');
        $grmr.^add_method('TOP', token { <foo> });

tadzik

my $grmr := Metamodel::GrammarHOW.new_type(name => 'GRMR');
$grmr.^add_method('TOP', regex { 'y' 'a'+ 'y' });
$grmr.^compose;

say $grmr.new.parse('yaaaaaaay');

tadzik

grammar YAML {
    my $indent = -1;
    token TOP {
        ^ <yaml> $
    }

    token yaml {
        <map>
    }

tadzik

┌─[tadzik@yavin]─[~] 
└─[%]─> perl6 --version       
This is perl6 version 2015.03-312-ga244887 built on MoarVM version 2015.03-133-ga300558
┌─[tadzik@yavin]─[~] 
└─[%]─> panda install File::Temp Slang::Tuxic Inline::Perl5
==> Fetching File::Temp
==> Building File::Temp
Compiling lib/File/Temp.pm to mbc
==> Testing File::Temp
t/tempfile.t .. ok

tadzik

==> Testing OpenSSL
This representation (NativeRef) cannot unbox to a native int
  in method CALL-ME at lib/NativeCall.pm:247
  in method write at lib/OpenSSL.pm6:175
  in method write at lib/OpenSSL.pm6:166
  in block <unit> at t/01-basic.t:22
# Looks like you planned 9 tests, but ran 6
t/01-basic.t ... 
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 3/9 subtests 

tadzik

import QtQuick 2.0
import Sailfish.Silica 1.0
import harbour.dndhelper.spells 0.1

Page {
    id: spellList

    SilicaListView {
        id: listView
        anchors.fill: parent

tadzik

[D] QQmlDebuggingEnabler::QQmlDebuggingEnabler:1455 - QML debugging is enabled. Only use this in a safe environment.
opening default: /home/nemo/.local/share/DnDhelper/DnDhelper/dnd35.db
Database ok
[D] QWaylandEglClientBufferIntegration::QWaylandEglClientBufferIntegration:62 - Using Wayland-EGL 
/usr/share/DnDhelper/qml/pages/FirstPage.qml
[W] QQmlImportDatabase::registerPluginTypes:1875 - Module 'Sailfish.Silica' does not contain a module identifier directive - it cannot be protected from external registrations.
[D] main:86 - () 
[D] DeclarativeCoverWindow::DeclarativeCoverWindow:63 - DeclarativeCoverWindow: I have a default alpha buffer

tadzik

┌─[tsosnierz@alderaan]─[~/src/wesnoth-tiles] (master)
└─[%]─> gulp scripts

module.js:340
    throw err;
    ^
Error: Cannot find module 'shellwords'
    at Function.Module._resolveFilename (module.js:338:15)
    at Function.Module._load (module.js:280:25)
    at Module.require (module.js:364:17)

tadzik

class Keycard {
}

my $name := Keycard.new;

my @a; @a.push: $name;

say @a.perl;