ilib_mex_build.sci uses ilib_build.sci
Allan Cornet [Fri, 25 Jan 2008 13:58:24 +0000 (13:58 +0000)]
scilab/modules/dynamic_link/macros/ilib_build.sci
scilab/modules/dynamic_link/macros/ilib_mex_build.sci

index 6c1dc05..c0471bd 100644 (file)
@@ -1,21 +1,50 @@
-function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags)\r
-  // Copyright Enpc \r
+//==========================================\r
+// INRIA 2008\r
+//==========================================\r
+function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,ismex)\r
+\r
+  if ~haveacompiler() then\r
+       error(_('A Fortran or C compiler is required.'))  \r
+       return;\r
+  end\r
+  \r
   [lhs,rhs]=argn(0);\r
-  info=1\r
+  \r
   if rhs <= 4 then makename = 'Makelib';end\r
-  if rhs <= 5 then ldflags = ""; end \r
-  if rhs <= 6 then cflags  = ""; end \r
-  if rhs <= 7 then fflags  = ""; end \r
+  if rhs <= 5 then ldflags = ''; end \r
+  if rhs <= 6 then cflags  = ''; end \r
+  if rhs <= 7 then fflags  = ''; end \r
+  if rhs <= 8 then ismex  = %f; end \r
+  \r
+  warningmode = warning('query');\r
+  \r
   // generate the gateway file\r
-  if info==1 then write(%io(2),'   generate a gateway file');end\r
+  if (warningmode == 'on') then\r
+    write(%io(2),_('   generate a gateway file'));\r
+  end    \r
   ilib_gen_gateway(ilib_name,table)\r
+  \r
   // generate a loader file\r
-  if info==1 then write(%io(2),'   generate a loader file');end\r
-  ilib_gen_loader(ilib_name,table,libs);\r
+  if (warningmode == 'on') then\r
+    write(%io(2),_('   generate a loader file'));\r
+  end\r
+  if ~ismex then\r
+    ilib_gen_loader(ilib_name,table,libs);\r
+  else\r
+    ilib_gen_loader(ilib_name,table);\r
+  end\r
+  \r
   // generate a Makefile\r
-  if info==1 then write(%io(2),'   generate a Makefile: Makelib');end\r
+  if (warningmode == 'on') then\r
+    write(%io(2),sprintf(_('   generate a Makefile: %s'),'Makelib'));\r
+  end\r
   ilib_gen_Make(ilib_name,table,files,libs,makename,%t,ldflags,cflags,fflags);\r
+  \r
   // we call make\r
-  if info==1 then write(%io(2),'   running the makefile');end\r
+  if (warningmode == 'on') then\r
+    write(%io(2),_('   running the makefile'));\r
+  end\r
   ilib_compile(ilib_name,makename,files);\r
+  \r
 endfunction\r
+//==========================================\r
index 82e7130..c7129b9 100644 (file)
@@ -15,31 +15,8 @@ function ilib_mex_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflag
   if rhs <= 6 then cflags  = ''; end \r
   if rhs <= 7 then fflags  = ''; end \r
   \r
-  warningmode = warning('query');\r
+  ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,%t);\r
   \r
-  // generate the gateway file\r
-  if (warningmode == 'on') then\r
-    write(%io(2),_('   generate a gateway file'));\r
-  end    \r
-  ilib_gen_gateway(ilib_name,table)\r
-  \r
-  // generate a loader file\r
-  if (warningmode == 'on') then\r
-    write(%io(2),_('   generate a loader file'));\r
-  end\r
-  ilib_gen_loader(ilib_name,table);\r
-  \r
-  // generate a Makefile\r
-  if (warningmode == 'on') then\r
-    write(%io(2),sprintf(_('   generate a Makefile: %s'),'Makelib'));\r
-  end\r
-  ilib_gen_Make(ilib_name,table,files,libs,makename,%t,ldflags,cflags,fflags);\r
-  \r
-  // we call make\r
-  if (warningmode == 'on') then\r
-    write(%io(2),_('   running the makefile'));\r
-  end\r
-  ilib_compile(ilib_name,makename,files);\r
   \r
 endfunction\r
 //==========================================\r