C++ (Cpp) SCHEME_FXVECTORP 예제들

예제 #1

파일: vector.c 프로젝트: insanity/racket

void scheme_bad_vec_index(char *name, Scheme_Object *i, const char *which, Scheme_Object *vec, 
                          intptr_t bottom, intptr_t len)
{
  const char *type;

  type = (SCHEME_CHAPERONE_VECTORP(vec) 
          ? "vector" 
          : (SCHEME_FLVECTORP(vec)
             ? "flvector"
             : (SCHEME_FXVECTORP(vec)
                ? "fxvector"
                : NULL)));

  scheme_out_of_range(name, type, which, i, vec, bottom, len);
}

예제 #2

파일: vector.c 프로젝트: racket/racket

void scheme_bad_vec_index(char *name, Scheme_Object *i, const char *which, Scheme_Object *vec,
                          intptr_t bottom, intptr_t len)
{
    const char *type;

#ifdef MZ_LONG_DOUBLE
#define BAD_EXTFLVEC_INDEX  (SCHEME_EXTFLVECTORP(vec)? "extflvector" : NULL)
#else
#define BAD_EXTFLVEC_INDEX  NULL
#endif

    type = (SCHEME_CHAPERONE_VECTORP(vec)
            ? "vector"
            : (SCHEME_FLVECTORP(vec)
               ? "flvector"
               : (SCHEME_FXVECTORP(vec)
                  ? "fxvector"
                  : BAD_EXTFLVEC_INDEX
                 )));


    scheme_out_of_range(name, type, which, i, vec, bottom, len-1);
}