Nifty ISPP macros for automating the scripted constants

Author: chyndman

ElixirWeb.iss

@@ -22,10 +22,7 @@
 #define ERLANG_CSV_URL 'http://elixir-lang.org/erlang.csv'
 
 #include <idp.iss>
-
-#define StrInspectSignature(str Value)   'Const_' + StringChange(Value, '.', '__')
-#define StrInspectScriptConst(str Value) '{code:' + StrInspectSignature(Value) + '}'
-#define StrInspectFuncDef(str Value)     'function ' + StrInspectSignature(Value) + '(Param: String): String; begin Result := ' + Value + '; end;'
+#include "src\ispp_inspect.iss"
 
 [Setup]
 AppName=Elixir
@@ -192,9 +189,4 @@ function CheckToInstallErlang: Boolean; begin
 function CheckToAddExistingErlangPath: Boolean; begin
   Result := (not CheckToInstallErlang) and (not ErlangInPath); end;
   
-{#StrInspectFuncDef('GlobalErlangData.Name32')}
-{#StrInspectFuncDef('GlobalErlangData.Name64')}
-{#StrInspectFuncDef('GlobalErlangData.Exe32')}
-{#StrInspectFuncDef('GlobalErlangData.Exe64')}
-{#StrInspectFuncDef('GetLatestErlangPath')}
-{#StrInspectFuncDef('CacheSelectedRelease.Version')}
+{#StrInspectAllFuncs}

src/ispp_inspect.iss

@@ -0,0 +1,24 @@
+; ispp_inspect.iss - ISPP macros for scripted constants to inspect any arbitrary value
+; Copyright 2014 Chris Hyndman
+;
+;   Licensed under the Apache License, Version 2.0 (the "License");
+;   you may not use this file except in compliance with the License.
+;   You may obtain a copy of the License at
+;
+;       http://www.apache.org/licenses/LICENSE-2.0
+;
+;   Unless required by applicable law or agreed to in writing, software
+;   distributed under the License is distributed on an "AS IS" BASIS,
+;   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+;   See the License for the specific language governing permissions and
+;   limitations under the License.
+
+#define StrInspectSignature(str Value) 'Const_' + StringChange(Value, '.', '__')
+#define StrInspectFuncDef(str Value) 'function ' + StrInspectSignature(Value) + '(Param: String): String; begin Result := ' + Value + '; end; '
+
+#define StrInspectAllFuncs = ''
+
+#define StrInspectScriptConst(str Value) \
+  Pos(StrInspectFuncDef(Value), StrInspectAllFuncs) == 0 ? \
+  StrInspectAllFuncs = StrInspectAllFuncs + StrInspectFuncDef(Value) : 0, \
+  '{code:' + StrInspectSignature(Value) + '}'