gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-21 23:00:43 -08:00
Code Issues Packages Projects Releases Wiki Activity

MAINT: Apply pre-commit

Browse Source 
Remove byte-order-marker pre-commit check as there would be
many adjustments necessary
This commit is contained in:
Martin Thoma
2022-03-05 09:29:23 +01:00
parent f5e33ae38f
commit e64fb6795c
536 changed files with 6267 additions and 5556 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
00_Utilities/bas2perl.pl
View File

@@ -8,7 +8,7 @@ my $LN= "Line";
my $Pedantic= 0;
my $Indent= 0;
my %Vars; # num | str | anm | ast
my %Vars; # num | str | anm | ast
my @Data;
my %Code;
open(FH, $File);
@@ -278,7 +278,7 @@ sub PRINT {
push @Out, $Par;
}
my $Out= join(". ", @Out);
my $Out= join(". ", @Out);
if ($Enter) { $Out.= qq|. "\\n"|; }
return "print ".$Out;
}
@@ -347,7 +347,7 @@ sub FORMULA {
if ($Vars{$Key}!~ /^a/) { next; }
$Str=~ s/\$$Key\((.*?)\)/\$$Key\[$1\]/g;
}
if ($Cond==1) {
$Str=~ s/<>/ ne /g;
$Str=~ s/=/ eq /g;
@@ -357,7 +357,7 @@ sub FORMULA {
sub SMARPLIT {
my ($Str, $Sep, $Nin)= @_;
my ($Str, $Sep, $Nin)= @_;
my @Parts;
my $Text= "";
my $Flag= 0;
@@ -373,8 +373,5 @@ sub SMARPLIT {
$Text.= $Char;
}
if ($Text) { push @Parts, &TRIM($Text); }
return @Parts;
return @Parts;
}