The code uses "cat" to display text file, which is usually not available
on windows.
Luckily writing a lisp version to display text file is not hard.
- Qian
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index f7a20a2d..cd737039 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -704,9 +704,9 @@ withAsharpCmd args ==
--% )copyright -- display copyright notice
summary l ==
- OBEY STRCONC ('"cat ", $spadroot, '"/lib/summary")
+ print_text_file STRCONC($spadroot, '"/lib/summary")
copyright () ==
- OBEY STRCONC ('"cat ", $spadroot, '"/lib/copyright")
+ print_text_file STRCONC($spadroot, '"/lib/copyright")
--% )credits -- display credit list
diff --git a/src/interp/util.lisp b/src/interp/util.lisp
index 400a2b94..29f7e5d1 100644
--- a/src/interp/util.lisp
+++ b/src/interp/util.lisp
@@ -383,3 +383,10 @@ After this function is called the image is clean
and can be saved.
(|setIOindex| (- |$IOindex| 3))
)
)
+
+(defun |print_text_file| (filename)
+ (with-open-file (s filename :direction :input :if-does-not-exist nil)
+ (if s
+ (do ((l (read-line s nil) (read-line s nil)))
+ ((null l) nil)
+ (write-line l)))))
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/993b9851-837f-48a8-920f-dbd27e5ef5f8%40gmail.com.
