cfCall ( ExpressionCode ; Parameters )

cfCall() must be able to read and execute any type of custom function, simple, recursive or complex | cfCall() is part of the pair of functions fmDynamix and works in pair with #load ()

Average rating: 4.8 (13 votes) Log in to vote

Agnes Barouh - Show more from this author
Tic Tac
http://www.tictac.fr/CoinFileMaker/Page.html

Sample input:

Depends on the function to play
------
cfCall ( $$_xmlSet ; #load ( "name" ) & #load ( "Pierre" ))
------
cfCall ( $$_CustomList ; #load ( 1 ) & #load ( 10 ) & #load ( "GetNthRecord ( Field ; [n] )" ))

Sample output:

Variable result according to the requested function
------
Pierre

------
RecField1¶RecField1¶....RecField10¶

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

// cfCall ( ExpressionCode ; Parameters ) v2.4 - 30/03/16
/* -------------------------------------------------

** note : la variable $fmxLoa_N ne doit pas être remise à zéro **
-  cfCall() fait partie du couple de fonctions fmDynamix et travaille en bi-nome avec #load()
-  Les variables déclarées par #load() sont récupérées et vidées par cfCall()
-  cfCall() évalue un calcul, dont les parametres facultatifs sont passés par le biais de #load()
-  Le resultat de cfCall() est variable

** note: the variable $fmxLoa_N must not be reset **
- cfCall() is part of the pair of functions fmDynamix and works in pair with #load ()
- The variables declared by #load() are retrieved and emptied by cfCall()
- cfCall() evaluates a calculation, whose optional parameters are passed through #load ()
- The result of cfCall () is variable

//---------------------------------- Parameter

   • ExpressionCode : le code de vos calculs personnalisés, encapsulés au préalable par Encapsulate
   • Parameters : Facultatif - vos paramètres passés par #load()
   • NPV : Facultatif - pour éviter de réécrire le nom de cf - uniquement pour les non-récursives

   • ExpressionCode: the code of your custom calculations, encapsulated beforehand by Encapsulate
   • Parameters: Optional - Your parameters passed by #load()
   • NPV : Optional - to avoid rewriting the cf name - only for non-recursive

//---------------------------------- Example
   • link http://www.tictac.fr/CoinFileMaker/PageFmx.html
------------------------------------------------- */

//————————--—---------------------——————-————
// @ Agnès Barouh & Ugo Di Luca -   October 2015 - BugReport 
// Substitute ( filemaker§tictac.fr ; § ; @ )
//—————---------------------———————-———-————-

Let ([

num = MiddleWords ( ExpressionCode ; 2 ; 1 ) ;

$fmxCal_P = Substitute ( Parameters ; "¶¶" ; ¶ ) ;
CountParam = ValueCount ( $fmxCal_P ) ;
P = LeftWords ( ExpressionCode ; 1 ) ;

Result =  Case (
                   IsEmpty ( ExpressionCode ) ;
                       Let ( $fmxCal_Debug = 113 ; "" ) ;
//                   P = ExpressionCode ;                       CallBack ( ExpressionCode ; Parameters ); // play direct function
                   ( Left ( ExpressionCode ; 3 ) = "/*n" ) and ( ( P+ 0) <> CountParam ) ; 
                       Let ( $fmxCal_Debug = Choose ( (P+ 0) < CountParam ; 1201 ; 1202 ) ; "" ) ;
                   ( Left ( ExpressionCode ; 3 ) = "/*p" ) and ( Int ( CountParam / (P+ 0) ) <> ( CountParam / (P+ 0) ) ) ; 
                       Let ( $fmxCal_Debug = " 1201-2] Paramètres trop / trop peu nombreux dans la fonction - Too many / few parameters in the function" ; "" ) ;

                   Case ( 
                      Right ( P ; 3 ) = "rec" ;
                       Case (
                          $fmxCal_Eval[num] <> 1 ;
                             Let ([
                             $fmxCal_Exp[num] = ExpressionCode ;
                             $fmxCal_Eval[num] = 1 ;
                             $fmxCal_End[num] = ""
                             ];
                             Evaluate 
                               ( 
                               Substitute ( ( 10 ^ 2  ) - 1 ; 9 ;
                              "Case ( ( $fmxCal_n[" & num & " ] = \"none\" ) or ( $fmxCal_n[" & num & " ] > 0 ) ;
                                                              Let ( [ $fmxCal_End["& num &" ] = 0 ]; \"\" ) ; 
                                                              Let ( [ $fmxCal_Eval["& num &" ] = 1 ; $fmxCal_n["& num &" ] = \"none\" ] ; Evaluate ( $fmxCal_Exp["& num &" ] ) ) ) & " ) & "\"\"" )
                                                 & Case ( 
                                                         $fmxCal_End[num] = 1 ;
                                                         Let ([ $fmxCal_Eval[num]= "0" ;  $fmxCal_End[num]  = "" ; $fmxCal_n[num]  = ""  ]; Evaluate ( ExpressionCode  ) ) ;
                                                         Let ([ $fmxCal_Eval[num]= "" ; $fmxCal_End[num] = "" ; $fmxCal_P = "" ; $fmxCal_Exp[num] = "" ; $fmxCal_n[num] = "" ]; "" ) 
                                                      )
                            );
                            Let ( [ 
                                 $fmxCal_End[num] = "" ;
                                 $fmxCal_n[num] = $fmxCal_n[num] + 1 
                             ]; 
                            Case ( $fmxCal_n[num] < 125 ;
                                 Evaluate ( ExpressionCode  ) ; 
                                 Let ( [  $fmxCal_End[num] = 1 ; $fmxCal_n[num] = "" ] ; ""  )) 
                          )
                        );
                      Evaluate  ( ExpressionCode  ) & Let ( $fmxCal_P = "" ; "" ) 
                    )
               ) ;
$fmxCal_Debug = Case ( Result = "?" ; EvaluationError ( Evaluate ( ExpressionCode  ) ) ; $fmxCal_Debug  )

];

Case ( 
( $fmxCal_Debug + 0 ) = 0 ; Result 
//& $fmxCal_Eval[num] & " " &  $fmxCal_End[num]  & " " &   $fmxCal_P  & " " &   $fmxCal_Exp[num]  & " " &   $fmxCal_n[num] 
//& num &   Substituer ( Parameters ; ¶ ; " " ) // Active this part for Debug
;
/*Error n°*/
Let ( Pos = ValueCount ( Left ( $$_ListCodeError ; Position ( $$_ListCodeError ; $fmxCal_Debug ; 1 ; 1 )));
Case ( Pos = 0 ; "[Error-" & $fmxCal_Debug & "]" ; MiddleValues ( $$_ListCodeError ; Pos ; 2 )
)) &
/*vide variable si Error <> 0*/
Evaluate ( "let ([ " &
"$fmxLoa_P[" & Substitute (Parameters & "-" ; [ "¶-" ; "" ] ; [ ¶ ; "] = \"\" ; $fmxLoa_P["] ) & "] = \"\" ;" & 
"$fmxLoa_G[" & Substitute ( Parameters & "-" ; [ "¶-" ; "" ] ; [ ¶ ; "] = \"\" ; $fmxLoa_G["] ) & "] = \"\" ; $fmxCal_Debug = \"\" ]; \"\")" )
       )
)

cfCall() works with #load()
cfCall() must be able to read and execute any type of custom function, simple, recursive or complex

More explanation here : http://www.tictac.fr/CoinFileMaker/PageFmxEn.html
=> load and look the file "fmx_FmDynamix_Presentation.fmp12"

//-------------

- cfCall() is part of the pair of functions fmDynamix and works in pair with #load ()
- The variables declared by #load() are retrieved and emptied by cfCall()
- cfCall() evaluates a calculation, whose optional parameters are passed through #load ()
- The result of cfCall () is variable

//---------------------------------- Parameter

• ExpressionCode: the code of your custom calculations, encapsulated beforehand by Encapsulate
• Parameters: Optional - Your parameters passed by #load()
• NPV : Optional - to avoid rewriting the cf name - only for non-recursive

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

cfCall ( ExpressionCode ; Parameters )

Comments

Support this website.

Support this website.