excecute code at runtime

[t57042]

Is this somehow possible in Pb?

a$="5+3"

debug @a$ ---> result printed is 8

Richard

[RASHAD]

Hi

Code: Select all

Dim b$(2)

a$ = "15 + 22"

For i = 1 To 2
  b$(i) =  StringField(a$,i,"+")
Next

Debug ValF(b$(1)) + ValF(b$(2))

[Arctic Fox]

An expression evaluator might do the job.
http://www.purebasic.fr/english/viewtop ... 12&t=18359

[Kiffi]

Code: Select all

UseSQLiteDatabase()
OpenDatabase(0, ":memory:", "", "", #PB_Database_SQLite)
DatabaseQuery(0, "Select 5+3")
NextDatabaseRow(0)
Debug GetDatabaseString(0, 0) ;  ---> result printed is 8
CloseDatabase(0)

Greetings ... Kiffi

[MachineCode]

Nice, Kiffi... but kinda useless without float results ("22/7").

Also, very bloated... the 6 lines of code create a 403 KB executable.

But I guess if your app has database code anyway, then it's a good hack for non-float calculations.

[t57042]

Why does the sqlite way not work with floats?

[skywalk]

Very nice Kiffi
@MachineCode -

Code: Select all

UseSQLiteDatabase()
OpenDatabase(0, ":memory:", "", "", #PB_Database_SQLite)
DatabaseQuery(0, "Select round(22.0/7.0,2)")
NextDatabaseRow(0)
Debug GetDatabaseString(0, 0) ;--> 3.14
CloseDatabase(0)

[MachineCode]

Thanks, SkyWalk!

[Danilo]

Another include for this: Evaluate() - Expression Parser

Supports the following operators:
+, -, *, /, % (modulo), ^ (power of), <<, >>, =, <>, <, >, <=, =<, >=, =>, ( ) , &, |, !, ~, NOT, OR, AND, XOR

- Integer
- Floats (1E5, 123.5e-20 etc.)
- add variables, for example EvaluateVariables("pi") = StrD(#PI,1000)
- Hex-Format ($FFFF, $abc)
- Bin-Format (%01010101)
- Errorhandler: SetEvaluateErrorHandler(@myErrorHandler())

Example:

Code: Select all

XIncludeFile "Evaluate.pbi"

Debug Evaluate("10 + 4 * 2")

Example with variables:

Code: Select all

XIncludeFile "Evaluate.pbi"

EvaluateVariables("n") = "64"
EvaluateVariables("f") = "0.25"

Debug Evaluate("n * f")

EDIT:
Download include with 2 examples: EvaluateExpression.zip (8,5k)

EDIT2:
Removed the need for #GENERATE_STACKMACHINE_ASM by using "CompilerIf Defined()"
Download again, EvaluateExpression.zip (8,5k)

EDIT3:
changed *start to *evaluateStart and variables in procedures from Define to Protected
Download again, EvaluateExpression.zip (8,5k)