[allegrocl] see CHANGES.current

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9901 626c5289-ae23-0410-ae9c-e8d60b6d4f22

CHANGES.current

@@ -1,6 +1,11 @@
 Version 1.3.32 (in progress)
 ============================
 
+08/16/2007: mutandiz (Mikel Bancroft)
+	    [allegrocl] Name generated cl file based on input file rather than by
+	    module name. It was possible to end up with a mypackage.cl and a test_wrap.c
+	    when parsing a test.i input file. Confusing.
+
 08/15/2007: efuzzyone
             [cffi] Apply patch #1766076 from Leigh Smith adding support for newly introduced 
             in cffi :long-long and :unsigned-long-long.

Lib/allegrocl/allegrocl.swg

@@ -249,6 +249,10 @@ $body)"
 
 (eval-when (compile load eval)
 
+  ;; avoid compiling ef-templates at runtime
+  (excl:find-external-format :fat)
+  (excl:find-external-format :fat-le)
+
 ;;; You can define your own identifier converter if you want.
 ;;; Use the -identifier-converter command line argument to
 ;;; specify its name.

Source/Modules/allegrocl.cxx

@@ -1524,7 +1524,7 @@ int ALLEGROCL::top(Node *n) {
 
   swig_package = unique_swig_package ? NewStringf("swig.%s", module_name) : NewString("swig");
 
-  Printf(cl_filename, "%s%s.cl", SWIG_output_directory(), module_name);
+  Printf(cl_filename, "%s%s.cl", SWIG_output_directory(), Swig_file_basename(Getattr(n,"infile")));
 
   f_cl = NewFile(cl_filename, "w");
   if (!f_cl) {