EmptyTSub (lines 1668-1699)
Back to List
Browsing verblibm.h
1668 [ EmptyTSub i j k flag;
1669 if (noun == second) return L__M(##EmptyT, 4);
1670 if (ObjectIsUntouchable(noun)) return;
1671 if (noun hasnt container) return L__M(##EmptyT, 1, noun);
1672 if (noun hasnt open) return L__M(##EmptyT, 2, noun);
1673 if (second ~= d_obj) {
1674 if (second hasnt supporter) {
1675 if (second hasnt container) return L__M(##EmptyT, 1, second);
1676 if (second hasnt open) return L__M(##EmptyT, 2, second);
1677 }
1678 }
1679 i = child(noun); k = children(noun);
1680 if (i == 0) return L__M(##EmptyT, 3, noun);
1681 while (i ~= 0) {
1682 j = sibling(i);
1683 flag = 0;
1684 if (ObjectIsUntouchable(noun)) flag = 1;
1685 if (noun hasnt container) flag = 1;
1686 if (noun hasnt open) flag = 1;
1687 if (second ~= d_obj) {
1688 if (second hasnt supporter) {
1689 if (second hasnt container) flag = 1;
1690 if (second hasnt open) flag = 1;
1691 }
1692 }
1693 if (k-- == 0) flag = 1;
1694 if (flag) break;
1695 if (keep_silent == 0) print (name) i, ": ";
1696 <Transfer i second>;
1697 i = j;
1698 }
1699 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.