CLOCC - Common Lisp Open Code Collection

Update of /cvsroot/clocc/clocc/src/port
In directory slayer.i.sourceforge.net:/tmp/cvs-serv23644

Modified Files:
	net.lisp 
Log Message:
(open-socket-server): CMUCL: use 0 when port is nil
(socket-server-host/port): CMUCL: use `ext:get-socket-host-and-port'

Update of /cvsroot/clocc/clocc/src/cllib
In directory slayer.i.sourceforge.net:/tmp/cvs-serv23116

Modified Files:
	inspect.lisp 
Log Message:
(inspect-frontend :http): null `*inspect-browser*' means print URL.
This way you can run lisp and browser on different machines.

I was wondering if anyone has given any thoughts on adding compile
options to defsystem.

My defsystem looks something like this:

;; Convert a Fortran file to Lisp and compile the Lisp file.
(defun f2cl-compile (filename &key output-file error-file)
  (compile-file (f2cl filename) :output-file output-file :error-file error-file))

(defun f2cl-compile-no-slice (filename &key output-file error-file)
  (compile-file (f2cl filename :array-slicing nil :array-type 'array)
		:output-file output-file :error-file error-file))

(mk:define-language :f2cl
    :compiler #'f2cl-compile
    :source-extension "f")

(mk:define-language :f2cl-no-slice
    :compiler #'f2cl-compile-no-slice
    :source-extension "f")

(mk:defsystem quadpack
    :source-pathname (logical-pathname "clocc:src;f2cl;packages;quadpack;")
    :depends-on ("mach-par")
    :components
    ((:module Fortran
	      :source-pathname "Fortran;"
	      :binary-pathname "lib;"
	      :source-extension "f"
	      :language :f2cl
	      :components
	      (
	       (:file "dqagse"
		      :depends-on ("dqk21"
				   "dqelg"
				   "dqpsrt"))
	       (:file "dqawfe"
		      ;; DQAWFE calls DQAWO with array elements, not
		      ;; slices, so don't compile with slicing on.
		      :language :f2cl-no-slice
		      :depends-on ("dqagie"
				   "dqawoe"
				   "dqelg"))))))

The main difference between these languages is that :f2cl-no-slice
calls f2cl with :array-slicing nil and :array-type 'array.

It would be nice if there were an option, say, :compile-options where
I could specify appropriate options to the compiler.  Then I could
have just one f2cl compiler and I could say

(:file "dqawfe"
       :compiler-options (:array-slicing nil :array-type 'array)
       :depends-on ...)

Then "dqawfe" would get compiled by calling 

(f2cl "dqawfe" :array-slicing nil :array-type 'array)

What do people think about this?

Ray

I have a defsystem that looks like this:

(setf (logical-pathname-translations "clocc")
      '(("**;*.*.*" "/home/unix/toy/apps/clocc/**/*.*")))

(mk:defsystem f2cl
    :source-pathname (logical-pathname "clocc:src;f2cl;")
    :source-extension "l"
    :depends-on nil
    :components
    ((:module src
	      :source-pathname "src;"
	      :binary-pathname "src;"
	      :components
	      (
	       ;;(:file "f2cl0")
	       (:file "f2cl1")
	       (:file "f2cl2")
	       (:file "f2cl3")
	       (:file "f2cl4")
	       (:file "f2cl5")
	       (:file "f2cl6")
	       (:file "f2cl7")
	       (:file "macros")))))

This works fine in CMUCL.  In clisp, defsystem wants to get the source
file from

        <clocc>/src/f2cl/src;f2cl1.l

If I change "src;" to (logical-pathname "src;"), defsystem then wants
to get the source file from:

        <clocc>/src/f2cl/SRC/f2cl1.l

How do I get that this to work?

Ray

P.S.  mk:*defsystem-version* is "3.2 Interim, 2000-03-15"

Update of /cvsroot/clocc/clocc/src/f2cl/packages/quadpack/Fortran
In directory slayer.i.sourceforge.net:/tmp/cvs-serv26518/packages/quadpack/Fortran

Modified Files:
	dqawfe.f 
Log Message:
Revert back to rev 1.2 since this file will work if we compile with
array-slicing off.

Update of /cvsroot/clocc/clocc/src/f2cl/packages
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25866/packages

Added Files:
	quadpack.system 
Log Message:
Initial revision

Update of /cvsroot/clocc/clocc/src/f2cl/val
In directory slayer.i.sourceforge.net:/tmp/cvs-serv25403/val

Added Files:
	tst-init.f 
Log Message:
Initial revision

Update of /cvsroot/clocc/clocc/src/cllib
In directory slayer.i.sourceforge.net:/tmp/cvs-serv24639

Modified Files:
	inspect.lisp 
Log Message:
more debugging statements

Update of /cvsroot/clocc/clocc/src/f2cl/packages/quadpack
In directory slayer.i.sourceforge.net:/tmp/cvs-serv24240/packages/quadpack

Added Files:
	quadpack-tests.lisp 
Log Message:
Initial revision

Update of /cvsroot/clocc/clocc/src/f2cl/src
In directory slayer.i.sourceforge.net:/tmp/cvs-serv28424/src/f2cl/src

Modified Files:
	NOTES 
Log Message:

Update of /cvsroot/clocc/clocc/src/f2cl/src
In directory slayer.i.sourceforge.net:/tmp/cvs-serv28176/src/f2cl/src

Modified Files:
	macros.l 
Log Message:
o Remove old fref macro
o Add some comments
o Add macro ARRAY-INITIALIZE to handle creating the appropriate for to
  give to make-array :initial-contents.

Update of /cvsroot/clocc/clocc/src/f2cl/src
In directory slayer.i.sourceforge.net:/tmp/cvs-serv27990/src/f2cl/src

Modified Files:
	f2cl5.l 
Log Message:
Since all arrays are now actually stored in column-major order in a
1-dimensional vector, we don't need to transpose the data initializers
anymore.  Replace fortran-transpose with fortran-data-init to
correctly initialize the array.

Update of /cvsroot/clocc/clocc/src/f2cl/src
In directory slayer.i.sourceforge.net:/tmp/cvs-serv27858/src/f2cl/src

Modified Files:
	f2cl1.l 
Log Message:
o PARSE-DATA was not correctly handling data statements of the form:

	data x(1),x(2),x(3)/n1, n2, n3/

o FIX-UP-NEGATIVE-NUMBER in PARSE-DATA1 didn't handle the case when
  passed a value like 1.0d%1 which f2cl had converted from 1.0d-1.

Update of /cvsroot/clocc/clocc/src/f2cl/packages/quadpack/Fortran
In directory slayer.i.sourceforge.net:/tmp/cvs-serv27548/src/f2cl/packages/quadpack/Fortran

Modified Files:
	dqawfe.f 
Log Message:
In the call to dqawoe, the code was passing a single element of an
array to the routine.  However, the usage confuses f2cl when
array-slicing is on.  Change the code to pass a single element in.
(Alternatively, we probably could have just run f2cl with
array-slicing off.)