asymptote 1.72 sources (not integrated into build yet)

git-svn-id: svn://tug.org/texlive/trunk@13110 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 47 insertions, 0 deletions

diff --git a/Build/source/utils/asymptote/coenv.cc b/Build/source/utils/asymptote/coenv.cc
new file mode 100644
index 00000000000..e281b666962
--- /dev/null
+++ b/Build/source/utils/asymptote/coenv.cc
@@ -0,0 +1,47 @@
+/*****
+ * coenv.cc
+ * Andy Hammerlindl 2004/11/18
+ *
+ * Bundles the env and coder classes needed in translating the abstract syntax
+ * tree.  It also also implements some functions that involve both the env and
+ * coder, such as implicitCast().
+ *****/
+
+#include "coenv.h"
+
+namespace trans {
+
+// Prints out error messages for the cast methods.
+static inline void castError(position pos, ty *target, ty *source)
+{
+  em.error(pos);
+  em << "cannot convert \'" << *source
+     << "\' to \'" << *target << "\'";
+}
+
+static inline bool accessCast(position pos, ty *target, ty *source,
+                              access *a, coder& c)
+{
+  if (a) {
+    a->encode(CALL, pos, c);
+    return true;
+  }
+  else {
+    castError(pos, target, source);
+    return false;
+  }
+}
+
+bool coenv::implicitCast(position pos, ty *target, ty *source)
+{
+  return accessCast(pos, target, source,
+                    e.lookupCast(target, source, symbol::castsym), c);
+}
+
+bool coenv::explicitCast(position pos, ty *target, ty *source)
+{
+  return accessCast(pos, target, source,
+                    e.lookupCast(target, source, symbol::ecastsym), c);
+}
+
+}