tcllib_ip(n) 1.3 tcllib "Domain Name Service"

tcllib_ip(n) 1.4 tcllib "Domain Name Service"

Name

tcllib_ip - IPv4 and IPv6 address manipulation

@@ -121,11 +121,11 @@

Synopsis

package require Tcl 8.2
package require ip ?1.3?
package require ip ?1.4?

::ip::version address
::ip::is class address
::ip::equal address address

Convert an IPv4 or IPv6 address into a fully expanded version. There are various shorthand ways to write internet addresses, missing out -redundant parts or digts.. This procedure is the opposite of +redundant parts or digits. This procedure is the opposite of contract.

::ip::contract address

Convert a normalized internet address into a more compact form suitable for displaying to users.

::ip::distance ipaddr1 ipaddr2

+ +

pt::tclparam::configuration::nx(n) 1.0.0 tcllib "Parser Tools"

Name

pt::tclparam::configuration::nx - Tcl/PARAM, Canned configuration, NX

Table Of Contents
Synopsis
Description
API
Bugs, Ideas, Feedback
Keywords
Category
Copyright

Synopsis

package require Tcl 8.5
package require pt::tclparam::configuration::nx ?1.0.0?

::pt::tclparam::configuration::nx def name pkg version cmdprefix

Description

Are you lost ? +Do you have trouble understanding this document ? +In that case please read the overview provided by the +Introduction to Parser Tools. This document is the +entrypoint to the whole system the current package is a part of.

This package is an adjunct to pt::peg::to::tclparam, to make +the use of this highly configurable package easier by providing a +canned configuration. When applied this configuration causes the +package pt::peg::to::tclparam to generate +NX-based parser packages.

It is a supporting package in the Core Layer of Parser Tools.

arch_core_support

API

::pt::tclparam::configuration::nx def name pkg version cmdprefix

The command applies the configuration provided by this package to the +cmdprefix, causing the creation of NX-based parsers +whose class is name, in package pkg with version.

The use of a command prefix as API allows application of the +configuration to not only pt::peg::to::tclparam +(pt::peg::to::tclparam configure), but also export manager +instances and PEG containers ($export configuration set and +[$container exporter] configuration set respectively).

Or anything other command prefix accepting two arguments, option and +value.

Bugs, Ideas, Feedback

This document, and the package it describes, will undoubtedly contain +bugs and other problems. +Please report such in the category pt of the +Tcllib Trackers. +Please also report any ideas for enhancements you may have for either +package and/or documentation.

Keywords

EBNF, LL(k), PEG, TDPL, context-free languages, expression, grammar, matching, parser, parsing expression, parsing expression grammar, push down automaton, recursive descent, state, top-down parsing languages, transducer

Copyright

Index: embedded/www/tcllib/toc.html ================================================================== --- embedded/www/tcllib/toc.html +++ embedded/www/tcllib/toc.html @@ -1149,642 +1149,646 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations - + rc4 Implementation of the RC4 stream cipher - + rcs RCS low level utilities - + report Create and manipulate report objects - + rest define REST web APIs and call them inline or asychronously - + ripemd128 RIPEMD-128 Message-Digest Algorithm - + ripemd160 RIPEMD-160 Message-Digest Algorithm - + S3 Amazon S3 Web Service Interface - + SASL Implementation of SASL mechanisms for Tcl - + SASL::NTLM Implementation of SASL NTLM mechanism for Tcl - + SASL::SCRAM Implementation of SASL SCRAM mechanism for Tcl - + SASL::XGoogleToken Implementation of SASL NTLM mechanism for Tcl - + sha1 SHA1 Message-Digest Algorithm - + sha256 SHA256 Message-Digest Algorithm - + simulation::annealing Simulated annealing - + simulation::montecarlo Monte Carlo simulations - + simulation::random Pseudo-random number generators - + smtp Client-side tcl implementation of the smtp protocol - + smtpd Tcl SMTP server implementation - + snit Snit's Not Incr Tcl - + snitfaq Snit Frequently Asked Questions - + soundex Soundex - + stooop Object oriented extension. - + string::token Regex based iterative lexing - + string::token::shell Parsing of shell command line - + stringprep Implementation of stringprep - + stringprep::data stringprep data tables, generated, internal - + struct::disjointset Disjoint set data structure - + struct::graph Create and manipulate directed graph objects - + struct::graph::op Operation for (un)directed graph objects - + struct::graph_v1 Create and manipulate directed graph objects - + struct::list Procedures for manipulating lists - + struct::matrix Create and manipulate matrix objects - + struct::matrix_v1 Create and manipulate matrix objects - + struct::pool Create and manipulate pool objects (of discrete items) - + struct::prioqueue Create and manipulate prioqueue objects - + struct::queue Create and manipulate queue objects - + struct::record Define and create records (similar to 'C' structures) - + struct::set Procedures for manipulating sets - + struct::skiplist Create and manipulate skiplists - + struct::stack Create and manipulate stack objects - + struct::tree Create and manipulate tree objects - + struct::tree_v1 Create and manipulate tree objects - + sum Calculate a sum(1) compatible checksum - + switched switch/option management. - + tar Tar file creation, extraction & manipulation - + tcl::chan::cat Concatenation channel - + tcl::chan::core Basic reflected/virtual channel support - + tcl::chan::events Event support for reflected/virtual channels - + tcl::chan::facade Facade channel - + tcl::chan::fifo In-memory fifo channel - + tcl::chan::fifo2 In-memory interconnected fifo channels - + tcl::chan::halfpipe In-memory channel, half of a fifo2 - + tcl::chan::memchan In-memory channel - + tcl::chan::null Null channel - + tcl::chan::nullzero Null/Zero channel combination - + tcl::chan::random Random channel - + tcl::chan::std Standard I/O, unification of stdin and stdout - + tcl::chan::string Read-only in-memory channel - + tcl::chan::textwindow Textwindow channel - + tcl::chan::variable In-memory channel using variable for storage - + tcl::chan::zero Zero channel - + tcl::randomseed Utilities for random channels - + tcl::transform::adler32 Adler32 transformation - + tcl::transform::base64 Base64 encoding transformation - + tcl::transform::core Basic reflected/virtual channel transform support - + tcl::transform::counter Counter transformation - + tcl::transform::crc32 Crc32 transformation - + tcl::transform::hex Hexadecimal encoding transformation - + tcl::transform::identity Identity transformation - + tcl::transform::limitsize limiting input - + tcl::transform::observe Observer transformation, stream copy - + tcl::transform::otp Encryption via one-time pad - + tcl::transform::rot rot-encryption - + tcl::transform::spacer Space insertation and removal - + tcl::transform::zlib zlib (de)compression - + tclDES Implementation of the DES and triple-DES ciphers - + tclDESjr Implementation of the DES and triple-DES ciphers - + tcldocstrip Tcl-based Docstrip Processor - + tcllib_ip IPv4 and IPv6 address manipulation - + tclrep/machineparameters Compute double precision machine parameters. - + tepam An introduction into TEPAM, Tcl's Enhanced Procedure and Argument Manager - + tepam::argument_dialogbox TEPAM argument_dialogbox, reference manual - + tepam::doc_gen TEPAM DOC Generation, reference manual - + tepam::procedure TEPAM procedure, reference manual - + term General terminal control - + term::ansi::code Helper for control sequences - + term::ansi::code::attr ANSI attribute sequences - + term::ansi::code::ctrl ANSI control sequences - + term::ansi::code::macros Macro sequences - + term::ansi::ctrl::unix Control operations and queries - + term::ansi::send Output of ANSI control sequences to terminals - + term::interact::menu Terminal widget, menu - + term::interact::pager Terminal widget, paging - + term::receive General input from terminals - + term::receive::bind Keyboard dispatch from terminals - + term::send General output to terminals - + textutil Procedures to manipulate texts and strings. - + textutil::adjust Procedures to adjust, indent, and undent paragraphs - + textutil::expander Procedures to process templates and expand text. - + textutil::repeat Procedures to repeat strings. - + textutil::split Procedures to split texts - + textutil::string Procedures to manipulate texts and strings. - + textutil::tabify Procedures to (un)tabify strings - + textutil::trim Procedures to trim strings - + throw throw - Throw an error exception with a message - + tie Array persistence, standard data sources - + tie Array persistence - + tiff TIFF reading, writing, and querying and manipulation of meta data - + tool Dictionary Tools - + tool::dict_ensemble Dictionary Tools - + transfer::connect Connection setup - + transfer::copy Data transfer foundation - + transfer::copy::queue Queued transfers - + transfer::data::destination Data destination - + transfer::data::source Data source - + transfer::receiver Data source - + transfer::transmitter Data source - + treeql Query tree objects - + try try - Trap and process errors and exceptions - + udpcluster UDP Peer-to-Peer cluster - + uevent User events - + uevent::onidle Request merging and deferal to idle time - + unicode Implementation of Unicode normalization - + unicode::data unicode data tables, generated, internal - + units unit conversion - + uri URI utilities - + uri_urn URI utilities, URN scheme - + uuencode UU-encode/decode binary data - + uuid UUID generation and comparison - + valtype::common Validation, common code - + valtype::creditcard::amex Validation for AMEX creditcard number - + valtype::creditcard::discover Validation for Discover creditcard number - + valtype::creditcard::mastercard Validation for Mastercard creditcard number - + valtype::creditcard::visa Validation for VISA creditcard number - + valtype::gs1::ean13 Validation for EAN13 - + valtype::iban Validation for IBAN - + valtype::imei Validation for IMEI - + valtype::isbn Validation for ISBN - + valtype::luhn Validation for plain number with a LUHN checkdigit - + valtype::luhn5 Validation for plain number with a LUHN5 checkdigit - + valtype::usnpi Validation for USNPI - + valtype::verhoeff Validation for plain number with a VERHOEFF checkdigit - + websocket Tcl implementation of the websocket protocol - + wip Word Interpreter - + xsxp eXtremely Simple Xml Parser - + yaml YAML Format Encoder/Decoder - + yencode Y-encode/decode binary data - + zipfile::decode Access to zip archives - + zipfile::encode Generation of zip archives - + zipfile::mkzip Build a zip archive

Index: embedded/www/toc.html ================================================================== --- embedded/www/toc.html +++ embedded/www/toc.html @@ -1240,42 +1240,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

Procedures, arguments, parameters, options: @@ -3210,42 +3214,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

rc4: Index: embedded/www/toc0.html ================================================================== --- embedded/www/toc0.html +++ embedded/www/toc0.html @@ -1240,42 +1240,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

Procedures, arguments, parameters, options: Index: embedded/www/toc1.html ================================================================== --- embedded/www/toc1.html +++ embedded/www/toc1.html @@ -1405,42 +1405,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

rc4

tcllib_ip(n) 1.3 tcllib "Domain Name Service"

