Don't execute a function if a routine is called outside the program

[salvomic]

hi,
there is a way to don't execute a command if a function is not called inside the program, but externally (EXPORT...)?

I've a code like this one:

Code:


EXPORT ascendant(...)
BEGIN
// routine...
  ch:= MSGBOX("Another calculation?", 1);
  IF (ch<>0)  THEN changeData(); END;
END;

I would like to execute changeData(); only if ascendant() is called inside a program (to return to its menu, and so on) but not when the function is called externally (passing parameters...).

In other words: the function should ask itself: "who is calling?"...

Thank you

Salvo

[roadrunner]

Salvo,

If I understand your question correctly, this should work:

Code:


changedata();
local a:=0;

EXPORT ascendant()
BEGIN
 local ch;
 ch:=msgbox("another calculation?",1);
 if ch<>0 and a==1 then
  changedata();
  a:=0;
 end 
END;

local changedata()
begin
 print();
 print("changedata ran");
end;

export calling_program()
begin
 a:=1;
 ascendant();
end;

When you execute ascendant from the Home screen, changedata is not executed. When calling_program executes ascendant the flag "a" is set to 1 first and changedata is executed. You can't set "a" to 1 externally if you make it local.

I don't know if the prime has user flags like the 48 thru 50g series has or not. I'm still learning HPPPL.

Cheers,

Road

[salvomic]

(07-03-2015 06:22 PM)roadrunner Wrote:  Salvo,

If I understand your question correctly, this should work:

...

thanks Road, I'll try it; it seems a good workaround.
Never I know if the Prime has user flags.

I'll let you know then.

Salvo

EDIT: It worked, but I had to define a variable as global (internalfun:=0) to pass values through the routines...