+ if($line1 =~ /^\< \$ /){ # arg command line
+ $line1 =~ s/\$\{srcdir\:\=\.\}/./g;
+ $line1 =~ s/\${EXEEXT:=}//g;
+ $line1 =~ s/^\< \$\ *//g;
+ $line1 =~ s/^.\/lua/lua/g;
+ $line1 =~ s/^.\/ruby/ruby/g;
+ $line1 =~ s/^.\///g;
+ $line1 =~ s/^tesh/.\/tesh/g;
+ $line1 =~ s/\(%i:%P@%h\)/\\\(%i:%P@%h\\\)/g;
+ chomp $line1;
+ $command_tesh = $line1;
+ print "[Tesh/INFO] arg_exec_line : $command_tesh\n";
+ }
+ elsif($line1 =~ /^\< \< /){ # arg buffer line
+ $line1 =~ s/^\< \<\ *//g;
+ chomp $line1;
+ print "[Tesh/INFO] arg_buffer_line : $line1\n";
+ push @buffer_tesh, "$line1\n";
+ }
+ elsif($line1 =~ /^\< \> /){ # arg output line
+ $line1 =~ s/^\< \>\ *//g;
+ $line1 =~ s/\r//g;
+ chomp $line1;
+ push @list2, $line1;
+ print "[Tesh/INFO] arg_output_line : $line1\n";
+ $expected_result_line = 1;
+ }
+ elsif($line1 =~ /^\$ mkfile/){ # "mkfile" command line
+ $line1 =~ s/\$ //g;
+ $line1 =~ s/mkfile//g;
+ chomp $line1;
+ $fich_name = $line1;
+ $line1 =();
+ print "[Tesh/INFO] exec_line : mkfile $fich_name\n";
+ `rm -f $fich_name`;
+ open(FILE,">$fich_name") or die "[Tesh/CRITICAL] Unable to make file : $fich_name. $!\n";
+ print FILE @buffer;
+ close(FILE);
+ @buffer = ();
+ }
+ elsif($line1 =~ /^\$ cd/){ # "cd" command line
+ $line1 =~ s/\$ //g;
+ chomp $line1;
+ print "[Tesh/INFO] exec_line : $line1\n";
+ $line1 =~ s/cd //g;
+ chdir("$line1") or die "[Tesh/CRITICAL] Unable to open $line1. $!\n";
+ }
+ elsif($line1 =~ /^\$ /){ #command line
+ if($line1 =~ /^\$ .\/tesh/){ # tesh command line
+ $tesh_command = 1;
+ @buffer = @buffer_tesh;
+ @buffer_tesh=();
+ }