diff options
Diffstat (limited to 'demo.cc')
| -rw-r--r-- | demo.cc | 74 |
1 files changed, 67 insertions, 7 deletions
@@ -1,22 +1,77 @@ -#include <cassert> #include <cstdlib> #include <dux/io.h> #include <iostream> #include <zp/str> +template<typename ltyp,typename rtyp> static auto chk(long const lin,::zp::i8 const mth,ltyp const& lval,rtyp const& rval) { + auto const cmp = [](::zp::i8 const mth,auto const& lval,auto const& rval) -> bool { + switch (mth) { + default: + ::zp::unrch(); + case 0x0u: + return lval == rval; + case 0x1u: + return lval >= rval; + case 0x2u: + return lval > rval; + case 0x3u: + return lval <= rval; + case 0x4u: + return lval < rval; + case 0x5u: + return lval != rval; + } + }; + + auto const str = [](::zp::i8 const mth) -> char const * { + switch (mth) { + default: + ::zp::unrch(); + case 0x0u: + return "!="; + case 0x1u: + return "<"; + case 0x2u: + return "<="; + case 0x3u: + return ">"; + case 0x4u: + return ">="; + case 0x5u: + return "=="; + } + }; + + if (!cmp(mth,lval,rval)) { + ::std::cout << lin << ": " << lval << ' ' << str(mth) << ' ' << rval << ::std::endl; + ::std::exit(EXIT_SUCCESS); + } +}; +#define chkeq(lval,rval) (::chk(__LINE__,0x0u,(lval),(rval))) +#define chkge(lval,rval) (::chk(__LINE__,0x1u,(lval),(rval))) +#define chkgt(lval,rval) (::chk(__LINE__,0x2u,(lval),(rval))) +#define chkle(lval,rval) (::chk(__LINE__,0x3u,(lval),(rval))) +#define chklt(lval,rval) (::chk(__LINE__,0x4u,(lval),(rval))) +#define chkne(lval,rval) (::chk(__LINE__,0x5u,(lval),(rval))) + int main() { //::dux_pri("dux {i04}.{i04}, demo\n",dux_api,dux_ext); ::std::cout << "dux " << dux_api << '.' << dux_ext << ", demo" << ::std::endl; ::dux_err err = ::dux_err_oky; - auto const chkerr = [&err](char const * const msg) noexcept { + auto const chkerr = [&err](char const* const msg) noexcept { if (err != ::dux_err_oky) { ::std::cout << msg << ": " << ::dux_errmsg(err) << ::std::endl; ::std::exit(EXIT_FAILURE); } }; + char * const homdir = new char[::dux_homdir(nullptr)]; + ::dux_homdir(homdir); + ::std::cout << "Home directory: " << homdir << ::std::endl; + delete[] homdir; + err = ::dux_crtdir("testdir",0755u); chkerr("unable to create directory"); @@ -25,7 +80,7 @@ int main() { err = ::dux_crt(&fil,"testdir/dux-demo-file",0644u); chkerr("unable to create file"); - char const src[] = + constexpr char src[] = "static void msg(void);\n" "\n" "int main(void) {\n" @@ -38,6 +93,7 @@ int main() { "static void msg(void) {\n" "\tly_wrtstr(ly_dflout,\"flux ftw\\n\");\n" "} /* Remember the last newline -> */\n"; + constexpr ::zp::siz srclen = sizeof (src)-0x1u; err = ::dux_wrtstr(fil,src); chkerr("unable to write to file"); @@ -49,7 +105,7 @@ int main() { err = ::dux_sttpth(&pthinf,"testdir/dux-demo-file"); chkerr("unable to stat file"); - assert(pthinf.siz == sizeof (src)-0x1u); + chkeq(pthinf.siz,srclen); err = ::dux_cpy("testdir/dux-demo-file.c","testdir/dux-demo-file",0644u); chkerr("unable to copy file"); @@ -57,12 +113,16 @@ int main() { err = ::dux_opn(&fil,"testdir/dux-demo-file.c"); chkerr("unable to open file"); - char buf[sizeof (src)]; + char buf[srclen+0x1u]; + buf[srclen] = '\x00'; - err = ::dux_red(buf,fil,sizeof (src),nullptr); + ::zp::siz numred = 0x0u; + err = ::dux_red(buf,fil,srclen,&numred); chkerr("unable to read file"); - assert(::zp::strequ(buf,src)); + chkeq(numred,srclen); + + chkeq(::zp::strequ(buf,src),true); err = ::dux_cls(fil); chkerr("unable to close file"); |