Return to freem_function.c CVS log

Up to [Coherent Logic Development] / freem / examples / libfreem / freem_function

Annotation of freem/examples/libfreem/freem_function/freem_function.c, revision 1.2

1.1       snw         1: /*
1.2     ! snw         2: * @Author: Serena Willis
1.1       snw         3: * @Date:   2020-04-03 15:59:49
1.2     ! snw         4: * @Last Modified by:   Serena Willis
1.1       snw         5: * @Last Modified time: 2020-04-03 16:23:44
                      6: */
                      7: 
                      8: 
                      9: #include <stdio.h>
                     10: #include <string.h>
                     11: #include <freem.h>
                     12: 
                     13: int main(int argc, char **argv, char **envp)
                     14: {
                     15:     freem_ent_t ent;
                     16:     
                     17:     /* equivalent to $$ADDTWO^%ZFRMSAMP(2,2) */
                     18: 
                     19:     sprintf (ent.name, "ADDTWO^%%ZFRMSAMP");
                     20:     sprintf (ent.arguments[0], "2");
                     21:     sprintf (ent.arguments[1], "2");
                     22: 
                     23:     ent.argument_count = 2;
                     24: 
                     25:     freem_init ("USER");
                     26:     freem_function (&ent);
                     27: 
                     28:     printf ("Return value from $$%s(2,2) is '%s'\n", ent.name, ent.value);
                     29: 
1.2     ! snw        30: }