C++ (Cpp) rep_INT 예제들

예제 #1

static void
make_argv (repv list, int *argc, char ***argv)
{
    int c = rep_INT (Flength (list)), i;
    char **v;

    v = (char **)rep_alloc ((c+1) * sizeof(char**));
    for (i = 0; i < c; i++, list = rep_CDR (list))
    {
	if (!rep_STRINGP (rep_CAR (list)))
	{
	    rep_free ((char *)v);
	    return;
	}
	v[i] = strdup (rep_STR (rep_CAR (list)));
    }
    v[c] = NULL;
  
    *argv = v;
    *argc = c;
}

예제 #2

파일: gh.c 프로젝트: SawfishWM/librep

unsigned long gh_length(repv l)
{
    repv len = Flength (l);
    return len && rep_INTP (len) ? rep_INT (len) : 0;
}

예제 #3

파일: gh.c 프로젝트: SawfishWM/librep

char gh_scm2char(repv obj)
{
    return rep_INTP (obj) && rep_INT (obj);
}