C++ (Cpp) IS_SUBR примеры использования

Пример #1

Файл: mono.c Проект: sasagawa888/Mono-Lisp

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

Пример #2

Файл: mono.c Проект: 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);
    }
}

Пример #3

Файл: list.c Проект: sasagawa888/Simple

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

Пример #4

Файл: list.c Проект: sasagawa888/Simple

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