Update of /cvsroot/scsh/scsh/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv25287/scsh
Modified Files:
minor-version-number network1.c oldtop.scm scsh-interfaces.scm
scsh-package.scm scsh-version.scm time1.c
Log Message:
Summary:
Three changes
- Updated 0.5.2 to 0.5.3
- Updated for latest cygwin, removing MKS dependency
- Added cleaned up ODBC code
Details:
Updated 0.5.2 to 0.5.3
M RELEASE
M scsh.spec
M bin/scsh-release
M bin/scsh-test
M doc/scsh-manual/front.tex
M doc/scsh-manual/man.tex
M scsh/minor-version-number
M scsh/oldtop.scm
M scsh/scsh-version.scm
Rebuilt to get new version number
M initial.image
Remove MKS dependency now that Cygwin cat works on binary files
without munging with carriage returns and newlines.
M cig/image2script
Changed cygwin32 to cygwin.
M scsh/Makefile.in
Added #ifndef __CYGWIN__ around some pesky extern references.
M scsh/scsh/network1.c
M scsh/scsh/time1.c
Updated with optional ODBC bits. This is going to be hard to make nice
and clean.
M scsh/Makefile.in
New ODBC code
A scsh/odbc/odbc.txt
A scsh/odbc/odbc0.c
A scsh/odbc/odbc0.scm
A scsh/odbc/odbc1.c
A scsh/odbc/odbc1.scm
A scsh/odbc/odbc2.c
A scsh/odbc/odbc2.scm
A scsh/odbc/scsh-odbc.c
New odbc-interface and odbc-package
M scsh/scsh/scsh-interfaces.scm
M scsh/scsh/scsh-package.scm
Index: minor-version-number
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/minor-version-number,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** minor-version-number 1999/06/21 04:35:24 1.9
--- minor-version-number 2001/02/25 19:51:56 1.10
***************
*** 1 ****
! 5.2
--- 1 ----
! 5.3
Index: network1.c
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/network1.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** network1.c 1999/06/21 04:35:26 1.7
--- network1.c 2001/02/25 19:51:56 1.8
***************
*** 23,27 ****
--- 23,29 ----
#include "network1.h"
+ #ifndef __CYGWIN__
extern int h_errno;
+ #endif
/* to extract a 4 byte long value from a scheme string */
Index: oldtop.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/oldtop.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** oldtop.scm 1999/08/06 13:28:01 1.5
--- oldtop.scm 2001/02/25 19:51:56 1.6
***************
*** 13,17 ****
(define scsh-major-version 0)
(define scsh-minor-version 5)
! (define scsh-version-string "0.5.2")
;;; A scsh starter takes the command line args, parses them,
--- 13,17 ----
(define scsh-major-version 0)
(define scsh-minor-version 5)
! (define scsh-version-string "0.5.3")
;;; A scsh starter takes the command line args, parses them,
Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/scsh-interfaces.scm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** scsh-interfaces.scm 1999/09/15 14:54:49 1.26
--- scsh-interfaces.scm 2001/02/25 19:51:56 1.27
***************
*** 1090,1091 ****
--- 1090,1113 ----
interrupt/xcpu
interrupt/xfsz))
+
+ (define-interface odbc-interface
+ (export current-db
+ call/db
+ with-current-db*
+ with-current-db
+ with-open-db*
+ with-open-db
+ string->sql-command
+ open-db
+ set-current-db!
+ close-db
+ execute-sql
+ fetch-row
+ fetch-rows
+ fetch-all
+ close-cursor
+ commit
+ rollback
+ cancel
+ cursor-name?
+ set-cursor-name!))
Index: scsh-package.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/scsh-package.scm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** scsh-package.scm 1999/11/07 03:13:09 1.15
--- scsh-package.scm 2001/02/25 19:51:56 1.16
***************
*** 109,114 ****
posix-errno-interface
posix-signals-interface
! sockets-network-interface ; Standard Network Interface
! os-extras-interface ; Extra stuff from OS.
scsh-delimited-readers-interface
scsh-errors-interface
--- 109,114 ----
posix-errno-interface
posix-signals-interface
! sockets-network-interface ; Standard Network Interface
! os-extras-interface ; Extra stuff from OS.
scsh-delimited-readers-interface
scsh-errors-interface
***************
*** 126,132 ****
scsh-misc-interface
scsh-high-level-process-interface
! scsh-time-interface ; new in 0.2
! scsh-sockets-interface ; new in 0.3
! tty-interface ; new in 0.4
scsh-version-interface
char-set-interface
--- 126,132 ----
scsh-misc-interface
scsh-high-level-process-interface
! scsh-time-interface ; New in release 0.2
! scsh-sockets-interface ; New in release 0.3
! tty-interface ; New in release 0.4
scsh-version-interface
char-set-interface
***************
*** 134,138 ****
;; This stuff would probably be better off kept
;; in separate modules, but we'll toss it in for now.
! (interface-of ascii) ; char<->ascii
string-ports-interface
))
--- 134,138 ----
;; This stuff would probably be better off kept
;; in separate modules, but we'll toss it in for now.
! (interface-of ascii) ; char<->ascii
string-ports-interface
))
***************
*** 150,155 ****
define-foreign-syntax
formats
! os-dependent ; OS dependent stuff
! buffered-io-flags ; stdio dependent
ascii
records
--- 150,155 ----
define-foreign-syntax
formats
! os-dependent ; OS dependent cpde
! buffered-io-flags ; stdio dependent
ascii
records
***************
*** 172,179 ****
scsh-version
tty-flags
! scsh-internal-tty-flags ; Not exported
! let-opt ; optional-arg parsing & defaulting
! interrupts ; signal handler code
re-level-0
--- 172,179 ----
scsh-version
tty-flags
! scsh-internal-tty-flags ; Not exported
! let-opt ; optional-arg parsing & defaulting
! interrupts ; signal handler code
re-level-0
***************
*** 182,186 ****
string-lib
! loopholes ; For my bogus CALL-TERMINALLY implementation.
scheme
--- 182,186 ----
string-lib
! loopholes ; For my bogus CALL-TERMINALLY
implementation.
scheme
***************
*** 189,196 ****
(access command-processor
escapes
! ports ; S48's force-output
formats
! records ; I don't think this is necessary. !!!
! scheme) ; For accessing the normal I/O operators.
(begin (define set-batch-mode?!
--- 189,196 ----
(access command-processor
escapes
! ports ; S48's force-output
formats
! records ; I don't think this is necessary.
!!!
! scheme) ; For accessing the normal I/O
operators.
(begin (define set-batch-mode?!
***************
*** 207,224 ****
newports
fdports
! procobj ; New in release 0.4.
! (machine waitcodes) ; OS dependent code.
filesys
fileinfo
glob
; filemtch
! time ; New in release 0.2.
(machine time_dep)
! network ; New in release 0.3.
! endian ; New in release 0.4.
! flock ; New in release 0.4.
! tty ; New in release 0.4.
! pty ; New in release 0.4.
! sighandlers ; New in release 0.5.
scsh
; re
--- 207,224 ----
newports
fdports
! procobj ; New in release 0.4
! (machine waitcodes) ; OS dependent code
filesys
fileinfo
glob
; filemtch
! time ; New in release 0.2
(machine time_dep)
! network ; New in release 0.3
! endian ; New in release 0.4
! flock ; New in release 0.4
! tty ; New in release 0.4
! pty ; New in release 0.4
! sighandlers ; New in release 0.5
scsh
; re
***************
*** 277,284 ****
receiving
scsh-version
! scsh-level-0 ; with-current-input-port error-output-port
! ; with-current-output-port exit
! scsh-level-0-internals ; set-command-line-args! init-scsh-vars
! handle list-lib ; For lib-search facility
scheme)
(files top meta-arg)
--- 277,284 ----
receiving
scsh-version
! scsh-level-0 ; with-current-input-port
error-output-port
! ; with-current-output-port exit
! scsh-level-0-internals ; set-command-line-args! init-scsh-vars
! handle list-lib ; For lib-search facility
scheme)
(files top meta-arg)
***************
*** 336,339 ****
--- 336,357 ----
(syntax-rules () ((awk body ...) (awk/posix-string body ....))))))
+ (define-structure odbc-package odbc-interface
+ (open scsh-level-0
+ defrec-package
+ define-foreign-syntax
+ let-opt
+ conditions
+ fluids
+ handle
+ signals
+ scheme)
+ (files
+ (odbc odbc0) ; New in release 0.5.3
+ (odbc odbc1) ; New in release 0.5.3
+ (odbc odbc2) ; New in release 0.5.3
+ )
+ ; (optimize auto-integrate)
+ )
+
(define-structure scsh
(compound-interface (interface-of scsh-level-0)
***************
*** 346,349 ****
--- 364,368 ----
(export repl)
awk-interface
+ odbc-interface
)
***************
*** 357,360 ****
--- 376,380 ----
; dbm
awk-package
+ odbc-package
field-reader-package
scheme)
Index: scsh-version.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/scsh-version.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** scsh-version.scm 1999/06/21 04:35:26 1.4
--- scsh-version.scm 2001/02/25 19:51:56 1.5
***************
*** 1,3 ****
(define scsh-major-version 0)
(define scsh-minor-version 5)
! (define scsh-version-string "0.5.2")
--- 1,3 ----
(define scsh-major-version 0)
(define scsh-minor-version 5)
! (define scsh-version-string "0.5.3")
Index: time1.c
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/time1.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** time1.c 1997/11/10 02:55:17 1.4
--- time1.c 2001/02/25 19:51:56 1.5
***************
*** 56,60 ****
--- 56,62 ----
#ifdef HAVE_TZNAME
+ #ifndef __CYGWIN__
extern char *tzname[]; /* Why isn't this defined in time.h? */
+ #endif
#endif
|