rvtr/twl_wrapsdk
1
Fork 0
mirror of https://github.com/rvtr/twl_wrapsdk.git synced 2025-10-31 06:11:10 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

force to create \r\n format file

Browse Source 
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/twl_wrapsdk/trunk@217 4ee2a332-4b2b-5046-8439-1ba90f034370
This commit is contained in:
yutaka 2007-08-06 10:46:17 +00:00
parent 67c05207b6
commit 50995e2ab2
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
build/libraries/camera/ARM7/convert_micron.pl
View File

@ -199,6 +199,25 @@ my $comp_target =<<'EOF';
\} \}
EOF EOF
# ‰ü<E280B0>s’²<E28099>®
$file_head_format =~ s/\r?\n/\r\n/g;
$file_foot_format =~ s/\r?\n/\r\n/g;
$declare_format =~ s/\r?\n/\r\n/g;
$func_head_format =~ s/\r?\n/\r\n/g;
$func_foot_format =~ s/\r?\n/\r\n/g;
$call_format =~ s/\r?\n/\r\n/g;
$reg_format =~ s/\r?\n/\r\n/g;
$set_format =~ s/\r?\n/\r\n/g;
$clear_format =~ s/\r?\n/\r\n/g;
$delay_format =~ s/\r?\n/\r\n/g;
$pollreg_format =~ s/\r?\n/\r\n/g;
$mcu_format =~ s/\r?\n/\r\n/g;
$fieldset_format =~ s/\r?\n/\r\n/g;
$fieldclear_format =~ s/\r?\n/\r\n/g;
$pollfield_format =~ s/\r?\n/\r\n/g;
$comp_target =~ s/\r?\n/\r\n/g;
# API別データベース # API別データベース
# name: API名 (最初のAPIより手前は無名) # name: API名 (最初のAPIより手前は無名)
# data: API本体 (文字列の結合形式) # data: API本体 (文字列の結合形式)

11
build/libraries/camera/ARM7/convert_sharp.pl
View File

@ -62,6 +62,13 @@ my $multi_foot_format =<<'EOF';
} }
EOF EOF
# ‰ü<E280B0>s’²<E28099>®
$file_head_format =~ s/\r?\n/\r\n/g;
$file_foot_format =~ s/\r?\n/\r\n/g;
$single_format =~ s/\r?\n/\r\n/g;
$multi_head_format =~ s/\r?\n/\r\n/g;
$multi_foot_format =~ s/\r?\n/\r\n/g;
my $row_nums = 8; my $row_nums = 8;
sub sprint_command { sub sprint_command {
my($addr, @value) = @_; my($addr, @value) = @_;
@ -140,6 +147,10 @@ push @output, sprint_command($start, @cache) if (@cache);
# 入力処理終了 # 入力処理終了
close IN; close IN;
for (my $i = 0; $i < @output; $i++) {
$output[$i] =~ s/\r?\n/\r\n/g;
}
# 出力処理 # 出力処理
$outfile =~ s/^.*[\\\/]//; # get basename to print $outfile =~ s/^.*[\\\/]//; # get basename to print
printf OUT $file_head_format, $outfile; # ファイルヘッダ出力 printf OUT $file_head_format, $outfile; # ファイルヘッダ出力