summaryrefslogtreecommitdiffstats
path: root/dbrowse.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
commitbd9733926076885e3417b74de76e4c9c7bc56254 (patch)
tree2c99dced547d48407ad44cb0e45e31bb4d02ce43 /dbrowse.scm
parentfa3f23105ddcf07c5900de47f19af43d1db1b597 (diff)
downloadslib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz
slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip
Import Upstream version 2c7upstream/2c7
Diffstat (limited to 'dbrowse.scm')
-rw-r--r--dbrowse.scm16
1 files changed, 5 insertions, 11 deletions
diff --git a/dbrowse.scm b/dbrowse.scm
index 8008c04..082cef3 100644
--- a/dbrowse.scm
+++ b/dbrowse.scm
@@ -1,5 +1,5 @@
;;; "dbrowse.scm" relational-database-browser
-; Copyright 1996, 1997 Aubrey Jaffer
+; Copyright 1996, 1997, 1998 Aubrey Jaffer
;
;Permission to copy this software, to redistribute it, and to use it
;for any purpose is granted, subject to the following restrictions and
@@ -47,13 +47,9 @@
table-name))))))))
(define (browse:display-dir table-name table)
- (printf "%s Tables:
-" table-name)
+ (printf "%s Tables:\\n" table-name)
((table 'for-each-row)
- (lambda (row)
- (printf " %s
-"
- (car row)))))
+ (lambda (row) (printf "\\t%s\\n" (car row)))))
(define (browse:display-table table-name table)
(let* ((width 18)
@@ -65,8 +61,7 @@
(dw-integer (string-append dw "d"))
(underline (string-append (make-string (+ -1 width) #\=) " "))
(form ""))
- (printf "Table: %s
-" table-name)
+ (printf "Table: %s\\n" table-name)
(for-each (lambda (name) (printf dwp-string name))
(table 'column-names))
(newline)
@@ -88,8 +83,7 @@
(printf dwp-string type))
(table 'column-types))
(newline)
- (set! form (string-append form "
-"))
+ (set! form (string-append form "\\n"))
(for-each (lambda (domain) (printf underline))
(table 'column-domains))
(newline)