ソースコードに色をつける

2010年 12月 09日

ソースコードの色付けについて調べていたらよさそうなperlモジュールを見つけたので使ってみました。

CAPNを「syntax highlight」で検索したら簡単に見つかりました。
同様の機能をもつモジュールが多数登録されていますが、その中でも「Syntax::Highlight::Engine::Kate::*」というモジュールはプラグインでC、Perl、PythonとメジャーどころからAWK、Tcl_Tk、Prolog・・・と日本国内ローカルなものは除いておよそ思いつく言語にほとんど対応しています。
星も４つ半付いているので問題なさそうです。

サンプルを元に簡単なスクリプトを書いてみます。
サンプルではｆontタグを付加しているところをspanに置き換えて、CSSでデザインをカスタマイズできるようにしました。

■スクリプト

■cssのサンプル

使い方
./hilight.pl {ソースファイル}

■上記スクリプトを表示

00001 #!/usr/bin/perl
00002 use strict;
00003 use warnings;
00004 use Syntax::Highlight::Engine::Kate::Perl;
00005
00006 my $hl = new Syntax::Highlight::Engine::Kate::Perl(
00007 substitutions => {
00008 “<“ => “<“,
00009 “>“ => “>“,
00010 “&“ => “&“,
00011 “ “ => “ “,
00012 “\t“ => “   “,
00013 “\n“ => “ \n“,
00014 },
00015 format_table => {
00016 Alert => [‘‘, ‘‘],
00017 BaseN => [‘‘, ‘‘],
00018 BString => [‘‘, ‘‘],
00019 Char => [‘‘, ‘‘],
00020 Comment => [‘‘, ‘‘],
00021 DataType => [‘‘, ‘‘],
00022 DecVal => [‘‘, ‘‘],
00023 Error => [‘‘, ‘‘],
00024 Float => [‘‘, ‘‘],
00025 Function => [‘‘, ‘‘],
00026 IString => [‘‘, ‘‘],
00027 Keyword => [‘‘, ‘‘],
00028 Normal => [‘‘, ‘‘],
00029 Operator => [‘‘, ‘‘],
00030 Others => [‘‘, ‘‘],
00031 RegionMarker => [‘‘, ‘‘],
00032 Reserved => [‘‘, ‘‘],
00033 String => [‘‘, ‘‘],
00034 Variable => [‘‘, ‘‘],
00035 Warning => [‘‘, ‘‘],
00036 },
00037 );
00038
00039 my $cnt=1;
00040 print qq|<div class=”code_perl”>\n|;
00041 while (my $in = <>) {
00042 printf (qq|%05d     %s\n| ,$cnt ,$hl->highlightText($in));
00043 $cnt++;
00044 }
00045 print qq|</div>\n|;
00046

デザインがダサいのはモジュールのせいではなく私のせいなので適当にcssを修正してください。
HTMLのタグの代わりにエスケープシーケンスを付加するようにすればコンソール上で色付きの表示できるかと思います。
今回はperlのコードで試しましたが各種言語対応できるように拡張子を判別してプラグインを切り替えるようにしたりしたら面白いかもしれません。

< 前の記事へ次の記事へ >

2024年1月23日

社内イベント★ウォーキング大会 2023秋★

#人事ブログ

ソースコードに色をつける

社内イベント★ウォーキング大会 2023秋★

＃人気の記事

＃タグ

＃アーカイブ