47dcf5fc27 2019-05-01 rkeene: #! /usr/bin/env tclsh
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: namespace eval ::minirivet {}
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: proc ::minirivet::parseString {string} {
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: set fixMap [list]
47dcf5fc27 2019-05-01 rkeene: foreach char [list "\{" "\}" "\\"] {
47dcf5fc27 2019-05-01 rkeene: lappend fixMap $char "\}; puts -nonewline \"\\$char\"; puts -nonewline \{"
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: set code ""
47dcf5fc27 2019-05-01 rkeene: while {$string ne ""} {
47dcf5fc27 2019-05-01 rkeene: set endIndex [string first "<?" $string]
47dcf5fc27 2019-05-01 rkeene: if {$endIndex == -1} {
47dcf5fc27 2019-05-01 rkeene: set endIndex [expr {[string length $string] + 1}]
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: append code "puts -nonewline \{" [string map $fixMap [string range $string 0 $endIndex-1]] "\}; "
47dcf5fc27 2019-05-01 rkeene: set string [string range $string $endIndex end]
47dcf5fc27 2019-05-01 rkeene: set endIndex [string first "?>" $string]
47dcf5fc27 2019-05-01 rkeene: if {$endIndex == -1} {
47dcf5fc27 2019-05-01 rkeene: set endIndex [expr {[string length $string] + 1}]
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: set work [string range $string 0 2]
47dcf5fc27 2019-05-01 rkeene: if {$work eq "<?="} {
47dcf5fc27 2019-05-01 rkeene: set startIndex 3
47dcf5fc27 2019-05-01 rkeene: append code "puts -nonewline [string trim [string range $string 3 $endIndex-1]]; "
47dcf5fc27 2019-05-01 rkeene: } else {
47dcf5fc27 2019-05-01 rkeene: append code [string range $string 2 $endIndex-1] "\n"
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: set string [string range $string $endIndex+2 end]
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: tailcall namespace eval ::request $code
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: proc ::minirivet::parse {file} {
47dcf5fc27 2019-05-01 rkeene: set fd [open $file]
47dcf5fc27 2019-05-01 rkeene: set data [read $fd]
47dcf5fc27 2019-05-01 rkeene: close $fd
47dcf5fc27 2019-05-01 rkeene: tailcall parseString $data
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: package provide minirivet 1