From 50995e2ab274c7bdaa6f5c3d5702fe1a2abdb94d Mon Sep 17 00:00:00 2001
From: yutaka <yutaka@4ee2a332-4b2b-5046-8439-1ba90f034370>
Date: Mon, 6 Aug 2007 10:46:17 +0000
Subject: [PATCH] force to create \r\n format file

git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/twl_wrapsdk/trunk@217 4ee2a332-4b2b-5046-8439-1ba90f034370
---
 build/libraries/camera/ARM7/convert_micron.pl | 19 +++++++++++++++++++
 build/libraries/camera/ARM7/convert_sharp.pl  | 11 +++++++++++
 2 files changed, 30 insertions(+)

diff --git a/build/libraries/camera/ARM7/convert_micron.pl b/build/libraries/camera/ARM7/convert_micron.pl
index ecf6c27..60ba408 100644
--- a/build/libraries/camera/ARM7/convert_micron.pl
+++ b/build/libraries/camera/ARM7/convert_micron.pl
@@ -199,6 +199,25 @@ my $comp_target =<<'EOF';
     \}
 EOF
 
+# 改行調整
+$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別データベース
 #    name: API名 (最初のAPIより手前は無名)
 #    data: API本体 (文字列の結合形式)
diff --git a/build/libraries/camera/ARM7/convert_sharp.pl b/build/libraries/camera/ARM7/convert_sharp.pl
index 69d2827..ec37231 100644
--- a/build/libraries/camera/ARM7/convert_sharp.pl
+++ b/build/libraries/camera/ARM7/convert_sharp.pl
@@ -62,6 +62,13 @@ my $multi_foot_format =<<'EOF';
     }
 EOF
 
+# 改行調整
+$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;
 sub sprint_command {
 	my($addr, @value) = @_;
@@ -140,6 +147,10 @@ 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;		# ファイルヘッダ出力