From 4044247f5c9af4f01be27786b3c5d979bac2e9f0 Mon Sep 17 00:00:00 2001 From: yutaka Date: Thu, 23 Aug 2007 00:57:36 +0000 Subject: [PATCH] small arrange git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/twl_wrapsdk/trunk@245 4ee2a332-4b2b-5046-8439-1ba90f034370 --- build/libraries/camera/ARM7/convert_micron.pl | 261 +++++++++--------- build/libraries/camera/ARM7/convert_sharp.pl | 108 ++++---- 2 files changed, 180 insertions(+), 189 deletions(-) diff --git a/build/libraries/camera/ARM7/convert_micron.pl b/build/libraries/camera/ARM7/convert_micron.pl index 60ba408..ca2da76 100644 --- a/build/libraries/camera/ARM7/convert_micron.pl +++ b/build/libraries/camera/ARM7/convert_micron.pl @@ -227,124 +227,125 @@ $comp_target =~ s/\r?\n/\r\n/g; my @functions = ({name => "", data => "", comment => "", declare => ""}); # 定義ファイルデータベース -my %regmap; # map register/regmap name to the address/mask +my %regmap; # map register/regmap name to the address/mask # 定義ファイルデータベースの生成 sub regmap_init { - my %mcu; - open IN, $_[0] or die; - # search space - while() { - if (/^\[ADDR_SPACE\]/) { - while () { - last if (/^\[END\]/); - if (/^([\w\d]+)\s*=\s*\{MCU, (\d+),/) { # only MCU is supported - $mcu{$1} = $2; - } - } - } - if (/^\[REGISTERS\]/) { - my $lastreg = ""; - while () { - last if (/\[END\]/); - if (/(^[\w\d]+)\s*=\s*\{(\w+?),\s*([\w\d]+?),/) { # address entry - if ($mcu{$3}) { # MCU - $regmap{$1}{0} = sprintf("0xA%1X%02X", $mcu{$3}, hex($2)); - } - $lastreg = $1; - } - elsif (/^\s*\{([\w\d]+?),\s*(\w+?),/) { # bitfield entry - $regmap{$lastreg}{$1} = $2; - } - } - } - } - close IN; -# use Data::Dumper; -# print Dumper(\%mcu, \%regmap); + my %mcu; + open IN, $_[0] or die; + # search space + while() { + if (/^\[ADDR_SPACE\]/) { + while () { + last if /^\[END\]/; + if (/^([\w\d]+)\s*=\s*\{MCU, (\d+),/) { # only MCU is supported + $mcu{$1} = $2; + } + } + } + if (/^\[REGISTERS\]/) { + my $lastreg = ""; + while () { + last if /\[END\]/; + if (/(^[\w\d]+)\s*=\s*\{(\w+?),\s*([\w\d]+?),/) { # address entry + if ($mcu{$3}) { # MCU + $regmap{$1}{0} = sprintf("0xA%1X%02X", $mcu{$3}, hex($2)); + } + $lastreg = $1; + } + elsif (/^\s*\{([\w\d]+?),\s*(\w+?),/) { # bitfield entry + $regmap{$lastreg}{$1} = $2; + } + } + } + } + close IN; +# use Data::Dumper; +# print Dumper(\%mcu, \%regmap); } # API名の整形 sub name_conv { - $_ = $_[0]; - s/\/Option/g; - s/\%/Percent/g; - s/\-/Minus/g; - s/\+/Plus/g; - s/\>/To/g; - s/[\s\.\:\=\*\/\(\)]+/_/g; - return $_; + $_ = $_[0]; + s/\s*\\s*//g; +# s/\/Option/g; + s/\%/Percent/g; + s/\-/Minus/g; + s/\+/Plus/g; + s/\>/To/g; + s/[\s\.\:\=\*\/\(\)]+/_/g; + return $_; } # 各種コマンドのC言語への変換 sub func_conv { - my($key, $value, $comment) = @_; - my @v = split /\s*\,\s*/, $value; # split value - $comment = " " . $comment if ($comment); # insert spaces - if ($key eq "LOAD") { - return sprintf($call_format, name_conv($value), $comment); - } - elsif ($key eq "REG") { # address, value - return sprintf($reg_format, $v[0], $v[1], $comment); - } - elsif ($key eq "BITFIELD") { # address, mask, set/clear - if ($v[2]) { - return sprintf($set_format, $v[0], $v[1], $comment); - } else { - return sprintf($clear_format, $v[0], $v[1], $comment); - } - } - elsif ($key eq "DELAY") { # msec - return sprintf($delay_format, $v[0], $comment); - } - elsif ($key eq "POLL_REG") { # address, mask, condition, delay, timeout - $v[3] =~ s/DELAY\s*=\s*//; - $v[4] =~ s/TIMEOUT\s*=\s*//; - ${$functions[$#functions]}{declare} = " int timeout;\r\n"; - return sprintf($pollreg_format, $v[0], @v[1..4], $comment); - } - elsif ($key eq "VAR8") { # page, address, value - return sprintf($mcu_format, sprintf("0xA%1X%02X", $v[0], hex($v[1])), $v[2], $comment); - } - elsif ($key eq "VAR") { # page, address, value - return sprintf($mcu_format, sprintf("0x2%1X%02X", $v[0], hex($v[1])), $v[2], $comment); - } - elsif ($key eq "FIELD_WR") { # name, value OR name, mask, set/clear - if ($v[2] eq "") { - return sprintf($mcu_format, $regmap{$v[0]}{0}, $v[1], $comment); - } - if ($v[2]) { - return sprintf($fieldset_format, $regmap{$v[0]}{0}, $regmap{$v[0]}{$v[1]}, $comment); - } else { - return sprintf($fieldclear_format, $regmap{$v[0]}{0}, $regmap{$v[0]}{$v[1]}, $comment); - } - } - elsif ($key eq "POLL_FIELD") { # name, condition, delay, timeout - $v[2] =~ s/DELAY\s*=\s*//; - $v[3] =~ s/TIMEOUT\s*=\s*//; - ${$functions[$#functions]}{declare} = " int timeout;\r\n"; - return sprintf($pollfield_format, $regmap{$v[0]}{0}, @v[1..3], $comment); - } - return "// IGNORED: " . $key . "=" . $value . $comment . "\r\n"; # 未対応コマンド + my($key, $value, $comment) = @_; + my @v = split /\s*\,\s*/, $value; # split value + $comment = " " . $comment if $comment; # insert spaces + if ($key eq "LOAD") { + return sprintf($call_format, name_conv($value), $comment); + } + elsif ($key eq "REG") { # address, value + return sprintf($reg_format, $v[0], $v[1], $comment); + } + elsif ($key eq "BITFIELD") { # address, mask, set/clear + if ($v[2]) { + return sprintf($set_format, $v[0], $v[1], $comment); + } else { + return sprintf($clear_format, $v[0], $v[1], $comment); + } + } + elsif ($key eq "DELAY") { # msec + return sprintf($delay_format, $v[0], $comment); + } + elsif ($key eq "POLL_REG") { # address, mask, condition, delay, timeout + $v[3] =~ s/DELAY\s*=\s*//; + $v[4] =~ s/TIMEOUT\s*=\s*//; + ${$functions[$#functions]}{declare} = " int timeout;\r\n"; + return sprintf($pollreg_format, $v[0], @v[1..4], $comment); + } + elsif ($key eq "VAR8") { # page, address, value + return sprintf($mcu_format, sprintf("0xA%1X%02X", $v[0], hex($v[1])), $v[2], $comment); + } + elsif ($key eq "VAR") { # page, address, value + return sprintf($mcu_format, sprintf("0x2%1X%02X", $v[0], hex($v[1])), $v[2], $comment); + } + elsif ($key eq "FIELD_WR") { # name, value OR name, mask, set/clear + if ($v[2] eq "") { + return sprintf($mcu_format, $regmap{$v[0]}{0}, $v[1], $comment); + } + if ($v[2]) { + return sprintf($fieldset_format, $regmap{$v[0]}{0}, $regmap{$v[0]}{$v[1]}, $comment); + } else { + return sprintf($fieldclear_format, $regmap{$v[0]}{0}, $regmap{$v[0]}{$v[1]}, $comment); + } + } + elsif ($key eq "POLL_FIELD") { # name, condition, delay, timeout + $v[2] =~ s/DELAY\s*=\s*//; + $v[3] =~ s/TIMEOUT\s*=\s*//; + ${$functions[$#functions]}{declare} = " int timeout;\r\n"; + return sprintf($pollfield_format, $regmap{$v[0]}{0}, @v[1..3], $comment); + } + return "// IGNORED: " . $key . "=" . $value . $comment . "\r\n"; # 未対応コマンド } # 後処理 (上位API化処理) sub comp_func { - $_[0] =~ s/$comp_target/sprintf($mcu_format, $1, $3, $2 . $4)/eg; - return $_[0]; + $_[0] =~ s/$comp_target/sprintf($mcu_format, $1, $3, $2 . $4)/eg; + return $_[0]; } #ここからメイン # 引数チェック -die "USAGE: $0 INFILE [OUTFILE]\n" if ($#ARGV != 1 and $#ARGV != 0); +die "USAGE: $0 INFILE [OUTFILE]\n" if $#ARGV != 1 and $#ARGV != 0; # 各種初期化 regmap_init($register_sdat); my $infile = $ARGV[0]; my $outfile = $ARGV[1]; -($outfile = $infile) =~ s/\.ini$/.autogen.c/ unless ($outfile); +($outfile = $infile) =~ s/\.ini$/.autogen.c/ unless $outfile; # 入出力ファイルのオープン (両方オープンしておく) open IN, $infile or die "Cannot open the input file!\n"; @@ -352,28 +353,28 @@ open OUT, ">", $outfile or die "Cannot open the output file!\n"; # 入力処理 while () { - my $comment = ""; - s/[\r\n]+$//; # delete \r and/or \n - if (s/(\;|\/\/)(.*)//) { # コメント抽出 - $comment = $1 . $2; - } - if (/\s*\[(.+)\]/) { # API検出 - push @functions, {name => name_conv($1), data => "", comment => "", declare => ""}; - } - elsif (/\s*(.+?)\s*\=\s*(.+?)\s*$/) { # コマンド検出 - # コマンドの手前にコメントがあった場合は、dataに移動させる - ${$functions[$#functions]}{data} .= ${$functions[$#functions]}{comment}; - ${$functions[$#functions]}{comment} = ""; - # コマンドをC言語に変換してdataに追加 - ${$functions[$#functions]}{data} .= func_conv($1, $2, $comment); - } - elsif (/\S+/) { # 未知入力行検出 (コメント扱い (エラーにすべきかも)) - warn "UNKNOWN STATEMENT: <<", $_, ">>\n"; - ${$functions[$#functions]}{comment} .= "// " . $_ . $comment . "\r\n"; - } - elsif ($comment) { # コメントのみ - ${$functions[$#functions]}{comment} .= "// " . $comment . "\r\n"; - } + my $comment = ""; + s/[\r\n]+$//; # delete \r and/or \n + if (s/(\;|\/\/)(.*)//) { # コメント抽出 + $comment = $1 . $2; + } + if (/\s*\[(.+)\]/) { # API検出 + push @functions, {name => name_conv($1), data => "", comment => "", declare => ""}; + } + elsif (/\s*(.+?)\s*\=\s*(.+?)\s*$/) { # コマンド検出 + # コマンドの手前にコメントがあった場合は、dataに移動させる + ${$functions[$#functions]}{data} .= ${$functions[$#functions]}{comment}; + ${$functions[$#functions]}{comment} = ""; + # コマンドをC言語に変換してdataに追加 + ${$functions[$#functions]}{data} .= func_conv($1, $2, $comment); + } + elsif (/\S+/) { # 未知入力行検出 (コメント扱い (エラーにすべきかも)) + warn "UNKNOWN STATEMENT: <<", $_, ">>\n"; + ${$functions[$#functions]}{comment} .= "// " . $_ . $comment . "\r\n"; + } + elsif ($comment) { # コメントのみ + ${$functions[$#functions]}{comment} .= "// " . $comment . "\r\n"; + } } # 入力処理終了 close IN; @@ -382,25 +383,25 @@ close IN; #print Dumper(\@functions); # 出力処理 -$outfile =~ s/^.*[\\\/]//; # get basename to print -printf OUT $file_head_format, $outfile; # ファイルヘッダ出力 -foreach my $func ( @functions ) { # 検出済みAPIの宣言 - printf OUT $declare_format, $$func{name} if ($$func{name}); +$outfile =~ s/^.*[\\\/]//; # get basename to print +printf OUT $file_head_format, $outfile; # ファイルヘッダ出力 +foreach my $func ( @functions ) { # 検出済みAPIの宣言 + printf OUT $declare_format, $$func{name} if $$func{name}; } printf OUT "\r\n"; -foreach my $func ( @functions ) { # API本体の出力 - if ($$func{name}) { # 最初のAPIより前の場合を除く - printf OUT $func_head_format, $$func{name}; # API名＆開き括弧の出力 - print OUT "#pragma unused(camera)\r\n" unless ($$func{data} =~ /camera/); # warning防止 - print OUT $$func{declare}, "\r\n" if ($$func{declare}); # 変数宣言 (if any) - } - print OUT comp_func($$func{data}); # 本体の後処理＋出力 - if ($$func{name}) { # 最初のAPIより前の場合を除く - printf OUT $func_foot_format ; # 閉じ括弧出力 - } - print OUT $$func{comment}; # 最後のコメントの出力 (たいてい次のAPIのためのもの) +foreach my $func ( @functions ) { # API本体の出力 + if ($$func{name}) { # 最初のAPIより前の場合を除く + printf OUT $func_head_format, $$func{name}; # API名＆開き括弧の出力 + print OUT "#pragma unused(camera)\r\n" unless $$func{data} =~ /\bcamera\b/; # warning防止 + print OUT $$func{declare}, "\r\n" if $$func{declare}; # 変数宣言 (if any) + } + print OUT comp_func($$func{data}); # 本体の後処理＋出力 + if ($$func{name}) { # 最初のAPIより前の場合を除く + printf OUT $func_foot_format ; # 閉じ括弧出力 + } + print OUT $$func{comment}; # 最後のコメントの出力 (たいてい次のAPIのためのもの) } -printf OUT $file_foot_format; # ファイルフッタ出力 +printf OUT $file_foot_format; # ファイルフッタ出力 # 出力処理終了 close OUT; diff --git a/build/libraries/camera/ARM7/convert_sharp.pl b/build/libraries/camera/ARM7/convert_sharp.pl index ec37231..6040f4b 100644 --- a/build/libraries/camera/ARM7/convert_sharp.pl +++ b/build/libraries/camera/ARM7/convert_sharp.pl @@ -71,47 +71,44 @@ $multi_foot_format =~ s/\r?\n/\r\n/g; my $row_nums = 8; sub sprint_command { - my($addr, @value) = @_; - if (@value == 1) { # シングルライトは別枠 - return sprintf($single_format, $addr, $value[0]); - } - my $result = $multi_head_format; # これ以降はバーストライト - for (my $i = 0; $i < @value; $i++) - { - if (($i % $row_nums) == 0) { - $result .= " " ; - } else { - $result .= " " ; - } - $result .= sprintf("0x%02X,", $value[$i]); - if (($i % $row_nums) == ($row_nums - 1) ) { - $result .= "\r\n"; - } - } - if ((@value % $row_nums) != 0) { - $result .= "\r\n"; - } - $result .= sprintf($multi_foot_format, $addr, scalar(@value)); - return $result; + my($addr, @value) = @_; + return sprintf($single_format, $addr, $value[0]) if @value == 1; # シングルライトは別枠 + my $result = $multi_head_format; # これ以降はバーストライト + for (my $i = 0; $i < @value; $i++) { + if ($i % $row_nums == 0) { + $result .= " " ; + } else { + $result .= " " ; + } + $result .= sprintf("0x%02X,", $value[$i]); + if ($i % $row_nums == $row_nums - 1) { + $result .= "\r\n"; + } + } + if (@value % $row_nums != 0) { + $result .= "\r\n"; + } + $result .= sprintf($multi_foot_format, $addr, scalar(@value)); + return $result; } +#ここからメイン + # # データはいったんキャッシュして、連続アドレスをバーストライトに書き換える # -my $comment; # コメントキャッシュ -my @cache; # キャッシュデータ -my $start = -1; # キャッシュの先頭アドレス -my @output; # 出力データ - -#ここからメイン +my $comment; # コメントキャッシュ +my @cache; # キャッシュデータ +my $start = -1; # キャッシュの先頭アドレス +my @output; # 出力データ # 引数チェック -die "USAGE: $0 INFILE [OUTFILE]\n" if ($#ARGV != 1 and $#ARGV != 0); +die "USAGE: $0 INFILE [OUTFILE]\n" if $#ARGV != 1 and $#ARGV != 0; # 各種初期化 my $infile = $ARGV[0]; my $outfile = $ARGV[1]; -($outfile = $infile) =~ s/\.dat$/.autogen.c/ unless ($outfile); +($outfile = $infile) =~ s/\.dat$/.autogen.c/ unless $outfile; # 入出力ファイルのオープン (両方オープンしておく) open IN, $infile or die "Cannot open the input file!\n"; @@ -119,42 +116,35 @@ open OUT, ">", $outfile or die "Cannot open the output file!\n"; # 入力処理 while () { - s/[\r\n]+$//; # delete \r and/or \n - s|\#|// |g; # change comment sign - if (s|(//.*)||) { # コメント抽出 - $comment .= " $1\r\n"; # 独立行として出力予定 - } + s/[\r\n]+$//; # delete \r and/or \n + s|\#|// |g; # change comment sign + $comment .= " $1\r\n" if s|(//.*)||; # コメント抽出(独立行として出力予定) - if (/\s*([\w\d]{2})\s+([\w\d]{2})/) { # データ抽出 - my ($addr, $value) = (hex($1), hex($2)); - if ($addr != $start + @cache) # アドレスが連続していないなら - { # 直前までを出力 - push @output, sprint_command($start, @cache) if (@cache); - @cache = ($value); # 最新の値だけのエントリにする - $start = $addr; - } else { # アドレスが連続しているなら - push @cache, $value; # 値を追記 - } - push @output, $comment; # このタイミングでコメント出力 - $comment = ""; - } - elsif (/\S/) { # 未知入力行検出 (エラーにすべきかも) - warn "UNKNOWN STATEMENT: <<", $_, ">>\n"; - } + if (/\s*([\w\d]{2})\s+([\w\d]{2})/) { # データ抽出 + my ($addr, $value) = (hex($1), hex($2)); + if ($addr != $start + @cache) { # アドレスが連続していないなら + push @output, sprint_command($start, @cache) if (@cache); # 直前までを出力 + @cache = ($value); # 最新の値だけのエントリにする + $start = $addr; + } else { # アドレスが連続しているなら + push @cache, $value; # 値を追記 + } + push @output, $comment; # このタイミングでコメント出力 + $comment = ""; + } + elsif (/\S/) { # 未知入力行検出 (エラーにすべきかも) + warn "UNKNOWN STATEMENT: <<", $_, ">>\n"; + } } # 最終行処理 -push @output, sprint_command($start, @cache) if (@cache); +push @output, sprint_command($start, @cache) if @cache; # 入力処理終了 close IN; -for (my $i = 0; $i < @output; $i++) { - $output[$i] =~ s/\r?\n/\r\n/g; -} - # 出力処理 -$outfile =~ s/^.*[\\\/]//; # get basename to print -printf OUT $file_head_format, $outfile; # ファイルヘッダ出力 +$outfile =~ s/^.*[\\\/]//; # get basename to print +printf OUT $file_head_format, $outfile; # ファイルヘッダ出力 print OUT @output; -printf OUT $file_foot_format; # ファイルフッタ出力 +printf OUT $file_foot_format; # ファイルフッタ出力 # 出力処理終了 close OUT;