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

Пример #1

Файл: Random_smob.cpp Проект: hkaiser/TRiAS

SCM
random2scm(Random* rnd)
{
  SCM_DEFER_INTS;
  SCM smob;
  SCM_NEWCELL (smob);
  SCM_SETCDR (smob, rnd);
  SCM_SETCAR (smob, random_tag_type);
  SCM_ALLOW_INTS;
  return smob;
}

Пример #2

Файл: scm-gconf.c Проект: BARGAN/gconf

SCM      
gconf2scm (GConfEngine* conf)
{
  SCM smob;

  gh_defer_ints();

  SCM_NEWCELL (smob);
  SCM_SETCDR (smob, conf);
  SCM_SETCAR (smob, gconf_type_tag);

  gh_allow_ints();
  return smob;
}