arafatkamaal

A question regarding Perl 6 Grammars. 

I know that Jonathan has created something called as Grammar::Tracer[He has a talk on this: http://www.jnthn.net/papers/2011-yapceu-grammars.pdf], which basically does [as he mentions in the talk]

a. Gives us a trace of all the various rules that our grammar calls as it tries to match.
b. Indicates whether the rule matched or not
c. When it matches, includes the string that was matched.

Now as far as I understand, Perl 6 programs are parsed by a grammar written in Perl 6. In other words, the Perl 6 program is the input data to the Perl 6 grammar.

arafatkamaal

$ cat repl.pl


use strict;
use warnings;


while(<STDIN>)
{

arafatkamaal

#include<dirent.h>
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<sys/types.h>
#include<sys/stat.h>

#define ERROR_OPENING_DIRECTORY -1
#define SUCCESS_OPENING_DIRECTORY 1

arafatkamaal

#include<dirent.h>
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<sys/types.h>
#include<sys/stat.h>

#define ERROR_OPENING_DIRECTORY -1
#define SUCCESS_OPENING_DIRECTORY 1

arafatkamaal

Project Gutenberg's Notes from the Underground, by Feodor Dostoevsky

This eBook is for the use of anyone anywhere at no cost and with
almost no restrictions whatsoever.  You may copy it, give it away or
re-use it under the terms of the Project Gutenberg License included
with this eBook or online at www.gutenberg.net


Title: Notes from the Underground

arafatkamaal

#include<stdio.h>
#include<string.h>

#define FIRST "hello world"
#define SECOND "bye"


int main()
{

arafatkamaal

#include <stdio.h>
#include <string.h>


typedef struct teststructure {
    int valid;
    char key[10];
    char value[10];
}test;

arafatkamaal

use strict;
use warnings;
use Data::Dumper;

my $gridx  = 100;
my $gridy  = 100;
my $radius = 10;
my $angle  = 14;
my $y_axis_intercept =

arafatkamaal

http://www.tutorialspoint.com/sqlite/sqlite_c_cpp.htm

arafatkamaal

#include <stdio.h>

int CallBackFunction(int i){

    printf("This is the call back function %d\n", i);

}


int Operations(int (*func)(int)){