Merge pull request #25 from cpaulbond/split-out-library

Moved library/module to a separate file.

.gitignore

@@ -1 +1,2 @@
-*.hdp
+*.hdp
+_build

ackermann-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library ackermann
+  use common-dylan;
+  use io;
+end library;
+
+define module ackermann
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

ackermann.dylan

@@ -1,15 +1,5 @@
 module: ackermann
 
-define library ackermann
-  use common-dylan;
-  use io;
-end library;
-
-define module ackermann
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 begin
   local method ackermann (M :: <integer>, N :: <integer>)
           case

ackermann.lid

@@ -1,3 +1,4 @@
 library: ackermann
 executable: ackermann
-files: ackermann
+files: ackermann-library
+       ackermann

ary-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library ary
+  use common-dylan;
+  use io;
+end library;
+
+define module ary
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

ary.dylan

@@ -1,15 +1,5 @@
 module: ary
 
-define library ary
-  use common-dylan;
-  use io;
-end library;
-
-define module ary
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 define constant <integer-vector> = limited(<vector>, of: <integer>);
 
 define function main (arguments)

ary.lid

@@ -1,3 +1,4 @@
 library: ary
 executable: ary
-files: ary
+files: ary-library
+       ary

binary-trees-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library binary-trees
+  use common-dylan;
+  use io;
+end library;
+
+define module binary-trees
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

binary-trees.dylan

@@ -1,15 +1,5 @@
 module: binary-trees
 
-define library binary-trees
-  use common-dylan;
-  use io;
-end library;
-
-define module binary-trees
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 define constant <tree> = false-or(<node>);
 
 define class <node> (<object>)

binary-trees.lid

@@ -1,3 +1,4 @@
 library: binary-trees
 executable: binary-trees
-files: binary-trees
+files: binary-trees-library
+       binary-trees

except-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library except
+  use common-dylan;
+  use io;
+end library;
+
+define module except
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

except.dylan

@@ -3,16 +3,6 @@ synopsis:   implementation of "Exception Handling" benchmark
 author:     Peter Hinely
 copyright:  public domain
 
-define library except
-  use common-dylan;
-  use io;
-end library;
-
-define module except
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 
 define variable hi :: <integer> = 0;
 define variable lo  :: <integer> = 0;

except.lid

@@ -1,3 +1,4 @@
 library: except
 executable: except
-files: except
+files: except-library
+       except

fannkuch-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library fannkuch
+  use common-dylan;
+  use io;
+end library;
+
+define module fannkuch
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

fannkuch.dylan

@@ -1,15 +1,5 @@
 module: fannkuch
 
-define library fannkuch
-  use common-dylan;
-  use io;
-end library;
-
-define module fannkuch
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 define constant <int-vector> = limited(<vector>, of: <integer>);
 
 define function fannkuch (n :: <integer>)

fannkuch.lid

@@ -1,3 +1,4 @@
 library: fannkuch
 executable: fannkuch
-files: fannkuch
+files: fannkuch-library
+       fannkuch

fasta-library.dylan

@@ -0,0 +1,13 @@
+module: dylan-user
+
+define library fasta
+  use common-dylan;
+  use io;
+end library;
+
+define module fasta
+  use common-dylan, exclude: { format-to-string };
+  use standard-io;
+  use streams;
+  use format-out;
+end module;

fasta.dylan

@@ -1,17 +1,5 @@
 module: fasta
 
-define library fasta
-  use common-dylan;
-  use io;
-end library;
-
-define module fasta
-  use common-dylan, exclude: { format-to-string };
-  use standard-io;
-  use streams;
-  use format-out;
-end module;
-
 define constant $alu :: <byte-string> =
   "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGG"
   "GAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGA"

fasta.lid

@@ -1,3 +1,4 @@
 library: fasta
 executable: fasta
-files: fasta
+files: fasta-library
+       fasta

fibonacci-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library fibo
+  use common-dylan;
+  use io;
+end library;
+
+define module fibo
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

fibonacci.dylan

@@ -1,15 +1,5 @@
 module: fibo
 
-define library fibo
-  use common-dylan;
-  use io;
-end library;
-
-define module fibo
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 define function fibo(M :: <integer>)
  => result :: <integer>;
   case 

fibonacci.lid

@@ -1,3 +1,4 @@
-library: fibo
-executable: fibo
-files: fibonacci
+library: fibonacci
+executable: fibonacci
+files: fibonacci-library
+       fibonacci

harmonic-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library harmonic
+  use common-dylan;
+  use io;
+end library;
+
+define module harmonic
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

harmonic.dylan

@@ -1,15 +1,5 @@
 module: harmonic
 
-define library harmonic
-  use common-dylan;
-  use io;
-end library;
-
-define module harmonic
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 begin
   let arg = string-to-integer(element(application-arguments(), 0, default: "1"));
   for (n from arg above 0 by -1,

harmonic.lid

@@ -1,3 +1,4 @@
 library: harmonic
 executable: harmonic
-files: harmonic
+files: harmonic-library
+       harmonic

hash-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library hash
+  use common-dylan;
+  use io;
+end library;
+
+define module hash
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

hash.dylan

@@ -3,16 +3,6 @@ synopsis:       implementation of "Hash (Associative Arrays) Access" benchmark
 author:         Peter Hinely
 copyright:      public domain
 
-define library hash
-  use common-dylan;
-  use io;
-end library;
-
-define module hash
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 
 define function main () => ()
   let arg = string-to-integer(element(application-arguments(), 0, default: "1"));

hash.lid

@@ -1,3 +1,4 @@
 library: hash
 executable: hash
-files: hash
+files: hash-library
+       hash

hash2-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library hash2
+  use common-dylan;
+  use io;
+end library;
+
+define module hash2
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

hash2.dylan

@@ -3,16 +3,6 @@ synopsis:       implementation of "Hashes, Part II" benchmark
 author:         Peter Hinely
 copyright:      public domain
 
-define library hash2
-  use common-dylan;
-  use io;
-end library;
-
-define module hash2
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 
 define function main () => ()
   let arg = string-to-integer(element(application-arguments(), 0, default: "1"));

hash2.lid

@@ -1,3 +1,4 @@
 library: hash2
 executable: hash2
-files: hash2
+files: hash2-library
+       hash2

heapsort-library.dylan

@@ -0,0 +1,11 @@
+module: dylan-user
+
+define library heapsort
+  use common-dylan;
+  use io;
+end library;
+
+define module heapsort
+  use common-dylan, exclude: { format-to-string };
+  use format-out;
+end module;

heapsort.dylan

@@ -3,16 +3,6 @@ synopsis:  implementation of "Heapsort" benchmark
 author:    Peter Hinely
 copyright: public domain
 
-define library heapsort
-  use common-dylan;
-  use io;
-end library;
-
-define module heapsort
-  use common-dylan, exclude: { format-to-string };
-  use format-out;
-end module;
-
 
 define constant $IM = 139968;
 define constant $IA = 3877;

heapsort.lid

@@ -1,3 +1,4 @@
 library: heapsort
 executable: heapsort
-files: heapsort
+files: heapsort-library
+       heapsort

hello-library.dylan

@@ -0,0 +1,9 @@
+module: dylan-user
+
+define library hello
+  use io;
+end library;
+
+define module hello
+  use format-out;
+end module;