Fix: Support function SameStr is now properly case-sensitive. Has 'always' been buggy.

Files/ISPPBuiltins.iss

@@ -298,9 +298,6 @@
 #define SameText(str S1, str S2) \
   S1 == S2
 
-#define SameStr(str S1, str S2) \
-  S1 == S2
-
 #define WarnRenamedVersion(str OldName, str NewName) \
   Warning("Function """ + OldName + """ has been renamed. Use """ + NewName + """ instead.")
 

ISHelp/ispp.xml

@@ -1846,7 +1846,6 @@ The first group of options (<tt>option</tt>) controls the general options, while
 				</section>
 				<description>
 					<p>Returns True if the given strings are identical, with case-sensitivity.</p>
-          <p>Declared in &builtins;.</p>
 				</description>
 			</topic>
 			<topic id="Message">

Projects/Src/ISPP.Funcs.pas

@@ -2000,6 +2000,24 @@ begin
   end;
 end;
 
+function SameStrFunc(Ext: NativeInt; const Params: IIsppFuncParams;
+  const FuncResult: IIsppFuncResult): TIsppFuncResult; stdcall;
+begin
+  if CheckParams(Params, [evStr, evStr], 2, Result) then
+  try
+    with IInternalFuncParams(Params) do
+    begin
+      MakeBool(ResPtr^, SameStr(Get(0).AsStr, Get(1).AsStr));
+    end;
+  except
+    on E: Exception do
+    begin
+      FuncResult.Error(PChar(E.Message));
+      Result.Error := ISPPFUNC_FAIL
+    end;
+  end;
+end;
+
 procedure RegisterFunctions(Preproc: TPreprocessor);
 begin
   with Preproc do
@@ -2068,7 +2086,8 @@ begin
     RegisterFunction('Message', MessageFunc, -1);
     RegisterFunction('Warning', WarningFunc, -1);
     RegisterFunction('Error', ErrorFunc, -1);
-    RegisterFunction('AddQuotes', AddQuotesFunc, -1)
+    RegisterFunction('AddQuotes', AddQuotesFunc, -1);
+    RegisterFunction('SameStr', SameStrFunc, -1)
   end;
 end;
 

whatsnew.htm

@@ -133,6 +133,7 @@ For conditions of distribution and use, see <a href="files/is/license.txt">LICEN
   </li>
   <li>ISPP:
   <ul>
+    <li><i>Fix:</i> Support function <tt>SameStr</tt> is now properly case-sensitive.</li>
     <li>Using support function <tt>ExtractFileDir</tt> no longer triggers a warning about <tt>RemoveBackslash</tt>.</li>
   </ul>
   </li>