use v6;

use DNS::Zone::ResourceRecord;
use DNS::Zone::ResourceRecordData;
use DNS::Zone::ResourceRecordData::A;
use DNS::Zone::ResourceRecordData::AAAA;
use DNS::Zone::ResourceRecordData::MX;
use DNS::Zone::ResourceRecordData::CNAME;
use DNS::Zone::ResourceRecordData::DNAME;
use DNS::Zone::ResourceRecordData::NS;
use DNS::Zone::ResourceRecordData::SOA;
use DNS::Zone::ResourceRecordData::PTR;
use DNS::Zone::ResourceRecordData::TXT;
use DNS::Zone::ResourceRecordData::SRV;
use DNS::Zone::ResourceRecordData::SPF;



head

	The action of the grammar DNSZone. This class aims to create a comprehensible AST,
	giving the possibility to manipulate it easily (add/remove/alter some lines).


para

class DNS::Zone::ModernActions
{

	# Used for creating the AST, does not export from this file.
	my class Type
	{
		has Str                $.type is rw;
		has DNS::Zone::ResourceRecordData $.rdata is rw;
	}

	# Return a hash of ResourceRecords.
	method TOP($/)
	{
		# Add to the Zone object only ResourceRecord entries
		#make Zone.new(
		#	rr => grep( { $_.ast ~~ ResourceRecord }, @<entry> )».ast
		#);
		make grep( { $_.ast ~~ DNS::Zone::ResourceRecord }, @<entry> )».ast;

		# $<soa>.elems == 1
		# $<NS>.elems > 0
		# Check for errors
	}

	method entry($/)
	{
		if $<resourceRecord>
		{
			make $<resourceRecord>.ast;
		}
	}

	# Include a file into current zone
	# @TODO
	method controlEntryAction:sym<INCLUDE>($/)
	{ }

	method resourceRecord($/)
	{
		# say "domain name = $<domainName> ; ttl = "~$<ttlOrClass><ttl>~ " ; class = "~ $<ttlOrClass><class>.Str~ " ; type = "~$<type>.ast.type.Str~ " ; rdata = "~$<type>.ast.rdata;
		my $domainName = '';
		$domainName = $<domainName>.Str if $<domainName>.chars;
		make DNS::Zone::ResourceRecord.new( domainName => $domainName,
		                                    ttl        => $<ttlOrClass><ttl>.Str,
		                                    class      => $<ttlOrClass><class>.Str,
		                                    type       => $<type>.ast.type.Str,
		                                    rdata      => $<type>.ast.rdata );
	}

	method domainName:sym<fqdn>($/)
	{ make $/.Str; }

	method domainName:sym<labeled>($/)
	{ make $/.Str; }

	method domainName:sym<@>($/)
	{ make $/.Str; }

	method ttl($/)
	{
		make $/;
	}

	method type:sym<A>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::A.new(ipAdress => $<rdataA>.Str) );
	}

	method type:sym<AAAA>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::AAAA.new(ip6Adress => $<rdataAAAA>.Str) );
	}

	method type:sym<MX>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::MX.new(
		                        mxPref     => $<mxPref>,
		                        domainName => $<domainName>.Str) );
	}

	method type:sym<CNAME>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::CNAME.new(
		                        domainName => $<domainName>.Str) );
	}

	method type:sym<DNAME>($/)
	{
		make Type.new( type => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::DNAME.new(
		                        domainName => $<domainName>.Str ) );
	}

	method type:sym<NS>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::NS.new(
		                        domainName => $<domainName>.Str) );
	}

	method type:sym<SOA>($/)
	{
		make Type.new( type  => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::SOA.new(
		                        domainName   => $<rdataSOA>.<domainName>.Str,
		                        domainAction => $<rdataSOA>.<rdataSOAActionDomain>.Str,
		                        serial       => $<rdataSOA>.<rdataSOASerial>.Str,
		                        refresh      => $<rdataSOA>.<rdataSOARefresh>.Str,
		                        retry        => $<rdataSOA>.<rdataSOARetry>.Str,
		                        expire       => $<rdataSOA>.<rdataSOAExpire>.Str,
		                        min          => $<rdataSOA>.<rdataSOAMin>.Str ) );
	}

	method type:sym<PTR>($/)
	{
		make Type.new( type => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::PTR.new(
		                        domainName => $<domainName>.Str) );
	}

	method type:sym<TXT>($/)
	{
		make Type.new( type => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::TXT.new(
		                        txt => $<rdataTXT>.Str ) );
	}

	method type:sym<SRV>($/)
	{
		make Type.new( type => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::SRV.new(
		                        priority => $<rdataSRV>.<rdataSRVPriority>.Int,
		                        weight   => $<rdataSRV>.<rdataSRVWeight>.Int,
		                        port     => $<rdataSRV>.<rdataSRVPort>.Int,
		                        target   => $<rdataSRV>.<rdataSRVTarget>.Str
		                        )
		             );
	}

	method type:sym<SPF>($/)
	{
		make Type.new( type => $<typeName>.Str,
		               rdata => DNS::Zone::ResourceRecordData::SPF.new(
		                        spf => $<rdataTXT>.Str ) );
	}

}


root

README

Modern

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Synopsis