Do not elaborate using scripting functions in models

For example, looking in OpenModelica.Scripting.xxx should not succeed
in models when performing model translation. It should only be performed
in the scripting context.

Belonging to [master]:
  - #2126
  - OpenModelica/OpenModelica-testsuite#834

Author: sjoelund

Compiler/FrontEnd/BackendInterface.mo

@@ -71,7 +71,7 @@ algorithm
   (outCache, outValue) := CevalScript.cevalCallFunction(inCache, inEnv, inExp, inValues, inImplInst, inMsg, inNumIter);
 end cevalCallFunction;
 
-public function elabCallInteractive
+public function elabCallInteractive "Note: elabCall_InteractiveFunction is set in the error buffer; the called function should pop it"
   input FCore.Cache inCache;
   input FCore.Graph inEnv;
   input Absyn.ComponentRef inCref;

Compiler/FrontEnd/Static.mo

@@ -6737,24 +6737,10 @@ algorithm
       then
         fail();
 
-    case () /* impl LS: Check if a builtin function call, e.g. size() and calculate if so */
+    case ()
+      /* Handle the scripting interface */
       algorithm
-        /* Remove errors relating to elabCallArgs, keeping only elabCallInteractive messages.
-         * Push these messages back if BackendInterface fails.
-         * This order is necessary if getErrorString() is called in the Backend (runScript, etc)
-         */
-        handles := ErrorExt.popCheckPoint("elabCall_InteractiveFunction");
-        try
-          /* An extra try-block to avoid the assignment to handles being optimized away */
-          ErrorExt.setCheckpoint("elabCall_InteractiveFunction1");
-          (cache,e,prop) := BackendInterface.elabCallInteractive(cache, env, fn, args, nargs, impl, pre, info) "Elaborate interactive function calls, such as simulate(), plot() etc." ;
-          ErrorExt.delCheckpoint("elabCall_InteractiveFunction1");
-        else
-          ErrorExt.rollBack("elabCall_InteractiveFunction1");
-          ErrorExt.pushMessages(handles);
-          fail();
-        end try;
-        ErrorExt.freeMessages(handles);
+        (cache,e,prop) := BackendInterface.elabCallInteractive(cache, env, fn, args, nargs, impl, pre, info) "Elaborate interactive function calls, such as simulate(), plot() etc." ;
       then (cache,e,prop);
 
   end matchcontinue;

Compiler/Script/StaticScript.mo

@@ -239,6 +239,40 @@ algorithm
 end getSimulationArguments;
 
 public function elabCallInteractive "This function elaborates the functions defined in the interactive environment.
+  Since some of these functions are meta-functions, they can not be described in the type
+  system, and is thus given the the type T_UNKNOWN"
+  input output FCore.Cache cache;
+  input FCore.Graph env;
+  input Absyn.ComponentRef fn;
+  input list<Absyn.Exp> args;
+  input list<Absyn.NamedArg> nargs;
+  input Boolean impl;
+  input Prefix.Prefix pre;
+  input SourceInfo info;
+  output DAE.Exp e;
+  output DAE.Properties prop;
+protected
+  list<Integer> handles;
+algorithm
+  if Flags.getConfigBool(Flags.BUILDING_MODEL) then
+    ErrorExt.delCheckpoint("elabCall_InteractiveFunction");
+    fail();
+  end if;
+  handles := ErrorExt.popCheckPoint("elabCall_InteractiveFunction");
+  try
+    /* An extra try-block to avoid the assignment to handles being optimized away */
+    ErrorExt.setCheckpoint("elabCall_InteractiveFunction1");
+    (cache,e,prop) := elabCallInteractive_work(cache, env, fn, args, nargs, impl, pre, info) "Elaborate interactive function calls, such as simulate(), plot() etc." ;
+    ErrorExt.delCheckpoint("elabCall_InteractiveFunction1");
+  else
+    ErrorExt.rollBack("elabCall_InteractiveFunction1");
+    ErrorExt.pushMessages(handles);
+    fail();
+  end try;
+  ErrorExt.freeMessages(handles);
+end elabCallInteractive;
+
+protected function elabCallInteractive_work "This function elaborates the functions defined in the interactive environment.
   Since some of these functions are meta-functions, they can not be described in the type
   system, and is thus given the the type T_UNKNOWN"
   input FCore.Cache inCache;
@@ -252,7 +286,7 @@ public function elabCallInteractive "This function elaborates the functions defi
   output FCore.Cache outCache;
   output DAE.Exp outExp;
   output DAE.Properties outProperties;
- algorithm
+algorithm
    (outCache,outExp,outProperties):=
    matchcontinue
      (inCache,inEnv,inComponentRef,inExps,inNamedArgs,inImplInst,inPrefix,info)
@@ -467,7 +501,7 @@ public function elabCallInteractive "This function elaborates the functions defi
         DAE.T_STRING_DEFAULT),DAE.PROP(DAE.T_BOOL_DEFAULT,DAE.C_CONST()));
 
   end matchcontinue;
-end elabCallInteractive;
+end elabCallInteractive_work;
 
 public function elabExp "
 function: elabExp
@@ -560,7 +594,7 @@ algorithm
       Prefix.Prefix pre;
   case (cache,env,fn,args,nargs,impl,pre,_,_)
       equation
-        (cache,e,prop) = elabCallInteractive(cache, env, fn, args, nargs, impl, pre, info) "Elaborate interactive function calls, such as simulate(), plot() etc." ;
+        (cache,e,prop) = elabCallInteractive_work(cache, env, fn, args, nargs, impl, pre, info) "Elaborate interactive function calls, such as simulate(), plot() etc." ;
       then
         (cache,e,prop);
   end match;