This repository was archived by the owner on May 1, 2024. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Original file line number Diff line number Diff line change 1313; See the License for the specific language governing permissions and
1414; limitations under the License.
1515
16- #define StrInspectSignature(str Value) ' Const_ ' + StringChange(Value, ' . ' , ' __ ' )
17- #define StrInspectFuncDef (str Value) ' function ' + StrInspectSignature (Value) + ' (Param: String): String; begin Result := ' + Value + ' ; end; '
16+ ; Creates a syntax-legal function name from the value to inspect
17+ #define StrInspectFuncName (str Value) ' Const_ ' + StringChange (Value, ' . ' , ' __ ' )
1818
19+ ; Creates a function which returns the value specified
20+ #define StrInspectFuncDef(str Value) ' function ' + StrInspectFuncName(Value) + ' (Param: String): String; begin Result := ' + Value + ' ; end; '
21+
22+ ; This variable stores the functions for expanding in the translation
1923#define StrInspectAllFuncs = ' '
2024
25+ ; Creates a function for the value specified, if it doesn't already exist, and returns the scripted constant syntax for use
26+ ; in non-[Code] sections
2127#define StrInspectScriptConst(str Value) \
2228 Pos(StrInspectFuncDef(Value), StrInspectAllFuncs) == 0 ? \
2329 StrInspectAllFuncs = StrInspectAllFuncs + StrInspectFuncDef(Value) : 0 , \
24- ' {code:' + StrInspectSignature (Value) + ' }'
30+ ' {code:' + StrInspectFuncName (Value) + ' }'
You can’t perform that action at this time.
0 commit comments