tcllib_ip(n) 1.4 tcllib "Domain Name Service"

Name

tcllib_ip - IPv4 and IPv6 address manipulation

@@ -130,11 +130,11 @@

Synopsis

package require Tcl 8.2
package require ip ?1.3?
package require ip ?1.4?

::ip::version address
::ip::is class address
::ip::equal address address

::ip::normalize address

::ip::contract address

Convert a normalized internet address into a more compact form suitable for displaying to users.

::ip::distance ipaddr1 ipaddr2

pt::tclparam::configuration::nx - Parser Tools

Tcllib HomeMain Table Of ContentsTable Of ContentsKeyword IndexCategoriesModulesApplications

pt::tclparam::configuration::nx(n) 1.0.0 tcllib "Parser Tools"

Name

pt::tclparam::configuration::nx - Tcl/PARAM, Canned configuration, NX

Table Of Contents
Synopsis
Description
API
Bugs, Ideas, Feedback
Keywords
Category
Copyright

Synopsis

package require Tcl 8.5
package require pt::tclparam::configuration::nx ?1.0.0?

::pt::tclparam::configuration::nx def name pkg version cmdprefix

Description

It is a supporting package in the Core Layer of Parser Tools.

arch_core_support

API

::pt::tclparam::configuration::nx def name pkg version cmdprefix

The command applies the configuration provided by this package to the +cmdprefix, causing the creation of NX-based parsers +whose class is name, in package pkg with version.

Or anything other command prefix accepting two arguments, option and +value.

pt::rdept::tclparam::configuration::nxpt::tclparam::configuration::snitpt::tclparam::configuration::tcloopt::utilpt_export_apipt_import_apipt_introductionpt_parse_pegpt_parser_apipt_peg_oprc4rcsreportrestripemd128ripemd160S3SASLSASL::NTLMSASL::SCRAMSASL::XGoogleTokensha1sha256simulation::annealingsimulation::montecarlosimulation::randomsmtpsmtpdsnitsnitfaqsoundexstooopstring::tokenstring::token::shellstringprepstringprep::datastruct::disjointsetstruct::graphstruct::graph::opstruct::graph_v1struct::liststruct::matrixstruct::matrix_v1struct::poolstruct::prioqueuestruct::queuestruct::recordstruct::setstruct::skipliststruct::stackstruct::treestruct::tree_v1sumswitchedtartcl::chan::cattcl::chan::coretcl::chan::eventstcl::chan::facadetcl::chan::fifotcl::chan::fifo2tcl::chan::halfpipetcl::chan::memchantcl::chan::nulltcl::chan::nullzerotcl::chan::randomtcl::chan::stdtcl::chan::stringtcl::chan::textwindowtcl::chan::variabletcl::chan::zerotcl::randomseedtcl::transform::adler32tcl::transform::base64tcl::transform::coretcl::transform::countertcl::transform::crc32tcl::transform::hextcl::transform::identitytcl::transform::limitsizetcl::transform::observetcl::transform::otptcl::transform::rottcl::transform::spacertcl::transform::zlibtclDEStclDESjrtcldocstriptcllib_iptclrep/machineparameterstepamtepam::argument_dialogboxtepam::doc_gentepam::proceduretermterm::ansi::codeterm::ansi::code::attrterm::ansi::code::ctrlterm::ansi::code::macrosterm::ansi::ctrl::unixterm::ansi::sendterm::interact::menuterm::interact::pagerterm::receiveterm::receive::bindterm::sendtextutiltextutil::adjusttextutil::expandertextutil::repeattextutil::splittextutil::stringtextutil::tabifytextutil::trimthrowtietietifftooltool::dict_ensembletransfer::connecttransfer::copytransfer::copy::queuetransfer::data::destinationtransfer::data::sourcetransfer::receivertransfer::transmittertreeqltryudpclusterueventuevent::onidleunicodeunicode::dataunitsuriuri_urnuuencodeuuidvaltype::commonvaltype::creditcard::amexvaltype::creditcard::discovervaltype::creditcard::mastercardvaltype::creditcard::visavaltype::gs1::ean13valtype::ibanvaltype::imeivaltype::isbnvaltype::luhnvaltype::luhn5valtype::usnpivaltype::verhoeffwebsocketwipxsxpyamlyencodezipfile::decodezipfile::encodezipfile::mkzip

Index: idoc/www/toc.html ================================================================== --- idoc/www/toc.html +++ idoc/www/toc.html @@ -1158,42 +1158,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

Procedures, arguments, parameters, options: @@ -3128,42 +3132,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

rc4: Index: idoc/www/toc0.html ================================================================== --- idoc/www/toc0.html +++ idoc/www/toc0.html @@ -1158,42 +1158,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

Procedures, arguments, parameters, options: Index: idoc/www/toc1.html ================================================================== --- idoc/www/toc1.html +++ idoc/www/toc1.html @@ -1323,42 +1323,46 @@ pt::rde Parsing Runtime Support, PARAM based +pt::tclparam::configuration::nx +Tcl/PARAM, Canned configuration, NX + + pt::tclparam::configuration::snit Tcl/PARAM, Canned configuration, Snit - + pt::tclparam::configuration::tcloo Tcl/PARAM, Canned configuration, Tcloo - + pt::util General utilities - + pt_export_api Parser Tools Export API - + pt_import_api Parser Tools Import API - + pt_introduction Introduction to Parser Tools - + pt_parse_peg Parser Tools PEG Parser - + pt_parser_api Parser API - + pt_peg_op Parser Tools PE Grammar Utility Operations

