mirror of
https://github.com/privatevoid-net/nix-super.git
synced 2024-11-11 00:36:20 +02:00
41 lines
801 B
C++
41 lines
801 B
C++
#include "aterm.hh"
|
|
|
|
|
|
string atPrint(ATerm t)
|
|
{
|
|
if (!t) throw Error("attempt to print null aterm");
|
|
char * s = ATwriteToString(t);
|
|
if (!s) throw Error("cannot print term");
|
|
return s;
|
|
}
|
|
|
|
|
|
ostream & operator << (ostream & stream, ATerm e)
|
|
{
|
|
return stream << atPrint(e);
|
|
}
|
|
|
|
|
|
Error badTerm(const format & f, ATerm t)
|
|
{
|
|
char * s = ATwriteToString(t);
|
|
if (!s) throw Error("cannot print term");
|
|
if (strlen(s) > 1000) {
|
|
int len;
|
|
s = ATwriteToSharedString(t, &len);
|
|
if (!s) throw Error("cannot print term");
|
|
}
|
|
return Error(format("%1%, in `%2%'") % f.str() % (string) s);
|
|
}
|
|
|
|
|
|
ATerm toATerm(const char * s)
|
|
{
|
|
return (ATerm) ATmakeAppl0(ATmakeAFun((char *) s, 0, ATtrue));
|
|
}
|
|
|
|
|
|
ATerm toATerm(const string & s)
|
|
{
|
|
return toATerm(s.c_str());
|
|
}
|