diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-11-18T11·22+0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-11-18T11·22+0000 |
commit | ce92d1bf1434562f5b80320c503768c4d06f1f8d (patch) | |
tree | 477c80de94f3c403115f80bad450003946af2889 /src/fix-ng/fixexpr.hh | |
parent | 9f0f020929c9e093405cc6193d2f227cab763912 (diff) |
* "Nix expression" -> "store expression".
* More refactoring.
Diffstat (limited to 'src/fix-ng/fixexpr.hh')
-rw-r--r-- | src/fix-ng/fixexpr.hh | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/src/fix-ng/fixexpr.hh b/src/fix-ng/fixexpr.hh new file mode 100644 index 000000000000..6c1e51d9ccd6 --- /dev/null +++ b/src/fix-ng/fixexpr.hh @@ -0,0 +1,75 @@ +#ifndef __FIXEXPR_H +#define __FIXEXPR_H + +#include <map> + +#include <aterm2.h> + +#include "util.hh" + + +/* Fix expressions are represented as ATerms. The maximal sharing + property of the ATerm library allows us to implement caching of + normals forms efficiently. */ +typedef ATerm Expr; + + +/* Mappings from ATerms to ATerms. This is just a wrapper around + ATerm tables. */ +class ATermMap +{ +private: + unsigned int maxLoadPct; + ATermTable table; + +public: + ATermMap(unsigned int initialSize = 16, unsigned int maxLoadPct = 75); + ATermMap(const ATermMap & map); + ~ATermMap(); + + void set(ATerm key, ATerm value); + void set(const string & key, ATerm value); + + ATerm get(ATerm key) const; + ATerm get(const string & key) const; + + void remove(ATerm key); + void remove(const string & key); + + ATermList keys() const; +}; + + +/* Convert a string to an ATerm (i.e., a quoted nullary function + applicaton). */ +ATerm string2ATerm(const string & s); +string aterm2String(ATerm t); + +/* Generic bottomup traversal over ATerms. The traversal first + recursively descends into subterms, and then applies the given term + function to the resulting term. */ +struct TermFun +{ + virtual ATerm operator () (ATerm e) = 0; +}; +ATerm bottomupRewrite(TermFun & f, ATerm e); + +/* Query all attributes in an attribute set expression. The + expression must be in normal form. */ +void queryAllAttrs(Expr e, ATermMap & attrs); + +/* Query a specific attribute from an attribute set expression. The + expression must be in normal form. */ +Expr queryAttr(Expr e, const string & name); + +/* Create an attribute set expression from an Attrs value. */ +Expr makeAttrs(const ATermMap & attrs); + +/* Perform a set of substitutions on an expression. */ +Expr substitute(const ATermMap & subs, Expr e); + +/* Create an expression representing a boolean. */ +Expr makeBool(bool b); + + +#endif /* !__FIXEXPR_H */ |