localJS/000755 000765 000024 00000000000 11461707631 012651 5ustar00Yoshistaff000000 000000 localJS/._.DS_Store000644 000765 000024 00000000122 11461707646 014552 0ustar00Yoshistaff000000 000000 Mac OS X  2 R@localJS/.DS_Store000644 000765 000024 00000030004 11461707646 014337 0ustar00Yoshistaff000000 000000 Bud1 rprete interpreter.cIlocblobF(éÿÿJavaScriptCore-125.tarIlocblobæÿÿÿÿÿÿjs.cIlocblobÌ(ÿÿjs.hIlocblobR(ÿÿjsxaw0nNÕiØÿêRÕOÝ[Xÿ .rtfIlocblobRxÄÿÿmain.cIlocblobØ(ÿÿmakefileIlocblobF˜ ÿÿmakefileÿêRÕOÝ[Xÿ .txtIlocblobFÿÿÿÿÿÿnew.cIlocblob̘ìÿÿtest.jsIlocblobR˜ÿÿtestÿêRÕOÝ[Xÿ .txtIlocblobFÏÿÿX11.cIlocblobؘäÿÿxaw.cIlocblobF ÿÿxaw.hIlocblobÌÿÿ  @€ @€ @€ @ E DSDB `€ @€ @€ @ E DSDB `€ @€ @€ @̺ÿÿjsxaw0nNÕiØÿêRÕOÝ[Xÿ .rtfIlocblobRxÄÿÿmain.cIlocblobØ(ÿÿmakefileIlocblobR˜ ÿÿmakefileÿêRÕOÝ[Xÿ .txtIlocblobFÿÿÿÿÿÿnew.cIlocblobFìÿÿtest.jsIlocblobؘÿÿtestÿêRÕOÝ[Xÿ .txtIlocblobFÏÿÿX11.cIlocblobF˜äÿÿxaw.cIlocblobU ÿÿxaw.hIlocblobØÿÿ0Þ0¦0¹[ŸˆÅO‹.cIlocblobOsæÿÿlocalJS/._interpreter.c000644 000765 000024 00000000253 11460764220 015571 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;¥«œœcom.apple.TextEncodingutf-8;134217984localJS/interpreter.c000644 000765 000024 00000007237 11460764220 015365 0ustar00Yoshistaff000000 000000 #include #include #define ARG_ERR_MSG "Wrong argument. Aborting…\n" #include //-framework JavaScriptCoreオプションを使用ã®äº‹ extern void functionLoader(JSGlobalContextRef ctx, JSObjectRef jobjGlobal); void classWrapper(JSGlobalContextRef ctx, JSObjectRef jobjGlobal, char* name, JSObjectRef* classObject); void functionWrapper(JSGlobalContextRef ctx, JSObjectRef parentObj, char* name, JSObjectCallAsFunctionCallback jsGlobalFunction); int interpreter(char* code) { #ifdef DEBUG printf("JavaScript interpreter has been started.\n"); #endif #ifdef DEBUG printf("Creating Global context.."); #endif JSGlobalContextRef ctx = JSGlobalContextCreate(NULL); #ifdef DEBUG printf("Done!\n"); #endif // グローãƒãƒ«å®Ÿè¡Œã‚³ãƒ³ãƒ†ã‚­ã‚¹ãƒˆãŒæŒã¤ã‚°ãƒ­ãƒ¼ãƒãƒ«ã‚ªãƒ–ジェクトをå–å¾—ã™ã‚‹ // ブラウザã§ã„ã†ã¨ã“ã‚ã® window オブジェクトã®ã‚ˆã†ãªã‚‚ã® JSObjectRef jobjGlobal = JSContextGetGlobalObject(ctx); functionLoader(ctx, jobjGlobal); // JavaScript ã®ã‚½ãƒ¼ã‚¹ã‚’ JS ã®æ–‡å­—列ã«ã™ã‚‹ JSStringRef jstrSource = JSStringCreateWithUTF8CString(code); #ifdef DEBUG printf("JavaScript source is now ready to execute. Starting ..\n\n"); #endif // 実行〠this ã‚’ NULL ã¨ã™ã‚‹ã¨ã‚°ãƒ­ãƒ¼ãƒãƒ«ã‚ªãƒ–ジェクト㌠this ã«ãªã‚‹ã‚‰ã—ã„ JSEvaluateScript(ctx, jstrSource, NULL, NULL, 1, NULL); // 文字列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ã‚¿ã‚’デクリメント JSStringRelease(jstrSource); #ifdef DEBUG printf("Script execution has came to the end. Terminating JavaScript instance ..\n"); #endif // 解放許å¯ï¼Ÿ JSGlobalContextRelease(ctx); // 解放実行？EXC_BAD_ACCESSãŒæ¥ã‚‹ã€‚ //JSGarbageCollect(ctx); return 0; } void classWrapper(JSGlobalContextRef ctx, JSObjectRef jobjGlobal, char* name, JSObjectRef* classObject) { //クラスã®å®šç¾©ã‚’ä¿æŒã™ã‚‹å¤‰æ•°ã‚’ä½œæˆ JSClassDefinition classDefinition = kJSClassDefinitionEmpty; //クラス型ã®å¤‰æ•°ã‚’ä½œæˆ JSClassRef classSubstance; //クラスã®åå‰ã‚’決定 classDefinition.className = name; //　プロトタイプ　ã¯ã€€æ‰‹å‹•ã€€ã§ä½œæˆã¨ã„ã†äº‹ã«ã™ã‚‹ classDefinition.attributes = kJSClassAttributeNoAutomaticPrototype; //ã‚¯ãƒ©ã‚¹åž‹ã‚’ä½œæˆ classSubstance = JSClassCreate(&classDefinition); //クラスをオブジェクト化 *classObject = JSObjectMakeConstructor(ctx, classSubstance, NULL); //プロトタイプ継承 JSObjectSetPrototype(ctx, *classObject, JSObjectGetPrototype(ctx, jobjGlobal)); //クラスをæŒã£ãŸã‚ªãƒ–ジェクトã®åå‰ã‚’作る JSStringRef jstr = JSStringCreateWithUTF8CString(name); //クラスã®ã‚ªãƒ–ジェクトをCTXã«å…¬é–‹ JSObjectSetProperty(ctx, jobjGlobal, jstr, *classObject, kJSPropertyAttributeNone, NULL); // 文字列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ã‚¿ã‚’デクリメント JSStringRelease(jstr); } void functionWrapper(JSGlobalContextRef ctx, JSObjectRef parentObj, char* name, JSObjectCallAsFunctionCallback jsGlobalFunction) { // JavaScript ã§æ‰±ãˆã‚‹æ–‡å­—列を作る JSStringRef jstr = JSStringCreateWithUTF8CString(name); // C ã®é–¢æ•°ã‚’ JS ã®é–¢æ•°ã‚ªãƒ–ジェクトã«ã™ã‚‹ JSObjectRef jfunc = JSObjectMakeFunctionWithCallback(ctx, jstr, jsGlobalFunction); //プロトタイプ継承 JSObjectSetPrototype(ctx, jfunc, JSObjectGetPrototype(ctx, parentObj)); // オブジェクトã®Prototypeã®ãƒ—ロパティã¨ã—ã¦è¿½åŠ  JSObjectSetProperty(ctx, JSObjectGetPrototype(ctx, parentObj), jstr, jfunc, kJSPropertyAttributeNone, NULL); // 文字列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ã‚¿ã‚’デクリメント JSStringRelease(jstr); }localJS/._js.c000644 000765 000024 00000000253 11461321152 013634 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;§«œœcom.apple.TextEncodingutf-8;134217984localJS/js.c000644 000765 000024 00000020512 11461321152 013417 0ustar00Yoshistaff000000 000000 #include #include #include "js.h" #ifdef ENABLE_GUI extern void functionLoader_Gui(JSGlobalContextRef ctx, JSObjectRef jobjGlobal); #endif /*+++++++++++宣言部ã“ã“ã¾ã§+++++++++++++*/ //-----関数登録機構----- void functionLoader(JSGlobalContextRef ctx, JSObjectRef jobjGlobal) { JSObjectRef Console; classWrapper(ctx, jobjGlobal, "Console", &Console); // functionWrapper(ctx, Console, "Write", (JSObjectCallAsFunctionCallback)jsGlobalPrint); functionWrapper(ctx, Console, "Read", (JSObjectCallAsFunctionCallback)jsGlobalScan); #ifdef ENABLE_GUI functionLoader_Gui(ctx, jobjGlobal);//(xaw.cã‚’å‚ç…§ã®ã“ã¨ã€‚) #endif functionWrapper(ctx, jobjGlobal, "print", (JSObjectCallAsFunctionCallback)jsGlobalPrint); functionWrapper(ctx, jobjGlobal, "fopen", (JSObjectCallAsFunctionCallback)jsGlobalF_Open); functionWrapper(ctx, jobjGlobal, "exec", (JSObjectCallAsFunctionCallback)jsGlobalExec); functionWrapper(ctx, jobjGlobal, "call", (JSObjectCallAsFunctionCallback)jsGlobalCaller); functionWrapper(ctx, jobjGlobal, "exit", (JSObjectCallAsFunctionCallback)jsGlobalExit); functionWrapper(ctx, jobjGlobal, "test", (JSObjectCallAsFunctionCallback)jsGlobalTest); } //------------------- static JSValueRef jsGlobalCaller( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { if (argLen) { // 第一引数を JS ã®æ–‡å­—列ã¨ã—ã¦ã‚³ãƒ”ー JSStringRef jstrArg = JSValueToStringCopy(ctx, args[0], jobjExp); // é•·ã•ã‚’å–å¾— size_t len = JSStringGetMaximumUTF8CStringSize(jstrArg); // 領域ã®ç¢ºä¿ char* szArg = (char*)malloc(len); JSStringGetUTF8CString(jstrArg, szArg, len); callJsFunction(ctx, szArg); JSStringRelease(jstrArg); // 解放 free(szArg); } // undefined を作ã£ã¦è¿”ã™ return JSValueMakeUndefined(ctx); } void callJsFunction(JSContextRef ctx, const char* func) { JSStringRef jstrSource = JSStringCreateWithUTF8CString(func); JSEvaluateScript(ctx, jstrSource, NULL, NULL, 1, NULL); } char* execCmd(const char* cmd) { char* buffer; size_t buffer_size = 0; size_t buffer_capacity = 1024; buffer = (char*)malloc(buffer_capacity); FILE* f = popen(cmd, "r"); if (!f) { fprintf(stderr, "Err: %s\n", cmd); return 0; } while (!feof(f) && !ferror(f)) { buffer_size += fread(buffer + buffer_size, 1, buffer_capacity - buffer_size, f); if (buffer_size == buffer_capacity) { // guarantees space for trailing '\0' buffer_capacity *= 2; buffer = (char*)realloc(buffer, buffer_capacity); } } pclose(f); buffer[buffer_size] = '\0'; return buffer; } char* loadFile(const char* fileName) { char* buffer; size_t buffer_size = 0; size_t buffer_capacity = 1024; buffer = (char*)malloc(buffer_capacity); FILE* f = fopen(fileName, "r"); if (!f) { fprintf(stderr, "Could not open file: %s\n", fileName); return 0; } while (!feof(f) && !ferror(f)) { buffer_size += fread(buffer + buffer_size, 1, buffer_capacity - buffer_size, f); if (buffer_size == buffer_capacity) { // guarantees space for trailing '\0' buffer_capacity *= 2; buffer = (char*)realloc(buffer, buffer_capacity); } } fclose(f); buffer[buffer_size] = '\0'; return buffer; } /////////////////////TEST///////////////////////// static JSValueRef jsGlobalTest( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { //dialogtest(g_argc, g_argv); return JSValueMakeUndefined(ctx); } ////////////////////////////////////////////////// static JSValueRef jsGlobalScan( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { //puts("avoid unknow error"); char* str = (char*)malloc(sizeof(char[256])); scanf("%s",str); JSStringRef mystring = JSStringCreateWithUTF8CString(str); JSValueRef result = JSValueMakeString(ctx, mystring); JSStringRelease(mystring); free(str); return result; } static JSValueRef jsGlobalF_Open( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { if (argLen) { // 第一引数を JS ã®æ–‡å­—列ã¨ã—ã¦ã‚³ãƒ”ー JSStringRef jstrArg = JSValueToStringCopy(ctx, args[0], jobjExp); // é•·ã•ã‚’å–å¾— size_t len = JSStringGetMaximumUTF8CStringSize(jstrArg); // 領域ã®ç¢ºä¿ char* szArg = (char*)malloc(len); // 領域㫠UTF8 をコピー JSStringGetUTF8CString(jstrArg, szArg, len); // ファイル読ã¿è¾¼ã¿ JSStringRef mystring = JSStringCreateWithUTF8CString(loadFile(szArg)); JSValueRef result = JSValueMakeString(ctx, mystring); //å…¨ã¦è§£æ”¾ free(szArg); JSStringRelease(jstrArg); JSStringRelease(mystring); return result; } // undefined を作ã£ã¦è¿”ã™ return JSValueMakeUndefined(ctx); } static JSValueRef jsGlobalExec( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { if (argLen) { // 第一引数を JS ã®æ–‡å­—列ã¨ã—ã¦ã‚³ãƒ”ー JSStringRef jstrArg = JSValueToStringCopy(ctx, args[0], jobjExp); // é•·ã•ã‚’å–å¾— size_t len = JSStringGetMaximumUTF8CStringSize(jstrArg); // 領域ã®ç¢ºä¿ char* szArg = (char*)malloc(len); // 領域㫠UTF8 をコピー JSStringGetUTF8CString(jstrArg, szArg, len); // コマンド実行ã€çµæžœèª­ã¿å–ã‚Š JSStringRef mystring = JSStringCreateWithUTF8CString(execCmd(szArg)); JSValueRef result = JSValueMakeString(ctx, mystring); //å…¨ã¦è§£æ”¾ free(szArg); JSStringRelease(jstrArg); JSStringRelease(mystring); return result; } // undefined を作ã£ã¦è¿”ã™ return JSValueMakeUndefined(ctx); } static JSValueRef jsGlobalPrint( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { if (argLen) { // 第一引数を JS ã®æ–‡å­—列ã¨ã—ã¦ã‚³ãƒ”ー JSStringRef jstrArg = JSValueToStringCopy(ctx, args[0], jobjExp); // é•·ã•ã‚’å–å¾— size_t len = JSStringGetMaximumUTF8CStringSize(jstrArg); // 領域ã®ç¢ºä¿ char* szArg = (char*)malloc(len); // 領域㫠UTF8 をコピー JSStringGetUTF8CString(jstrArg, szArg, len); // 出力 puts(szArg); // 文字列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ã‚¿ã‚’デクリメント JSStringRelease(jstrArg); // 解放 free(szArg); } // undefined を作ã£ã¦è¿”ã™ return JSValueMakeUndefined(ctx); } static JSValueRef makeException(JSGlobalContextRef ctx, char* ename) { if (ename) { JSStringRef jstrEx = JSStringCreateWithUTF8CString(ename); JSValueRef argumentsErrorValues[] = { JSValueMakeString(ctx, jstrEx) }; JSObjectRef e = JSObjectMakeError(ctx, 1, argumentsErrorValues, NULL); printf("Error: %s",ename); JSStringRelease(jstrEx); return e; } return JSValueMakeUndefined(ctx); } static JSValueRef jsGlobalExit( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { exit(0); // undefined を作ã£ã¦è¿”ã™ return JSValueMakeUndefined(ctx); } localJS/._js.h000644 000765 000024 00000000253 11461321074 013644 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;¨«œœcom.apple.TextEncodingutf-8;134217984localJS/js.h000644 000765 000024 00000005144 11461321074 013433 0ustar00Yoshistaff000000 000000 #ifndef JS_CONSOLE #define JS_CONSOLE #define ARG_ERR_MSG "Wrong argument. Aborting…\n" #include //-framework JavaScriptCoreオプションを使用ã®äº‹ static JSValueRef jsGlobalPrint( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); static JSValueRef jsGlobalScan( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); static JSValueRef jsGlobalF_Open( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); static JSValueRef jsGlobalExec( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); /////TEST///// static JSValueRef jsGlobalTest( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); ///////////// static JSValueRef jsGlobalCaller( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); static JSValueRef jsGlobalExit( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp); extern int interpreter(char* code); extern void functionWrapper(JSGlobalContextRef ctx, JSObjectRef jobjGlobal, char* name, JSObjectCallAsFunctionCallback jsGlobalFunction); extern void classWrapper(JSGlobalContextRef ctx, JSObjectRef jobjGlobal, char* name, JSObjectRef* classObject); extern int dialogtest( int argc, char **argv ); extern int g_argc; extern char** g_argv; char* loadFile(const char* fileName); char* execCmd(const char* cmd); void callJsFunction(JSContextRef ctx, const char* func); void functionLoader(JSGlobalContextRef ctx, JSObjectRef parentObj); static JSValueRef makeException(JSGlobalContextRef ctx, char* ename); #endif localJS/._main.c000644 000765 000024 00000000253 11455314355 014156 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;±«œœcom.apple.TextEncodingutf-8;134217984localJS/main.c000644 000765 000024 00000001416 11455314355 013743 0ustar00Yoshistaff000000 000000 #include #include #define ARG_ERR_MSG "Wrong argument. Aborting…\n" int interpreter(char* code); extern char* loadFile(const char* fileName); int g_argc; char** g_argv; /*+++++++++++宣言部ã“ã“ã¾ã§+++++++++++++*/ int main(int argc, char** argv) { g_argc = argc; g_argv = argv; #ifdef DEBUG printf("Program loaded.\n"); #endif switch(argc) { case 1: exit(0); break; case 2: interpreter(loadFile(*(argv+1))); break; case 3: if (!strcmp( argv[1], "-x" )){return interpreter(*(argv+2)); } else{ puts(ARG_ERR_MSG); return -1;} break; default: puts(ARG_ERR_MSG); break; } return 0; } localJS/._makefile000644 000765 000024 00000000253 11461437363 014570 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;²«œœcom.apple.TextEncodingutf-8;134217984localJS/makefile000644 000765 000024 00000000715 11461437363 014356 0ustar00Yoshistaff000000 000000 # Makefile CC = gcc TARGET = js_gui OBJECT = main.c js.c interpreter.c xaw.c DEBUG = no ifeq ($(DEBUG),yes) DEF := -DDEBUG else DEF := endif LIB = -L/usr/X11R6/lib -lXaw -lXmu -lXt -lX11 FRAEMEWORK = -framework JavaScriptCore $(TARGET) : $(OBJECT) @echo "*** Making $(TARGET) ***" $(CC) -Wall -Os $(FRAEMEWORK) $(LIB) -DENABLE_GUI $(DEF) -g -o $(TARGET) $(OBJECT) js : main.c js.c interpreter.c $(CC) -Wall -O3 $(FRAEMEWORK) $(LIB) $(DEF) $^ -o $@localJS/._new.c000644 000765 000024 00000000253 11457032131 014012 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;³«œœcom.apple.TextEncodingutf-8;134217984localJS/new.c000644 000765 000024 00000004205 11457032131 013576 0ustar00Yoshistaff000000 000000 #include static JSValueRef myWindowGetProperty(JSContextRef ctx, JSObjectRef object, JSStringRef propertyNameJS, JSValueRef* exception) { size_t len = JSStringGetMaximumUTF8CStringSize(propertyNameJS); char* propertyName = (char*)malloc(len); JSStringGetUTF8CString(propertyNameJS, propertyName, len); JSValueRef returningValue = JSValueMakeUndefined(ctx); if (strcmp(propertyName, "Test") == 0) { return JSValueMakeNumber(ctx, 123); }else if (strcmp(propertyName, "propertyName") == 0) { return JSValueMakeNumber(ctx, 456); }else {//ä¸æ˜Žãªå€¤ã®å ´åˆ JSStringRef string = JSStringCreateWithUTF8CString("Property not found."); JSValueRef exceptionString = JSValueMakeString(ctx, string); JSStringRelease(string); *exception = JSValueToObject(ctx, exceptionString, NULL); return NULL; } free(propertyName); return JSValueMakeUndefined(ctx); } void classMywindow(JSGlobalContextRef ctx, JSObjectRef jobjGlobal, JSObjectRef* classObject) { //クラスã®å®šç¾©ã‚’ä¿æŒã™ã‚‹å¤‰æ•°ã‚’ä½œæˆ JSClassDefinition classDefinition = kJSClassDefinitionEmpty; //クラス型ã®å¤‰æ•°ã‚’ä½œæˆ JSClassRef classSubstance; //クラスã®åå‰ã‚’決定 classDefinition.className = name; //クラスã®ã‚³ãƒ¼ãƒ«ãƒãƒƒã‚¯é–¢æ•° classDefinition.getProperty = myWindowGetProperty; //プロトタイプã¯æ‰‹å‹•ã§ä½œæˆã¨ã„ã†äº‹ã«ã™ã‚‹ //classDefinition.attributes = kJSClassAttributeNoAutomaticPrototype; //ã‚¯ãƒ©ã‚¹åž‹ã‚’ä½œæˆ classSubstance = JSClassCreate(&classDefinition); //クラスをオブジェクト化 *classObject = JSObjectMakeConstructor(ctx, classSubstance, NULL); //クラスをæŒã£ãŸã‚ªãƒ–ジェクトã®åå‰ã‚’作る JSStringRef jstr = JSStringCreateWithUTF8CString(name); //関数ã«ã—ã¡ã‚ƒã† JSValueRef jconst = JSObjectCallAsConstructor(ctx, *classObject, 0, NULL, NULL); //クラスã®ã‚ªãƒ–ジェクトをCTXã«å…¬é–‹ JSObjectSetProperty(ctx, jobjGlobal, jstr, jconst, kJSPropertyAttributeNone, NULL); //JSObjectCallAsConstructor(ctx,*classObject,0,NULL,NULL); // 文字列ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ã‚¿ã‚’デクリメント JSStringRelease(jstr); }localJS/._test.js000644 000765 000024 00000002746 11461474426 014417 0ustar00Yoshistaff000000 000000 Mac OS X  2z¬:ATTR;´¬œœcom.apple.TextEncodingx-mac-japanese;12/Applications/TextEdit.app2>^ 2usro ÿÿ<localJS/test.js000644 000765 000024 00000001100 11461474426 014161 0ustar00Yoshistaff000000 000000 var quit = function(){ exit(); } var d = new Date(); var mywindow = new xawWindow; mywindow.Name = "form"; mywindow.Direction = 0; mywindow.SetProperty(); var label = new xawControl; label.Type=0; label.Parent=mywindow; label.Text=d.toString(); label.Width=150; label.Height=20; label.Left=0; label.Top=0; label.Border=0; label.Create(); var label2 = new xawControl; label2.Type=1; label2.Parent=mywindow; label2.Text="Quit"; label2.Width=150; label2.Height=20; label2.Left=0; label2.Top=20; label2.Border=0; label2.Callback = quit; label2.Create(); mywindow.Show();localJS/._X11.c000644 000765 000024 00000000253 11454304674 013605 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;µ«œœcom.apple.TextEncodingutf-8;134217984localJS/X11.c000644 000765 000024 00000006062 11454304674 013374 0ustar00Yoshistaff000000 000000 #include #include #include #include #include #include #include typedef struct /* Xawã®Widetを構造体ã¨ã—ã¦å®šç¾© */ { XtAppContext* Context; int argc; char **argv; char* Name; XtOrientation Direction; // void (*CallbackFunction)( Widget w, XtPointer client, XtPointer called ); } xawWindow; typedef struct /* Xawã®Widetを構造体ã¨ã—ã¦å®šç¾© */ { char* Name; WidgetClass Type; Widget Parent; char* Text; int Width;//x int Height;//y int Left;//x int Top;//y int Border; void (*CallbackFunction)( Widget w, XtPointer client, XtPointer called ); } xawWidet; /* コールãƒãƒƒã‚¯é–¢æ•° */ void Quit( Widget w, XtPointer client, XtPointer called ) { exit( 0 ); } Widget createForm(Widget* form, xawWindow window) { Widget top; /* ツールキットã®åˆæœŸåŒ– */ top = XtVaAppInitialize( window.Context, window.Name, NULL, 0, &window.argc, window.argv, NULL, NULL ); /* クラスå 引数ã®ãƒªã‚½ãƒ¼ã‚¹æŒ‡å®šã‚’解釈*/ /* å°ç´™ã‚¦ã‚£ã‚¸ãƒƒãƒˆã®ä½œæˆ */ /* ウィジットクラス */ *form = XtVaCreateManagedWidget( "form", formWidgetClass, top, /* ウィジットå */ /* 親ウィンドウ */ /* リソースã®æŒ‡å®š */ XtNorientation, window.Direction, /* ã„ãã¤ã§ã‚‚OKãªã®ã§æœ€å¾Œã¯NULL */ NULL ); return top; } Widget createControl(xawWidet widget) { Widget control; control = XtVaCreateManagedWidget( widget.Name, widget.Type, widget.Parent, XtNlabel, widget.Text, XtNwidth, widget.Width, XtNheight, widget.Height, /* ç¸å–ã‚Š */ XtNborderWidth, widget.Border, /* é…置方法 */ XtNfromHoriz, NULL, /* ウィンドウã®å·¦ç«¯ã‹ã‚‰ */ XtNhorizDistance, widget.Left, /* ウィンドウã®ä¸Šç«¯ã‹ã‚‰ */ XtNfromVert, NULL, XtNvertDistance, widget.Top, NULL ); XtAddCallback( control, XtNcallback, widget.CallbackFunction, NULL ); return control; } int main( int argc, char **argv ) { XtAppContext app_con; Widget this, form, lab; //Windowã®ãƒ—ロパティを設定 xawWindow window; window.Context = &app_con; window.argc = argc; window.argv = argv; window.Name = "Window"; window.Direction = XtorientVertical; //Windowを指定ã—ãŸãƒ—ロパティを基ã«ä½œæˆ this = createForm(&form,window); xawWidet myLabel; myLabel.Name = "lab"; myLabel.Type = labelWidgetClass; myLabel.Parent = form; myLabel.Text = "Athena Widget"; myLabel.Width = 150;//x myLabel.Height = 20;//y myLabel.Left = 0;//x myLabel.Top = 0;//y myLabel.Border = 0; createControl(myLabel); xawWidet quit = {"quit",commandWidgetClass,form,"Quit",50,20,53,105,1,Quit}; createControl(quit); /* 対象ウィンドウ 関数å */ XtRealizeWidget( this ); /* ウィンドウã®å…·ç¾åŒ–。ã“れを呼ã°ãªã„ã¨è¡¨ç¤ºã‚‚ã—ãªã„ */ XtAppMainLoop( app_con ); /* メインループã«çªå…¥ */ return 0; } localJS/._xaw.c000644 000765 000024 00000000253 11461472251 014026 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;¶«œœcom.apple.TextEncodingutf-8;134217984localJS/xaw.c000644 000765 000024 00000024167 11461472251 013623 0ustar00Yoshistaff000000 000000 #include #include #include "xaw.h" //*** Strong suggetion for mac users to overwrite Intrinsic.h *** //*** Define Boolean as unsigned char *** void functionLoader_Gui(JSGlobalContextRef ctx, JSObjectRef jobjGlobal); XtAppContext app_con; WidgetClass xawWidetTypes[] = {}; XtOrientation xawOrientationDirection[]={XtorientHorizontal, XtorientVertical}; Widget *myWidgets; xawWidet *myCtrls; int objIDc = 0; char* winName; /* コールãƒãƒƒã‚¯é–¢æ•° */ void xawJsCallbackFunction( Widget w, XtPointer client, XtPointer called ) { int* myID; winName = (char*)malloc(sizeof(char)*16); winName = XtName(w); sscanf(winName,"%d",myID); printf("%d",*myID); JSObjectCallAsFunction(*(myCtrls[*myID].Context), *(myCtrls[*myID].CallbackFunction), NULL, 0,NULL,NULL); } Widget createForm(Widget* form, xawWindow window) { Widget top; /* ツールキットã®åˆæœŸåŒ– */ top = XtVaAppInitialize( window.Context, window.Name, NULL, 0, &window.argc, window.argv, NULL, NULL ); /* クラスå 引数ã®ãƒªã‚½ãƒ¼ã‚¹æŒ‡å®šã‚’解釈*/ /* å°ç´™ã‚¦ã‚£ã‚¸ãƒƒãƒˆã®ä½œæˆ */ /* ウィジットクラス */ *form = XtVaCreateManagedWidget( "form", formWidgetClass, top, /* ウィジットå */ /* 親ウィンドウ */ /* リソースã®æŒ‡å®š */ XtNorientation, window.Direction, /* ã„ãã¤ã§ã‚‚OKãªã®ã§æœ€å¾Œã¯NULL */ NULL ); return top; } Widget createControl(xawWidet widget) { myWidgets = (Widget *)realloc( myWidgets, sizeof(Widget)*(objIDc+2) ); if( myWidgets == NULL )//ãƒã‚¤ãƒ³ã‚¿ãŒç©ºã£ã½ã ã£ãŸã‚‰å®Ÿè¡Œåœæ­¢ã€‚ { printf( "Memory re-allocation failed!\n" ); exit( 1 ); } myWidgets[objIDc+2] = XtVaCreateManagedWidget( widget.Name, widget.Type, widget.Parent, XtNlabel, widget.Text, XtNwidth, widget.Width, XtNheight, widget.Height, /* ç¸å–ã‚Š */ XtNborderWidth, widget.Border, /* é…置方法 */ XtNfromHoriz, NULL, /* ウィンドウã®å·¦ç«¯ã‹ã‚‰ */ XtNhorizDistance, widget.Left, /* ウィンドウã®ä¸Šç«¯ã‹ã‚‰ */ XtNfromVert, NULL, XtNvertDistance, widget.Top, NULL ); XtAddCallback( myWidgets[objIDc+2], XtNcallback, xawJsCallbackFunction, NULL ); objIDc++; return myWidgets[objIDc+2]; } static JSValueRef jsControlCreate( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { JSValueRef r = JSValueMakeNumber(ctx, -1); //name //JSStringRef jstrName = JSValueToStringCopy(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Name"), jobjExp), jobjExp); //size_t len = JSStringGetMaximumUTF8CStringSize(jstrName); //char* name = (char*)malloc(len); //JSStringGetUTF8CString(jstrName, name, len); //********** //type int typenum = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Type"), jobjExp),NULL); WidgetClass type; switch(typenum) { case 0: type = labelWidgetClass; break; case 1: type = commandWidgetClass; break; } //********* //parent int parentID = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Parent"), jobjExp), JSStringCreateWithUTF8CString("ID"), jobjExp),NULL); //------- parentID++; //text JSStringRef jstrText = JSValueToStringCopy(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Text"), jobjExp), jobjExp); size_t len = JSStringGetMaximumUTF8CStringSize(jstrText); char* text = (char*)malloc(len); JSStringGetUTF8CString(jstrText, text, len); //********** int W = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Width"), jobjExp),NULL); int H = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Height"), jobjExp),NULL); int L = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Left"), jobjExp),NULL); int T = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Top"), jobjExp),NULL); int B = (int)JSValueToNumber(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Border"), jobjExp),NULL); JSStringRef jstrCallback = JSValueToStringCopy(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Callback"), jobjExp), jobjExp); len = JSStringGetMaximumUTF8CStringSize(jstrCallback); char* func = (char*)malloc(len); JSStringGetUTF8CString(jstrCallback, func, len); myCtrls = (xawWidet *)realloc( myCtrls, sizeof(xawWidet)*(objIDc+2) ); if( myCtrls == NULL )//ãƒã‚¤ãƒ³ã‚¿ãŒç©ºã£ã½ã ã£ãŸã‚‰å®Ÿè¡Œåœæ­¢ã€‚ { printf( "Memory re-allocation failed!\n" ); exit( 1 ); } char* name = (char*)malloc(sizeof(char)*16); sprintf(name, "%d", objIDc+2); myCtrls[objIDc+2].Name = name; //myCtrl.Name = name; myCtrls[objIDc+2].Type = type; myCtrls[objIDc+2].Parent = myWidgets[parentID]; myCtrls[objIDc+2].Text = text; myCtrls[objIDc+2].Width = W;//x myCtrls[objIDc+2].Height = H;//y myCtrls[objIDc+2].Left = L;//x myCtrls[objIDc+2].Top = T;//y myCtrls[objIDc+2].Border = B; myCtrls[objIDc+2].Context = ctx; if(!JSValueIsUndefined(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Callback"), NULL))) { myCtrls[objIDc+2].CallbackFunction = JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Callback"), NULL); } createControl(myCtrls[objIDc+2]); r = JSValueMakeNumber(ctx, objIDc); JSObjectSetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("ID"), r, kJSPropertyAttributeNone, NULL); return r; } static JSValueRef jsWindowCreate( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { myWidgets = (Widget *)malloc( sizeof(Widget)*2 ); if( myWidgets == NULL )//ãƒã‚¤ãƒ³ã‚¿ãŒç©ºã£ã½ã ã£ãŸã‚‰å®Ÿè¡Œåœæ­¢ã€‚ { printf( "Memory alloc failed!\n" ); exit( 1 ); } xawWindow myWindow; JSValueRef r = JSValueMakeNumber(ctx, -1); //if(JSObjectIsConstructor(ctx, jobj)) JSStringRef jstrName = JSValueToStringCopy(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Name"), jobjExp), jobjExp); size_t len = JSStringGetMaximumUTF8CStringSize(jstrName); char* name = (char*)malloc(len); JSStringGetUTF8CString(jstrName, name, len); myWindow.Context = &app_con; myWindow.argc = g_argc; myWindow.argv = g_argv; myWindow.Name = name; myWindow.Direction = (JSValueToBoolean(ctx, JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("Name"), jobjExp)))?XtorientVertical:XtorientHorizontal; myWidgets[objIDc] = createForm(&myWidgets[objIDc + 1], myWindow); r = JSValueMakeNumber(ctx, objIDc); JSObjectSetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("ID"), r, kJSPropertyAttributeNone, NULL); objIDc ++; return r; } static JSValueRef jsWindowShow( JSContextRef ctx, JSObjectRef jobj, JSObjectRef jobjThis, size_t argLen, const JSObjectRef args[], JSValueRef* jobjExp) { //jobjThis.ID JSValueRef objID = JSObjectGetProperty(ctx, jobjThis, JSStringCreateWithUTF8CString("ID"), jobjExp); int windowID = (int)JSValueToNumber(ctx,objID,jobjExp); XtRealizeWidget( myWidgets[windowID] ); XtAppMainLoop( app_con ); } void functionLoader_Gui(JSGlobalContextRef ctx, JSObjectRef jobjGlobal) { JSObjectRef Window, Widget; printf("GUI has been enabled with this version.\nEnjoy!\n"); classWrapper(ctx, jobjGlobal, "xawWindow", &Window); JSObjectRef Window_Name, Window_Direction; Window_Name = JSValueMakeString(ctx, JSStringCreateWithUTF8CString("undefined")); JSObjectSetProperty(ctx, Window, JSStringCreateWithUTF8CString("Name"), Window_Name, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Window, JSStringCreateWithUTF8CString("Direction"), Window_Direction, kJSPropertyAttributeNone, NULL); functionWrapper(ctx, Window, "SetProperty", (JSObjectCallAsFunctionCallback)jsWindowCreate); functionWrapper(ctx, Window, "Show", (JSObjectCallAsFunctionCallback)jsWindowShow); classWrapper(ctx, jobjGlobal, "xawControl", &Widget); functionWrapper(ctx, Widget, "Create", (JSObjectCallAsFunctionCallback)jsControlCreate); JSObjectRef Control_Name, Control_Type, Control_Parent, Control_Text, Control_Width, Control_Height, Control_Left, Control_Top, Control_Border, Control_Callback; Control_Name = JSValueMakeString(ctx, JSStringCreateWithUTF8CString("undefined")); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Name"), Control_Name, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Type"), Control_Type, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Parent"), Control_Parent, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Text"), Control_Text, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Width"), Control_Width, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Height"), Control_Height, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Left"), Control_Left, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Top"), Control_Top, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Border"), Control_Border, kJSPropertyAttributeNone, NULL); JSObjectSetProperty(ctx, Widget, JSStringCreateWithUTF8CString("Callback"), Control_Callback, kJSPropertyAttributeNone, NULL); // dialogtest(g_argc,g_argv); } localJS/._xaw.h000644 000765 000024 00000000253 11461467657 014051 0ustar00Yoshistaff000000 000000 Mac OS X  2y«ATTR;·«œœcom.apple.TextEncodingutf-8;134217984localJS/xaw.h000644 000765 000024 00000001377 11461467657 013644 0ustar00Yoshistaff000000 000000 #ifndef JS_XAW #define JS_XAW #include #include #include #include #include #include "js.h" typedef struct /* Xawã®Windowを構造体ã¨ã—ã¦å®šç¾© */ { XtAppContext* Context; int argc; char **argv; char* Name; XtOrientation Direction; } xawWindow; typedef struct /* Xawã®Widetを構造体ã¨ã—ã¦å®šç¾© */ { char* Name; WidgetClass Type; Widget Parent; char* Text; int Width;//x int Height;//y int Left;//x int Top;//y int Border; JSContextRef* Context; JSValueRef* CallbackFunction; } xawWidet; typedef struct /* Xawã®Widetを構造体ã¨ã—ã¦å®šç¾© */ { XtAppContext* Context; int argc; char **argv; char* Name; } jsXawContext; #endif