intsetenv.c File Reference

#include <stdio.h>
#include <string.h>
#include "MALLOC.h"
#include "stack-c.h"
#include "setenvc.h"
#include "intsetenv.h"
#include "gw_io.h"

Include dependency graph for intsetenv.c:

Go to the source code of this file.

Functions
static int	ReturnValueSetenv (int value)
int	C2F (intsetenv)

---

Function Documentation

int C2F

(

intsetenv

)

Definition at line 18 of file intsetenv.c.

References CheckLhs, CheckRhs, cstk, GetRhsVar, GetType, m1, Max, n1, NULL, ReturnValueSetenv(), Rhs, sci_strings, and setenvc().

{
        static int l1,n1,m1;
        int TypeVar1=GetType(1);
        int TypeVar2=GetType(2);

        Rhs=Max(0,Rhs);
        CheckRhs(2,2);
        CheckLhs(0,1);

        if ( (TypeVar1 == sci_strings) && (TypeVar2 == sci_strings) )
        {
                char *param1=NULL,*param2=NULL;

                GetRhsVar(1,"c",&m1,&n1,&l1);
                param1=cstk(l1);
                        
                GetRhsVar(2,"c",&m1,&n1,&l1);
                param2=cstk(l1);

                ReturnValueSetenv(setenvc(param1,param2));
        }
        else
        {
                Scierror(999,"Invalid type : string recquired");
        }

        return 0;
}

Here is the call graph for this function:

int ReturnValueSetenv

(

int

value

)

[static]

Definition at line 48 of file intsetenv.c.

References C2F, CreateVarFromPtr, FALSE, FREE, LhsVar, MALLOC, n1, NULL, putlhsvar(), and TRUE.

Referenced by C2F().

{
        static int n1;
        int *paramoutINT=(int*)MALLOC(sizeof(int));

        if (value == TRUE) *paramoutINT=(int)(TRUE);
        else  *paramoutINT=(int)(FALSE);

        n1=1;
        CreateVarFromPtr(1, "b", &n1, &n1, &paramoutINT);
    LhsVar(1)=1;
        C2F(putlhsvar)();
        if (paramoutINT) {FREE(paramoutINT);paramoutINT=NULL;}
        return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---