Return to test-input.in CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / libpdel / tmpl / test

Annotation of embedaddon/libpdel/tmpl/test/test-input.in, revision 1.1.1.1

1.1       misho       1: 
                      2: @define("nl")
                      3:        @cat("\n")
                      4: @enddef
                      5: 
                      6: @define("nop")
                      7:        @cat("\n")
                      8: @enddef
                      9: 
                     10: @define("readit")
                     11:        @output(@cat("Please enter your ", @get("arg1"), ": "))
                     12:        @flush()
                     13:        @set(@get("arg1"), @input(@get("arg2")))
                     14:        @if(@get("arg2"))
                     15:                @nl()
                     16:        @endif
                     17: @enddef
                     18: 
                     19: @nop()Hello, this is a template input test.@nl()
                     20: 
                     21: @while("1")
                     22: 
                     23:        @nl()
                     24:        @readit("username", "0")
                     25: 
                     26:        @nop()Hello @get("username"), nice to see you.@nl()
                     27: 
                     28:        @nl()
                     29:        @readit("password", "1")
                     30: 
                     31:        @if(@not(@equal(@get("username"), @get("password"))))
                     32:                @nop()Oops, your password and username must be the same.@nl()
                     33:                @nop()Please try again.@nl()
                     34:                @continue
                     35:        @endif
                     36:        @nop()OK, @get("username"), the test is over.@nl()
                     37:        @nl()
                     38:        @break
                     39: @endwhile
                     40: