mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 20:33:55 +00:00
e9d95ada12
Estimated hours taken: 2 Branches: main library/builtin.m: library/private_builtin.m: library/sparse_bitset.m: library/string.m: Change calls to mercury::runtime::convert to System::Covert. Use __box instead of mercury::runtime::Convert::ToObject runtime/Mmakefile: Add a rule to remove the DOTNET_DLLS for clean_local. runtime/mercury_il.il: Remove ConvertImpl class, use unbox and ldobj instead of ToInt32. runtime/mercury_mcpp.cpp: Remove Convert class. runtime/mercury_mcpp.h: Use __box instead of mercury::runtime::Convert::ToObject scripts/Mmake.rules: Put the local include directory before the installed one when compiling with MC++. Also fix the rule for .cpp.dll to be the same as the subdir rule.
121 lines
3.6 KiB
C++
121 lines
3.6 KiB
C++
//
|
|
// Copyright (C) 2000-2001 The University of Melbourne.
|
|
// This file may only be copied under the terms of the GNU Library General
|
|
// Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
//
|
|
|
|
// mercury_mcpp.cpp - This file defines the system runtime types and
|
|
// methods that are used when generating code for the .NET backend.
|
|
// It is written using Microsoft's Managed Extensions for C++ (usually
|
|
// called Managed C++ or MC++).
|
|
|
|
// vi: ts=4 sw=4 et tw=0 wm=0
|
|
|
|
#using <mscorlib.dll>
|
|
#using "mercury_il.dll"
|
|
|
|
// This line (somehow) stops the compiler from
|
|
// linking in the C library (and it will then complain about main being
|
|
// missing)
|
|
extern "C" int _fltused=0;
|
|
|
|
#include "mercury_mcpp.h"
|
|
|
|
namespace mercury {
|
|
|
|
namespace runtime {
|
|
|
|
// XXX Exception support is utterly incomplete.
|
|
__gc public class Exception : public System::Exception
|
|
{
|
|
public:
|
|
// XXX there should be a Mercury object here.
|
|
Exception(MR_String Msg) : System::Exception(Msg)
|
|
{
|
|
// XXX this should set the exception message
|
|
}
|
|
};
|
|
|
|
|
|
__gc public class Errors {
|
|
public:
|
|
static void SORRY(MR_String s)
|
|
{
|
|
MR_String msg;
|
|
msg = System::String::Concat("Sorry, unimplemented: ", s);
|
|
throw new mercury::runtime::Exception(msg);
|
|
}
|
|
|
|
static void fatal_error(MR_String s)
|
|
{
|
|
MR_String msg;
|
|
msg = System::String::Concat("Fatal error: ", s);
|
|
throw new mercury::runtime::Exception(msg);
|
|
}
|
|
};
|
|
|
|
|
|
__gc public class Constants {
|
|
public:
|
|
|
|
// These constants are duplicated in library/private_builtin.m.
|
|
// They must be kept sychronized.
|
|
|
|
// XXX it would be nice if these could be const or an enum. But
|
|
// there are some problems with accessing the values from IL if we do
|
|
// that because neither alternatives seem to define field names we
|
|
// can reference from IL.
|
|
|
|
static int MR_TYPECTOR_REP_ENUM = MR_TYPECTOR_REP_ENUM_val;
|
|
static int MR_TYPECTOR_REP_ENUM_USEREQ = MR_TYPECTOR_REP_ENUM_USEREQ_val;
|
|
static int MR_TYPECTOR_REP_DU = MR_TYPECTOR_REP_DU_val;
|
|
static int MR_TYPECTOR_REP_DU_USEREQ = 3;
|
|
static int MR_TYPECTOR_REP_NOTAG = 4;
|
|
static int MR_TYPECTOR_REP_NOTAG_USEREQ = 5;
|
|
static int MR_TYPECTOR_REP_EQUIV = 6;
|
|
static int MR_TYPECTOR_REP_EQUIV_VAR = 7;
|
|
static int MR_TYPECTOR_REP_INT = 8;
|
|
static int MR_TYPECTOR_REP_CHAR = 9;
|
|
static int MR_TYPECTOR_REP_FLOAT =10;
|
|
static int MR_TYPECTOR_REP_STRING =11;
|
|
static int MR_TYPECTOR_REP_PRED =12;
|
|
// MR_TYPECTOR_REP_UNIV is unused - it is retained
|
|
// only for backwards compatability.
|
|
static int MR_TYPECTOR_REP_UNIV =13;
|
|
static int MR_TYPECTOR_REP_VOID =14;
|
|
static int MR_TYPECTOR_REP_C_POINTER =15;
|
|
static int MR_TYPECTOR_REP_TYPEINFO =16;
|
|
static int MR_TYPECTOR_REP_TYPECLASSINFO =17;
|
|
static int MR_TYPECTOR_REP_ARRAY =18;
|
|
static int MR_TYPECTOR_REP_SUCCIP =19;
|
|
static int MR_TYPECTOR_REP_HP =20;
|
|
static int MR_TYPECTOR_REP_CURFR =21;
|
|
static int MR_TYPECTOR_REP_MAXFR =22;
|
|
static int MR_TYPECTOR_REP_REDOFR =23;
|
|
static int MR_TYPECTOR_REP_REDOIP =24;
|
|
static int MR_TYPECTOR_REP_TRAIL_PTR =25;
|
|
static int MR_TYPECTOR_REP_TICKET =26;
|
|
static int MR_TYPECTOR_REP_NOTAG_GROUND =27;
|
|
static int MR_TYPECTOR_REP_NOTAG_GROUND_USEREQ =28;
|
|
static int MR_TYPECTOR_REP_EQUIV_GROUND =29;
|
|
|
|
static int MR_SECTAG_NONE = 0;
|
|
static int MR_SECTAG_LOCAL = 1;
|
|
static int MR_SECTAG_REMOTE = 2;
|
|
};
|
|
|
|
__gc public class Environment
|
|
{
|
|
public:
|
|
};
|
|
|
|
__gc public class Commit : public System::Exception
|
|
{
|
|
public:
|
|
};
|
|
|
|
}
|
|
|
|
}
|
|
|