2
// assembly.cs: Assembly declaration and specifications
5
// Miguel de Icaza (miguel@ximian.com)
6
// Marek Safar (marek.safar@gmail.com)
8
// Copyright 2001, 2002, 2003 Ximian, Inc.
9
// Copyright 2004-2011 Novell, Inc.
10
// Copyright 2011 Xamarin Inc
16
using System.Collections.Generic;
17
using System.Globalization;
18
using System.Security;
19
using System.Security.Cryptography;
20
using System.Security.Permissions;
21
using Mono.Security.Cryptography;
22
using Mono.CompilerServices.SymbolWriter;
25
using IKVM.Reflection;
26
using IKVM.Reflection.Emit;
27
using SecurityType = System.Collections.Generic.List<IKVM.Reflection.Emit.CustomAttributeBuilder>;
29
using SecurityType = System.Collections.Generic.Dictionary<System.Security.Permissions.SecurityAction, System.Security.PermissionSet>;
30
using System.Reflection;
31
using System.Reflection.Emit;
36
public interface IAssemblyDefinition
38
string FullName { get; }
39
bool IsCLSCompliant { get; }
40
bool IsMissing { get; }
43
byte[] GetPublicKeyToken ();
44
bool IsFriendAssemblyTo (IAssemblyDefinition assembly);
47
public abstract class AssemblyDefinition : IAssemblyDefinition
49
// TODO: make it private and move all builder based methods here
50
public AssemblyBuilder Builder;
51
protected AssemblyBuilderExtension builder_extra;
52
MonoSymbolFile symbol_writer;
54
bool is_cls_compliant;
55
bool wrap_non_exception_throws;
56
bool wrap_non_exception_throws_custom;
58
protected ModuleContainer module;
60
protected readonly string file_name;
62
byte[] public_key, public_key_token;
65
// Holds private/public key pair when private key
67
StrongNameKeyPair private_key;
69
Attribute cls_attribute;
72
protected List<ImportedModuleDefinition> added_modules;
73
SecurityType declarative_security;
74
Dictionary<ITypeDefinition, Attribute> emitted_forwarders;
75
AssemblyAttributesPlaceholder module_target_attrs;
77
protected AssemblyDefinition (ModuleContainer module, string name)
80
this.name = Path.GetFileNameWithoutExtension (name);
82
wrap_non_exception_throws = true;
84
delay_sign = Compiler.Settings.StrongNameDelaySign;
87
// Load strong name key early enough for assembly importer to be able to
88
// use the keys for InternalsVisibleTo
89
// This should go somewhere close to ReferencesLoading but don't have the place yet
91
if (Compiler.Settings.HasKeyFileOrContainer) {
92
LoadPublicKey (Compiler.Settings.StrongNameKeyFile, Compiler.Settings.StrongNameKeyContainer);
96
protected AssemblyDefinition (ModuleContainer module, string name, string fileName)
99
this.file_name = fileName;
104
public Attribute CLSCompliantAttribute {
106
return cls_attribute;
110
public CompilerContext Compiler {
112
return module.Compiler;
117
// Assembly entry point, aka Main method
119
public Method EntryPoint {
128
public string FullName {
130
return Builder.FullName;
134
public bool HasCLSCompliantAttribute {
136
return cls_attribute != null;
140
// TODO: This should not exist here but will require more changes
141
public MetadataImporter Importer {
145
public bool IsCLSCompliant {
147
return is_cls_compliant;
151
bool IAssemblyDefinition.IsMissing {
157
public bool IsSatelliteAssembly { get; private set; }
165
public bool WrapNonExceptionThrows {
167
return wrap_non_exception_throws;
171
protected Report Report {
173
return Compiler.Report;
177
public MonoSymbolFile SymbolWriter {
179
return symbol_writer;
185
public void AddModule (ImportedModuleDefinition module)
187
if (added_modules == null) {
188
added_modules = new List<ImportedModuleDefinition> ();
189
added_modules.Add (module);
193
public void ApplyAttributeBuilder (Attribute a, MethodSpec ctor, byte[] cdata, PredefinedAttributes pa)
195
if (a.IsValidSecurityAttribute ()) {
196
a.ExtractSecurityPermissionSet (ctor, ref declarative_security);
200
if (a.Type == pa.AssemblyCulture) {
201
string value = a.GetString ();
202
if (value == null || value.Length == 0)
205
if (Compiler.Settings.Target == Target.Exe) {
206
a.Error_AttributeEmitError ("The executables cannot be satelite assemblies, remove the attribute or keep it empty");
210
if (value == "neutral")
213
if (Compiler.Settings.Target == Target.Module) {
214
SetCustomAttribute (ctor, cdata);
216
builder_extra.SetCulture (value, a.Location);
219
IsSatelliteAssembly = true;
223
if (a.Type == pa.AssemblyVersion) {
224
string value = a.GetString ();
225
if (value == null || value.Length == 0)
228
var vinfo = IsValidAssemblyVersion (value, true);
230
a.Error_AttributeEmitError (string.Format ("Specified version `{0}' is not valid", value));
234
if (Compiler.Settings.Target == Target.Module) {
235
SetCustomAttribute (ctor, cdata);
237
builder_extra.SetVersion (vinfo, a.Location);
243
if (a.Type == pa.AssemblyAlgorithmId) {
244
const int pos = 2; // skip CA header
245
uint alg = (uint) cdata [pos];
246
alg |= ((uint) cdata [pos + 1]) << 8;
247
alg |= ((uint) cdata [pos + 2]) << 16;
248
alg |= ((uint) cdata [pos + 3]) << 24;
250
if (Compiler.Settings.Target == Target.Module) {
251
SetCustomAttribute (ctor, cdata);
253
builder_extra.SetAlgorithmId (alg, a.Location);
259
if (a.Type == pa.AssemblyFlags) {
260
const int pos = 2; // skip CA header
261
uint flags = (uint) cdata[pos];
262
flags |= ((uint) cdata [pos + 1]) << 8;
263
flags |= ((uint) cdata [pos + 2]) << 16;
264
flags |= ((uint) cdata [pos + 3]) << 24;
266
// Ignore set PublicKey flag if assembly is not strongnamed
267
if ((flags & (uint) AssemblyNameFlags.PublicKey) != 0 && public_key == null)
268
flags &= ~(uint) AssemblyNameFlags.PublicKey;
270
if (Compiler.Settings.Target == Target.Module) {
271
SetCustomAttribute (ctor, cdata);
273
builder_extra.SetFlags (flags, a.Location);
279
if (a.Type == pa.TypeForwarder) {
280
TypeSpec t = a.GetArgumentType ();
281
if (t == null || TypeManager.HasElementType (t)) {
282
Report.Error (735, a.Location, "Invalid type specified as an argument for TypeForwardedTo attribute");
286
if (emitted_forwarders == null) {
287
emitted_forwarders = new Dictionary<ITypeDefinition, Attribute> ();
288
} else if (emitted_forwarders.ContainsKey (t.MemberDefinition)) {
289
Report.SymbolRelatedToPreviousError (emitted_forwarders[t.MemberDefinition].Location, null);
290
Report.Error (739, a.Location, "A duplicate type forward of type `{0}'",
291
TypeManager.CSharpName (t));
295
emitted_forwarders.Add (t.MemberDefinition, a);
297
if (t.MemberDefinition.DeclaringAssembly == this) {
298
Report.SymbolRelatedToPreviousError (t);
299
Report.Error (729, a.Location, "Cannot forward type `{0}' because it is defined in this assembly",
300
TypeManager.CSharpName (t));
305
Report.Error (730, a.Location, "Cannot forward type `{0}' because it is a nested type",
306
TypeManager.CSharpName (t));
310
builder_extra.AddTypeForwarder (t.GetDefinition (), a.Location);
314
if (a.Type == pa.Extension) {
315
a.Error_MisusedExtensionAttribute ();
319
if (a.Type == pa.InternalsVisibleTo) {
320
string assembly_name = a.GetString ();
321
if (assembly_name.Length == 0)
324
ParsedAssemblyName aname;
325
ParseAssemblyResult r = Fusion.ParseAssemblyName (assembly_name, out aname);
326
if (r != ParseAssemblyResult.OK) {
327
Report.Warning (1700, 3, a.Location, "Assembly reference `{0}' is invalid and cannot be resolved",
332
if (aname.Version != null || aname.Culture != null || aname.ProcessorArchitecture != ProcessorArchitecture.None) {
333
Report.Error (1725, a.Location,
334
"Friend assembly reference `{0}' is invalid. InternalsVisibleTo declarations cannot have a version, culture or processor architecture specified",
340
if (public_key != null && !aname.HasPublicKey) {
341
Report.Error (1726, a.Location,
342
"Friend assembly reference `{0}' is invalid. Strong named assemblies must specify a public key in their InternalsVisibleTo declarations",
347
} else if (a.Type == pa.RuntimeCompatibility) {
348
wrap_non_exception_throws_custom = true;
349
} else if (a.Type == pa.AssemblyFileVersion) {
350
string value = a.GetString ();
351
if (string.IsNullOrEmpty (value) || IsValidAssemblyVersion (value, false) == null) {
352
Report.Warning (1607, 1, a.Location, "The version number `{0}' specified for `{1}' is invalid",
359
SetCustomAttribute (ctor, cdata);
363
// When using assembly public key attributes InternalsVisibleTo key
364
// was not checked, we have to do it later when we actually know what
365
// our public key token is
367
void CheckReferencesPublicToken ()
369
// TODO: It should check only references assemblies but there is
370
// no working SRE API
371
foreach (var entry in Importer.Assemblies) {
372
var a = entry as ImportedAssemblyDefinition;
376
if (public_key != null && !a.HasStrongName) {
377
Report.Error (1577, "Referenced assembly `{0}' does not have a strong name",
381
var ci = a.Assembly.GetName ().CultureInfo;
382
if (!ci.Equals (System.Globalization.CultureInfo.InvariantCulture)) {
383
Report.Warning (1607, 1, "Referenced assembly `{0}' has different culture setting of `{1}'",
387
if (!a.IsFriendAssemblyTo (this))
390
var attr = a.GetAssemblyVisibleToName (this);
391
var atoken = attr.GetPublicKeyToken ();
393
if (ArrayComparer.IsEqual (GetPublicKeyToken (), atoken))
396
Report.SymbolRelatedToPreviousError (a.Location);
398
"Friend access was granted to `{0}', but the output assembly is named `{1}'. Try adding a reference to `{0}' or change the output assembly name to match it",
399
attr.FullName, FullName);
403
protected AssemblyName CreateAssemblyName ()
405
var an = new AssemblyName (name);
407
if (public_key != null && Compiler.Settings.Target != Target.Module) {
409
an.SetPublicKey (public_key);
411
if (public_key.Length == 16) {
412
Report.Error (1606, "Could not sign the assembly. ECMA key can only be used to delay-sign assemblies");
413
} else if (private_key == null) {
414
Error_AssemblySigning ("The specified key file does not have a private key");
416
an.KeyPair = private_key;
424
public virtual ModuleBuilder CreateModuleBuilder ()
426
if (file_name == null)
427
throw new NotSupportedException ("transient module in static assembly");
429
var module_name = Path.GetFileName (file_name);
431
// Always initialize module without symbolInfo. We could be framework dependent
432
// but returned ISymbolWriter does not have all what we need therefore some
433
// adaptor will be needed for now we alwayas emit MDB format when generating
435
return Builder.DefineDynamicModule (module_name, module_name, false);
438
public virtual void Emit ()
440
if (Compiler.Settings.Target == Target.Module) {
441
module_target_attrs = new AssemblyAttributesPlaceholder (module, name);
442
module_target_attrs.CreateContainer ();
443
module_target_attrs.DefineContainer ();
444
module_target_attrs.Define ();
445
module.AddCompilerGeneratedClass (module_target_attrs);
446
} else if (added_modules != null) {
447
ReadModulesAssemblyAttributes ();
450
if (Compiler.Settings.GenerateDebugInfo) {
451
symbol_writer = new MonoSymbolFile ();
454
module.EmitContainer ();
456
if (module.HasExtensionMethod) {
457
var pa = module.PredefinedAttributes.Extension;
459
SetCustomAttribute (pa.Constructor, AttributeEncoder.Empty);
463
if (!IsSatelliteAssembly) {
464
if (!wrap_non_exception_throws_custom) {
465
PredefinedAttribute pa = module.PredefinedAttributes.RuntimeCompatibility;
466
if (pa.IsDefined && pa.ResolveBuilder ()) {
467
var prop = module.PredefinedMembers.RuntimeCompatibilityWrapNonExceptionThrows.Get ();
469
AttributeEncoder encoder = new AttributeEncoder ();
470
encoder.EncodeNamedPropertyArgument (prop, new BoolLiteral (Compiler.BuiltinTypes, true, Location.Null));
471
SetCustomAttribute (pa.Constructor, encoder.ToArray ());
476
if (declarative_security != null) {
478
foreach (var entry in declarative_security) {
479
Builder.__AddDeclarativeSecurity (entry);
482
throw new NotSupportedException ("Assembly-level security");
487
CheckReferencesPublicToken ();
492
public byte[] GetPublicKeyToken ()
494
if (public_key == null || public_key_token != null)
495
return public_key_token;
497
HashAlgorithm ha = SHA1.Create ();
498
byte[] hash = ha.ComputeHash (public_key);
499
// we need the last 8 bytes in reverse order
500
public_key_token = new byte[8];
501
Buffer.BlockCopy (hash, hash.Length - 8, public_key_token, 0, 8);
502
Array.Reverse (public_key_token, 0, 8);
503
return public_key_token;
507
// Either keyFile or keyContainer has to be non-null
509
void LoadPublicKey (string keyFile, string keyContainer)
511
if (keyContainer != null) {
513
private_key = new StrongNameKeyPair (keyContainer);
514
public_key = private_key.PublicKey;
516
Error_AssemblySigning ("The specified key container `" + keyContainer + "' does not exist");
522
bool key_file_exists = File.Exists (keyFile);
525
// For attribute based KeyFile do additional lookup
526
// in output assembly path
528
if (!key_file_exists && Compiler.Settings.StrongNameKeyFile == null) {
530
// The key file can be relative to output assembly
532
string test_path = Path.Combine (Path.GetDirectoryName (file_name), keyFile);
533
key_file_exists = File.Exists (test_path);
538
if (!key_file_exists) {
539
Error_AssemblySigning ("The specified key file `" + keyFile + "' does not exist");
543
using (FileStream fs = new FileStream (keyFile, FileMode.Open, FileAccess.Read)) {
544
byte[] snkeypair = new byte[fs.Length];
545
fs.Read (snkeypair, 0, snkeypair.Length);
547
// check for ECMA key
548
if (snkeypair.Length == 16) {
549
public_key = snkeypair;
554
// take it, with or without, a private key
555
RSA rsa = CryptoConvert.FromCapiKeyBlob (snkeypair);
556
// and make sure we only feed the public part to Sys.Ref
557
byte[] publickey = CryptoConvert.ToCapiPublicKeyBlob (rsa);
559
// AssemblyName.SetPublicKey requires an additional header
560
byte[] publicKeyHeader = new byte[8] { 0x00, 0x24, 0x00, 0x00, 0x04, 0x80, 0x00, 0x00 };
563
public_key = new byte[12 + publickey.Length];
564
Buffer.BlockCopy (publicKeyHeader, 0, public_key, 0, publicKeyHeader.Length);
566
// Length of Public Key (in bytes)
567
int lastPart = public_key.Length - 12;
568
public_key[8] = (byte) (lastPart & 0xFF);
569
public_key[9] = (byte) ((lastPart >> 8) & 0xFF);
570
public_key[10] = (byte) ((lastPart >> 16) & 0xFF);
571
public_key[11] = (byte) ((lastPart >> 24) & 0xFF);
573
Buffer.BlockCopy (publickey, 0, public_key, 12, publickey.Length);
575
Error_AssemblySigning ("The specified key file `" + keyFile + "' has incorrect format");
583
// TODO: Is there better way to test for a private key presence ?
584
CryptoConvert.FromCapiPrivateKeyBlob (snkeypair);
585
private_key = new StrongNameKeyPair (snkeypair);
590
void ReadModulesAssemblyAttributes ()
592
foreach (var m in added_modules) {
593
var cattrs = m.ReadAssemblyAttributes ();
597
module.OptAttributes.AddAttributes (cattrs);
601
public void Resolve ()
603
if (Compiler.Settings.Unsafe && module.PredefinedTypes.SecurityAction.Define ()) {
605
// Emits [assembly: SecurityPermissionAttribute (SecurityAction.RequestMinimum, SkipVerification = true)]
606
// when -unsafe option was specified
608
Location loc = Location.Null;
610
MemberAccess system_security_permissions = new MemberAccess (new MemberAccess (
611
new QualifiedAliasMember (QualifiedAliasMember.GlobalAlias, "System", loc), "Security", loc), "Permissions", loc);
613
var req_min = module.PredefinedMembers.SecurityActionRequestMinimum.Resolve (loc);
615
Arguments pos = new Arguments (1);
616
pos.Add (new Argument (req_min.GetConstant (null)));
618
Arguments named = new Arguments (1);
619
named.Add (new NamedArgument ("SkipVerification", loc, new BoolLiteral (Compiler.BuiltinTypes, true, loc)));
621
Attribute g = new Attribute ("assembly",
622
new MemberAccess (system_security_permissions, "SecurityPermissionAttribute"),
623
new Arguments[] { pos, named }, loc, false);
624
g.AttachTo (module, module);
626
// Disable no-location warnings (e.g. obsolete) for compiler generated attribute
627
Compiler.Report.DisableReporting ();
629
var ctor = g.Resolve ();
631
g.ExtractSecurityPermissionSet (ctor, ref declarative_security);
634
Compiler.Report.EnableReporting ();
638
if (module.OptAttributes == null)
641
// Ensure that we only have GlobalAttributes, since the Search isn't safe with other types.
642
if (!module.OptAttributes.CheckTargets())
645
cls_attribute = module.ResolveAssemblyAttribute (module.PredefinedAttributes.CLSCompliant);
647
if (cls_attribute != null) {
648
is_cls_compliant = cls_attribute.GetClsCompliantAttributeValue ();
651
if (added_modules != null && Compiler.Settings.VerifyClsCompliance && is_cls_compliant) {
652
foreach (var m in added_modules) {
653
if (!m.IsCLSCompliant) {
655
"Added modules must be marked with the CLSCompliant attribute to match the assembly",
661
Attribute a = module.ResolveAssemblyAttribute (module.PredefinedAttributes.RuntimeCompatibility);
663
var val = a.GetNamedValue ("WrapNonExceptionThrows") as BoolConstant;
665
wrap_non_exception_throws = val.Value;
669
protected void ResolveAssemblySecurityAttributes ()
671
string key_file = null;
672
string key_container = null;
674
if (module.OptAttributes != null) {
675
foreach (Attribute a in module.OptAttributes.Attrs) {
676
// cannot rely on any resolve-based members before you call Resolve
677
if (a.ExplicitTarget != "assembly")
680
// TODO: This code is buggy: comparing Attribute name without resolving is wrong.
681
// However, this is invoked by CodeGen.Init, when none of the namespaces
683
// TODO: Does not handle quoted attributes properly
685
case "AssemblyKeyFile":
686
case "AssemblyKeyFileAttribute":
687
case "System.Reflection.AssemblyKeyFileAttribute":
688
if (Compiler.Settings.StrongNameKeyFile != null) {
689
Report.SymbolRelatedToPreviousError (a.Location, a.GetSignatureForError ());
690
Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
691
"keyfile", "System.Reflection.AssemblyKeyFileAttribute");
693
string value = a.GetString ();
694
if (!string.IsNullOrEmpty (value)) {
695
Error_ObsoleteSecurityAttribute (a, "keyfile");
700
case "AssemblyKeyName":
701
case "AssemblyKeyNameAttribute":
702
case "System.Reflection.AssemblyKeyNameAttribute":
703
if (Compiler.Settings.StrongNameKeyContainer != null) {
704
Report.SymbolRelatedToPreviousError (a.Location, a.GetSignatureForError ());
705
Report.Warning (1616, 1, "Option `{0}' overrides attribute `{1}' given in a source file or added module",
706
"keycontainer", "System.Reflection.AssemblyKeyNameAttribute");
708
string value = a.GetString ();
709
if (!string.IsNullOrEmpty (value)) {
710
Error_ObsoleteSecurityAttribute (a, "keycontainer");
711
key_container = value;
715
case "AssemblyDelaySign":
716
case "AssemblyDelaySignAttribute":
717
case "System.Reflection.AssemblyDelaySignAttribute":
718
bool b = a.GetBoolean ();
720
Error_ObsoleteSecurityAttribute (a, "delaysign");
729
// We came here only to report assembly attributes warnings
730
if (public_key != null)
734
// Load the strong key file found in attributes when no
735
// command line key was given
737
if (key_file != null || key_container != null) {
738
LoadPublicKey (key_file, key_container);
739
} else if (delay_sign) {
740
Report.Warning (1607, 1, "Delay signing was requested but no key file was given");
744
public void EmbedResources ()
747
// Add Win32 resources
749
if (Compiler.Settings.Win32ResourceFile != null) {
750
Builder.DefineUnmanagedResource (Compiler.Settings.Win32ResourceFile);
752
Builder.DefineVersionInfoResource ();
755
if (Compiler.Settings.Win32IconFile != null) {
756
builder_extra.DefineWin32IconResource (Compiler.Settings.Win32IconFile);
759
if (Compiler.Settings.Resources != null) {
760
if (Compiler.Settings.Target == Target.Module) {
761
Report.Error (1507, "Cannot link resource file when building a module");
764
foreach (var res in Compiler.Settings.Resources) {
765
if (!File.Exists (res.FileName)) {
766
Report.Error (1566, "Error reading resource file `{0}'", res.FileName);
772
if (counter++ < 10) {
773
stream = File.OpenRead (res.FileName);
775
// TODO: SRE API requires resource stream to be available during AssemblyBuilder::Save
776
// we workaround it by reading everything into memory to compile projects with
777
// many embedded resource (over 3500) references
778
stream = new MemoryStream (File.ReadAllBytes (res.FileName));
781
module.Builder.DefineManifestResource (res.Name, stream, res.Attributes);
783
Builder.AddResourceFile (res.Name, Path.GetFileName (res.FileName), res.Attributes);
792
PortableExecutableKinds pekind = PortableExecutableKinds.ILOnly;
793
ImageFileMachine machine;
795
switch (Compiler.Settings.Platform) {
797
pekind |= PortableExecutableKinds.Required32Bit;
798
machine = ImageFileMachine.I386;
801
pekind |= PortableExecutableKinds.PE32Plus;
802
machine = ImageFileMachine.AMD64;
805
machine = ImageFileMachine.IA64;
807
case Platform.AnyCPU32Preferred:
809
pekind |= PortableExecutableKinds.Preferred32Bit;
810
machine = ImageFileMachine.I386;
813
throw new NotSupportedException ();
817
machine = ImageFileMachine.ARM;
820
throw new NotSupportedException ();
822
case Platform.AnyCPU:
824
machine = ImageFileMachine.I386;
828
Compiler.TimeReporter.Start (TimeReporter.TimerType.OutputSave);
830
if (Compiler.Settings.Target == Target.Module) {
831
SaveModule (pekind, machine);
833
Builder.Save (module.Builder.ScopeName, pekind, machine);
835
} catch (Exception e) {
836
Report.Error (16, "Could not write to file `" + name + "', cause: " + e.Message);
838
Compiler.TimeReporter.Stop (TimeReporter.TimerType.OutputSave);
840
// Save debug symbols file
841
if (symbol_writer != null && Compiler.Report.Errors == 0) {
842
// TODO: it should run in parallel
843
Compiler.TimeReporter.Start (TimeReporter.TimerType.DebugSave);
845
var filename = file_name + ".mdb";
847
// We mmap the file, so unlink the previous version since it may be in use
848
File.Delete (filename);
850
// We can safely ignore
853
module.WriteDebugSymbol (symbol_writer);
855
using (FileStream fs = new FileStream (filename, FileMode.Create, FileAccess.Write)) {
856
symbol_writer.CreateSymbolFile (module.Builder.ModuleVersionId, fs);
859
Compiler.TimeReporter.Stop (TimeReporter.TimerType.DebugSave);
863
protected virtual void SaveModule (PortableExecutableKinds pekind, ImageFileMachine machine)
865
Report.RuntimeMissingSupport (Location.Null, "-target:module");
868
void SetCustomAttribute (MethodSpec ctor, byte[] data)
870
if (module_target_attrs != null)
871
module_target_attrs.AddAssemblyAttribute (ctor, data);
873
Builder.SetCustomAttribute ((ConstructorInfo) ctor.GetMetaInfo (), data);
876
void SetEntryPoint ()
878
if (!Compiler.Settings.NeedsEntryPoint) {
879
if (Compiler.Settings.MainClass != null)
880
Report.Error (2017, "Cannot specify -main if building a module or library");
885
PEFileKinds file_kind;
887
switch (Compiler.Settings.Target) {
890
file_kind = PEFileKinds.Dll;
893
file_kind = PEFileKinds.WindowApplication;
896
file_kind = PEFileKinds.ConsoleApplication;
900
if (entry_point == null) {
901
string main_class = Compiler.Settings.MainClass;
902
if (main_class != null) {
903
// TODO: Handle dotted names
904
var texpr = module.GlobalRootNamespace.LookupType (module, main_class, 0, LookupMode.Probing, Location.Null);
906
Report.Error (1555, "Could not find `{0}' specified for Main method", main_class);
910
var mtype = texpr.Type.MemberDefinition as ClassOrStruct;
912
Report.Error (1556, "`{0}' specified for Main method must be a valid class or struct", main_class);
916
Report.Error (1558, mtype.Location, "`{0}' does not have a suitable static Main method", mtype.GetSignatureForError ());
918
string pname = file_name == null ? name : Path.GetFileName (file_name);
919
Report.Error (5001, "Program `{0}' does not contain a static `Main' method suitable for an entry point",
926
Builder.SetEntryPoint (entry_point.MethodBuilder, file_kind);
929
void Error_ObsoleteSecurityAttribute (Attribute a, string option)
931
Report.Warning (1699, 1, a.Location,
932
"Use compiler option `{0}' or appropriate project settings instead of `{1}' attribute",
936
void Error_AssemblySigning (string text)
938
Report.Error (1548, "Error during assembly signing. " + text);
941
public bool IsFriendAssemblyTo (IAssemblyDefinition assembly)
946
static Version IsValidAssemblyVersion (string version, bool allowGenerated)
948
string[] parts = version.Split ('.');
949
if (parts.Length < 1 || parts.Length > 4)
952
var values = new int[4];
953
for (int i = 0; i < parts.Length; ++i) {
954
if (!int.TryParse (parts[i], out values[i])) {
955
if (parts[i].Length == 1 && parts[i][0] == '*' && allowGenerated) {
957
// Nothing can follow *
958
if (parts.Length > 3)
961
// Generate Build value based on days since 1/1/2000
962
TimeSpan days = DateTime.Today - new DateTime (2000, 1, 1);
963
values[i] = System.Math.Max (days.Days, 0);
968
// Generate Revision value based on every other second today
969
var seconds = DateTime.Now - DateTime.Today;
970
values[i] = (int) seconds.TotalSeconds / 2;
978
if (values[i] > ushort.MaxValue)
982
return new Version (values[0], values[1], values[2], values[3]);
986
public class AssemblyResource : IEquatable<AssemblyResource>
988
public AssemblyResource (string fileName, string name)
989
: this (fileName, name, false)
993
public AssemblyResource (string fileName, string name, bool isPrivate)
997
Attributes = isPrivate ? ResourceAttributes.Private : ResourceAttributes.Public;
1000
public ResourceAttributes Attributes { get; private set; }
1001
public string Name { get; private set; }
1002
public string FileName { get; private set; }
1003
public bool IsEmbeded { get; set; }
1005
#region IEquatable<AssemblyResource> Members
1007
public bool Equals (AssemblyResource other)
1009
return Name == other.Name;
1016
// A placeholder class for assembly attributes when emitting module
1018
class AssemblyAttributesPlaceholder : CompilerGeneratedContainer
1020
static readonly string TypeNamePrefix = "<$AssemblyAttributes${0}>";
1021
public static readonly string AssemblyFieldName = "attributes";
1025
public AssemblyAttributesPlaceholder (ModuleContainer parent, string outputName)
1026
: base (parent, new MemberName (GetGeneratedName (outputName)), Modifiers.STATIC | Modifiers.INTERNAL)
1028
assembly = new Field (this, new TypeExpression (parent.Compiler.BuiltinTypes.Object, Location), Modifiers.PUBLIC | Modifiers.STATIC,
1029
new MemberName (AssemblyFieldName), null);
1031
AddField (assembly);
1034
public void AddAssemblyAttribute (MethodSpec ctor, byte[] data)
1036
assembly.SetCustomAttribute (ctor, data);
1039
public static string GetGeneratedName (string outputName)
1041
return string.Format (TypeNamePrefix, outputName);
1046
// Extension to System.Reflection.Emit.AssemblyBuilder to have fully compatible
1047
// compiler. This is a default implementation for framework System.Reflection.Emit
1048
// which does not implement any of the methods
1050
public class AssemblyBuilderExtension
1052
readonly CompilerContext ctx;
1054
public AssemblyBuilderExtension (CompilerContext ctx)
1059
public virtual System.Reflection.Module AddModule (string module)
1061
ctx.Report.RuntimeMissingSupport (Location.Null, "-addmodule");
1065
public virtual void AddPermissionRequests (PermissionSet[] permissions)
1067
ctx.Report.RuntimeMissingSupport (Location.Null, "assembly declarative security");
1070
public virtual void AddTypeForwarder (TypeSpec type, Location loc)
1072
ctx.Report.RuntimeMissingSupport (loc, "TypeForwardedToAttribute");
1075
public virtual void DefineWin32IconResource (string fileName)
1077
ctx.Report.RuntimeMissingSupport (Location.Null, "-win32icon");
1080
public virtual void SetAlgorithmId (uint value, Location loc)
1082
ctx.Report.RuntimeMissingSupport (loc, "AssemblyAlgorithmIdAttribute");
1085
public virtual void SetCulture (string culture, Location loc)
1087
ctx.Report.RuntimeMissingSupport (loc, "AssemblyCultureAttribute");
1090
public virtual void SetFlags (uint flags, Location loc)
1092
ctx.Report.RuntimeMissingSupport (loc, "AssemblyFlagsAttribute");
1095
public virtual void SetVersion (Version version, Location loc)
1097
ctx.Report.RuntimeMissingSupport (loc, "AssemblyVersionAttribute");
1101
abstract class AssemblyReferencesLoader<T>
1103
protected readonly CompilerContext compiler;
1105
protected readonly List<string> paths;
1107
public AssemblyReferencesLoader (CompilerContext compiler)
1109
this.compiler = compiler;
1111
paths = new List<string> ();
1112
paths.Add (Directory.GetCurrentDirectory ());
1113
paths.AddRange (compiler.Settings.ReferencesLookupPaths);
1116
public abstract bool HasObjectType (T assembly);
1117
protected abstract string[] GetDefaultReferences ();
1118
public abstract T LoadAssemblyFile (string fileName, bool isImplicitReference);
1119
public abstract void LoadReferences (ModuleContainer module);
1121
protected void Error_FileNotFound (string fileName)
1123
compiler.Report.Error (6, "Metadata file `{0}' could not be found", fileName);
1126
protected void Error_FileCorrupted (string fileName)
1128
compiler.Report.Error (9, "Metadata file `{0}' does not contain valid metadata", fileName);
1131
protected void Error_AssemblyIsModule (string fileName)
1133
compiler.Report.Error (1509,
1134
"Referenced assembly file `{0}' is a module. Consider using `-addmodule' option to add the module",
1138
protected void Error_ModuleIsAssembly (string fileName)
1140
compiler.Report.Error (1542,
1141
"Added module file `{0}' is an assembly. Consider using `-r' option to reference the file",
1145
protected void LoadReferencesCore (ModuleContainer module, out T corlib_assembly, out List<Tuple<RootNamespace, T>> loaded)
1147
compiler.TimeReporter.Start (TimeReporter.TimerType.ReferencesLoading);
1149
loaded = new List<Tuple<RootNamespace, T>> ();
1152
// Load mscorlib.dll as the first
1154
if (module.Compiler.Settings.StdLib) {
1155
corlib_assembly = LoadAssemblyFile ("mscorlib.dll", true);
1157
corlib_assembly = default (T);
1161
foreach (string r in module.Compiler.Settings.AssemblyReferences) {
1162
a = LoadAssemblyFile (r, false);
1163
if (a == null || EqualityComparer<T>.Default.Equals (a, corlib_assembly))
1166
var key = Tuple.Create (module.GlobalRootNamespace, a);
1167
if (loaded.Contains (key))
1170
// A corlib assembly is the first assembly which contains System.Object
1171
if (corlib_assembly == null && HasObjectType (a)) {
1172
corlib_assembly = a;
1179
foreach (var entry in module.Compiler.Settings.AssemblyReferencesAliases) {
1180
a = LoadAssemblyFile (entry.Item2, false);
1184
var key = Tuple.Create (module.CreateRootNamespace (entry.Item1), a);
1185
if (loaded.Contains (key))
1191
if (compiler.Settings.LoadDefaultReferences) {
1192
foreach (string r in GetDefaultReferences ()) {
1193
a = LoadAssemblyFile (r, true);
1197
var key = Tuple.Create (module.GlobalRootNamespace, a);
1198
if (loaded.Contains (key))
1205
compiler.TimeReporter.Stop (TimeReporter.TimerType.ReferencesLoading);