#!/usr/bin/perl use CGI; $Query = new CGI; $input = $Query->param('input'); print "Content-Type: text/html\n\n"; print "Lumas 2 ABNF Converter

Lumas 2 ABNF Converter

\n"; $time = time(); if( $input ne '' && open( FOUT, ">in/in-$time-$$" ) ) { print FOUT $input; close FOUT; print "

Your Compiler Results

\n";
	
	print `./linlu2abnf in/in-$time-$$ in/in-$time-$$.abnf`;
	
	print "

\n"; if( open( FIN, "in/in-$time-$$.abnf" ) ) { # $? == 0 && print "

Your ABNF Results

\n";
		while(  ) {
			$_ =~ s/&/&/g;
			$_ =~ s/
\n";
	}
}

$s_input = $input;
$s_input =~ s/&/&/g;
$s_input =~ s/Enter Definition to Convert:


$s_input







An Example
lumas module com.tech-know-ware.my-example;
/*
An example Lumas definition
*/
import com.tech-know-ware.general as tkwg;

struct  my-example
{
    int <0..255>    participant-id  as  ?;
    Action          action  as  ?;
    struct          my-addition[0..1] 
                            as new.tech-know-ware.com plugin
    {
            bool      tkw-app-capable  as  ?;
    };
};

union  Action
{
    Join            join;
    Message         message  as  msg;
    void            leave;
};

struct  Join
{
    unicode<0..63>  name;
};

struct  Message
{
    int <0..255>    to-participants[1..127]  as  to;
    unicode<1..255> message  as  msg;
    [               // Version 5 additions
    ascii<0..16>    font-name[0..1] as font;
    void            bold[0..1];
    void            italic[0..1];
    void            underlined[0..1] as ul;
    ]
};


[To Lumas Homepage]
(END_HTML)


print "\n";