How to execute a block of code in a variable

[Ray in Capetown]

I have a UI_POPUP_MENU() that compiles and returns code to be run. Stored in a variable.
A typical example of the contents of the variable, a string of code, can be recreated with the following example in IW

codeseg=<<%str%
if ui_get_password("SECURITY PASSWORD","Supervisor number")="Mike"
    this.delete()
end if
%str%

I imagined I could use EVALUATE_TEMPLATE(codeseg) but it doesn't appear to execute.
Executing the individual lines one at a time in IW does what it should, as expected.
I then tried one line at a time as follows

dim shared foo as c
for each foo in codeseg
    EVALUATE_TEMPLATE(foo)
next

Can anyone see any reason why that doesn't work either or is there another function?

[Tim Kiebert]

Re: How to execute a block of code in a variable

I put in a msgbox before 'this.delete' and it pops up. I ran the code in a new script window an hit run.

codeseg=<<%str%
if ui_get_password("SECURITY PASSWORD","Supervisor number")="Mike"
	msgbox("aaa")
    this.delete()
end if
%str%

evaluate_template(codeseg)

What is the context of the code when it runs. i would be suspicious of the what 'this' is referrring to at run time.

[Stan Mathews]

Re: How to execute a block of code in a variable

Not clear on what you are trying to accomplish with this.delete().

If you are trying to delete a table record you have to have a table pointer and set the change mode.

dim tbl as P
tbl = table.current()
tbl.change_begin()
tbl.delete()
tbl.change_end(.T.)

If this refers to the current object it would seem you're trying to delete the menu itself or the visible form?

[Tim Kiebert]

Re: How to execute a block of code in a variable

Just added a msgbox after 'this.delete' as well. The one before pops up but the one after does not indicating that there is a problem with 'this.delete'.

codeseg=<<%str%
if ui_get_password("SECURITY PASSWORD","Supervisor number")="Mike"
    msgbox("aaa")
    this.delete()
    msgbox("bbb")
end if
%str%

EDIT: What Stan said.

[Ray in Capetown]

Re: How to execute a block of code in a variable

Thanks for the quick responses.
On an embedded browse, an event pops up a menu for user to select from. The event in this case a doubleclick in a cell. to act on context contained in that cell
The menu will always know "this" as the object that it was called from -maybe a bad example that particular selection with "this". None of the code runs, it should display the password dlg anyway.
Here is the menu code you can run it from IW

