make pas2c function without haskell aborting if locale is C 0.9.25
authornemo
Wed, 05 Dec 2018 09:38:31 -0500
branch0.9.25
changeset 14387 2ab312c47dc3
parent 14386 a7769dbd7088
child 14388 40dd8eb60d54
make pas2c function without haskell aborting if locale is C
hedgewars/uChat.pas
hedgewars/uGearsHedgehog.pas
hedgewars/uInputHandler.pas
hedgewars/uScript.pas
hedgewars/uSound.pas
hedgewars/uStats.pas
hedgewars/uTeams.pas
--- a/hedgewars/uChat.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uChat.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -515,7 +515,7 @@
         exit
         end;
 
-    // “/clan” or “/team” (“/team” is an alias for “/clan”)
+    // "/clan" or "/team" ("/team" is an alias for "/clan")
     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) then
         begin
         if (Length(s) > 6) then
--- a/hedgewars/uGearsHedgehog.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -775,7 +775,7 @@
         if (ammo = amNothing) or (cnt = 0) then
             s:= trmsg[sidEmptyCrate]
         else if cnt >= AMMO_INFINITE then
-            s:= name + ansistring(' (+∞)')
+            s:= name + ansistring(' (+' + char($E2) + char($88) + char($9E) +')')
         else
             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
 
--- a/hedgewars/uInputHandler.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uInputHandler.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -130,7 +130,7 @@
         begin
         name:= SDL_GetKeyName(SDL_GetKeyFromScancode(code));
         if (name = 'Escape') then
-            // Let's shorten the name “Escape” for the quit menu
+            // Let's shorten the name "Escape" for the quit menu
             KeyBindToName:= 'Esc'
         else if (length(name) <> 0) then
             KeyBindToName:= name
--- a/hedgewars/uScript.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uScript.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -3593,7 +3593,6 @@
 var braceCount: LongWord;
 var wordCount: LongWord;
 var lastChar: char;
-// ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
 var mybuf: PChar;
     i: LongInt;
@@ -3658,7 +3657,6 @@
         end;
     ScriptLocaleReader:= mybuf
 end;
-// ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
 
 function ScriptLoad(name : shortstring; mustExist : boolean): boolean;
 var ret : LongInt;
--- a/hedgewars/uSound.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uSound.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -475,7 +475,7 @@
 // Get a fallback voice, assuming that snd is not available. Returns sndNone if none is found.
 function GetFallbackV(snd: TSound): TSound;
 begin
-    // Fallback to sndFirePunch1 / sndOw1 / sndOoff1 if a “higher-numbered” sound is missing
+    // Fallback to sndFirePunch1 / sndOw1 / sndOoff1 if a "higher-numbered" sound is missing
     if (snd in [sndFirePunch2, sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6]) then
         GetFallbackV := sndFirePunch1
     else if (snd in [sndOw2, sndOw3, sndOw4, sndOuch]) then
--- a/hedgewars/uStats.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uStats.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -527,7 +527,7 @@
             deathEntry:= deathEntry^.NextEntry;
             end;
 
-    // “Achievements” / Details part of stats screen
+    // "Achievements" / Details part of stats screen
     if SendAchievementsStatsOn then
         begin
         if msdhh <> nil then
--- a/hedgewars/uTeams.pas	Wed Dec 05 03:28:33 2018 +0100
+++ b/hedgewars/uTeams.pas	Wed Dec 05 09:38:31 2018 -0500
@@ -123,7 +123,7 @@
                 // Write victory message for caption and stats page
                 if (TeamsNumber = cMaxTeams) or (TeamsCount = TeamsNumber) then
                     begin
-                    // No enemies for some reason … Everyone wins!!1!
+                    // No enemies for some reason ... Everyone wins!!1!
                     s:= trmsg[sidWinnerAll];
                     allWin:= true;
                     end