rc4: Index: modules/pt/pkgIndex.tcl ================================================================== --- modules/pt/pkgIndex.tcl +++ modules/pt/pkgIndex.tcl @@ -51,17 +51,20 @@ package ifneeded pt::peg::from::peg 1.0.3 [list source [file join $dir pt_peg_from_peg.tcl]] # PARAM runtime. package ifneeded pt::rde 1.1 [list source [file join $dir pt_rdengine.tcl]] package ifneeded pt::rde::oo 1.1 [list source [file join $dir pt_rdengine_oo.tcl]] +package ifneeded pt::rde::nx 1.1 [list source [file join $dir pt_rdengine_nx.tcl]] + # PEG grammar specification, as CONTAINER package ifneeded pt::peg::container::peg 1 [list source [file join $dir pt_peg_container_peg.tcl]] # */PARAM support (canned configurations). package ifneeded pt::cparam::configuration::critcl 1.0.2 [list source [file join $dir pt_cparam_config_critcl.tcl]] package ifneeded pt::cparam::configuration::tea 0.1 [list source [file join $dir pt_cparam_config_tea.tcl]] package ifneeded pt::tclparam::configuration::snit 1.0.2 [list source [file join $dir pt_tclparam_config_snit.tcl]] package ifneeded pt::tclparam::configuration::tcloo 1.0.4 [list source [file join $dir pt_tclparam_config_tcloo.tcl]] +package ifneeded pt::tclparam::configuration::nx 1.0.0 [list source [file join $dir pt_tclparam_config_nx.tcl]] # Parser generator core. package ifneeded pt::pgen 1.0.3 [list source [file join $dir pt_pgen.tcl]] Index: modules/pt/pt_pgen.tcl ================================================================== --- modules/pt/pt_pgen.tcl +++ modules/pt/pt_pgen.tcl @@ -23,10 +23,11 @@ package require pt::peg::to::cparam ; # PARAM assembly, embedded into C package require pt::tclparam::configuration::snit 1.0.2 ; # PARAM/Tcl, snit::type package require pt::tclparam::configuration::tcloo 1.0.4 ; # PARAM/Tcl, TclOO class package require pt::cparam::configuration::critcl 1.0.2 ; # PARAM/C, in critcl package require pt::cparam::configuration::tea ; # PARAM/C, in TEA +package require pt::tclparam::configuration::nx 1.0.0 ; # PARAM/Tcl, NX class # ### ### ### ######### ######### ######### ## Implementation namespace eval ::pt::pgen { @@ -54,11 +55,11 @@ # # ## ### ##### ######## ############# ## Internals - Generating the parser. namespace eval ::pt::pgen::Write { - namespace export json peg container param snit oo critcl c tea + namespace export json peg container param snit oo critcl c tea nx namespace ensemble create } proc ::pt::pgen::Write::json {args} { # args = (option value)... grammar @@ -102,10 +103,22 @@ ClassPackageDefaults pt::tclparam::configuration::tcloo def \ $class $package $version \ {pt::peg::to::tclparam configure} + + return [pt::peg::to::tclparam convert [lindex $args end]] +} + +proc ::pt::pgen::Write::nx {args} { + # args = (option value)... grammar + pt::peg::to::tclparam configure {*}[Package [Version [Class [lrange $args 0 end-1]]]] + ClassPackageDefaults + + pt::tclparam::configuration::nx def \ + $class $package $version \ + {pt::peg::to::tclparam configure} return [pt::peg::to::tclparam convert [lindex $args end]] } proc ::pt::pgen::Write::tea {args} { ADDED modules/pt/pt_rdengine_nx.tcl Index: modules/pt/pt_rdengine_nx.tcl ================================================================== --- /dev/null +++ modules/pt/pt_rdengine_nx.tcl @@ -0,0 +1,65 @@ +# -*- tcl -*- +# +# Copyright (c) 2016 by Stefan Sobernig + +# # ## ### ##### ######## ############# ##################### +## Package description + +## ... + + +# # ## ### ##### ######## ############# ##################### +## Requisites + +package require pt::rde::oo +package req nx + +namespace eval ::pt::rde { + + ## + ## Helper: An NX metaclass, which allows for deriving an NX class from + ## a given TclOO class. + ## + + nx::Class create ClassFactory -superclass nx::Class { + :property prototype:required + :method init {args} { + :alias instvar ::nsf::methods::object::instvar + namespace eval [namespace qualifier [self]] { + namespace import ::nsf::my + } + + ## clone constructor + lassign [info class constructor ${:prototype}] ctorParams ctorBody + :method init $ctorParams [:injectVars $ctorBody] + ## clone all methods + foreach m [info class methods ${:prototype} -private] { + lassign [info class definition ${:prototype} $m] params body + :method $m $params [:injectVars $body] + } + } + :method injectVars {body} { + if {![info exists :vars]} { + set :vars [info class variables ${:prototype}] + } + if {[llength ${:vars}]} { + append tmp [list :instvar {*}${:vars}] "\n" $body; + return $tmp + } else { + return $body; + } + } + } + + ## + ## ::pt::rde::nx: + ## + ## The NX derivative of ::pt::rde::oo, to be inherited + ## by the generated grammar class. + ## + + ClassFactory create nx -prototype ::pt::rde::oo + +} + +package provide pt::rde::nx [package req pt::rde::oo] ADDED modules/pt/pt_tclparam_config_nx.man Index: modules/pt/pt_tclparam_config_nx.man ================================================================== --- /dev/null +++ modules/pt/pt_tclparam_config_nx.man @@ -0,0 +1,48 @@ +[vset VERSION 1.0.0] +[comment {-*- text -*- doctools manpage}] +[manpage_begin pt::tclparam::configuration::nx n [vset VERSION]] +[include include/module.inc] +[titledesc {Tcl/PARAM, Canned configuration, NX}] +[require pt::tclparam::configuration::nx [opt [vset VERSION]]] +[description] +[include include/ref_intro.inc] + +This package is an adjunct to [package pt::peg::to::tclparam], to make +the use of this highly configurable package easier by providing a +canned configuration. When applied this configuration causes the +package [package pt::peg::to::tclparam] to generate +[package NX]-based parser packages. + +[para] + +It is a supporting package in the Core Layer of Parser Tools. +[para][image arch_core_support][para] + +[section API] + +[list_begin definitions] + +[call [cmd ::pt::tclparam::configuration::nx] [method def] \ + [arg name] [arg pkg] [arg version] [arg cmdprefix]] + +The command applies the configuration provided by this package to the +[arg cmdprefix], causing the creation of [package NX]-based parsers +whose class is [arg name], in package [arg pkg] with [arg version]. + +[para] + +The use of a command prefix as API allows application of the +configuration to not only [package pt::peg::to::tclparam] +([cmd {pt::peg::to::tclparam configure}]), but also export manager +instances and PEG containers ([cmd {$export configuration set}] and +[cmd {[$container exporter] configuration set}] respectively). + +[para] + +Or anything other command prefix accepting two arguments, option and +value. + +[list_end] + +[include include/feedback.inc] +[manpage_end] ADDED modules/pt/pt_tclparam_config_nx.tcl Index: modules/pt/pt_tclparam_config_nx.tcl ================================================================== --- /dev/null +++ modules/pt/pt_tclparam_config_nx.tcl @@ -0,0 +1,113 @@ +# -*- tcl -*- +# Copyright (c) 2009-2014 Andreas Kupries +# Copyright (c) 2016 Stefan Sobernig + +# Canned configuration for the converter to Tcl/PARAM representation, +# causing generation of a proper NX class. + +# The requirements of the embedded template are not our requirements. +# @mdgen NODEP: nx +# @mdgen NODEP: pt::rde::nx + +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 ; # Required runtime. + +# # ## ### ##### ######## ############# ##################### +## + +namespace eval ::pt::tclparam::configuration::nx { + namespace export def + namespace ensemble create +} + +# # ## ### ##### ######## ############# +## Public API + +# Check that the proposed serialization of an abstract syntax tree is +# indeed such. + +proc ::pt::tclparam::configuration::nx::def {class pkg version cmd} { + + lappend map @@PKG@@ $pkg + lappend map @@VERSION@@ $version + lappend map @@CLASS@@ $class + lappend map \n\t \n ;# undent the template + + {*}$cmd -runtime-command : + {*}$cmd -self-command : + {*}$cmd -proc-command :method + {*}$cmd -prelude {} + {*}$cmd -namespace {} + {*}$cmd -main MAIN + {*}$cmd -indent 4 + {*}$cmd -template [string trim \ + [string map $map { + ## -*- tcl -*- + ## + ## NX-based Tcl/PARAM implementation of the parsing + ## expression grammar + ## + ## @name@ + ## + ## Generated from file @file@ + ## for user @user@ + ## + # # ## ### ##### ######## ############# ##################### + ## Requirements + + package require Tcl 8.5 + package require nx + package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + + # # ## ### ##### ######## ############# ##################### + ## + + nx::Class create @@CLASS@@ -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + +@code@ + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# + } + + # # ## ### ##### ######## ############# ##################### + ## Ready + + package provide @@PKG@@ @@VERSION@@ + # return + }]] + + return +} + +# # ## ### ##### ######## ############# + +namespace eval ::pt::tclparam::configuration::nx {} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide pt::tclparam::configuration::nx 1.0.0 +return ADDED modules/pt/pt_tclparam_config_nx.test Index: modules/pt/pt_tclparam_config_nx.test ================================================================== --- /dev/null +++ modules/pt/pt_tclparam_config_nx.test @@ -0,0 +1,49 @@ +# -*- tcl -*- +# pt_tclparam_config_nx.test: tests for the pt::peg::to::tclparam +# converter package configured for NX. +# +# Copyright (c) 2009 by Andreas Kupries +# Copyright (c) 2016 by Stefan Sobernig +# All rights reserved. +# +# ------------------------------------------------------------------------- + +source [file join \ + [file dirname [file dirname [file join [pwd] [info script]]]] \ + devtools testutilities.tcl] + +testsNeedTcl 8.5 +testsNeedTcltest 2 + +support { + useAccel [useTcllibC] struct/sets.tcl struct::set ; # used by pt::pe::op, + TestAccelInit struct::set ; # however not by the + # # commands used here. + + use fileutil/fileutil.tcl fileutil ;# tests/common + use textutil/adjust.tcl textutil::adjust + + useLocal pt_pexpression.tcl pt::pe + useLocal pt_pexpr_op.tcl pt::pe::op + useLocal pt_pegrammar.tcl pt::peg + useLocal text_write.tcl text::write + useLocal char.tcl char + + useLocal pt_peg_to_tclparam.tcl pt::peg::to::tclparam + + source [localPath tests/common] +} +testing { + useLocal pt_tclparam_config_nx.tcl pt::tclparam::configuration::nx +} + +set mytestdir tests/data + +# ------------------------------------------------------------------------- + +source [localPath tests/pt_tclparam_config_nx.tests] + +# ------------------------------------------------------------------------- +TestAccelExit struct::set +testsuiteCleanup +return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/0_basic_arithmetic Index: modules/pt/tests/data/ok/peg_tclparam-nx/0_basic_arithmetic ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/0_basic_arithmetic @@ -0,0 +1,347 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_Expression + return + } + + # + # value Symbol 'AddOp' + # + + :method sym_AddOp {} { + # [-+] + + : si:void_symbol_start AddOp + : si:next_class -+ + : si:void_leaf_symbol_end AddOp + return + } + + # + # value Symbol 'Digit' + # + + :method sym_Digit {} { + # [0123456789] + + : si:void_symbol_start Digit + : si:next_class 0123456789 + : si:void_leaf_symbol_end Digit + return + } + + # + # value Symbol 'Expression' + # + + :method sym_Expression {} { + # / + # x + # '$' + # (Expression) + # '$' + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_symbol_start Expression + : choice_20 + : si:reduce_symbol_end Expression + return + } + + :method choice_20 {} { + # / + # x + # '$' + # (Expression) + # '$' + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sequence_9 + : si:valuevalue_branch + : sequence_18 + : si:value_state_merge + return + } + + :method sequence_9 {} { + # x + # '$' + # (Expression) + # '$' + + : si:void_state_push + : si:next_char \50 + : si:voidvalue_part + : sym_Expression + : si:valuevalue_part + : si:next_char \51 + : si:value_state_merge + return + } + + :method sequence_18 {} { + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sym_Factor + : si:valuevalue_part + : kleene_16 + : si:value_state_merge + return + } + + :method kleene_16 {} { + # * + # x + # (MulOp) + # (Factor) + + while {1} { + : si:void2_state_push + : sequence_14 + : si:kleene_close + } + return + } + + :method sequence_14 {} { + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sym_MulOp + : si:valuevalue_part + : sym_Factor + : si:value_state_merge + return + } + + # + # value Symbol 'Factor' + # + + :method sym_Factor {} { + # x + # (Term) + # * + # x + # (AddOp) + # (Term) + + : si:value_symbol_start Factor + : sequence_30 + : si:reduce_symbol_end Factor + return + } + + :method sequence_30 {} { + # x + # (Term) + # * + # x + # (AddOp) + # (Term) + + : si:value_state_push + : sym_Term + : si:valuevalue_part + : kleene_28 + : si:value_state_merge + return + } + + :method kleene_28 {} { + # * + # x + # (AddOp) + # (Term) + + while {1} { + : si:void2_state_push + : sequence_26 + : si:kleene_close + } + return + } + + :method sequence_26 {} { + # x + # (AddOp) + # (Term) + + : si:value_state_push + : sym_AddOp + : si:valuevalue_part + : sym_Term + : si:value_state_merge + return + } + + # + # value Symbol 'MulOp' + # + + :method sym_MulOp {} { + # [*/] + + : si:void_symbol_start MulOp + : si:next_class */ + : si:void_leaf_symbol_end MulOp + return + } + + # + # value Symbol 'Number' + # + + :method sym_Number {} { + # x + # ? + # (Sign) + # + + # (Digit) + + : si:value_symbol_start Number + : sequence_41 + : si:reduce_symbol_end Number + return + } + + :method sequence_41 {} { + # x + # ? + # (Sign) + # + + # (Digit) + + : si:value_state_push + : optional_36 + : si:valuevalue_part + : poskleene_39 + : si:value_state_merge + return + } + + :method optional_36 {} { + # ? + # (Sign) + + : si:void2_state_push + : sym_Sign + : si:void_state_merge_ok + return + } + + :method poskleene_39 {} { + # + + # (Digit) + + : i_loc_push + : sym_Digit + : si:kleene_abort + while {1} { + : si:void2_state_push + : sym_Digit + : si:kleene_close + } + return + } + + # + # value Symbol 'Sign' + # + + :method sym_Sign {} { + # [-+] + + : si:void_symbol_start Sign + : si:next_class -+ + : si:void_leaf_symbol_end Sign + return + } + + # + # value Symbol 'Term' + # + + :method sym_Term {} { + # (Number) + + : si:value_symbol_start Term + : sym_Number + : si:reduce_symbol_end Term + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/10_notahead Index: modules/pt/tests/data/ok/peg_tclparam-nx/10_notahead ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/10_notahead @@ -0,0 +1,101 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_TEST + return + } + + # + # value Symbol 'TEST' + # + + :method sym_TEST {} { + # x + # ! + # 'a' + # (IDENTIFIER) + + : si:void_symbol_start TEST + : sequence_6 + : si:void_leaf_symbol_end TEST + return + } + + :method sequence_6 {} { + # x + # ! + # 'a' + # (IDENTIFIER) + + : si:void_state_push + : notahead_3 + : si:voidvoid_part + : i_status_fail ; # Undefined symbol 'IDENTIFIER' + : si:void_state_merge + return + } + + :method notahead_3 {} { + # ! + # 'a' + + : i_loc_push + : si:next_char a + : si:void_notahead_exit + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/11_epsilon Index: modules/pt/tests/data/ok/peg_tclparam-nx/11_epsilon ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/11_epsilon @@ -0,0 +1,74 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : choice_3 + return + } + + :method choice_3 {} { + # / + # 'a' + # + + : si:void_state_push + : si:next_char a + : si:voidvoid_branch + : i_status_ok + : si:void_state_merge + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/1_functions Index: modules/pt/tests/data/ok/peg_tclparam-nx/1_functions ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/1_functions @@ -0,0 +1,119 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_Expression + return + } + + # + # value Symbol 'Expression' + # + + :method sym_Expression {} { + # (Function) + + : si:value_symbol_start Expression + : sym_Function + : si:reduce_symbol_end Expression + return + } + + # + # value Symbol 'Function' + # + + :method sym_Function {} { + # (Sinus) + + : si:value_symbol_start Function + : sym_Sinus + : si:reduce_symbol_end Function + return + } + + # + # value Symbol 'Sinus' + # + + :method sym_Sinus {} { + # x + # "sin$" + # (Expression) + # '$' + + : si:value_symbol_start Sinus + : sequence_9 + : si:reduce_symbol_end Sinus + return + } + + :method sequence_9 {} { + # x + # "sin$" + # (Expression) + # '$' + + : si:void_state_push + : si:next_str sin\50 + : si:voidvalue_part + : sym_Expression + : si:valuevalue_part + : si:next_char \51 + : si:value_state_merge + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/27_ticket_4a4e443ce9 Index: modules/pt/tests/data/ok/peg_tclparam-nx/27_ticket_4a4e443ce9 ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/27_ticket_4a4e443ce9 @@ -0,0 +1,244 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_eos + return + } + + # + # value Symbol 'eos' + # + + :method sym_eos {} { + # x + # (ex) + # * + # x + # + + # + # (ex) + + : si:value_symbol_start eos + : sequence_11 + : si:reduce_symbol_end eos + return + } + + :method sequence_11 {} { + # x + # (ex) + # * + # x + # + + # + # (ex) + + : si:value_state_push + : sym_ex + : si:valuevalue_part + : kleene_9 + : si:value_state_merge + return + } + + :method kleene_9 {} { + # * + # x + # + + # + # (ex) + + while {1} { + : si:void2_state_push + : sequence_7 + : si:kleene_close + } + return + } + + :method sequence_7 {} { + # x + # + + # + # (ex) + + : si:void_state_push + : poskleene_4 + : si:voidvalue_part + : sym_ex + : si:value_state_merge + return + } + + :method poskleene_4 {} { + # + + # + + : i_loc_push + : si:next_space + : si:kleene_abort + while {1} { + : si:void2_state_push + : si:next_space + : si:kleene_close + } + return + } + + # + # value Symbol 'ex' + # + + :method sym_ex {} { + # x + # + + # x + # ! + # (X) + # [xz] + # ? + # (X) + + : si:value_symbol_start ex + : sequence_25 + : si:reduce_symbol_end ex + return + } + + :method sequence_25 {} { + # x + # + + # x + # ! + # (X) + # [xz] + # ? + # (X) + + : si:void_state_push + : poskleene_20 + : si:voidvalue_part + : optional_23 + : si:value_state_merge + return + } + + :method poskleene_20 {} { + # + + # x + # ! + # (X) + # [xz] + + : i_loc_push + : sequence_18 + : si:kleene_abort + while {1} { + : si:void2_state_push + : sequence_18 + : si:kleene_close + } + return + } + + :method sequence_18 {} { + # x + # ! + # (X) + # [xz] + + : si:void_state_push + : notahead_15 + : si:voidvoid_part + : si:next_class xz + : si:void_state_merge + return + } + + :method notahead_15 {} { + # ! + # (X) + + : si:value_notahead_start + : sym_X + : si:value_notahead_exit + return + } + + :method optional_23 {} { + # ? + # (X) + + : si:void2_state_push + : sym_X + : si:void_state_merge_ok + return + } + + # + # value Symbol 'X' + # + + :method sym_X {} { + # 'x' + + : si:void_symbol_start X + : si:next_char x + : si:void_leaf_symbol_end X + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/2_fun_arithmetic Index: modules/pt/tests/data/ok/peg_tclparam-nx/2_fun_arithmetic ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/2_fun_arithmetic @@ -0,0 +1,396 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_Expression + return + } + + # + # value Symbol 'AddOp' + # + + :method sym_AddOp {} { + # [-+] + + : si:void_symbol_start AddOp + : si:next_class -+ + : si:void_leaf_symbol_end AddOp + return + } + + # + # value Symbol 'Digit' + # + + :method sym_Digit {} { + # [0123456789] + + : si:void_symbol_start Digit + : si:next_class 0123456789 + : si:void_leaf_symbol_end Digit + return + } + + # + # value Symbol 'Expression' + # + + :method sym_Expression {} { + # / + # (Function) + # x + # '$' + # (Expression) + # '$' + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_symbol_start Expression + : choice_21 + : si:reduce_symbol_end Expression + return + } + + :method choice_21 {} { + # / + # (Function) + # x + # '$' + # (Expression) + # '$' + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sym_Function + : si:valuevalue_branch + : sequence_10 + : si:valuevalue_branch + : sequence_19 + : si:value_state_merge + return + } + + :method sequence_10 {} { + # x + # '$' + # (Expression) + # '$' + + : si:void_state_push + : si:next_char \50 + : si:voidvalue_part + : sym_Expression + : si:valuevalue_part + : si:next_char \51 + : si:value_state_merge + return + } + + :method sequence_19 {} { + # x + # (Factor) + # * + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sym_Factor + : si:valuevalue_part + : kleene_17 + : si:value_state_merge + return + } + + :method kleene_17 {} { + # * + # x + # (MulOp) + # (Factor) + + while {1} { + : si:void2_state_push + : sequence_15 + : si:kleene_close + } + return + } + + :method sequence_15 {} { + # x + # (MulOp) + # (Factor) + + : si:value_state_push + : sym_MulOp + : si:valuevalue_part + : sym_Factor + : si:value_state_merge + return + } + + # + # value Symbol 'Factor' + # + + :method sym_Factor {} { + # x + # (Term) + # * + # x + # (AddOp) + # (Term) + + : si:value_symbol_start Factor + : sequence_31 + : si:reduce_symbol_end Factor + return + } + + :method sequence_31 {} { + # x + # (Term) + # * + # x + # (AddOp) + # (Term) + + : si:value_state_push + : sym_Term + : si:valuevalue_part + : kleene_29 + : si:value_state_merge + return + } + + :method kleene_29 {} { + # * + # x + # (AddOp) + # (Term) + + while {1} { + : si:void2_state_push + : sequence_27 + : si:kleene_close + } + return + } + + :method sequence_27 {} { + # x + # (AddOp) + # (Term) + + : si:value_state_push + : sym_AddOp + : si:valuevalue_part + : sym_Term + : si:value_state_merge + return + } + + # + # value Symbol 'Function' + # + + :method sym_Function {} { + # (Sinus) + + : si:value_symbol_start Function + : sym_Sinus + : si:reduce_symbol_end Function + return + } + + # + # value Symbol 'MulOp' + # + + :method sym_MulOp {} { + # [*/] + + : si:void_symbol_start MulOp + : si:next_class */ + : si:void_leaf_symbol_end MulOp + return + } + + # + # value Symbol 'Number' + # + + :method sym_Number {} { + # x + # ? + # (Sign) + # + + # (Digit) + + : si:value_symbol_start Number + : sequence_44 + : si:reduce_symbol_end Number + return + } + + :method sequence_44 {} { + # x + # ? + # (Sign) + # + + # (Digit) + + : si:value_state_push + : optional_39 + : si:valuevalue_part + : poskleene_42 + : si:value_state_merge + return + } + + :method optional_39 {} { + # ? + # (Sign) + + : si:void2_state_push + : sym_Sign + : si:void_state_merge_ok + return + } + + :method poskleene_42 {} { + # + + # (Digit) + + : i_loc_push + : sym_Digit + : si:kleene_abort + while {1} { + : si:void2_state_push + : sym_Digit + : si:kleene_close + } + return + } + + # + # value Symbol 'Sign' + # + + :method sym_Sign {} { + # [-+] + + : si:void_symbol_start Sign + : si:next_class -+ + : si:void_leaf_symbol_end Sign + return + } + + # + # value Symbol 'Sinus' + # + + :method sym_Sinus {} { + # x + # "sin$" + # (Expression) + # '$' + + : si:value_symbol_start Sinus + : sequence_52 + : si:reduce_symbol_end Sinus + return + } + + :method sequence_52 {} { + # x + # "sin$" + # (Expression) + # '$' + + : si:void_state_push + : si:next_str sin\50 + : si:voidvalue_part + : sym_Expression + : si:valuevalue_part + : si:next_char \51 + : si:value_state_merge + return + } + + # + # value Symbol 'Term' + # + + :method sym_Term {} { + # (Number) + + : si:value_symbol_start Term + : sym_Number + : si:reduce_symbol_end Term + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/3_peg_itself Index: modules/pt/tests/data/ok/peg_tclparam-nx/3_peg_itself ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/3_peg_itself @@ -0,0 +1,2413 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_Grammar + return + } + + # + # leaf Symbol 'ALNUM' + # + + :method sym_ALNUM {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start ALNUM + : sequence_4 + : si:void_leaf_symbol_end ALNUM + return + } + + :method sequence_4 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'ALPHA' + # + + :method sym_ALPHA {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start ALPHA + : sequence_9 + : si:void_leaf_symbol_end ALPHA + return + } + + :method sequence_9 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'AND' + # + + :method sym_AND {} { + # x + # '&' + # (WHITESPACE) + + : si:void_symbol_start AND + : sequence_14 + : si:void_leaf_symbol_end AND + return + } + + :method sequence_14 {} { + # x + # '&' + # (WHITESPACE) + + : si:void_state_push + : si:next_char & + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'APOSTROPH' + # + + :method sym_APOSTROPH {} { + # ''' + + : si:void_void_symbol_start APOSTROPH + : si:next_char ' + : si:void_clear_symbol_end APOSTROPH + return + } + + # + # leaf Symbol 'ASCII' + # + + :method sym_ASCII {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start ASCII + : sequence_21 + : si:void_leaf_symbol_end ASCII + return + } + + :method sequence_21 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Attribute' + # + + :method sym_Attribute {} { + # x + # / + # (VOID) + # (LEAF) + # (COLON) + + : si:value_symbol_start Attribute + : sequence_29 + : si:reduce_symbol_end Attribute + return + } + + :method sequence_29 {} { + # x + # / + # (VOID) + # (LEAF) + # (COLON) + + : si:value_state_push + : choice_26 + : si:valuevalue_part + : sym_COLON + : si:value_state_merge + return + } + + :method choice_26 {} { + # / + # (VOID) + # (LEAF) + + : si:value_state_push + : sym_VOID + : si:valuevalue_branch + : sym_LEAF + : si:value_state_merge + return + } + + # + # value Symbol 'Char' + # + + :method sym_Char {} { + # / + # (CharSpecial) + # (CharOctalFull) + # (CharOctalPart) + # (CharUnicode) + # (CharUnescaped) + + : si:value_symbol_start Char + : choice_37 + : si:reduce_symbol_end Char + return + } + + :method choice_37 {} { + # / + # (CharSpecial) + # (CharOctalFull) + # (CharOctalPart) + # (CharUnicode) + # (CharUnescaped) + + : si:value_state_push + : sym_CharSpecial + : si:valuevalue_branch + : sym_CharOctalFull + : si:valuevalue_branch + : sym_CharOctalPart + : si:valuevalue_branch + : sym_CharUnicode + : si:valuevalue_branch + : sym_CharUnescaped + : si:value_state_merge + return + } + + # + # leaf Symbol 'CharOctalFull' + # + + :method sym_CharOctalFull {} { + # x + # '\' + # range (0 .. 2) + # range (0 .. 7) + # range (0 .. 7) + + : si:void_symbol_start CharOctalFull + : sequence_44 + : si:void_leaf_symbol_end CharOctalFull + return + } + + :method sequence_44 {} { + # x + # '\' + # range (0 .. 2) + # range (0 .. 7) + # range (0 .. 7) + + : si:void_state_push + : si:next_char \134 + : si:voidvoid_part + : si:next_range 0 2 + : si:voidvoid_part + : si:next_range 0 7 + : si:voidvoid_part + : si:next_range 0 7 + : si:void_state_merge + return + } + + # + # leaf Symbol 'CharOctalPart' + # + + :method sym_CharOctalPart {} { + # x + # '\' + # range (0 .. 7) + # ? + # range (0 .. 7) + + : si:void_symbol_start CharOctalPart + : sequence_52 + : si:void_leaf_symbol_end CharOctalPart + return + } + + :method sequence_52 {} { + # x + # '\' + # range (0 .. 7) + # ? + # range (0 .. 7) + + : si:void_state_push + : si:next_char \134 + : si:voidvoid_part + : si:next_range 0 7 + : si:voidvoid_part + : optional_50 + : si:void_state_merge + return + } + + :method optional_50 {} { + # ? + # range (0 .. 7) + + : si:void2_state_push + : si:next_range 0 7 + : si:void_state_merge_ok + return + } + + # + # leaf Symbol 'CharSpecial' + # + + :method sym_CharSpecial {} { + # x + # '\' + # [nrt'\"[]\] + + : si:void_symbol_start CharSpecial + : sequence_57 + : si:void_leaf_symbol_end CharSpecial + return + } + + :method sequence_57 {} { + # x + # '\' + # [nrt'\"[]\] + + : si:void_state_push + : si:next_char \134 + : si:voidvoid_part + : si:next_class nrt'\42\133\135\134 + : si:void_state_merge + return + } + + # + # leaf Symbol 'CharUnescaped' + # + + :method sym_CharUnescaped {} { + # x + # ! + # '\' + # + + : si:void_symbol_start CharUnescaped + : sequence_64 + : si:void_leaf_symbol_end CharUnescaped + return + } + + :method sequence_64 {} { + # x + # ! + # '\' + # + + : si:void_state_push + : notahead_61 + : si:voidvoid_part + : i_input_next dot + : si:void_state_merge + return + } + + :method notahead_61 {} { + # ! + # '\' + + : i_loc_push + : si:next_char \134 + : si:void_notahead_exit + return + } + + # + # leaf Symbol 'CharUnicode' + # + + :method sym_CharUnicode {} { + # x + # "\u" + # + # ? + # x + # + # ? + # x + # + # ? + # + + : si:void_symbol_start CharUnicode + : sequence_82 + : si:void_leaf_symbol_end CharUnicode + return + } + + :method sequence_82 {} { + # x + # "\u" + # + # ? + # x + # + # ? + # x + # + # ? + # + + : si:void_state_push + : si:next_str \134u + : si:voidvoid_part + : si:next_xdigit + : si:voidvoid_part + : optional_80 + : si:void_state_merge + return + } + + :method optional_80 {} { + # ? + # x + # + # ? + # x + # + # ? + # + + : si:void2_state_push + : sequence_78 + : si:void_state_merge_ok + return + } + + :method sequence_78 {} { + # x + # + # ? + # x + # + # ? + # + + : si:void_state_push + : si:next_xdigit + : si:voidvoid_part + : optional_76 + : si:void_state_merge + return + } + + :method optional_76 {} { + # ? + # x + # + # ? + # + + : si:void2_state_push + : sequence_74 + : si:void_state_merge_ok + return + } + + :method sequence_74 {} { + # x + # + # ? + # + + : si:void_state_push + : si:next_xdigit + : si:voidvoid_part + : optional_72 + : si:void_state_merge + return + } + + :method optional_72 {} { + # ? + # + + : si:void2_state_push + : si:next_xdigit + : si:void_state_merge_ok + return + } + + # + # value Symbol 'Class' + # + + :method sym_Class {} { + # x + # (OPENB) + # * + # x + # ! + # (CLOSEB) + # (Range) + # (CLOSEB) + # (WHITESPACE) + + : si:value_symbol_start Class + : sequence_96 + : si:reduce_symbol_end Class + return + } + + :method sequence_96 {} { + # x + # (OPENB) + # * + # x + # ! + # (CLOSEB) + # (Range) + # (CLOSEB) + # (WHITESPACE) + + : si:void_state_push + : sym_OPENB + : si:voidvalue_part + : kleene_92 + : si:valuevalue_part + : sym_CLOSEB + : si:valuevalue_part + : sym_WHITESPACE + : si:value_state_merge + return + } + + :method kleene_92 {} { + # * + # x + # ! + # (CLOSEB) + # (Range) + + while {1} { + : si:void2_state_push + : sequence_90 + : si:kleene_close + } + return + } + + :method sequence_90 {} { + # x + # ! + # (CLOSEB) + # (Range) + + : si:void_state_push + : notahead_87 + : si:voidvalue_part + : sym_Range + : si:value_state_merge + return + } + + :method notahead_87 {} { + # ! + # (CLOSEB) + + : i_loc_push + : sym_CLOSEB + : si:void_notahead_exit + return + } + + # + # void Symbol 'CLOSE' + # + + :method sym_CLOSE {} { + # x + # '\)' + # (WHITESPACE) + + : si:void_void_symbol_start CLOSE + : sequence_101 + : si:void_clear_symbol_end CLOSE + return + } + + :method sequence_101 {} { + # x + # '\)' + # (WHITESPACE) + + : si:void_state_push + : si:next_char \51 + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'CLOSEB' + # + + :method sym_CLOSEB {} { + # ']' + + : si:void_void_symbol_start CLOSEB + : si:next_char \135 + : si:void_clear_symbol_end CLOSEB + return + } + + # + # void Symbol 'COLON' + # + + :method sym_COLON {} { + # x + # ':' + # (WHITESPACE) + + : si:void_void_symbol_start COLON + : sequence_108 + : si:void_clear_symbol_end COLON + return + } + + :method sequence_108 {} { + # x + # ':' + # (WHITESPACE) + + : si:void_state_push + : si:next_char : + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'COMMENT' + # + + :method sym_COMMENT {} { + # x + # '#' + # * + # x + # ! + # (EOL) + # + # (EOL) + + : si:void_void_symbol_start COMMENT + : sequence_121 + : si:void_clear_symbol_end COMMENT + return + } + + :method sequence_121 {} { + # x + # '#' + # * + # x + # ! + # (EOL) + # + # (EOL) + + : si:void_state_push + : si:next_char # + : si:voidvoid_part + : kleene_118 + : si:voidvoid_part + : sym_EOL + : si:void_state_merge + return + } + + :method kleene_118 {} { + # * + # x + # ! + # (EOL) + # + + while {1} { + : si:void2_state_push + : sequence_116 + : si:kleene_close + } + return + } + + :method sequence_116 {} { + # x + # ! + # (EOL) + # + + : si:void_state_push + : notahead_113 + : si:voidvoid_part + : i_input_next dot + : si:void_state_merge + return + } + + :method notahead_113 {} { + # ! + # (EOL) + + : i_loc_push + : sym_EOL + : si:void_notahead_exit + return + } + + # + # leaf Symbol 'CONTROL' + # + + :method sym_CONTROL {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start CONTROL + : sequence_126 + : si:void_leaf_symbol_end CONTROL + return + } + + :method sequence_126 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'DAPOSTROPH' + # + + :method sym_DAPOSTROPH {} { + # '\"' + + : si:void_void_symbol_start DAPOSTROPH + : si:next_char \42 + : si:void_clear_symbol_end DAPOSTROPH + return + } + + # + # leaf Symbol 'DDIGIT' + # + + :method sym_DDIGIT {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start DDIGIT + : sequence_133 + : si:void_leaf_symbol_end DDIGIT + return + } + + :method sequence_133 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Definition' + # + + :method sym_Definition {} { + # x + # ? + # (Attribute) + # (Identifier) + # (IS) + # (Expression) + # (SEMICOLON) + + : si:value_symbol_start Definition + : sequence_143 + : si:reduce_symbol_end Definition + return + } + + :method sequence_143 {} { + # x + # ? + # (Attribute) + # (Identifier) + # (IS) + # (Expression) + # (SEMICOLON) + + : si:value_state_push + : optional_137 + : si:valuevalue_part + : sym_Identifier + : si:valuevalue_part + : sym_IS + : si:valuevalue_part + : sym_Expression + : si:valuevalue_part + : sym_SEMICOLON + : si:value_state_merge + return + } + + :method optional_137 {} { + # ? + # (Attribute) + + : si:void2_state_push + : sym_Attribute + : si:void_state_merge_ok + return + } + + # + # leaf Symbol 'DIGIT' + # + + :method sym_DIGIT {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start DIGIT + : sequence_148 + : si:void_leaf_symbol_end DIGIT + return + } + + :method sequence_148 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'DOT' + # + + :method sym_DOT {} { + # x + # '.' + # (WHITESPACE) + + : si:void_symbol_start DOT + : sequence_153 + : si:void_leaf_symbol_end DOT + return + } + + :method sequence_153 {} { + # x + # '.' + # (WHITESPACE) + + : si:void_state_push + : si:next_char . + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'EOF' + # + + :method sym_EOF {} { + # ! + # + + : si:void_void_symbol_start EOF + : notahead_157 + : si:void_clear_symbol_end EOF + return + } + + :method notahead_157 {} { + # ! + # + + : i_loc_push + : i_input_next dot + : si:void_notahead_exit + return + } + + # + # void Symbol 'EOL' + # + + :method sym_EOL {} { + # [\n\r] + + : si:void_void_symbol_start EOL + : si:next_class \n\r + : si:void_clear_symbol_end EOL + return + } + + # + # value Symbol 'Expression' + # + + :method sym_Expression {} { + # x + # (Sequence) + # * + # x + # (SLASH) + # (Sequence) + + : si:value_symbol_start Expression + : sequence_169 + : si:reduce_symbol_end Expression + return + } + + :method sequence_169 {} { + # x + # (Sequence) + # * + # x + # (SLASH) + # (Sequence) + + : si:value_state_push + : sym_Sequence + : si:valuevalue_part + : kleene_167 + : si:value_state_merge + return + } + + :method kleene_167 {} { + # * + # x + # (SLASH) + # (Sequence) + + while {1} { + : si:void2_state_push + : sequence_165 + : si:kleene_close + } + return + } + + :method sequence_165 {} { + # x + # (SLASH) + # (Sequence) + + : si:void_state_push + : sym_SLASH + : si:voidvalue_part + : sym_Sequence + : si:value_state_merge + return + } + + # + # void Symbol 'Final' + # + + :method sym_Final {} { + # x + # "END" + # (WHITESPACE) + # (SEMICOLON) + # (WHITESPACE) + + : si:void_void_symbol_start Final + : sequence_176 + : si:void_clear_symbol_end Final + return + } + + :method sequence_176 {} { + # x + # "END" + # (WHITESPACE) + # (SEMICOLON) + # (WHITESPACE) + + : si:void_state_push + : si:next_str END + : si:voidvoid_part + : sym_WHITESPACE + : si:voidvoid_part + : sym_SEMICOLON + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Grammar' + # + + :method sym_Grammar {} { + # x + # (WHITESPACE) + # (Header) + # * + # (Definition) + # (Final) + # (EOF) + + : si:value_symbol_start Grammar + : sequence_186 + : si:reduce_symbol_end Grammar + return + } + + :method sequence_186 {} { + # x + # (WHITESPACE) + # (Header) + # * + # (Definition) + # (Final) + # (EOF) + + : si:void_state_push + : sym_WHITESPACE + : si:voidvalue_part + : sym_Header + : si:valuevalue_part + : kleene_182 + : si:valuevalue_part + : sym_Final + : si:valuevalue_part + : sym_EOF + : si:value_state_merge + return + } + + :method kleene_182 {} { + # * + # (Definition) + + while {1} { + : si:void2_state_push + : sym_Definition + : si:kleene_close + } + return + } + + # + # leaf Symbol 'GRAPH' + # + + :method sym_GRAPH {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start GRAPH + : sequence_191 + : si:void_leaf_symbol_end GRAPH + return + } + + :method sequence_191 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Header' + # + + :method sym_Header {} { + # x + # (PEG) + # (Identifier) + # (StartExpr) + + : si:value_symbol_start Header + : sequence_197 + : si:reduce_symbol_end Header + return + } + + :method sequence_197 {} { + # x + # (PEG) + # (Identifier) + # (StartExpr) + + : si:void_state_push + : sym_PEG + : si:voidvalue_part + : sym_Identifier + : si:valuevalue_part + : sym_StartExpr + : si:value_state_merge + return + } + + # + # leaf Symbol 'Ident' + # + + :method sym_Ident {} { + # x + # / + # [_:] + # + # * + # / + # [_:] + # + + : si:void_symbol_start Ident + : sequence_210 + : si:void_leaf_symbol_end Ident + return + } + + :method sequence_210 {} { + # x + # / + # [_:] + # + # * + # / + # [_:] + # + + : si:void_state_push + : choice_202 + : si:voidvoid_part + : kleene_208 + : si:void_state_merge + return + } + + :method choice_202 {} { + # / + # [_:] + # + + : si:void_state_push + : si:next_class _: + : si:voidvoid_branch + : si:next_alpha + : si:void_state_merge + return + } + + :method kleene_208 {} { + # * + # / + # [_:] + # + + while {1} { + : si:void2_state_push + : choice_206 + : si:kleene_close + } + return + } + + :method choice_206 {} { + # / + # [_:] + # + + : si:void_state_push + : si:next_class _: + : si:voidvoid_branch + : si:next_alnum + : si:void_state_merge + return + } + + # + # value Symbol 'Identifier' + # + + :method sym_Identifier {} { + # x + # (Ident) + # (WHITESPACE) + + : si:value_symbol_start Identifier + : sequence_215 + : si:reduce_symbol_end Identifier + return + } + + :method sequence_215 {} { + # x + # (Ident) + # (WHITESPACE) + + : si:value_state_push + : sym_Ident + : si:valuevalue_part + : sym_WHITESPACE + : si:value_state_merge + return + } + + # + # void Symbol 'IS' + # + + :method sym_IS {} { + # x + # "<-" + # (WHITESPACE) + + : si:void_void_symbol_start IS + : sequence_220 + : si:void_clear_symbol_end IS + return + } + + :method sequence_220 {} { + # x + # "<-" + # (WHITESPACE) + + : si:void_state_push + : si:next_str <- + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'LEAF' + # + + :method sym_LEAF {} { + # x + # "leaf" + # (WHITESPACE) + + : si:void_symbol_start LEAF + : sequence_225 + : si:void_leaf_symbol_end LEAF + return + } + + :method sequence_225 {} { + # x + # "leaf" + # (WHITESPACE) + + : si:void_state_push + : si:next_str leaf + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Literal' + # + + :method sym_Literal {} { + # / + # x + # (APOSTROPH) + # * + # x + # ! + # (APOSTROPH) + # (Char) + # (APOSTROPH) + # (WHITESPACE) + # x + # (DAPOSTROPH) + # * + # x + # ! + # (DAPOSTROPH) + # (Char) + # (DAPOSTROPH) + # (WHITESPACE) + + : si:value_symbol_start Literal + : choice_254 + : si:reduce_symbol_end Literal + return + } + + :method choice_254 {} { + # / + # x + # (APOSTROPH) + # * + # x + # ! + # (APOSTROPH) + # (Char) + # (APOSTROPH) + # (WHITESPACE) + # x + # (DAPOSTROPH) + # * + # x + # ! + # (DAPOSTROPH) + # (Char) + # (DAPOSTROPH) + # (WHITESPACE) + + : si:value_state_push + : sequence_239 + : si:valuevalue_branch + : sequence_252 + : si:value_state_merge + return + } + + :method sequence_239 {} { + # x + # (APOSTROPH) + # * + # x + # ! + # (APOSTROPH) + # (Char) + # (APOSTROPH) + # (WHITESPACE) + + : si:void_state_push + : sym_APOSTROPH + : si:voidvalue_part + : kleene_235 + : si:valuevalue_part + : sym_APOSTROPH + : si:valuevalue_part + : sym_WHITESPACE + : si:value_state_merge + return + } + + :method kleene_235 {} { + # * + # x + # ! + # (APOSTROPH) + # (Char) + + while {1} { + : si:void2_state_push + : sequence_233 + : si:kleene_close + } + return + } + + :method sequence_233 {} { + # x + # ! + # (APOSTROPH) + # (Char) + + : si:void_state_push + : notahead_230 + : si:voidvalue_part + : sym_Char + : si:value_state_merge + return + } + + :method notahead_230 {} { + # ! + # (APOSTROPH) + + : i_loc_push + : sym_APOSTROPH + : si:void_notahead_exit + return + } + + :method sequence_252 {} { + # x + # (DAPOSTROPH) + # * + # x + # ! + # (DAPOSTROPH) + # (Char) + # (DAPOSTROPH) + # (WHITESPACE) + + : si:void_state_push + : sym_DAPOSTROPH + : si:voidvalue_part + : kleene_248 + : si:valuevalue_part + : sym_DAPOSTROPH + : si:valuevalue_part + : sym_WHITESPACE + : si:value_state_merge + return + } + + :method kleene_248 {} { + # * + # x + # ! + # (DAPOSTROPH) + # (Char) + + while {1} { + : si:void2_state_push + : sequence_246 + : si:kleene_close + } + return + } + + :method sequence_246 {} { + # x + # ! + # (DAPOSTROPH) + # (Char) + + : si:void_state_push + : notahead_243 + : si:voidvalue_part + : sym_Char + : si:value_state_merge + return + } + + :method notahead_243 {} { + # ! + # (DAPOSTROPH) + + : i_loc_push + : sym_DAPOSTROPH + : si:void_notahead_exit + return + } + + # + # leaf Symbol 'LOWER' + # + + :method sym_LOWER {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start LOWER + : sequence_259 + : si:void_leaf_symbol_end LOWER + return + } + + :method sequence_259 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'NOT' + # + + :method sym_NOT {} { + # x + # '!' + # (WHITESPACE) + + : si:void_symbol_start NOT + : sequence_264 + : si:void_leaf_symbol_end NOT + return + } + + :method sequence_264 {} { + # x + # '!' + # (WHITESPACE) + + : si:void_state_push + : si:next_char ! + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'OPEN' + # + + :method sym_OPEN {} { + # x + # '\(' + # (WHITESPACE) + + : si:void_void_symbol_start OPEN + : sequence_269 + : si:void_clear_symbol_end OPEN + return + } + + :method sequence_269 {} { + # x + # '\(' + # (WHITESPACE) + + : si:void_state_push + : si:next_char \50 + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'OPENB' + # + + :method sym_OPENB {} { + # '[' + + : si:void_void_symbol_start OPENB + : si:next_char \133 + : si:void_clear_symbol_end OPENB + return + } + + # + # void Symbol 'PEG' + # + + :method sym_PEG {} { + # x + # "PEG" + # ! + # / + # [_:] + # + # (WHITESPACE) + + : si:void_void_symbol_start PEG + : sequence_281 + : si:void_clear_symbol_end PEG + return + } + + :method sequence_281 {} { + # x + # "PEG" + # ! + # / + # [_:] + # + # (WHITESPACE) + + : si:void_state_push + : si:next_str PEG + : si:voidvoid_part + : notahead_278 + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + :method notahead_278 {} { + # ! + # / + # [_:] + # + + : i_loc_push + : choice_206 + : si:void_notahead_exit + return + } + + # + # leaf Symbol 'PLUS' + # + + :method sym_PLUS {} { + # x + # '+' + # (WHITESPACE) + + : si:void_symbol_start PLUS + : sequence_286 + : si:void_leaf_symbol_end PLUS + return + } + + :method sequence_286 {} { + # x + # '+' + # (WHITESPACE) + + : si:void_state_push + : si:next_char + + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Prefix' + # + + :method sym_Prefix {} { + # x + # ? + # / + # (AND) + # (NOT) + # (Suffix) + + : si:value_symbol_start Prefix + : sequence_296 + : si:reduce_symbol_end Prefix + return + } + + :method sequence_296 {} { + # x + # ? + # / + # (AND) + # (NOT) + # (Suffix) + + : si:value_state_push + : optional_293 + : si:valuevalue_part + : sym_Suffix + : si:value_state_merge + return + } + + :method optional_293 {} { + # ? + # / + # (AND) + # (NOT) + + : si:void2_state_push + : choice_291 + : si:void_state_merge_ok + return + } + + :method choice_291 {} { + # / + # (AND) + # (NOT) + + : si:value_state_push + : sym_AND + : si:valuevalue_branch + : sym_NOT + : si:value_state_merge + return + } + + # + # value Symbol 'Primary' + # + + :method sym_Primary {} { + # / + # (ALNUM) + # (ALPHA) + # (ASCII) + # (CONTROL) + # (DDIGIT) + # (DIGIT) + # (GRAPH) + # (LOWER) + # (PRINTABLE) + # (PUNCT) + # (SPACE) + # (UPPER) + # (WORDCHAR) + # (XDIGIT) + # (Identifier) + # x + # (OPEN) + # (Expression) + # (CLOSE) + # (Literal) + # (Class) + # (DOT) + + : si:value_symbol_start Primary + : choice_322 + : si:reduce_symbol_end Primary + return + } + + :method choice_322 {} { + # / + # (ALNUM) + # (ALPHA) + # (ASCII) + # (CONTROL) + # (DDIGIT) + # (DIGIT) + # (GRAPH) + # (LOWER) + # (PRINTABLE) + # (PUNCT) + # (SPACE) + # (UPPER) + # (WORDCHAR) + # (XDIGIT) + # (Identifier) + # x + # (OPEN) + # (Expression) + # (CLOSE) + # (Literal) + # (Class) + # (DOT) + + : si:value_state_push + : sym_ALNUM + : si:valuevalue_branch + : sym_ALPHA + : si:valuevalue_branch + : sym_ASCII + : si:valuevalue_branch + : sym_CONTROL + : si:valuevalue_branch + : sym_DDIGIT + : si:valuevalue_branch + : sym_DIGIT + : si:valuevalue_branch + : sym_GRAPH + : si:valuevalue_branch + : sym_LOWER + : si:valuevalue_branch + : sym_PRINTABLE + : si:valuevalue_branch + : sym_PUNCT + : si:valuevalue_branch + : sym_SPACE + : si:valuevalue_branch + : sym_UPPER + : si:valuevalue_branch + : sym_WORDCHAR + : si:valuevalue_branch + : sym_XDIGIT + : si:valuevalue_branch + : sym_Identifier + : si:valuevalue_branch + : sequence_317 + : si:valuevalue_branch + : sym_Literal + : si:valuevalue_branch + : sym_Class + : si:valuevalue_branch + : sym_DOT + : si:value_state_merge + return + } + + :method sequence_317 {} { + # x + # (OPEN) + # (Expression) + # (CLOSE) + + : si:void_state_push + : sym_OPEN + : si:voidvalue_part + : sym_Expression + : si:valuevalue_part + : sym_CLOSE + : si:value_state_merge + return + } + + # + # leaf Symbol 'PRINTABLE' + # + + :method sym_PRINTABLE {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start PRINTABLE + : sequence_327 + : si:void_leaf_symbol_end PRINTABLE + return + } + + :method sequence_327 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'PUNCT' + # + + :method sym_PUNCT {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start PUNCT + : sequence_332 + : si:void_leaf_symbol_end PUNCT + return + } + + :method sequence_332 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'QUESTION' + # + + :method sym_QUESTION {} { + # x + # '?' + # (WHITESPACE) + + : si:void_symbol_start QUESTION + : sequence_337 + : si:void_leaf_symbol_end QUESTION + return + } + + :method sequence_337 {} { + # x + # '?' + # (WHITESPACE) + + : si:void_state_push + : si:next_char ? + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Range' + # + + :method sym_Range {} { + # / + # x + # (Char) + # (TO) + # (Char) + # (Char) + + : si:value_symbol_start Range + : choice_346 + : si:reduce_symbol_end Range + return + } + + :method choice_346 {} { + # / + # x + # (Char) + # (TO) + # (Char) + # (Char) + + : si:value_state_push + : sequence_343 + : si:valuevalue_branch + : sym_Char + : si:value_state_merge + return + } + + :method sequence_343 {} { + # x + # (Char) + # (TO) + # (Char) + + : si:value_state_push + : sym_Char + : si:valuevalue_part + : sym_TO + : si:valuevalue_part + : sym_Char + : si:value_state_merge + return + } + + # + # void Symbol 'SEMICOLON' + # + + :method sym_SEMICOLON {} { + # x + # ';' + # (WHITESPACE) + + : si:void_void_symbol_start SEMICOLON + : sequence_351 + : si:void_clear_symbol_end SEMICOLON + return + } + + :method sequence_351 {} { + # x + # ';' + # (WHITESPACE) + + : si:void_state_push + : si:next_char \73 + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'Sequence' + # + + :method sym_Sequence {} { + # + + # (Prefix) + + : si:value_symbol_start Sequence + : poskleene_355 + : si:reduce_symbol_end Sequence + return + } + + :method poskleene_355 {} { + # + + # (Prefix) + + : i_loc_push + : sym_Prefix + : si:kleene_abort + while {1} { + : si:void2_state_push + : sym_Prefix + : si:kleene_close + } + return + } + + # + # void Symbol 'SLASH' + # + + :method sym_SLASH {} { + # x + # '/' + # (WHITESPACE) + + : si:void_void_symbol_start SLASH + : sequence_360 + : si:void_clear_symbol_end SLASH + return + } + + :method sequence_360 {} { + # x + # '/' + # (WHITESPACE) + + : si:void_state_push + : si:next_char / + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'SPACE' + # + + :method sym_SPACE {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start SPACE + : sequence_365 + : si:void_leaf_symbol_end SPACE + return + } + + :method sequence_365 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'STAR' + # + + :method sym_STAR {} { + # x + # '*' + # (WHITESPACE) + + : si:void_symbol_start STAR + : sequence_370 + : si:void_leaf_symbol_end STAR + return + } + + :method sequence_370 {} { + # x + # '*' + # (WHITESPACE) + + : si:void_state_push + : si:next_char * + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # value Symbol 'StartExpr' + # + + :method sym_StartExpr {} { + # x + # (OPEN) + # (Expression) + # (CLOSE) + + : si:value_symbol_start StartExpr + : sequence_317 + : si:reduce_symbol_end StartExpr + return + } + + # + # value Symbol 'Suffix' + # + + :method sym_Suffix {} { + # x + # (Primary) + # ? + # / + # (QUESTION) + # (STAR) + # (PLUS) + + : si:value_symbol_start Suffix + : sequence_386 + : si:reduce_symbol_end Suffix + return + } + + :method sequence_386 {} { + # x + # (Primary) + # ? + # / + # (QUESTION) + # (STAR) + # (PLUS) + + : si:value_state_push + : sym_Primary + : si:valuevalue_part + : optional_384 + : si:value_state_merge + return + } + + :method optional_384 {} { + # ? + # / + # (QUESTION) + # (STAR) + # (PLUS) + + : si:void2_state_push + : choice_382 + : si:void_state_merge_ok + return + } + + :method choice_382 {} { + # / + # (QUESTION) + # (STAR) + # (PLUS) + + : si:value_state_push + : sym_QUESTION + : si:valuevalue_branch + : sym_STAR + : si:valuevalue_branch + : sym_PLUS + : si:value_state_merge + return + } + + # + # void Symbol 'TO' + # + + :method sym_TO {} { + # '-' + + : si:void_void_symbol_start TO + : si:next_char - + : si:void_clear_symbol_end TO + return + } + + # + # leaf Symbol 'UPPER' + # + + :method sym_UPPER {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start UPPER + : sequence_393 + : si:void_leaf_symbol_end UPPER + return + } + + :method sequence_393 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'VOID' + # + + :method sym_VOID {} { + # x + # "void" + # (WHITESPACE) + + : si:void_symbol_start VOID + : sequence_398 + : si:void_leaf_symbol_end VOID + return + } + + :method sequence_398 {} { + # x + # "void" + # (WHITESPACE) + + : si:void_state_push + : si:next_str void + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # void Symbol 'WHITESPACE' + # + + :method sym_WHITESPACE {} { + # * + # / + # + # (COMMENT) + + : si:void_void_symbol_start WHITESPACE + : kleene_405 + : si:void_clear_symbol_end WHITESPACE + return + } + + :method kleene_405 {} { + # * + # / + # + # (COMMENT) + + while {1} { + : si:void2_state_push + : choice_403 + : si:kleene_close + } + return + } + + :method choice_403 {} { + # / + # + # (COMMENT) + + : si:void_state_push + : si:next_space + : si:voidvoid_branch + : sym_COMMENT + : si:void_state_merge + return + } + + # + # leaf Symbol 'WORDCHAR' + # + + :method sym_WORDCHAR {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start WORDCHAR + : sequence_410 + : si:void_leaf_symbol_end WORDCHAR + return + } + + :method sequence_410 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + # + # leaf Symbol 'XDIGIT' + # + + :method sym_XDIGIT {} { + # x + # "" + # (WHITESPACE) + + : si:void_symbol_start XDIGIT + : sequence_415 + : si:void_leaf_symbol_end XDIGIT + return + } + + :method sequence_415 {} { + # x + # "" + # (WHITESPACE) + + : si:void_state_push + : si:next_str + : si:voidvoid_part + : sym_WHITESPACE + : si:void_state_merge + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/4_choice Index: modules/pt/tests/data/ok/peg_tclparam-nx/4_choice ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/4_choice @@ -0,0 +1,61 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : si:next_class abc + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/5_sequence Index: modules/pt/tests/data/ok/peg_tclparam-nx/5_sequence ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/5_sequence @@ -0,0 +1,61 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : si:next_str abc + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/6_optional Index: modules/pt/tests/data/ok/peg_tclparam-nx/6_optional ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/6_optional @@ -0,0 +1,71 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : optional_2 + return + } + + :method optional_2 {} { + # ? + # 'a' + + : si:void2_state_push + : si:next_char a + : si:void_state_merge_ok + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/7_kleene Index: modules/pt/tests/data/ok/peg_tclparam-nx/7_kleene ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/7_kleene @@ -0,0 +1,73 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : kleene_2 + return + } + + :method kleene_2 {} { + # * + # 'a' + + while {1} { + : si:void2_state_push + : si:next_char a + : si:kleene_close + } + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/8_pkleene Index: modules/pt/tests/data/ok/peg_tclparam-nx/8_pkleene ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/8_pkleene @@ -0,0 +1,76 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : poskleene_2 + return + } + + :method poskleene_2 {} { + # + + # 'a' + + : i_loc_push + : si:next_char a + : si:kleene_abort + while {1} { + : si:void2_state_push + : si:next_char a + : si:kleene_close + } + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/data/ok/peg_tclparam-nx/9_ahead Index: modules/pt/tests/data/ok/peg_tclparam-nx/9_ahead ================================================================== --- /dev/null +++ modules/pt/tests/data/ok/peg_tclparam-nx/9_ahead @@ -0,0 +1,101 @@ +## -*- tcl -*- +## +## NX-based Tcl/PARAM implementation of the parsing +## expression grammar +## +## TEMPLATE +## +## Generated from file TEST +## for user unknown +## +# # ## ### ##### ######## ############# ##################### +## Requirements + +package require Tcl 8.5 +package require nx +package require pt::rde::nx ; # NX-based implementation of the + # PARAM virtual machine + # underlying the Tcl/PARAM code + # used below. + +# # ## ### ##### ######## ############# ##################### +## + +nx::Class create PARSER -superclasses pt::rde::nx { + # # ## ### ##### ######## ############# + ## Public API + + :public method parse {channel} { + :reset $channel + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + :public method parset {text} { + :reset {} + :data $text + :MAIN ; # Entrypoint for the generated code. + return [:complete] + } + + # # ## ### ###### ######## ############# + ## BEGIN of GENERATED CODE. DO NOT EDIT. + + # + # Grammar Start Expression + # + + :method MAIN {} { + : sym_TEST + return + } + + # + # value Symbol 'TEST' + # + + :method sym_TEST {} { + # x + # & + # 'a' + # (IDENTIFIER) + + : si:void_symbol_start TEST + : sequence_6 + : si:void_leaf_symbol_end TEST + return + } + + :method sequence_6 {} { + # x + # & + # 'a' + # (IDENTIFIER) + + : si:void_state_push + : ahead_3 + : si:voidvoid_part + : i_status_fail ; # Undefined symbol 'IDENTIFIER' + : si:void_state_merge + return + } + + :method ahead_3 {} { + # & + # 'a' + + : i_loc_push + : si:next_char a + : i_loc_pop_rewind + return + } + + ## END of GENERATED CODE. DO NOT EDIT. + # # ## ### ###### ######## ############# +} + +# # ## ### ##### ######## ############# ##################### +## Ready + +package provide NX_PACKAGE 1 +# return ADDED modules/pt/tests/pt_tclparam_config_nx.tests Index: modules/pt/tests/pt_tclparam_config_nx.tests ================================================================== --- /dev/null +++ modules/pt/tests/pt_tclparam_config_nx.tests @@ -0,0 +1,52 @@ +# -*- tcl -*- +# General set of error cases regarding the number of arguments. + +test pt-tclparam-config-nx-1.0 {convert, wrong#args} -body { + pt::tclparam::configuration::nx def +} -returnCodes error -result {wrong # args: should be "pt::tclparam::configuration::nx def class pkg version cmd"} + +test pt-tclparam-config-nx-1.1 {convert, wrong#args} -body { + pt::tclparam::configuration::nx def C +} -returnCodes error -result {wrong # args: should be "pt::tclparam::configuration::nx def class pkg version cmd"} + +test pt-tclparam-config-nx-1.2 {convert, wrong#args} -body { + pt::tclparam::configuration::nx def C P +} -returnCodes error -result {wrong # args: should be "pt::tclparam::configuration::nx def class pkg version cmd"} + +test pt-tclparam-config-nx-1.3 {convert, wrong#args} -body { + pt::tclparam::configuration::nx def C P V +} -returnCodes error -result {wrong # args: should be "pt::tclparam::configuration::nx def class pkg version cmd"} + +test pt-tclparam-config-nx-2.0 {reset, wrong#args} -body { + pt::tclparam::configuration::nx def C P V C XXX +} -returnCodes error -result {wrong # args: should be "pt::tclparam::configuration::nx def class pkg version cmd"} + +# ------------------------------------------------------------------------- + +# TODO :: Tests missing for: configure/cget, reset + +# ------------------------------------------------------------------------- + +# Testing the generation of tcl/param output configured for NX. + +TestFilesProcess $mytestdir ok peg_serial-canonical peg_tclparam-nx -> n label input data expected { + test pt-tclparam-config-nx-3.$n "pt::tclparam::configuration::nx, $label, ok :- $input" -setup { + + pt::peg::to::tclparam reset + pt::peg::to::tclparam configure -name TEMPLATE + pt::peg::to::tclparam configure -file TEST + + pt::tclparam::configuration::nx def \ + PARSER NX_PACKAGE 1 \ + {pt::peg::to::tclparam configure} + + } -body { + pt::peg::to::tclparam convert $data + } -cleanup { + pt::peg::to::tclparam reset + } -result $expected +} + + +#---------------------------------------------------------------------- +unset n label input data expected Index: support/devel/sak/doc/kwic.txt ================================================================== --- support/devel/sak/doc/kwic.txt +++ support/devel/sak/doc/kwic.txt @@ -462,10 +462,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -900,10 +901,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -1046,10 +1048,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -1267,10 +1270,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -1663,10 +1667,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -1820,10 +1825,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2153,10 +2159,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2234,10 +2241,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2281,10 +2289,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2341,10 +2350,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2496,10 +2506,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -2585,10 +2596,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -3027,10 +3039,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -3194,10 +3207,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -3417,10 +3431,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] @@ -3479,10 +3494,11 @@ [manpage modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam] [manpage modules/pt/pt_peg_language.man pt::peg_language] [manpage modules/pt/pt_peg_introduction.man pt::pegrammar] [manpage modules/pt/pt_pgen.man pt::pgen] [manpage modules/pt/pt_rdengine.man pt::rde] +[manpage modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx] [manpage modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit] [manpage modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo] [manpage modules/pt/pt_util.man pt::util] [manpage modules/pt/pt_to_api.man pt_export_api] [manpage modules/pt/pt_from_api.man pt_import_api] Index: support/devel/sak/doc/manpages.txt ================================================================== --- support/devel/sak/doc/manpages.txt +++ support/devel/sak/doc/manpages.txt @@ -273,10 +273,11 @@ modules/pt/pt_pegrammar.man modules/pt/pt_pexpr_op.man modules/pt/pt_pexpression.man modules/pt/pt_pgen.man modules/pt/pt_rdengine.man +modules/pt/pt_tclparam_config_nx.man modules/pt/pt_tclparam_config_snit.man modules/pt/pt_tclparam_config_tcloo.man modules/pt/pt_to_api.man modules/pt/pt_util.man modules/rc4/rc4.man Index: support/devel/sak/doc/toc.txt ================================================================== --- support/devel/sak/doc/toc.txt +++ support/devel/sak/doc/toc.txt @@ -303,10 +303,11 @@ [item modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam {PEG Conversion. Write TCLPARAM format}] [item modules/pt/pt_peg_language.man pt::peg_language {PEG Language Tutorial}] [item modules/pt/pt_peg_introduction.man pt::pegrammar {Introduction to Parsing Expression Grammars}] [item modules/pt/pt_pgen.man pt::pgen {Parser Generator}] [item modules/pt/pt_rdengine.man pt::rde {Parsing Runtime Support, PARAM based}] +[item modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx {Tcl/PARAM, Canned configuration, NX}] [item modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit {Tcl/PARAM, Canned configuration, Snit}] [item modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo {Tcl/PARAM, Canned configuration, Tcloo}] [item modules/pt/pt_util.man pt::util {General utilities}] [item modules/pt/pt_to_api.man pt_export_api {Parser Tools Export API}] [item modules/pt/pt_from_api.man pt_import_api {Parser Tools Import API}] @@ -918,10 +919,11 @@ [item modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam {PEG Conversion. Write TCLPARAM format}] [item modules/pt/pt_peg_language.man pt::peg_language {PEG Language Tutorial}] [item modules/pt/pt_peg_introduction.man pt::pegrammar {Introduction to Parsing Expression Grammars}] [item modules/pt/pt_pgen.man pt::pgen {Parser Generator}] [item modules/pt/pt_rdengine.man pt::rde {Parsing Runtime Support, PARAM based}] +[item modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx {Tcl/PARAM, Canned configuration, NX}] [item modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit {Tcl/PARAM, Canned configuration, Snit}] [item modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo {Tcl/PARAM, Canned configuration, Tcloo}] [item modules/pt/pt_util.man pt::util {General utilities}] [item modules/pt/pt_to_api.man pt_export_api {Parser Tools Export API}] [item modules/pt/pt_from_api.man pt_import_api {Parser Tools Import API}] Index: support/devel/sak/doc/toc_cats.txt ================================================================== --- support/devel/sak/doc/toc_cats.txt +++ support/devel/sak/doc/toc_cats.txt @@ -303,10 +303,11 @@ [item modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam {PEG Conversion. Write TCLPARAM format}] [item modules/pt/pt_peg_language.man pt::peg_language {PEG Language Tutorial}] [item modules/pt/pt_peg_introduction.man pt::pegrammar {Introduction to Parsing Expression Grammars}] [item modules/pt/pt_pgen.man pt::pgen {Parser Generator}] [item modules/pt/pt_rdengine.man pt::rde {Parsing Runtime Support, PARAM based}] +[item modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx {Tcl/PARAM, Canned configuration, NX}] [item modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit {Tcl/PARAM, Canned configuration, Snit}] [item modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo {Tcl/PARAM, Canned configuration, Tcloo}] [item modules/pt/pt_util.man pt::util {General utilities}] [item modules/pt/pt_to_api.man pt_export_api {Parser Tools Export API}] [item modules/pt/pt_from_api.man pt_import_api {Parser Tools Import API}] Index: support/devel/sak/doc/toc_mods.txt ================================================================== --- support/devel/sak/doc/toc_mods.txt +++ support/devel/sak/doc/toc_mods.txt @@ -428,10 +428,11 @@ [item modules/pt/pt_peg_to_tclparam.man pt::peg::to::tclparam {PEG Conversion. Write TCLPARAM format}] [item modules/pt/pt_peg_language.man pt::peg_language {PEG Language Tutorial}] [item modules/pt/pt_peg_introduction.man pt::pegrammar {Introduction to Parsing Expression Grammars}] [item modules/pt/pt_pgen.man pt::pgen {Parser Generator}] [item modules/pt/pt_rdengine.man pt::rde {Parsing Runtime Support, PARAM based}] +[item modules/pt/pt_tclparam_config_nx.man pt::tclparam::configuration::nx {Tcl/PARAM, Canned configuration, NX}] [item modules/pt/pt_tclparam_config_snit.man pt::tclparam::configuration::snit {Tcl/PARAM, Canned configuration, Snit}] [item modules/pt/pt_tclparam_config_tcloo.man pt::tclparam::configuration::tcloo {Tcl/PARAM, Canned configuration, Tcloo}] [item modules/pt/pt_util.man pt::util {General utilities}] [item modules/pt/pt_to_api.man pt_export_api {Parser Tools Export API}] [item modules/pt/pt_from_api.man pt_import_api {Parser Tools Import API}]