urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-02 09:32:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added function noun/xtract.c:u3x_hext().

Browse Source
This commit is contained in:
John Franklin 2017-06-22 19:52:02 -05:00 committed by Raymond Pasco
parent 377f7c3328
commit 22c20ab8b2
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
include/noun/xtract.h
View File

@ -117,3 +117,16 @@
u3_noun* d,
u3_noun* e,
u3_noun* f);
/* u3x_hext():
**
** Divide `a` as a hextuple `[b c d e f g]`.
*/
void
u3x_hext(u3_noun a,
u3_noun* b,
u3_noun* c,
u3_noun* d,
u3_noun* e,
u3_noun* f,
u3_noun* g);

18
noun/xtract.c
View File

@ -88,3 +88,21 @@ u3x_quil(u3_noun a,
}
}
/* u3x_hext():
**
** Divide `a` as a hextuple `[b c d e f g]`.
*/
void
u3x_hext(u3_noun a,
u3_noun* b,
u3_noun* c,
u3_noun* d,
u3_noun* e,
u3_noun* f,
u3_noun* g)
{
if ( c3n == u3r_hext(a, b, c, d, e, f, g) ) {
u3m_bail(c3__exit);
}
}