extensions/dejagnu/dejagnu.cpp

   1 //
   2 //   Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010,
   3 //   2011 Free Software Foundation, Inc
   4 //
   5 // This program is free software; you can redistribute it and/or modify
   6 // it under the terms of the GNU General Public License as published by
   7 // the Free Software Foundation; either version 3 of the License, or
   8 // (at your option) any later version.
   9 //
  10 // This program is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14 //
  15 // You should have received a copy of the GNU General Public License
  16 // along with this program; if not, write to the Free Software
  17 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18
  19 #ifdef HAVE_CONFIG_H
  20 #include "gnashconfig.h"
  21 #endif
  22
  23 #include <map>
  24 #include <iostream>
  25 #include <string>
  26 #include "log.h"
  27 #include "dejagnu.h"
  28 #include "fn_call.h"
  29 #include "as_object.h"
  30 #include "as_function.h"
  31 #include "Global_as.h"
  32
  33 using namespace std;
  34
  35 namespace gnash
  36 {
  37
  38 as_value dejagnu_pass(const fn_call& fn);
  39 as_value dejagnu_fail(const fn_call& fn);
  40 as_value dejagnu_totals(const fn_call& fn);
  41
  42 class DejaGnu : public Relay
  43 {
  44 public:
  45     DejaGnu();
  46     ~DejaGnu();
  47     const char *pass (const char *msg);
  48     const char *fail (const char *msg);
  49     const char *xpass (const char *msg);
  50     const char *xfail (const char *msg);
  51     void totals ();
  52 private:
  53     int passed;
  54     int failed;
  55     int xpassed;
  56     int xfailed;
  57 };
  58
  59 static void
  60 attachInterface(as_object& obj)
  61 {
  62     Global_as& gl = getGlobal(obj);
  63
  64     obj.init_member("pass", gl.createFunction(dejagnu_pass));
  65     obj.init_member("fail", gl.createFunction(dejagnu_fail));
  66     obj.init_member("totals", gl.createFunction(dejagnu_totals));
  67 }
  68
  69 static as_value
  70 dejagnu_ctor(const fn_call& fn)
  71 {
  72     as_object* obj = ensure<ValidThis>(fn);
  73     obj->setRelay(new DejaGnu());
  74     return as_value();
  75 }
  76
  77
  78 DejaGnu::DejaGnu()
  79     : passed(0), failed(0), xpassed(0), xfailed(0)
  80 {
  81 //    GNASH_REPORT_FUNCTION;
  82 }
  83
  84 DejaGnu::~DejaGnu()
  85 {
  86 //    GNASH_REPORT_FUNCTION;
  87 }
  88
  89 const char *
  90 DejaGnu::pass (const char *msg)
  91 {
  92     passed++;
  93     log_debug("PASSED: %s\n", msg);
  94     return NULL;
  95 }
  96
  97 const char *
  98 DejaGnu::fail (const char *msg)
  99 {
 100     failed++;
 101     log_debug("FAILED: %s\n", msg);
 102     return NULL;
 103 }
 104
 105 as_value
 106 dejagnu_pass(const fn_call& fn)
 107 {
 108 //    GNASH_REPORT_FUNCTION;
 109     DejaGnu* ptr = ensure<ThisIsNative<DejaGnu> >(fn);
 110
 111     if (fn.nargs > 0) {
 112         string text = fn.arg(0).to_string();
 113         return as_value(ptr->pass(text.c_str()));
 114     }
 115
 116     return as_value();
 117 }
 118
 119 as_value
 120 dejagnu_fail(const fn_call& fn)
 121 {
 122 //    GNASH_REPORT_FUNCTION;
 123     DejaGnu* ptr = ensure<ThisIsNative<DejaGnu> >(fn);
 124
 125     if (fn.nargs > 0) {
 126         string text = fn.arg(0).to_string();
 127         return as_value(ptr->fail(text.c_str()));
 128     }
 129
 130     return as_value();
 131 }
 132
 133 as_value
 134 dejagnu_totals(const fn_call& fn)
 135 {
 136     DejaGnu* ptr = ensure<ThisIsNative<DejaGnu> >(fn);
 137
 138     ptr->totals();
 139     return as_value(true);
 140 }
 141
 142
 143 extern "C" {
 144 void
 145 dejagnu_class_init(as_object &obj)
 146 {
 147     Global_as& gl = getGlobal(obj);
 148     as_object* proto = createObject(gl);
 149     attachInterface(*proto);
 150
 151     as_object* cl = gl.createClass(&dejagnu_ctor, proto);
 152
 153         obj.init_member("DejaGnu", cl);
 154 }
 155 } // end of extern C
 156
 157
 158 } // end of gnash namespace
 159
 160 // Local Variables:
 161 // mode: C++
 162 // indent-tabs-mode: t
 163 // End: