Esempi in C++ (Cpp) per IS_SUBR

Esempio n. 1

File: mono.c Progetto: sasagawa888/Mono-Lisp

int subrp(int addr){
	int val;
    
    val = findsym(addr);
    if(val != 0)
		return(IS_SUBR(val));
    else
    	return(0);
}

Esempio n. 2

File: mono.c Progetto: kmizumar/Mono

int subrp(int addr){
        int symaddr;
    
        symaddr = findsym(symname(addr));
    if(symaddr == NIL)
        return(0);
    else {
        if((IS_FUNC(symaddr)) && (IS_SUBR(symaddr)))
                return(1);
        else
                return(0);
    }
}

Esempio n. 3

File: list.c Progetto: sasagawa888/Simple

int subrp(int x){
	if(IS_SUBR(x))
    	return(1);
    else
    	return(0);
}

Esempio n. 4

File: list.c Progetto: sasagawa888/Simple

int procedurep(int x){
	if((IS_SUBR(x)) || (IS_CLOSURE(x)) || (IS_CONT(x)))
    	return(1);
    else
    	return(0);
}