1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
//
// This is a wrapper used to invoke one of the Mono C#
// compilers with the correct MONO_PATH depending on
// where this command is located.
//
// This allows us to use MSBuild CscToolPath property to
// point to this directory to use our compiler to drive
// the build and set the MONO_PATH as it is expected to
// be for bootstrap
//
// The MONO_PATH and the compiler are chosen based on the
// directory that hosts the command.
//
// The directory specifies a profile, and the format is:
// PROFILES-COMPILER
//
// Will request that the COMPILER compiler is used setting
// MONO_PATH to PROFILES. The PROFILES string can contain
// multiple directories, separated by dashes.
//
// COMPILER is one of:
// basic -> class/lib/basic/mcs.exe
// net_1_1_bootstrap -> class/lib/net_1_1_bootstrap/mcs.exe
// net_1_1 -> class/lib/net_1_1/mcs.exe
// net_2_0_bootstrap -> class/lib/net_2_0_bootstrap/gmcs.exe
// gmcs -> mcs/gmcs.exe
// moonlight_bootstrap -> class/lib/moonlight_bootstrap/smcs.exe
// moonlight_raw -> class/lib/moonlight_raw/smcs.exe
//
// So for example:
// moonlight_bootstrap-net_2_0-moonlight_bootstrap
//
// Will set MONO_PATH to "%MCS_ROOT%\class\lib\moonlight_bootstrap;%MCS_ROOT\class\lib\net_2_0"
// and run the compiler in %MCS_ROOT%\class\lib\moonlight_bootstrap
//
using System;
using System.Collections.Generic;
using System.IO;
using System.Text;
using System.Diagnostics;
namespace csc
{
class Program
{
static int Main(string[] args)
{
string cmd = Environment.GetCommandLineArgs () [0];
string tool = Path.GetFileName(cmd);
string profile = Path.GetDirectoryName(cmd);
int p = profile.LastIndexOf('\\');
if (p == -1) {
Console.Error.WriteLine("Could not find the profile name from this {0}", profile);
return 1;
}
profile = profile.Substring(p+1);
var root_mono = Path.GetFullPath(Path.Combine(Path.GetDirectoryName(cmd), "..\\..\\.."));
if (!File.Exists(Path.Combine(root_mono, "mono\\mini\\mini.c"))) {
Console.WriteLine("My root is incorrect {0} based on {1}", root_mono, cmd);
Console.WriteLine("Must be in mono/msvc/scripts/PROFILE/COMMAND.exe");
return 1;
}
p = profile.LastIndexOf ('-');
if (p == -1){
Console.Error.WriteLine("The directory holding this executable should be MPATHS-COMPILER, instead it is: {0}", profile);
return 1;
}
var root_mcs = Path.GetFullPath (Path.Combine (root_mono, "..\\mcs"));
var mono_cmd = root_mono + "\\msvc\\Win32_Debug_eglib\\bin\\mono.exe";
string compiler = null;
switch (profile.Substring (p+1)){
case "basic":
compiler = root_mcs + "\\class\\lib\\basic\\mcs.exe";
break;
case "net_1_1_bootstrap":
compiler = root_mcs + "\\class\\lib\\net_1_1_bootstrap\\mcs.exe";
break;
case "net_1_1":
compiler = root_mcs + "\\class\\lib\\net_1_1\\mcs.exe";
break;
case "net_2_0_bootstrap":
compiler = root_mcs + "\\class\\lib\\net_2_0_bootstrap\\gmcs.exe";
break;
case "gmcs":
case "mcs":
compiler = root_mcs + "\\mcs\\gmcs.exe";
break;
case "moonlight_bootstrap":
compiler = root_mcs + "\\class\\lib\\moonlight_bootstrap\\smcs.exe";
break;
case "moonlight_raw":
compiler = root_mcs + "\\class\\lib\\moonlight_raw\\smcs.exe";
break;
default:
Console.WriteLine ("Unknown compiler configuration: {0}", profile.Substring (p+1));
return 1;
}
var paths = profile.Substring (0, p).Split (new char [] { '-' });
StringBuilder sb = new StringBuilder ();
foreach (string dir in paths){
if (sb.Length != 0)
sb.Append (";");
sb.Append (root_mcs + "\\class\\lib\\" + dir);
}
Environment.SetEnvironmentVariable ("MONO_PATH", sb.ToString ());
Console.WriteLine ("Compiler: {0}", compiler);
Console.WriteLine ("MONO_PATH: {0}", sb.ToString ());
var pi = new ProcessStartInfo() {
FileName = mono_cmd,
WindowStyle = ProcessWindowStyle.Hidden,
Arguments = compiler + " " + String.Join (" ", args),
UseShellExecute = false
};
try {
var proc = Process.Start (pi);
proc.WaitForExit ();
return proc.ExitCode;
} catch (System.ComponentModel.Win32Exception){
Console.Error.WriteLine ("Chances are, it did not find {0}", mono_cmd);
throw;
}
}
}
}
|