mfmt=<<%str%
{I=$$generic.recorder}{DATA=!'BRWS=this.browse1{r{ndim shared brws as p{r{nbrws = Browse1.this{r{nfldname = brws.active_drilldown(){r{nshortfldname = word(fldname, 4, ":"){r{nfldval = eval(fldname + ".text"){r{n'ui_msg_box(fldval,fldname+" Shortname "+shortfldname ){r{nAddeventDlg(BROWSE1:ord_id.text,shortfldname ){r{nend{r{n'debug(1){r{ndim shared brws as p{r{nbrws = ship_schedule:browse1.this{r{nfldname = Brws.active_drilldown(){r{nshortfldname = word(fldname, 4, ":"){r{nAddeventDlg(brws.ord_id,shortfldname )}Add Event Record G
{I=$$code.class}{DATA=!brp=parentform.browse1{r{nbrr=brp.Current_Record(){r{nif is_object("Orderheader")=.f.{r{n{t{tfrm=form.load("Orderheader"){r{nend if{r{nfrm = obj("orderheader"){r{nftb=frm.Table_Get(){r{nftb.fetch_goto(brr){r{nfrm.Resynch(){r{nfrm.Activate(){r{n}{PROMPT=View this record on the ODR}Switch to ODR
{I=$a5_record_change}{DATA=!topparent.GetActiveObjParent().allow_change(.t.)}{ENABLE=(.not.allow_editing())}Edit (Alt+C){tab}Alt+C
-
{I=$a5_delete}{DATA=!if ui_get_password("SECURITY PASSWORD","Supervisor number")="Mik"{r{nthis.delete(){r{nend if}&Delete
{DATA=!this.select(1,1000000)}Select &All
%str%
code2run=ui_popup_menu(mfmt)

The code to run is text content of var->code2run based on your selection from the menu.
I just want to run whatever code is returned.

[Ray in Capetown]

Re: How to execute a block of code in a variable

Cause of the problem, circumstances are...
It works currently correctly on a right click menu. Perfectly.
The MAJOR problem users have is that they can right click believing that where the mouse pointer is is the cell that is active and collect data for the wrong subject, if they did not first consciously first click on the cell they are pointing at. What a mess that has been creating.

Double click will force the correct cell to activate first.
I will in any event disable or remove that delete - it is not an important function here. I can deal with that elsewhere.
As mentioned it was an unfortunate selection of a random option, - , none of them can I get to run.

[Ray in Capetown]

Re: How to execute a block of code in a variable

BTW Stan that code run just as it is will delete the browse record given the correct password. Thats not the problem tho'

[Tim Kiebert]

Re: How to execute a block of code in a variable

I haven't used the syntax for the popup menu for a while so not sure how it gets there but in the definition just after the 'DATA=' there is an exclamation "!". This is being returned with the result and is the first character in the resulting code that you subsequently try to run with evaluate_template causing a syntax error. Either remove it from the menu definition or strip it out before feeding the string to evaluate_template function.

[Ray in Capetown]

Re: How to execute a block of code in a variable

More or less Tim
I guess there is no generally known function to execute a codeblock as is.
I can strip the !+space out, convert all -"- to -\"-, separate the lines for each... but some of the code line structures dont work with evaluate_template.
For the short term to resolve the issue, I will write all the code options into a script and use GOTO to run the relevant one.

[Stan Mathews]

Re: How to execute a block of code in a variable

BTW Stan that code run just as it is will delete the browse record given the correct password. Thats not the problem tho'

Well it may.

The xbasic explorer indicates the method .delete_record() and doesn't show .delete(). The docs say
The <OBJECT>.DELETE() method deletes the named object from disk.

Whatever works.

[Ray in Capetown]

Re: How to execute a block of code in a variable

Thanks Stan. I didn't know that. Actually I modified a standard browse right click menu, retained the delete adding password protection and some new options

I have a solution to not being able to run a number of lines of code in memory, a little less snappy but here below for anyone interested
1. Simplified the menu eliminating executable code
2. the doubleclick event runs a standard saved script that displays the menu returning the user selection
3. a series of select case statements and goto's selects the relevant code

[Ray in Capetown]

Re: How to execute a block of code in a variable

Correction Stan I checked on what you said.
I had removed that delete option a day or so ago from the production system
recovered back to earlier vers to try it. It does nothing after entering the password.
You are right.

[kkfin]

Re: How to execute a block of code in a variable

I guess there is no generally known function to execute a codeblock as is.

I do not know if this helps you anyway but I wanted one time run xbasic function from couchdb (saved in character field in couchdb)

You get the idea from this code:

...
dim resp as p
resp = http_fetch(req)
dim parsed as p = json_parse(resp.body)
dim test as C = stritran(parsed.aihe,"#",crlf())
dim pftest as P = compile_template(test)

?pftest.Hoi("Ken")
= "Hello, Ken"

parsed.aihe has this character string inside (from couchdb)

FUNCTION Hoi AS C(msg AS C)#Hoi = "Hello, " + msg#END FUNCTION

[Stan Mathews]

Re: How to execute a block of code in a variable

Thanks Stan. I didn't know that. Actually I modified a standard browse right click menu, retained the delete adding password protection and some new options

I think you need to process the script one line at a time.

scr = <<%tst%
ui_msg_box("Step1","This is line 1.")
ui_msg_box("Step2","This is line 2.")
ui_msg_box("Step3","This is line 3.")
%tst%

? scr
= ui_msg_box("Step1","This is line 1.")
ui_msg_box("Step2","This is line 2.")
ui_msg_box("Step3","This is line 3.")


for each ln in scr
evaluate_template(ln.value)
next

[Tim Kiebert]

Re: How to execute a block of code in a variable

More or less Tim
I guess there is no generally known function to execute a codeblock as is.
I can strip the !+space out, convert all -"- to -\"-, separate the lines for each... but some of the code line structures dont work with evaluate_template.
For the short term to resolve the issue, I will write all the code options into a script and use GOTO to run the relevant one.

Could you give an example of code that did not work in evaluate template?