Esempi in C++ (Cpp) per scm_num_eq_p

Esempio n. 1

File: funcCase.c Progetto: pexip/os-autogen

SCM
ag_scm_string_eqv_p(SCM text, SCM substr)
{
    char* pzText;
    char* pzSubstr;

    /*
     *  We are overloading the "=" operator.  Our arguments may be
     *  numbers...
     */
    if (! AG_SCM_STRING_P(text) || ! AG_SCM_STRING_P(substr))
        return scm_num_eq_p(text, substr);

    pzText   = ag_scm2zchars(text, "text to match");
    pzSubstr = ag_scm2zchars(substr, "match expr");

    return (streqvcmp(pzText, pzSubstr) == 0) ? SCM_BOOL_T : SCM_BOOL_F;
}

Esempio n. 2

File: guile_fonts_t1font_dict.c Progetto: khaledhosny/sortsmill

VISIBLE SCM
scm_view_stroked_font_p (SCM view)
{
  return scm_num_eq_p (scm_view_PaintType_ref (view), scm_from_int (2));
}