windows support

build

@@ -2,7 +2,7 @@
 
 main(_) ->
     App = "mad",
-    EmuArgs = "-noshell -noinput",
+    EmuArgs = "-noshell",
     Files = files(),
     escript:create(App, [shebang, {comment, ""}, {emu_args, EmuArgs}, {archive, Files, []}]),
     ok = file:change_mode(App, 8#764).

src/compile/mad_port.erl

@@ -13,7 +13,7 @@ compile(Dir,Config) ->
 compile_port(Dir,Specs,Config) ->
     {_,System} = os:type(),
     filelib:ensure_dir(Dir ++ "/priv/"),
-    Env = [ {Var,Val} || {System,Var,Val} <- mad_utils:get_value(port_env, Config, []) ],
+    Env = [ {Var,Val} || {Sys,Var,Val} <- mad_utils:get_value(port_env, Config, []), Sys == System ],
     [ begin 
            Template = string:join(filelib:wildcard(Dir ++ "/" ++ Files)," ") 
               ++ " CFLAGS LDFLAGS -o " ++ Dir ++ "/" ++ Out,
@@ -22,4 +22,4 @@ compile_port(Dir,Specs,Config) ->
        case Status == 0 of
           true -> skip;
           false -> io:format("Port Compilation Error: ~p",[Report]) end
-      end || {System,Out,Files} <- Specs].
+      end || {Sys,Out,Files} <- Specs, Sys == System].

src/mad_repl.erl

@@ -62,7 +62,9 @@ main(Params) ->
     io:format("Applications: ~p\n\r",[applist()]),
     Config = load_config(),
 
-    user_drv:start(),
+    case os:type() of
+         {win32,nt} -> shell:start();
+                  _ -> user_drv:start() end,
 
     load_apps(Params,Config),
     case Params of