Kernel/src/embed.c

181     module.tag.kernel = ModuleTag(ec_.d.kernel_sepia);
182     if (main_emulc_noexit(goal.val, goal.tag, module.val, module.tag) != PYIELD)
219     ec_assign(&POSTED_LAST, pw[1].val, pw[1].tag);
234     ec_assign(&POSTED, empty.val, empty.tag);
235     ec_assign(&POSTED_LAST, empty.val, empty.tag);
319     if (IsInteger(pw->tag))
346     if (IsInteger(pw->tag))
353     if (IsInteger(pw->tag))
451     if (IsInteger(pw->tag))
458     if (IsInteger(pw->tag))
501     if (IsInteger(pw->tag))
508     if (IsInteger(pw->tag))
613     if (!(IsSimple(initpw.tag) || IsPersistent(initpw.tag)))
644     if (IsRef(initpw.tag))
670     (void) ec_assign(variable->var.val.ptr+i+1, w.val,w.tag);
753     if (IsAtom(pw->tag))
755     else if (IsNil(pw->tag))
757     else if (IsRef(pw->tag))
777 	w.tag.kernel = TSTRG;
792     if (IsString(pw->tag))
794     else if (IsAtom(pw->tag))
796     else if (IsNil(pw->tag))
798     else if (IsRef(pw->tag))
811     if (IsString(pw->tag))
816     else if (IsAtom(pw->tag))
821     else if (IsNil(pw->tag))
826     else if (IsRef(pw->tag))
847     if (IsInteger(pw->tag))
855     } else if (IsBignum(pw->tag))
857     else if (IsRef(pw->tag))
887     if (IsInteger(pw->tag)) {
894     } else if (IsBignum(pw->tag))
896     else if (IsRef(pw->tag))
919     if (IsDouble(pw->tag))
921     else if (IsInteger(pw->tag))
923     else if (IsRef(pw->tag))
1139     return IsNil(pw->tag)? PSUCCEED: PFAIL;
1147     return IsRef(pw->tag)? PSUCCEED: PFAIL;
1156     if (IsList(pw->tag))
1162     else if (IsNil(pw->tag))
1164     else if (IsRef(pw->tag))
1176     if (IsStructure(pw->tag))
1181     else if (IsList(pw->tag))
1186     else if (IsRef(pw->tag))
1199     if (IsStructure(pw->tag))
1201     else if (IsList(pw->tag))
1203     else if (IsRef(pw->tag))
1215     if (IsList(pw->tag))
1218     if (IsStructure(pw->tag))
1247     if (IsRef(ppw->tag))
1264 	while (ec_deref(&list),IsList(list.tag))
1267 		(ec_deref(&pair), IsList(pair.tag)) &&
1269 		(ec_deref(&varname), IsAtom(varname.tag)) &&
1292     return ec_unify_(pw1.val, pw1.tag, pw2.val, pw2.tag, &MU);
1305     return ec_unify_(A[n].val, A[n].tag, term.val, term.tag, &MU);
1315     return ec_compare_terms(ppw1->val, ppw1->tag, ppw2->val, ppw2->tag);
1327     Check_Structure(attr.tag);
1336     pri *proc = visible_procedure(proc_did, module.val.did, module.tag, 0);