#charset "us-ascii"

/* 
 *   Copyright (c) 1999, 2006 Michael J. Roberts
 *   
 *   This file is part of TADS 3
 *   
 *   This header defines the t3vmTEST function set.  This function set is
 *   intended primarily for use by the developers of the VM itself, for
 *   testing purposes.  User could should not use this function set, as the
 *   functionality here is not generally useful to "real" programs and is
 *   subject to future incompatible changes.  
 */

/*
 *   T3 intrinsic function set definition 
 */

#ifndef T3TEST_H
#define T3TEST_H

/* 
 *   define the T3 Test system interface 
 */
intrinsic 't3vmTEST/010000'
{
    t3test_get_obj_id(obj);
    t3test_get_obj_gc_state(id);
    t3test_get_charcode(c);
}

#endif /* T3TEST_H */