119 lines (104 with data), 3.7 kB
# Copyright © 2008 Bruce Frederiksen
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
Did you eat $meal?
$ans = yn
How many hours has it been since you last ate?
$ans = integer(0-48)
How many miles did you travel to get to $dest?
$ans = number(0.1-3000)
What did you pay for $object?
$price = float
What's your name?
- Please don't enter a fictitious (screen) name.
$name = string(2-40)
Enter your two digit state code.
$state = string('uppercase'[uppercase]/[A-Z][A-Z]/)
How old are you?
$years = integer(1-130)
How old are you?
$period_of_life = integer(child=1-12 |
Can you answer a question
that is several lines long?
$ans = yn
True ! Correct! This is true because the
sky is blue!
False ! Nope! Remember that the sky is blue!
How much wood would a woodchuck chuck if a woodchuck could chuck wood?
$ans = integer(0-100)
-10 ! more than that!
10-20 ! bingo!
21- ! I guess they're not as strong as you think ...
another_question($arg1, $arg2, $ans)
question text with $arg1 stuff in it.
on multiple lines
- possibly indented
- for who knows what reason...
- maybe for $arg2?
$ans = select_1
1: prompt for this selection with $arg2 in it too
which can span multiple lines
- and be indented ...
! Nope! Remember that the sky is blue!
2: next prompt
! =1 # same review as 1:
3: pick me! pick me!!!
! Correct! You certainly know about $arg1!
yep, multiple review lines too...
- and indented...
Which of these problems are you experiencing?
- select all that apply
$list = select_n
boot: The system won't boot.
os: I hate Windows!
internet: I can't connect to the internet.
slow: The system is running too slow.
ouch: Help! I've fallen and I can't get up!
freeze: The system freezes or does not respond to input.
printer: The printer doesn't work.
senile: What's email?