[svn] r6273: nemerle/trunk/ncc/generation/HierarchyEmitter.n

[nazgul]

Log:
Use DefineManifestResource

Author: nazgul
Date: Sun May 14 17:44:29 2006
New Revision: 6273

Modified:
   nemerle/trunk/ncc/generation/HierarchyEmitter.n

Modified: nemerle/trunk/ncc/generation/HierarchyEmitter.n
==============================================================================
--- nemerle/trunk/ncc/generation/HierarchyEmitter.n	(original)
+++ nemerle/trunk/ncc/generation/HierarchyEmitter.n	Sun May 14 17:44:29 2006
@@ -137,20 +137,11 @@
 
       /* we can embed resources only on mono or .NET 2.0 */
       foreach (element in Options.EmbeddedResources) {
-        def (file, name) = escape_resource (element);
+        def (file, _) = escape_resource (element);
         try {
-          def resource_builder = _module_builder.DefineResource (file, name);        
           if (File.Exists (file)) {
-            using (fs = File.OpenRead (file)) {
-              def res = array (fs.Length :> int);
-              def loop (pos) {
-                if (res.Length == pos) {}
-                else
-                  loop (pos + fs.Read(res, pos, res.Length - pos));
-              }
-              loop (0);
-              resource_builder.AddResource (name, res);
-            }
+            def fs = File.OpenRead (file);
+            _module_builder.DefineManifestResource(element, fs, ResourceAttributes.Public);
           }
           else
             Message.Error ("Could not find resource " + file);