source: golgotha/src/golg/li_interface.cc @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 11 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 789 bytes
RevLine 
[80]1/********************************************************************** <BR>
2  This file is part of Crack dot Com's free source code release of
3  Golgotha. <a href="http://www.crack.com/golgotha_release"> <BR> for
4  information about compiling & licensing issues visit this URL</a>
5  <PRE> If that doesn't help, contact Jonathan Clark at
6  golgotha_source@usa.net (Subject should have "GOLG" in it)
7***********************************************************************/
8
9#include "lisp/li_init.hh"
10#include "g1_object.hh"
11
12static li_object *li_get_object_type(li_object *o, li_environment *env)
13{
14  return new li_int(g1_get_object_type(li_string::get(li_eval(li_car(o,env), env),env)->value()));
15}
16
17li_automatic_add_function(li_get_object_type, "get_object_type");
18
Note: See TracBrowser for help on using the repository browser.