C++ (Cpp) xr_str Exemples

Exemple #1

END_TEST

START_TEST (test_symbol_string)
{
    XR sym = xr_sym("symbol");
    XR str = send(sym, s_string);

    fail_unless(qsend(str, "eq", xr_str("symbol")) == VAL_TRUE);
}

Exemple #2

END_TEST

/*
START_TEST (test_symbol_pack_unpack)
{
    XR foo = xr_sym("foo");
    FILE *fp = fopen("test_symbol_pack.tmp", "w");
    qsend(
}
END_TEST
*/

START_TEST (test_symbol_literal)
{
	XR sym = xr_sym("symbol");
	XR lit = send(sym, s_literal);

	fail_unless(qsend(lit, "eq", xr_str(":symbol")) == VAL_TRUE);
}

Exemple #3

Fichier : symbol.c Projet : nrhtr/elixr

XR symbol_string(XR cl, XR self)
{
    (void) cl;

    return xr_str(xrSymPtr(self));
}