Add :init to ratio

lib/eus.init.l

@@ -14,7 +14,7 @@
 (	"readmacro" "object" "packsym" "common"
 	"constants"
 	"stream" "string" "loader" "pprint" "process"
-	"hashtab" "array" "mathtran" "eusdebug" "eusforeign"
+	"hashtab" "array" "mathtran" "eusdebug" "eusforeign" "extnum"
 	"par" 
 	;; TOPLEVEL
 	"tty" "history" "toplevel"

lisp/Makefile.Alpha

@@ -136,6 +136,7 @@ $(LDIR)/string.l:
 $(LDIR)/array.l:
 $(LDIR)/hashtab.l:
 $(LDIR)/eusforeign.l:
+$(LDIR)/extnum.l:
 $(LDIR)/mathtran.l:
 $(LDIR)/toplevel.l:
 $(LDIR)/tty.l:

lisp/Makefile.SunOS4.sub

@@ -55,7 +55,8 @@ LOBJECTS= $(OBJDIR)/readmacro.o\
 	  $(OBJDIR)/coordinates.o \
 	  $(OBJDIR)/string.o	$(OBJDIR)/array.o \
 	  $(OBJDIR)/hashtab.o \
-	  $(OBJDIR)/eusforeign.o	$(OBJDIR)/mathtran.o \
+	  $(OBJDIR)/eusforeign.o	$(OBJDIR)/extnum.o \
+	  $(OBJDIR)/mathtran.o \
 	  $(OBJDIR)/toplevel.o \
 	  $(OBJDIR)/tty.o $(OBJDIR)/history.o \
 	  $(OBJDIR)/eushelp.o
@@ -370,6 +371,7 @@ eustag :
 	$(EUSDIR)/$(LDIR)/toplevel.l \
 	$(EUSDIR)/$(LDIR)/hashtab.l \
 	$(EUSDIR)/$(LDIR)/eusforeign.l \
+	$(EUSDIR)/$(LDIR)/extnum.l \
 	$(EUSDIR)/$(LDIR)/mathtran.l \
 	$(EUSDIR)/$(GEODIR)/geopack.l \
 	$(EUSDIR)/$(GEODIR)/geobody.l \
@@ -437,6 +439,7 @@ $(OBJDIR)/string.o:	$(LDIR)/string.l
 $(OBJDIR)/array.o:	$(LDIR)/array.l
 $(OBJDIR)/hashtab.o:	$(LDIR)/hashtab.l
 $(OBJDIR)/eusforeign.o:	$(LDIR)/eusforeign.l
+$(OBJDIR)/extnum.o:	$(LDIR)/extnum.l
 $(OBJDIR)/mathtran.o:	$(LDIR)/mathtran.l
 $(OBJDIR)/toplevel.o:	$(LDIR)/toplevel.l
 $(OBJDIR)/tty.o:	$(LDIR)/tty.l

lisp/Makefile.generic2

@@ -54,7 +54,8 @@ LOBJECTS= $(OBJDIR)/readmacro.o\
 	  $(OBJDIR)/coordinates.o \
 	  $(OBJDIR)/string.o	$(OBJDIR)/array.o \
 	  $(OBJDIR)/hashtab.o \
-	  $(OBJDIR)/eusforeign.o	$(OBJDIR)/mathtran.o \
+	  $(OBJDIR)/eusforeign.o	$(OBJDIR)/extnum.o \
+	  $(OBJDIR)/mathtran.o \
 	  $(OBJDIR)/toplevel.o \
 	  $(OBJDIR)/tty.o $(OBJDIR)/history.o \
 	  $(OBJDIR)/eushelp.o
@@ -384,6 +385,7 @@ eustag :
 	$(EUSDIR)/$(LDIR)/toplevel.l \
 	$(EUSDIR)/$(LDIR)/hashtab.l \
 	$(EUSDIR)/$(LDIR)/eusforeign.l \
+	$(EUSDIR)/$(LDIR)/extnum.l \
 	$(EUSDIR)/$(LDIR)/mathtran.l \
 	$(EUSDIR)/$(GEODIR)/geopack.l \
 	$(EUSDIR)/$(GEODIR)/geobody.l \
@@ -453,6 +455,7 @@ $(OBJDIR)/string.o:	$(LDIR)/string.l
 $(OBJDIR)/array.o:	$(LDIR)/array.l
 $(OBJDIR)/hashtab.o:	$(LDIR)/hashtab.l
 $(OBJDIR)/eusforeign.o:	$(LDIR)/eusforeign.l
+$(OBJDIR)/extnum.o:	$(LDIR)/extnum.l
 $(OBJDIR)/mathtran.o:	$(LDIR)/mathtran.l
 $(OBJDIR)/toplevel.o:	$(LDIR)/toplevel.l
 $(OBJDIR)/tty.o:	$(LDIR)/tty.l

lisp/l/compfiles.l

@@ -9,7 +9,7 @@
 (compile-file "process.l"    :cc nil)
 (compile-file "hashtab.l"    :cc nil)
 (compile-file "array.l"    :cc nil)
-(compile-file "mathtran.l"    :cc nil)
+(compile-file "extnum.l"    :cc nil)
 (compile-file "mathtran.l"    :cc nil)
 (compile-file "eusdebug.l"    :cc nil)
 (in-package "GEO")

lisp/l/eusstart.l

@@ -313,6 +313,7 @@
 (system::exec-module-init "mathtran" "l/mathtran.l")
 (system::exec-module-init "eusdebug" "l/eusdebug.l")
 (system::exec-module-init "eusforeign" "l/eusforeign.l")
+(system::exec-module-init "extnum" "l/extnum.l")
 (unless (find-package "GEOMETRY")
 	(make-package "GEOMETRY" :nicknames '("GEO"))
 	(in-package "GEOMETRY"))

lisp/l/extnum.l

@@ -1,4 +1,6 @@
 (defmethod ratio
- (:prin1 (&optional (strm t))
-    (format strm "~d/~d" numerator denominator))
+ (:init (num denom)
+  (setq numerator num
+        denominator denom)
+  self)
 )

lisp/tool/compile_l.l

@@ -43,7 +43,8 @@
 (comp::compile-file-if-src-newer "string.l" *objdir*)
 (comp::compile-file-if-src-newer "array.l" *objdir*)
 (comp::compile-file-if-src-newer "hashtab.l" *objdir*)
-(comp::compile-file-if-src-newer "eusforeign.l" *objdir*)	
+(comp::compile-file-if-src-newer "eusforeign.l" *objdir*)
+(comp::compile-file-if-src-newer "extnum.l" *objdir*)
 (comp::compile-file-if-src-newer "mathtran.l" *objdir*)
 (comp::compile-file-if-src-newer "toplevel.l" *objdir*)
 (comp::compile-file-if-src-newer "tty.l" *objdir*)