CS-Notes/docs/_style/prism-master/examples/prism-tcl.html

26 lines
535 B
HTML
Raw Normal View History

2018-12-19 14:09:39 +08:00
<h2>Comments</h2>
<pre><code># This is a comment</code></pre>
<h2>Strings</h2>
<pre><code>"foo \"bar\" baz"
"foo\
bar\
baz"</code></pre>
<h2>Variables</h2>
<pre><code>$foo
$foo::bar_42
$::baz
${foobar}
set foo::bar "baz"</code></pre>
<h2>Functions</h2>
<pre><code>proc foobar {baz} {
puts $baz
}
proc RESTORE/post/:post_id/comment/:comment_id {post_id comment_id} {
#| Restore a comment handler
comment_restore $comment_id
qc::actions redirect [url "/post/$post_id" show_deleted_comment_ids $comment_id]
}</code></pre>