/* sm1.c
 * SpiderMonkey を C プログラムから使う例
 *
 * 使い方：コマンドライン引数で JavaScript のコードを指定する。
 * % sm1 "function f(x){if(x<=0){return 1;}else{return x*f(x-1);}};f(5)"
 * script result: 120
 * done.
 */

#define USAGE "Usage: sm1 <script>"

#include <string.h>
#include "jsapi.h"

/* グローバルオブジェクトのクラス */
static JSClass global_class = {
  "global",
  JSCLASS_GLOBAL_FLAGS,
  JS_PropertyStub,
  JS_PropertyStub,
  JS_PropertyStub,
  JS_PropertyStub,
  JS_EnumerateStub,
  JS_ResolveStub,
  JS_ConvertStub,
  JS_FinalizeStub,
  JSCLASS_NO_OPTIONAL_MEMBERS
};

/* エラーレポート用コールバック関数 */
void reportError(
  JSContext *jsctx
  , const char *message
  , JSErrorReport *report
) {
  fprintf(stderr, "%s:%u:%s\n",
    report->filename ? report->filename : "<no filename>",
    (unsigned int) report->lineno,
    message);
}

int main(int ac, char **av)
{
  int error_flag = 0;

  JSRuntime *jsrt = NULL;
  JSContext *jsctx = NULL;
  JSObject  *global = NULL;

  char *script = NULL;

  if (ac < 2) {
    fprintf(stderr, "%s\n", USAGE);
    error_flag = 1;
    goto _FINALLY_;
  }
  script = av[1];

  /* 初期化 */

  /* プロセス単位でランタイムを生成 */
  jsrt = JS_NewRuntime(8L * 1024L * 1024L);
  if (!jsrt) {
    fprintf(stderr, "ERROR: JS_NewRuntime ");
    error_flag = 1;
    goto _FINALLY_;
  }
  
  /* スレッド単位でコンテクスト生成 */
  jsctx = JS_NewContext(jsrt, 8192);
  if (!jsctx) {
    fprintf(stderr, "ERROR: JS_NewContext ");
    error_flag = 1;
    goto _FINALLY_;
  }
  
  JS_SetOptions(jsctx, JSOPTION_VAROBJFIX);
  JS_SetVersion(jsctx, JSVERSION_LATEST);
  JS_SetErrorReporter(jsctx, reportError);
  
  /* コンテクスト単位でグローバルオブジェクトを生成 */
  global = JS_NewObject(jsctx, &global_class, NULL, NULL);
  if (!global) {
    fprintf(stderr, "ERROR: JS_NewObject ");
    error_flag = 1;
    goto _FINALLY_;
  }
  
  if (!JS_InitStandardClasses(jsctx, global)) {
    fprintf(stderr, "ERROR: JS_InitStandardClasses ");
    error_flag = 1;
    goto _FINALLY_;
  }
  
  /* スクリプトの実行 */
  
  if (script) {
    jsval rval;
    JSBool ok = JS_EvaluateScript(jsctx, global, script, strlen(script), 
                           __FILE__, __LINE__, &rval);
    if (ok != JS_TRUE) {
      error_flag = 1;
      goto _FINALLY_;
    }
    {
      JSString *str = JS_ValueToString(jsctx, rval);
      if (str) {
        printf("script result: %s\n", JS_GetStringBytes(str));
      }
    }
  }
  
  _FINALLY_:
  
  /* JSContext と JSRuntime リソースの解放 */
  if (jsctx) {
    JS_DestroyContext(jsctx);
    jsctx = NULL;
  }
  if (jsrt) {
    JS_DestroyRuntime(jsrt);
    jsrt = NULL;
  }
  
  JS_ShutDown();
    
  if (error_flag) {
    fprintf(stderr, "failed.\n");
    return 1;
  }

  printf("done.\n");
  return 0;
} /* End of main */