Threaded Mode | Linear Mode

***Ben*** · 05-17-2012 09:56 AM

There is always workarounds like this one...

Code:

[FUNCTION DEFVAL]

LOCAL.STRING Ð<ARGS>

WHILE (<STRPOS 0 60 <LOCAL.STRING>> > -1)

LOCAL.LAST <STRLASTPOS 60 <LOCAL.STRING>>

LOCAL.NEXT <EVAL <STRPOS <LOCAL.LAST> 62 <LOCAL.STRING>>+-<LOCAL.LAST>>

LOCAL.STRING <STRSUB 0 <LOCAL.LAST> <LOCAL.STRING>><<STRSUB <EVAL <LOCAL.LAST>+1> <EVAL <LOCAL.NEXT>+-1> <LOCAL.STRING>>><STRSUB <EVAL <LOCAL.LAST>+<LOCAL.NEXT>+1> 0 <LOCAL.STRING>>

ENDWHILE

LOCAL.STRING <STRSUB 1 0 <LOCAL.STRING>>

RETURN <LOCAL.STRING>

[FUNCTION STRLASTPOS]

LOCAL.CHAR <STRARG <ARGS>>

LOCAL.NEWSTRING <STREAT <ARGS>>

WHILE (<STRPOS 0 <dLOCAL.CHAR> <LOCAL.NEWSTRING>> > -1)

LOCAL.LASTCHAR <EVAL <STRPOS 0 60 <LOCAL.NEWSTRING>>>

LOCAL.NEWSTRING <STRSUB 0 <STRPOS 0 <dLOCAL.CHAR> <LOCAL.NEWSTRING>> <LOCAL.NEWSTRING>>#<STRSUB <EVAL <STRPOS 0 <dLOCAL.CHAR> <LOCAL.NEWSTRING>>+1> 0 <LOCAL.NEWSTRING>>

ENDWHILE

RETURN <EVAL <LOCAL.LASTCHAR>>

Not sure if it still works, but I created this to emulate the PHP function eval().
So you can do something like this... <defval <def0.lol>> and it will evaluate any variables inside the def Smile

Use at your own risk Big Grin

Threaded Mode \| Linear Mode Variables in Defname
Author	Message