diff options
| author | eb <eb@221aa14e-8319-0410-a670-987f0aec2ac5> | 2007-02-26 00:40:37 +0000 |
|---|---|---|
| committer | eb <eb@221aa14e-8319-0410-a670-987f0aec2ac5> | 2007-02-26 00:40:37 +0000 |
| commit | 7c9883d7500fcea8232e2dc860ceb2baaeb18823 (patch) | |
| tree | 1e2ce3f5763f75e8a8aa4b3a13e7a88ec553d5c7 /pmt | |
| parent | 455450fe17ceb0f4ed9d3c072fc7afba258b6fea (diff) | |
Merged mblock work-in-progress from eb/mb -r4341:4633 into trunk.
git-svn-id: http://gnuradio.org/svn/gnuradio/trunk@4634 221aa14e-8319-0410-a670-987f0aec2ac5
Diffstat (limited to 'pmt')
| -rw-r--r-- | pmt/src/lib/pmt.cc | 24 | ||||
| -rw-r--r-- | pmt/src/lib/pmt.h | 20 |
2 files changed, 44 insertions, 0 deletions
diff --git a/pmt/src/lib/pmt.cc b/pmt/src/lib/pmt.cc index 036a5f8ba1..cf6547b572 100644 --- a/pmt/src/lib/pmt.cc +++ b/pmt/src/lib/pmt.cc @@ -841,3 +841,27 @@ pmt_subsetp(pmt_t list1, pmt_t list2) } return true; } + +pmt_t +pmt_list1(pmt_t x1) +{ + return pmt_cons(x1, PMT_NIL); +} + +pmt_t +pmt_list2(pmt_t x1, pmt_t x2) +{ + return pmt_cons(x1, pmt_cons(x2, PMT_NIL)); +} + +pmt_t +pmt_list3(pmt_t x1, pmt_t x2, pmt_t x3) +{ + return pmt_cons(x1, pmt_cons(x2, pmt_cons(x3, PMT_NIL))); +} + +pmt_t +pmt_list4(pmt_t x1, pmt_t x2, pmt_t x3, pmt_t x4) +{ + return pmt_cons(x1, pmt_cons(x2, pmt_cons(x3, pmt_cons(x4, PMT_NIL)))); +} diff --git a/pmt/src/lib/pmt.h b/pmt/src/lib/pmt.h index 2cb032e5b8..030637c4d2 100644 --- a/pmt/src/lib/pmt.h +++ b/pmt/src/lib/pmt.h @@ -548,6 +548,26 @@ pmt_t pmt_member(pmt_t obj, pmt_t list); */ bool pmt_subsetp(pmt_t list1, pmt_t list2); +/*! + * \brief Return a list of length 1 containing \p x1 + */ +pmt_t pmt_list1(pmt_t x1); + +/*! + * \brief Return a list of length 2 containing \p x1, \p x2 + */ +pmt_t pmt_list2(pmt_t x1, pmt_t x2); + +/*! + * \brief Return a list of length 3 containing \p x1, \p x2, \p x3 + */ +pmt_t pmt_list3(pmt_t x1, pmt_t x2, pmt_t x3); + +/*! + * \brief Return a list of length 4 containing \p x1, \p x2, \p x3, \p x4 + */ +pmt_t pmt_list4(pmt_t x1, pmt_t x2, pmt_t x3, pmt_t x4); + /* * ------------------------------------------------------------------------ * read / write |