Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 152 insertions, 0 deletions

diff --git a/htc/html.htc b/htc/html.htc
new file mode 100644
index 0000000..bd96870
--- /dev/null
+++ b/htc/html.htc
@@ -0,0 +1,152 @@
+\const{icons}{/icons}
+\const{space}{ }
+\const{lt}{<}
+\const{gt}{>}
+\def{indent}{x}{\for(i:=0)(i<\1)(i+=1){\space}}
+\def{option}{?xx}{
+  %<options>{value}{desc}
+  <option\on.arg{0}{ \0} value=\cdata{\1}>
+  \2
+}
+\def{select}{xx*}{
+  %{name}{selected}<optname><optval>..
+  <select name=\1>
+  \if(\args>2){
+    \for(i:=3)(i<=\args)(i+=2){
+      <option\if(\arg(i) eq \2){ selected} value=\cdata{\arg(i)}>
+      \arg(i+1)
+    }
+  }{
+    \2
+  }
+  </select>
+}
+\def{button}{?x}{
+  %[option]{value}
+  <input type=submit name=\on.arg{0}{\0}{cmd} value=\cdata{\1}>
+}
+\def{variable}{xx}{
+  %{name}{value}  
+  <input type=hidden name=\1 value=\cdata{\2}>
+}
+\def{radio}{xx?}{
+  %{name}{value}[bool]
+  <input type=radio name=\1 value=\cdata{\2}\if{\0}{ checked}>
+}
+\def{target}{x}{}
+\def{href}{xx}{
+  %{uri}{name}
+  <a href=\cdata{\1}\target{\1}>\2</a>
+}
+\def{iref}{xx}{
+  %{uri}{image}
+  <a href=\cdata{\1}\target{\1}><img border=0 src=\cdata{\2}></a>
+}
+\def{form}{?x}{
+  %<uri>{body}
+  <form method=post action=/POST\on.arg{0}{\0}{\req.uri}\target{\0}>
+  \1
+  </form>
+}
+\def{form.multi}{?x}{
+  %{body}
+  <form method=post enctype=multipart/form-data action=/POST\on.arg{0}{\0}{\req.uri}\target{\0}>
+  \1
+  </form>
+}
+\def{input}{xx?}{
+  %{name}{size}[value]
+  <input type=text name=\1 size=\2\on.arg{0}{ value=\cdata{\0}}>
+}
+\def{passwd}{xx?}{
+  %{name}{size}[value]
+  <input type=password name=\1 size=\2\on.arg{0}{ value=\cdata{\0}}>
+}
+\def{check}{xx?}{
+  %{name}{value}[bool]
+  <input type=checkbox name=\1 value=\cdata{\2}\if{\0}{ checked}>
+}
+\def{file}{?xx}{
+  %{name}{size}[value]
+  <input type=file\on.arg{0}{ accept=\cdata{\0}} name=\1 size=\2>
+}
+\def{text}{xxx?}{
+  %{name}{row}{col}[value]
+  <textarea name=\1 rows=\2 cols=\3>
+  \mask.html{\4}
+  </textarea>
+}
+\def{image}{?x}{
+  %[options]{body}
+  <img\on.arg{0}{ \0} src=\cdata{\1}>
+}
+\def{table}{?x}{
+  %[options]{body}
+  <table\on.arg{0}{ \0}>
+  \1
+  </table>
+}
+\def{th}{?x}{
+  %[options]{body}
+  <th\on.arg{0}{ \0}>
+  \1
+  </th>
+}
+\def{tr}{?x}{
+  %[options]{body}
+  <tr\on.arg{0}{ \0}>
+  \1
+  </tr>
+}
+\def{td}{?x}{
+  %[options]{body}
+  <td\on.arg{0}{ \0}>\on.arg{1}{\1}{\space}</td>
+}
+\def{font}{?x}{
+  %[options]{body}
+  <font\on.arg{0}{ \0}>\1</font>
+}
+\def{ul}{?x}{
+  %[options]{body}
+  <ul\on.arg{0}{ \0}>
+  \1
+  </ul>
+}
+\def{li}{?x}{
+  %[options]{body}
+  <li\on.arg{0}{ \0}>\1</li>
+}
+\def{h1}{?x}{
+  %[options]{body}
+  <h1\on.arg{0}{ \0}>\1</h1>
+}
+\def{h2}{?x}{
+  %[options]{body}
+  <h2\on.arg{0}{ \0}>\1</h2>
+}
+\def{h3}{?x}{
+  %[options]{body}
+  <h3\on.arg{0}{ \0}>\1</h3>
+}
+\def{h4}{?x}{
+  %[options]{body}
+  <h4\on.arg{0}{ \0}>\1</h4>
+}
+\def{h5}{?x}{
+  %[options]{body}
+  <h5\on.arg{0}{ \0}>\1</h5>
+}
+\def{h6}{?x}{
+  %[options]{body}
+  <h6\on.arg{0}{ \0}>\1</h6>
+}
+\def{center}{?x}{
+  %[options]{body}
+  <center\on.arg{0}{ \0}>\1</center>
+}
+\def{body}{?x}{
+  %[options]{body}
+  <body\on.arg{0}{ \0}>
+  \1
+  </body>
+}