package WebGUI::Macro::Basic;

my $VERSION = "1.0.1";

use strict;
use Language::Basic;
use WebGUI::Asset::Snippet;

sub process {
	my ($session, $snippetUrl) = @_;
	my $snippet = WebGUI::Asset::Snippet->newByUrl($session, $snippetUrl);
	if (defined $snippet) {
		my $program = Language::Basic::Program->new;
		my @lines = split("\n", $snippet->get("snippet"));
		foreach my $line (@lines) {
			if ($line =~ /^\s*\d+\s+/) {
				$program->line($line);
			}
		}
       my $output;
       {
           local *STDOUT;
           open STDOUT, ">", \$output;
           $program->parse;
           $program->implement;
       }
       return $output;
	}
	return "Not a valid snippet!";
}


1;