From cecb9698c8c3cf8b82df3e54f4cb7edb1be0a2b3 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Tue, 30 Dec 2008 19:21:57 +0100
Subject: tibtoa: -i to indent

---
 bin/tibtoa | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/tibtoa b/bin/tibtoa
index 35055eb..e1f8871 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -3,12 +3,15 @@ use strict;
 use feature 'switch';
 use warnings;
 use utf8;
+use Getopt::Std;
+
 binmode(STDOUT, ':utf8');
 my ($char, $char2);
 my $out;
 my $cache;
 my $hex;
 my ($indent, $rindent);
+my %opts;
 my %all = (
 	0x01 => '►DMS',
 	0x02 => '►Dec',
@@ -606,6 +609,8 @@ my $special = {
 	},
 };
 
+getopts('i', \%opts);
+
 open(PRGM, '<', shift) or die;
 # Remove header added by tilp2
 seek(PRGM, 74, 0);
@@ -622,13 +627,15 @@ while(read(PRGM, $char, 1)) {
 		warn(sprintf('Unknown byte: %2x', $char));
 		$out = chr($char);
 	}
-	if ($out =~ /Then|While|Repeat|For/) {
-		$indent++;
-	} elsif ($out =~ /Else/) {
-		$rindent--;
-	} elsif ($out =~ /End/) {
-		$indent--;
-		$rindent--;
+	if ($opts{i}) {
+		if ($out =~ /Then|While|Repeat|For/) {
+			$indent++;
+		} elsif ($out =~ /Else/) {
+			$rindent--;
+		} elsif ($out =~ /End/) {
+			$indent--;
+			$rindent--;
+		}
 	}
 	$cache .= $out;
 	if ($out eq "\n") {
-- 
cgit v1.2.3