Color code マークアップされたコードに色を付けるサンプル
Description

class に言語を書くことによって言語を明示し、Javascript (クライアント側) でコードに色を付けてみるテスト

このサイト用のスクリプトでは pre (現状 blockcode の代わり的なもの) と code (インライン) についてやってみてる。

Examples (and test)

インライン Digest::MD5.hexdigest("str").hex, <pre><![CDATA[<foo></foo>]]></pre>

XML 




    
        

            Namazu
            
            
                
なんだか今度は Done ま...

                
正確には追加されてるみ...

                
]]><![CDATA[<?xml-stylesheet type="text/xsl" href="/xml.xsl"?>]]>
            
        

    
]]>
Ruby 
 -:5:in

?a; ?\C-a

%q!I said, "You said, 'She said it.'"!
%!I said, "You said, 'She sa\!id it.'"!
%Q('This is it.'\n)
%Q{'This is it.'\n}
%Q<'This  it.'\n> # 括弧は一重まで
#%Q<'Thi i>t.'\n> # 括弧は一重まで
#%Q<'Thi< i>>t.'\n> # 括弧は一重まで

begin
    # body
rescue => e
    puts @cgi.header({"type" => "text/plain"})
    puts e.message
    puts e.backtrace
end]]>
ECMAScript

Javascript, JScript, ActionScript も同じ

CSS
PHP
Io
Perl 
) {
    while (s|({.*}.*){.*}|$1 |) {}
    s|{.*}| |;
    if (s|{.*| |) {
        $front = $_;
        while () {
            if (/}/) {      # コメントの終わり
                s|^|$front{|;
                redo LINE;
            }
        }
    }
    print;
}

sub require {
    local($filename) = @_;
    return 1 if $INC{$filename};
    local($realfilename,$result);
    ITER: {
        foreach $prefix (@INC) {
            $realfilename = "$prefix/$filename";
            if (-f $realfilename) {
                $result = do $realfilename;
                last ITER;
            }
        }
        die "Can't find $filename in \@INC";
    }
    die $@ if $@;
    die "$filename did not return true value" unless $result;
    $INC{$filename} = $realfilename;
    $result;
}

$pwd = (getpwuid($<))[1];
$salt = substr($pwd, 0, 2);

system "stty -echo";
print "Password: ";
chop($word = );
print "\n";
system "stty echo";

if (crypt($word, $salt) ne $pwd) {
    die "Sorry...\n";
} else {
    print "ok\n";
}]]>