throw exception when call-ing a system instruction.

src/prolog/builtins.rs

@@ -2,94 +2,6 @@ use prolog::ast::*;
 
 use std::collections::HashMap;
 
-// from 7.12.2 b) of 13211-1:1995
-#[derive(Clone, Copy)]
-pub enum ValidType {
-    Atom,
-    Atomic,
-    Byte,
-    Callable,
-    Character,
-    Compound,
-    Evaluable,
-    InByte,
-    InCharacter,
-    Integer,
-    List,
-    Number,
-    Pair,
-    PredicateIndicator,
-    Variable
-}
-
-impl ValidType {
-    pub fn as_str(self) -> &'static str {
-        match self {
-            ValidType::Atom => "atom",
-            ValidType::Atomic => "atomic",
-            ValidType::Byte => "byte",
-            ValidType::Callable => "callable",
-            ValidType::Character => "character",
-            ValidType::Compound => "compound",
-            ValidType::Evaluable => "evaluable",
-            ValidType::InByte => "in_byte",
-            ValidType::InCharacter => "in_character",
-            ValidType::Integer => "integer",
-            ValidType::List => "list",
-            ValidType::Number => "number",
-            ValidType::Pair => "pair",
-            ValidType::PredicateIndicator => "predicate_indicator",
-            ValidType::Variable => "variable"
-        }
-    }
-}
-
-// from 7.12.2 f) of 13211-1:1995
-#[derive(Clone, Copy)]
-pub enum RepFlag {
-    Character,
-    CharacterCode,
-    InCharacterCode,
-    MaxArity,
-    MaxInteger,
-    MinInteger
-}
-
-impl RepFlag {
-    pub fn as_str(self) -> &'static str {
-        match self {
-            RepFlag::Character => "character",
-            RepFlag::CharacterCode => "character_code",
-            RepFlag::InCharacterCode => "in_character_code",
-            RepFlag::MaxArity => "max_arity",
-            RepFlag::MaxInteger => "max_integer",
-            RepFlag::MinInteger => "min_integer"
-        }
-    }
-}
-
-// from 7.12.2 g) of 13211-1:1995
-#[derive(Clone, Copy)]
-pub enum EvalError {
-    FloatOverflow,
-    IntOverflow,
-    Undefined,
-    Underflow,
-    ZeroDivisor
-}
-
-impl EvalError {
-    pub fn as_str(self) -> &'static str {
-        match self {
-            EvalError::FloatOverflow => "float_overflow",
-            EvalError::IntOverflow => "int_overflow",
-            EvalError::Undefined => "undefined",
-            EvalError::Underflow => "underflow",
-            EvalError::ZeroDivisor => "zero_divisor"
-        }
-    }
-}
-
 /*
 fn get_builtins() -> Code {    
     vec![internal_call_n!(), // callN/N, 0.