+ bs: if & else

+ llbs: not
@ fixed some bugs

src/bs/bs.pl

@@ -589,15 +589,37 @@ sub do_gen_code
 			my $end   = &alloc_func;
 
 			gen("go\t\t$while");
-			$fcurrent = $while;
 
+			$fcurrent = $while;
 			do_gen_code($p{cond});
 			gen("while\t$body, $end");
 			$var_offset--;
-			$fcurrent = $body;
 
+			$fcurrent = $body;
 			do_gen_code($p{body});
 			gen("go\t\t$while");
+
+			$fcurrent = $end;
+			last;
+		};
+
+		/^IF$/ and do {
+			my $then = &alloc_func;
+			my $else = &alloc_func if $p{else};
+			my $end  = &alloc_func;
+
+			do_gen_code($p{cond});
+			gen("if\t$then, " . ($else ? "$else, " : "") . "$end");
+			$var_offset--;
+
+			$fcurrent = $then;
+			do_gen_code($p{then});
+
+			$else and do {
+				$fcurrent = $else;
+				do_gen_code($p{else});
+			};
+
 			$fcurrent = $end;
 			last;
 		};
@@ -771,7 +793,7 @@ sub find_var
 		return $id + $var_offset + 1;
 	};
 
-	($id) = grep { $var_name[$_] eq $name } 0 .. $#param_name;
+	($id) = grep { $var_name[$_] eq $name } 0 .. $#var_name;
 	defined $id and return $var_offset - $var_id[$id];
 
 	-1;

src/bs/test.bs

@@ -8,7 +8,10 @@ main()
 		n--;
 	}
 	"press <ENTER> to quit...";
-	putc(getc());
+
+	@ b = getc();
+	b -= 'x';
+	if (!b) "yes";
 }
 
 abc(x)

src/llbs/llbs.pl

@@ -187,6 +187,12 @@
 			last;
 		};
 
+		/^not$/ and do {
+			if (@p) { die "[$line_no] invalid parameter: @p\n"; }
+			print "\t[[-]>+<]+>[-<->]<\n";
+			last;
+		};
+
 		/^exit$/ and do {
 			print "\t>>>+<<<\n";
 			last;