Initial Alpine Version

1 files changed, 101 insertions, 0 deletions

diff --git a/web/src/cgi.tcl-1.10/example/format-tour.cgi b/web/src/cgi.tcl-1.10/example/format-tour.cgi
new file mode 100755
index 00000000..b399279f
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/format-tour.cgi
@@ -0,0 +1,101 @@
+#!/depot/path/tclsh
+
+# This is a CGI script that shows a selection of format elements
+
+package require cgi
+
+cgi_eval {
+    source example.tcl
+
+    cgi_title "A Tour of HTML Elements"
+    cgi_body {
+
+	definition_list {
+	    term "term"
+	    term_definition "definition of term"
+	}
+
+	h4 "menu list"
+	menu_list {
+	    li item1
+	    li item2
+	}
+
+	h4 "directory list"
+	directory_list {
+	    li item1
+	    li item2
+	}
+
+	h4 "a list item by itself"
+	li "item"
+
+	h4 "number list (roman, starting from 4)"
+	number_list type=i value=4 {
+	    li "first element"
+	    li "second"
+	    li value=9 "third, start numbering from 9"
+	    li type=A "fourth, switch to upper-arabic"
+	}
+
+	h4 "bullet list"
+	bullet_list {
+	    p "plain text"
+	    li "plain item"
+	    h4 "nested list (disc, starting from 4)"
+	    bullet_list type=disc value=4 {
+		li "first element"
+		li "second"
+		li type=circle "third, type=circle"
+		li type=square "fourth, type=square"
+		li "fifth, should remain square"
+	    }
+	}
+
+	h4 "Character formatting samples"
+	cgi_put "[bold bold]\
+		[italic italic]\
+		[underline underline]\
+		[strikeout strikeout]\
+		[subscript subscript]\
+		[superscript superscript]\
+		[typewriter typewriter]\
+		[blink blink]
+	[emphasis emphasis]\
+		[strong strong]\
+		[cite cite]\
+		[sample sample]\
+		[keyboard keyboard]\
+		[variable variable]\
+		[definition definition]\
+		[big big]\
+		[small small]\
+		[font color=#4499cc "color=#4499cc"]\
+		"
+	for {set i 1} {$i<8} {incr i} {
+	    puts [cgi_font size=$i "size=$i"]
+	}
+
+	h4 "Paragraph formatting samples"
+
+	cgi_h1 h1
+	cgi_h2 h2
+	cgi_h3 h3
+	cgi_h4 h4
+	cgi_h5 h5
+	cgi_h6 h6
+	cgi_h7 "h7 (beyond the spec, what the heck)"
+	cgi_h6 align=right "right-aligned h6"
+	cgi_p align=right "right-aligned paragraph"
+	cgi_put put
+	cgi_blockquote "blockquote"
+	cgi_address address
+	cgi_division {
+	    puts "division"
+	}
+	cgi_preformatted {
+	    puts "preformatted"
+	}
+    }
+}
+