Archive for 3月, 2013

  1. Hello, Windows Forms(Tcl/CSharp) World!

    Posted on 3月 31st, 2013 by cx20

    Windows Forms(Tcl/CSharp)

    Windows フォーム（Windows Forms）は .NET Framework におけるユーザーインターフェイス基盤である。Windows アプリケーションにおけるウィンドウやダイアログに対応する。
    以下は Tcl/CSharp における Windows フォーム の例となっている。

    ソースコード

    Hello.tcl
    raw download
    package require java
 
java::load -gac System.Windows.Forms.dll
java::import -package System.Windows.Forms Form Application Label
set form [java::new Form]
java::prop $form Text "Hello, World!"
java::prop $form Size [java::new System.Drawing.Size 640 480]
set label1 [java::new Label]
java::prop $label1 Text "Hallo, Tcl/CSharp World!"
java::prop $label1 Size [java::new System.Drawing.Size 320 20]
[java::prop $form Controls] Add $label1
 
java::call Application Run $form

    コンパイル方法

    C:¥> tclsh Hello.tcl

    実行結果

    +------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Windows Forms(Tcl/CSharp) World!   |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

  2. Hello, Tcl/CSharp World!

    Posted on 3月 27th, 2013 by cx20

    Tcl/CSharp

    Tcl/CSharp は Tcl の Java 実装である「Tcl/Java」の C# 移植版である。

    ソースコード

    hello.tcl
    raw download
    puts "Hello, Tcl/CSharp World!"

    ソースコード（.NET ライブラリを使用）

    hello.tcl
    raw download
    package require java
