Imported GNU robots from CVS.

Signed-off-by: Bradley Smith <brad@brad-smith.co.uk>

1 files changed, 160 insertions, 0 deletions

diff --git a/src/api.c b/src/api.c
new file mode 100644
index 0000000..81776e5
--- /dev/null
+++ b/src/api.c
@@ -0,0 +1,160 @@
+/* $Id: api.c,v 1.16 2005/09/06 19:55:40 zeenix Exp $ */
+
+/* Robot API for the GNU Robots game */
+
+/* Copyright (C) 1998 Jim Hall, jhall1@isd.net */
+
+/*
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>             /* for abs, free */
+
+#include <glib.h>
+#include <libguile.h>           /* GNU Guile high */
+
+#include "api.h"                /* GNU Robots API */
+#include "main.h"               /* for exit_nicely */
+#include "sign.h"               /* a hack for +/- sign */
+#include "grobot.h"
+
+extern GRobot *robot;
+
+/* Functions */
+
+SCM
+api_robot_turn (SCM s_n)
+{
+  g_robot_turn (robot, scm_num2int (s_n, 0, NULL));
+
+  return SCM_BOOL (TRUE);
+}
+
+SCM
+api_robot_move (SCM s_n)
+{
+  return SCM_BOOL (g_robot_move (robot, scm_num2int (s_n, 0, NULL)));
+}
+
+SCM
+api_robot_smell (SCM s_th)
+{
+  gboolean ret;
+  gchar *str;
+
+  str = SCM_STRING_CHARS (s_th);
+  ret = g_robot_smell (robot, str);
+
+  return SCM_BOOL (ret);
+}
+
+SCM
+api_robot_feel (SCM s_th)
+{
+  gboolean ret;
+  gchar *str;
+
+  str = SCM_STRING_CHARS (s_th);
+  ret = g_robot_feel (robot, str);
+
+  return SCM_BOOL (ret);
+}
+
+SCM
+api_robot_look (SCM s_th)
+{
+  gboolean ret;
+  gchar *str;
+
+  str = SCM_STRING_CHARS (s_th);
+  ret = g_robot_look (robot, str);
+
+  return SCM_BOOL (ret);
+}
+
+SCM
+api_robot_grab (void)
+{
+  return SCM_BOOL (g_robot_grab (robot));
+}
+
+SCM
+api_robot_zap (void)
+{
+  return SCM_BOOL (g_robot_zap (robot));
+}
+
+SCM
+api_robot_stop (void)
+{
+  return SCM_BOOL (g_robot_stop (robot));
+}
+
+SCM
+api_robot_get_shields (void)
+{
+  glong shields;
+
+  g_object_get (robot, "shields", &shields, NULL);
+
+  /* Returns the robot shields */
+  return (scm_long2num (shields));
+}
+
+SCM
+api_robot_get_energy (void)
+{
+  glong energy;
+
+  g_object_get (robot, "energy", &energy, NULL);
+
+  /* Returns the robot energy */
+  return (scm_long2num (energy));
+}
+
+SCM
+api_robot_get_score (void)
+{
+  glong score;
+
+  g_object_get (robot, "score", &score, NULL);
+
+  /* Returns the robot score */
+  return (scm_long2num (score));
+}
+
+void 
+api_init (void)
+{
+  /* define some new builtins (hooks) so that they are available in
+     Scheme. */
+
+  scm_c_define_gsubr ("robot-turn", 1, 0, 0, api_robot_turn);
+  scm_c_define_gsubr ("robot-move", 1, 0, 0, api_robot_move);
+  scm_c_define_gsubr ("robot-smell", 1, 0, 0, api_robot_smell);
+  scm_c_define_gsubr ("robot-feel", 1, 0, 0, api_robot_feel);
+  scm_c_define_gsubr ("robot-look", 1, 0, 0, api_robot_look);
+  scm_c_define_gsubr ("robot-grab", 0, 0, 0, api_robot_grab);
+  scm_c_define_gsubr ("robot-zap", 0, 0, 0, api_robot_zap);
+  
+  scm_c_define_gsubr ("robot-get-shields", 0, 0, 0, api_robot_get_shields);
+  scm_c_define_gsubr ("robot-get-energy", 0, 0, 0, api_robot_get_energy);
+  scm_c_define_gsubr ("robot-get-score", 0, 0, 0, api_robot_get_score);
+
+  scm_c_define_gsubr ("stop", 0, 0, 0, api_robot_stop);
+  scm_c_define_gsubr ("quit", 0, 0, 0, api_robot_stop);
+}
+