java::call System.Console WriteLine "Hello, Tcl/CSharp World!"

    実行方法

    C:¥> tclsh hello.tcl

    実行結果

    Hello, Tcl/CSharp World!

  3. Hello, Win32 API(CNI) World!

    Posted on 3月 26th, 2013 by cx20

    Win32 API(CNI)

    Win32 API は、Windows の機能にアクセスする為の API（Application Programming Interface）である。
    以下は、GCJ にて CNI を利用した Win32 API の呼出し例となっている。

    ソースコード（Java）

    Hello.java
    raw download
    public class Hello {
    public static native int messageBox( int hwnd, String text, String caption, int type );
 
    public static void main( String[] args ) {
        messageBox( 0, "Hello, Win32 API World!

    クラスファイル作成

    C:¥> gcj -C Hello.java

    C++ ヘッダファイル作成

    C:¥> gcjh Hello.class

    ソースコード（C++ ヘッダファイル）

    Hello.h
    raw download
    // DO NOT EDIT THIS FILE - it is machine generated -*- c++ -*-
 
#ifndef __Hello__
#define __Hello__
 
#pragma interface
 
#include <java/lang/Object.h>
#include <gcj/array.h>
 
extern "Java"
{
    class Hello;
}
 
class Hello : public ::java::lang::Object
{
 
public:
  Hello();
  static jint messageBox(jint, ::java::lang::String *, ::java::lang::String *, jint);
  static void main(JArray< ::java::lang::String * > *);
  static ::java::lang::Class class$;
};
 
#endif // __Hello__

    ソースコード（C++ 実装ファイル）

    Hello.cpp
    raw download
    #include <gcj/cni.h>
#include <windows.h>
#include "Hello.h"
 
jint Hello::messageBox(jint hwnd, ::java::lang::String* text, ::java::lang::String* caption, jint type)
{
    jchar* _text = JvGetStringChars( text );
    jchar* _caption = JvGetStringChars( caption );
    int result = MessageBoxW( (HWND)hwnd, (LPCWSTR)_text, (LPCWSTR)_caption, (UINT)type );
    return result;
}

    コンパイル方法

    C:¥> gcj -c Hello.cpp
C:¥> gcj --main=Hello -o Hello Hello.o Hello.class

    実行結果

    ---------------------------
Hello, World!
---------------------------
Hello, Win32 API World!
---------------------------
OK   
---------------------------

  4. Hello, GCJ World!

    Posted on 3月 25th, 2013 by cx20

    GCJ

    GCJ は GNU Compiler for the Java の略で、GCC に含まれるコンパイラの１つである。
    Java のライブラリが使用できるほか、CNI（Compiled Native Interface）を用いることで、C++ で作成したライブラリを呼び出すことが可能となっている。

    ソースコード（Java）

    Hello.java
    raw download
    public class Hello {
    public static native void printf( String format );
 
    public static void main( String[] args ) {
        printf( "Hello, GCJ World!n" );
    }
}

    クラスファイル作成

    C:¥> gcj -C Hello.java

    C++ ヘッダファイル作成

    C:¥> gcjh Hello.class

    ソースコード（C++ ヘッダファイル）

    Hello.h
    raw download
     
// DO NOT EDIT THIS FILE - it is machine generated -*- c++ -*-
 
#ifndef __Hello__
#define __Hello__
 
#pragma interface
 
#include <java/lang/Object.h>
#include <gcj/array.h>
 
extern "Java"
{
    class Hello;
}
 
class Hello : public ::java::lang::Object
{
 
public:
  Hello();
  static void printf(::java::lang::String *);
  static void main(JArray< ::java::lang::String * > *);
  static ::java::lang::Class class$;
};
 
#endif // __Hello__

    ソースコード（C++ 実装ファイル）

    Hello.cpp
    raw download
    #include <stdio.h>
#include <java/lang/String.h>
#include "Hello.h"
 
void ::Hello::printf(::java::lang::String* format )
{
    int len = format->length();
    for ( int i = 0; i < len; i++ )
    {
        ::printf( "%c", format->charAt(i) );
    }
}

    コンパイル方法

    C:¥> gcj -c Hello.cpp
C:¥> gcj --main=Hello -o Hello Hello.o Hello.class

    実行結果

    Hello, GCJ World!

  5. Hello, Emscripten World!

    Posted on 3月 22nd, 2013 by cx20

    Emscripten

    Emscripten は LLVM アセンブリコードより JavaScript のコードを生成する変換ツールである。
    clang/clang++ を用いることにより C/C++ より JavaScript へのコード変換が可能となっている。

    ソースコード（C言語）

    Hello.c
    raw download
    #include <stdio.h>
 
int main( int argc, char* argv[] )
{
    printf( "Hello, Emscripten World!\n" );
    return 0;
}

    上記コードを LLVM に変換した場合、以下のコードが生成される。

    ソースコード（LLVM Assembler）

    Hello.ll
    raw download
    ; ModuleID = 'hello.c'
target datalayout = "e-p:32:32:32-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-f80:128:128-v64:64:64-v128:128:128-a0:0:64-f80:32:32-n8:16:32-S32"
target triple = "i686-w64-mingw32"
 
@str = private unnamed_addr constant [25 x i8] c"Hello, Emscripten World!\00"
 
define i32 @main(i32 %argc, i8** nocapture %argv) nounwind {
  %puts = tail call i32 @puts(i8* getelementptr inbounds ([25 x i8]* @str, i32 0, i32 0))
  ret i32 0
}
 
declare i32 @puts(i8* nocapture) nounwind

    上記コードを JavaScript に変換した場合、以下のコードが生成される。

    ソースコード（JavaScript）

    Hello.js
    raw download
       （中略）
      :
var FUNCTION_TABLE = [0, 0];
function _main($argc, $argv) {
  var label = 0;
  var $puts=_puts(((5242880)|0));
  return 0;
}
Module["_main"] = _main;
// Warning: printing of i64 values may be slightly rounded! No deep i64 math used, so precise i64 code not included
var i64Math = null;
// === Auto-generated postamble setup entry stuff ===
Module.callMain = function callMain(args) {
  var argc = args.length+1;
  function pad() {
    for (var i = 0; i < 4-1; i++) {
      argv.push(0);
    }
  }
  var argv = [allocate(intArrayFromString("/bin/this.program"), 'i8', ALLOC_STATIC) ];
  pad();
  for (var i = 0; i < argc-1; i = i + 1) {
    argv.push(allocate(intArrayFromString(args[i]), 'i8', ALLOC_STATIC));
    pad();
  }
  argv.push(0);
  argv = allocate(argv, 'i32', ALLOC_STATIC);
  var ret;
  ret = Module['_main'](argc, argv, 0);
  return ret;
}
function run(args) {
  args = args || Module['arguments'];
  if (runDependencies > 0) {
    Module.printErr('run() called, but dependencies remain, so not running');
    return 0;
  }
  if (Module['preRun']) {
    if (typeof Module['preRun'] == 'function') Module['preRun'] = [Module['preRun']];
    var toRun = Module['preRun'];
    Module['preRun'] = [];
    for (var i = toRun.length-1; i >= 0; i--) {
      toRun[i]();
    }
    if (runDependencies > 0) {
      // a preRun added a dependency, run will be called later
      return 0;
    }
  }
  function doRun() {
    var ret = 0;
    calledRun = true;
    if (Module['_main']) {
      preMain();
      ret = Module.callMain(args);
      if (!Module['noExitRuntime']) {
        exitRuntime();
      }
    }
    if (Module['postRun']) {
      if (typeof Module['postRun'] == 'function') Module['postRun'] = [Module['postRun']];
      while (Module['postRun'].length > 0) {
        Module['postRun'].pop()();
      }
    }
    return ret;
  }
  if (Module['setStatus']) {
    Module['setStatus']('Running...');
    setTimeout(function() {
      setTimeout(function() {
        Module['setStatus']('');
      }, 1);
      doRun();
    }, 1);
    return 0;
  } else {
    return doRun();
  }
}
Module['run'] = Module.run = run;
// {{PRE_RUN_ADDITIONS}}
if (Module['preInit']) {
  if (typeof Module['preInit'] == 'function') Module['preInit'] = [Module['preInit']];
  while (Module['preInit'].length > 0) {
    Module['preInit'].pop()();
  }
}
initRuntime();
var shouldRunNow = true;
if (Module['noInitialRun']) {
  shouldRunNow = false;
}
if (shouldRunNow) {
  var ret = run();
}
// {{POST_RUN_ADDITIONS}}
  // {{MODULE_ADDITIONS}}
// EMSCRIPTEN_GENERATED_FUNCTIONS: ["_main"]

    コンパイル方法（C言語 → LLVM Assembler）

    C:¥> clang hello.c -S -O4 -o hello.ll

    コンパイル方法（LLVM Assembler → JavaScript）

    C:¥> python emcc hello.ll -o hello.js

    実行方法（Node.js による実行例）

    C:¥> node Hello.js

    実行結果

    Hello, Emscripten World!

  6. Hello, Haxe World!

    Posted on 3月 21st, 2013 by cx20

    Haxe

    Haxe は静的型付けを特徴としたオブジェクト指向言語である。Neko VM 形式の他、JavaScript、C++、PHP、Java、C# 等に変換することが可能となっている。

    ソースコード（Haxe）

    Hello.hx
    raw download
    class Hello {
    static function main() {
        trace("Hello, Haxe World!");
    }
}

    上記コードを JavaScript に変換した場合、以下のコードが生成される。

    ソースコード（JavaScript）

    Hello.js
    raw download
    var Hello = function() { }
Hello.__name__ = true;
Hello.main = function() {
    console.log("Hello, Haxe World!");
}
var HxOverrides = function() { }
HxOverrides.__name__ = true;
HxOverrides.dateStr = function(date) {
    var m = date.getMonth() + 1;
    var d = date.getDate();
    var h = date.getHours();
    var mi = date.getMinutes();
    var s = date.getSeconds();
    return date.getFullYear() + "-" + (m < 10?"0" + m:"" + m) + "-" + (d < 10?"0" + d:"" + d) + " " + (h < 10?"0" + h:"" + h) + ":" + (mi < 10?"0" + mi:"" + mi) + ":" + (s < 10?"0" + s:"" + s);
}
HxOverrides.strDate = function(s) {
    switch(s.length) {
    case 8:
        var k = s.split(":");
        var d = new Date();
        d.setTime(0);
        d.setUTCHours(k[0]);
        d.setUTCMinutes(k[1]);
        d.setUTCSeconds(k[2]);
        return d;
    case 10:
        var k = s.split("-");
        return new Date(k[0],k[1] - 1,k[2],0,0,0);
    case 19:
        var k = s.split(" ");
        var y = k[0].split("-");
        var t = k[1].split(":");
        return new Date(y[0],y[1] - 1,y[2],t[0],t[1],t[2]);
    default:
        throw "Invalid date format : " + s;
    }
}
HxOverrides.cca = function(s,index) {
    var x = s.charCodeAt(index);
    if(x != x) return undefined;
    return x;
}
HxOverrides.substr = function(s,pos,len) {
    if(pos != null && pos != 0 && len != null && len < 0) return "";
    if(len == null) len = s.length;
    if(pos < 0) {
        pos = s.length + pos;
        if(pos < 0) pos = 0;
    } else if(len < 0) len = s.length + len - pos;
    return s.substr(pos,len);
}
HxOverrides.remove = function(a,obj) {
    var i = 0;
    var l = a.length;
    while(i < l) {
        if(a[i] == obj) {
            a.splice(i,1);
            return true;
        }
        i++;
    }
    return false;
}
HxOverrides.iter = function(a) {
    return { cur : 0, arr : a, hasNext : function() {
        return this.cur < this.arr.length;
    }, next : function() {
        return this.arr[this.cur++];
    }};
}
var IntIter = function(min,max) {
    this.min = min;
    this.max = max;
};
IntIter.__name__ = true;
IntIter.prototype = {
    next: function() {
        return this.min++;
    }
    ,hasNext: function() {
        return this.min < this.max;
    }
    ,__class__: IntIter
}
var Std = function() { }
Std.__name__ = true;
Std["is"] = function(v,t) {
    return js.Boot.__instanceof(v,t);
}
Std.string = function(s) {
    return js.Boot.__string_rec(s,"");
}
Std["int"] = function(x) {
    return x | 0;
}
Std.parseInt = function(x) {
    var v = parseInt(x,10);
    if(v == 0 && (HxOverrides.cca(x,1) == 120 || HxOverrides.cca(x,1) == 88)) v = parseInt(x);
    if(isNaN(v)) return null;
    return v;
}
Std.parseFloat = function(x) {
    return parseFloat(x);
}
Std.random = function(x) {
    return Math.floor(Math.random() * x);
}
var js = js || {}
js.Boot = function() { }
js.Boot.__name__ = true;
js.Boot.__unhtml = function(s) {
    return s.split("&").join("&amp;").split("<").join("&lt;").split(">").join("&gt;");
}
js.Boot.__trace = function(v,i) {
    var msg = i != null?i.fileName + ":" + i.lineNumber + ": ":"";
    msg += js.Boot.__string_rec(v,"");
    var d;
    if(typeof(document) != "undefined" && (d = document.getElementById("haxe:trace")) != null) d.innerHTML += js.Boot.__unhtml(msg) + "<br/>"; else if(typeof(console) != "undefined" && console.log != null) console.log(msg);
}
js.Boot.__clear_trace = function() {
    var d = document.getElementById("haxe:trace");
    if(d != null) d.innerHTML = "";
}
js.Boot.isClass = function(o) {
    return o.__name__;
}
js.Boot.isEnum = function(e) {
    return e.__ename__;
}
js.Boot.getClass = function(o) {
    return o.__class__;
}
js.Boot.__string_rec = function(o,s) {
    if(o == null) return "null";
    if(s.length >= 5) return "<...>";
    var t = typeof(o);
    if(t == "function" && (o.__name__ || o.__ename__)) t = "object";
    switch(t) {
    case "object":
        if(o instanceof Array) {
            if(o.__enum__) {
                if(o.length == 2) return o[0];
                var str = o[0] + "(";
                s += "t";
                var _g1 = 2, _g = o.length;
                while(_g1 < _g) {
                    var i = _g1++;
                    if(i != 2) str += "," + js.Boot.__string_rec(o[i],s); else str += js.Boot.__string_rec(o[i],s);
                }
                return str + ")";
            }
            var l = o.length;
            var i;
            var str = "[";
            s += "t";
            var _g = 0;
            while(_g < l) {
                var i1 = _g++;
                str += (i1 > 0?",":"") + js.Boot.__string_rec(o[i1],s);
            }
            str += "]";
            return str;
        }
        var tostr;
        try {
            tostr = o.toString;
        } catch( e ) {
            return "???";
        }
        if(tostr != null && tostr != Object.toString) {
            var s2 = o.toString();
            if(s2 != "[object Object]") return s2;
        }
        var k = null;
        var str = "{n";
        s += "t";
        var hasp = o.hasOwnProperty != null;
        for( var k in o ) { ;
        if(hasp && !o.hasOwnProperty(k)) {
            continue;
        }
        if(k == "prototype" || k == "__class__" || k == "__super__" || k == "__interfaces__" || k == "__properties__") {
            continue;
        }
        if(str.length != 2) str += ", n";
        str += s + k + " : " + js.Boot.__string_rec(o[k],s);
        }
        s = s.substring(1);
        str += "n" + s + "}";
        return str;
    case "function":
        return "<function>";
    case "string":
        return o;
    default:
        return String(o);
    }
}
js.Boot.__interfLoop = function(cc,cl) {
    if(cc == null) return false;
    if(cc == cl) return true;
    var intf = cc.__interfaces__;
    if(intf != null) {
        var _g1 = 0, _g = intf.length;
        while(_g1 < _g) {
            var i = _g1++;
            var i1 = intf[i];
            if(i1 == cl || js.Boot.__interfLoop(i1,cl)) return true;
        }
    }
    return js.Boot.__interfLoop(cc.__super__,cl);
}
js.Boot.__instanceof = function(o,cl) {
    try {
        if(o instanceof cl) {
            if(cl == Array) return o.__enum__ == null;
            return true;
        }
        if(js.Boot.__interfLoop(o.__class__,cl)) return true;
    } catch( e ) {
        if(cl == null) return false;
    }
    switch(cl) {
    case Int:
        return Math.ceil(o%2147483648.0) === o;
    case Float:
        return typeof(o) == "number";
    case Bool:
        return o === true || o === false;
    case String:
        return typeof(o) == "string";
    case Dynamic:
        return true;
    default:
        if(o == null) return false;
        if(cl == Class && o.__name__ != null) return true; else null;
        if(cl == Enum && o.__ename__ != null) return true; else null;
        return o.__enum__ == cl;
    }
}
js.Boot.__cast = function(o,t) {
    if(js.Boot.__instanceof(o,t)) return o; else throw "Cannot cast " + Std.string(o) + " to " + Std.string(t);
}
if(Array.prototype.indexOf) HxOverrides.remove = function(a,o) {
    var i = a.indexOf(o);
    if(i == -1) return false;
    a.splice(i,1);
    return true;
}; else null;
Math.__name__ = ["Math"];
Math.NaN = Number.NaN;
Math.NEGATIVE_INFINITY = Number.NEGATIVE_INFINITY;
Math.POSITIVE_INFINITY = Number.POSITIVE_INFINITY;
Math.isFinite = function(i) {
    return isFinite(i);
};
Math.isNaN = function(i) {
    return isNaN(i);
};
String.prototype.__class__ = String;
String.__name__ = true;
Array.prototype.__class__ = Array;
Array.__name__ = true;
Date.prototype.__class__ = Date;
Date.__name__ = ["Date"];
var Int = { __name__ : ["Int"]};
var Dynamic = { __name__ : ["Dynamic"]};
var Float = Number;
Float.__name__ = ["Float"];
var Bool = Boolean;
Bool.__ename__ = ["Bool"];
var Class = { __name__ : ["Class"]};
var Enum = { };
var Void = { __ename__ : ["Void"]};
Hello.main();

    実行方法（Neko VM による実行例）

    C:¥> haxe -main Hello -neko Hello.n
C:¥> neko Hello.n

    実行方法（Node.js による実行例）

    C:¥> haxe -main Hello -js Hello.js
C:¥> node Hello.js

    実行結果

    Hello, Haxe World!

  7. Hello, Win32 API(Oxygene) World!

    Posted on 3月 20th, 2013 by cx20

    Win32 API(Oxygene)

    Win32 API は、Windows の機能にアクセスする為の API（Application Programming Interface）である。
    以下は Oxygene にて SWT の非公開 API を使用した Win32 API 呼出しの例となっている。

    ソースコード

    Hello.pas
    raw download
    namespace hello;
 
interface
uses
    org.eclipse.swt.internal.win32.*;
 
type
    Hello = class
public
    class method Main(args: array of String);
end;
 
implementation
 
class method Hello.Main(args: array of String);
var
    lpText: TCHAR;
    lpCaption: TCHAR;
begin
    lpText := new TCHAR(0, "Hello, Win32 API World!", True);
    lpCaption := new TCHAR(0, "Hello, World", True);
    OS.MessageBox(0, lpText, lpCaption, OS.MB_OK );
 
end;
 
end.

    コンパイル＆実行方法

    C:¥> oxygene Hello.pas -ref:rt.jar;org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar -mode:Java
C:¥> java -Xbootclasspath/a:org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar -jar hello.jar

    実行結果

    ---------------------------
Hello, World!
---------------------------
Hello, Win32 API World!
---------------------------
OK   
---------------------------

  8. Hello, JSX World!

    Posted on 3月 20th, 2013 by cx20

    JSX

    JSX は DeNA により開発された静的型付けを特徴としたスクリプト言語である。JavaScript にコンパイルすることが可能となっている。

    ソースコード（JSX）

    hello.jsx
    raw download
    class _Main {
    static function main(args : string[]) :void {
        log "Hello, JSX World!";
    }
}

    上記コードを JavaScript にコンパイルした場合、以下のコードが生成される。

    ソースコード（JavaScript）

    hello.jsx.js
    raw download
    #!/usr/local/Cellar/node/0.6.6/bin/node
// generatedy by JSX compiler 0.9.2 (2013-01-30 11:14:28 +0900; 1a8b01b71633517541daa97862da204a2005c8aa)
var JSX = {};
(function () {
 
/**
 * copies the implementations from source interface to target
 */
function $__jsx_merge_interface(target, source) {
	for (var k in source.prototype)
		if (source.prototype.hasOwnProperty(k))
			target.prototype[k] = source.prototype[k];
}
 
/**
 * defers the initialization of the property
 */
function $__jsx_lazy_init(obj, prop, func) {
	function reset(obj, prop, value) {
		delete obj[prop];
		obj[prop] = value;
		return value;
	}
 
	Object.defineProperty(obj, prop, {
		get: function () {
			return reset(obj, prop, func());
		},
		set: function (v) {
			reset(obj, prop, v);
		},
		enumerable: true,
		configurable: true
	});
}
 
/**
 * sideeffect().a /= b
 */
function $__jsx_div_assign(obj, prop, divisor) {
	return obj[prop] = (obj[prop] / divisor) | 0;
}
 
/*
 * global functions called by JSX
 * (enamed so that they do not conflict with local variable names)
 */
var $__jsx_parseInt = parseInt;
var $__jsx_parseFloat = parseFloat;
var $__jsx_isNaN = isNaN;
var $__jsx_isFinite = isFinite;
 
var $__jsx_encodeURIComponent = encodeURIComponent;
var $__jsx_decodeURIComponent = decodeURIComponent;
var $__jsx_encodeURI = encodeURI;
var $__jsx_decodeURI = decodeURI;
 
var $__jsx_ObjectToString = Object.prototype.toString;
var $__jsx_ObjectHasOwnProperty = Object.prototype.hasOwnProperty;
 
/*
 * profiler object, initialized afterwards
 */
function $__jsx_profiler() {
}
 
/*
 * public interface to JSX code
 */
JSX.require = function (path) {
	var m = $__jsx_classMap[path];
	return m !== undefined ? m : null;
};
 
JSX.profilerIsRunning = function () {
	return $__jsx_profiler.getResults != null;
};
 
JSX.getProfileResults = function () {
	return ($__jsx_profiler.getResults || function () { return {}; })();
};
 
JSX.postProfileResults = function (url) {
	if ($__jsx_profiler.postResults == null)
		throw new Error("profiler has not been turned on");
	return $__jsx_profiler.postResults(url);
};
 
JSX.resetProfileResults = function () {
	if ($__jsx_profiler.resetResults == null)
		throw new Error("profiler has not been turned on");
	return $__jsx_profiler.resetResults();
};
/**
 * class _Main extends Object
 * @constructor
 */
function _Main() {
}
 
_Main.prototype = new Object;
/**
 * @constructor
 */
function _Main$() {
};
 
_Main$.prototype = new _Main;
 
/**
 * @param {Array.<undefined|!string>} args
 */
_Main.main$AS = function (args) {
	console.log("Hello, JSX World!");
};
 
var _Main$main$AS = _Main.main$AS;
 
var $__jsx_classMap = {
	"hello.jsx": {
		_Main: _Main,
		_Main$: _Main$
	}
};
 
 
/**
 * launches _Main.main(:string[]):void invoked by jsx --run|--executable
 */
JSX.runMain = function (sourceFile, args) {
	var module = JSX.require(sourceFile);
 
	if (! module._Main) {
		throw new Error("entry point _Main not found in " + sourceFile);
	}
	if (! module._Main.main$AS) {
		throw new Error("entry point _Main.main(:string[]):void not found in " + sourceFile);
	}
	module._Main.main$AS(args);
};
 
/**
 * launches _Test#test*():void invoked by jsx --test
 */
JSX.runTests = function (sourceFile, tests) {
	var module = JSX.require(sourceFile);
	var testClass = module._Test$;
 
	if (!testClass) return; // skip if there's no test class
 
	if(tests.length === 0) {
		var p = testClass.prototype;
		for (var m in p) {
			if (p[m] instanceof Function
				&& /^test.*[$]$/.test(m)) {
				tests.push(m);
			}
		}
	}
	else { // set as process arguments
		tests = tests.map(function (name) {
			return name + "$"; // mangle for function test*():void
		});
	}
 
	var testCase = new testClass();
 
	if (testCase.beforeClass$AS != null)
		testCase.beforeClass$AS(tests);
 
	for (var i = 0; i < tests.length; ++i) {
		(function (method) {
			if (method in testCase) {
				testCase.run$SF$V$(method, function() { testCase[method](); });
			}
			else {
				throw new ReferenceError("No such test method: " + method);
			}
		}(tests[i]));
	}
 
	if (testCase.afterClass$ != null)
		testCase.afterClass$();
};
JSX.runMain("hello.jsx", process.argv.slice(2))
})();

    実行方法（JSX による実行例）

    C:¥> jsx --run hello.jsx

    実行方法（Node.js による実行例）

    $ jsx --executable node --output hello.jsx.js hello.jsx
$ node hello.jsx.js

    実行結果

    Hello, JSX World!

  9. Hello, Win32 GUI(BeanShell) World!

    Posted on 3月 19th, 2013 by cx20

    Win32 GUI(BeanShell)

    Win32 アプリケーションは Windows 標準 API である Win32 API を使用した Windows アプリケーションである。
    以下は BeanShell にて Java の GUI ツールキット SWT の非公開 API を使用した Win32 GUI アプリケーション の例となっている。

    ソースコード

    Hello.bsh
    raw download
    import org.eclipse.swt.internal.Callback;
import org.eclipse.swt.internal.win32.MSG;
import org.eclipse.swt.internal.win32.OS;
import org.eclipse.swt.internal.win32.PAINTSTRUCT;
import org.eclipse.swt.internal.win32.RECT;
import org.eclipse.swt.internal.win32.TCHAR;
import org.eclipse.swt.internal.win32.WNDCLASS;
 
public class Hello {
    public static int WndProc(int hWnd, int uMsg, int wParam, int lParam) {
        int hdc;
        PAINTSTRUCT lpPaint = new PAINTSTRUCT();
        String strMessage = "Hello, Win32 GUI(SWT) World!";
 
        switch (uMsg) {
        case OS.WM_PAINT:
            RECT rect = new RECT();
            hdc = OS.BeginPaint(hWnd, lpPaint);
            OS.GetClientRect(hWnd, rect);
            OS.DrawTextW(hdc, strMessage.toCharArray(), strMessage.length(), rect, OS.DT_SINGLELINE);
            OS.EndPaint(hWnd, lpPaint);
            return 0;
        case OS.WM_DESTROY:
            System.exit(wParam);
        default:
            return OS.DefWindowProc(hWnd, uMsg, wParam, lParam);
        }
    }
 
    public static void WinMain(String[] args) {
        int hInstance = OS.GetModuleHandle(null);
        TCHAR className  = new TCHAR(0, "helloWindow", true);
        TCHAR windowName = new TCHAR(0, "Hello, World", true);
 
        WNDCLASS wc      = new WNDCLASS();
        wc.style         = OS.CS_HREDRAW | OS.CS_VREDRAW;
        wc.lpfnWndProc   = new Callback(Hello.class, "WndProc", 4).getAddress();
        wc.hInstance     = hInstance;
        wc.hCursor       = OS.LoadCursor(0, OS.IDC_ARROW);
        wc.hbrBackground = OS.GetStockObject(OS.COLOR_WINDOW + 1 );
        wc.lpszClassName = OS.HeapAlloc(OS.GetProcessHeap(), OS.HEAP_ZERO_MEMORY, className.length() * 2);
        OS.MoveMemory(wc.lpszClassName, className, className.length() * 2);
 
        OS.RegisterClass(wc);
 
        int hWnd = OS.CreateWindowEx(
            0,
            className,
            windowName,
            OS.WS_OVERLAPPEDWINDOW,
            OS.CW_USEDEFAULT, 
            OS.CW_USEDEFAULT,
            640,
            480,
            0,
            0,
            hInstance,
            null);
 
        OS.ShowWindow(hWnd, OS.SW_SHOW);
        OS.UpdateWindow(hWnd);
 
        MSG lpMsg = new MSG();
        while (OS.GetMessage(lpMsg, 0, 0, 0)) {
            OS.TranslateMessage(lpMsg);
            OS.DispatchMessage(lpMsg);
        }
    }
 
    public static void main(String[] args) {
        WinMain( args );
    }
 
}

    コンパイル＆実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
C:¥> java bsh.Interpreter Hello.bsh

    実行結果

    +------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Win32 GUI(SWT) World!              |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

  10. Hello, COM(GAS) World!

    Posted on 3月 18th, 2013 by cx20

    COM(GAS)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    以下は GAS による COM クライアントの例となっている。

    ソースコード

    hello.asm
    raw download
            .file   "hello.c"
        .def    ___main;        .scl    2;      .type   32;     .endef
        .section .rdata,"dr"
        .align 4
LC0:
        .ascii "B

    上記コードは以下のC言語のソースを GCC でアセンブリコード出力（gcc -s hello.c）したものに相当する。

    hello.c
    raw download
    #include <ole2.h>
 
int main( int argc, char* argv[] )
{
    CLSID clsid;
    IDispatch* pShell;
    IDispatch* pFolder;
    DISPID dispid;
    OLECHAR* ptName = L"BrowseForFolder";
    DISPPARAMS param = { NULL, NULL, 0, 0 };
    VARIANT varg[4];
    VARIANT vResult;
 
    CoInitialize( NULL );
 
    CLSIDFromProgID(L"Shell.Application", &clsid );
    CoCreateInstance( &clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IDispatch, (void**)&pShell);
    pShell->lpVtbl->GetIDsOfNames( (void*)pShell, &IID_NULL, &ptName, 1, GetUserDefaultLCID(), &dispid );
 
    VariantInit( &varg[0] );
    varg[0].vt = VT_I4;
    varg[0].lVal = 36L;  /* ssfWINDOWS */
 
    VariantInit( &varg[1] );
    varg[1].vt = VT_I4;
    varg[1].lVal = 0L;
 
    VariantInit( &varg[2] );
    varg[2].vt = VT_BSTR;
    varg[2].bstrVal = SysAllocString(L"Hello, COM World!"); 
 
    VariantInit( &varg[3] );
    varg[3].vt = VT_I4;
    varg[3].lVal = 0L;
 
    param.cArgs = 4;
    param.rgvarg = varg;
 
    pShell->lpVtbl->Invoke( (void*)pShell, dispid, &IID_NULL, GetUserDefaultLCID(), DISPATCH_METHOD, &param, &vResult, NULL, NULL );
 
    VariantInit( &varg[0] );
    VariantInit( &varg[1] );
    VariantInit( &varg[2] );
    VariantInit( &varg[3] );
 
    pFolder = V_DISPATCH( &vResult );
    if ( pFolder != NULL )
    {
        pFolder->lpVtbl->Release( (void*)pFolder );
    }
    pShell->lpVtbl->Release( (void*)pShell );
 
    CoUninitialize();
 
    return 0;
}

    コンパイル＆リンク方法

    C:¥> gcc -c hello.c
C:¥> gcc -o hello hello.o -l ole32  -l oleaut32 -l uuid

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM Wolrd!                      |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+
« Older Entries