guile/guile-scsh ChangeLog USAGE ascii.scm lib/...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/01/01 11:54:29

Modified files:
        guile-scsh     : ChangeLog USAGE ascii.scm 
        guile-scsh/lib : string-lib.scm 

Log message:
        2001-01-01  Gary Houston  <address@hidden>
        
        * lib/string-lib.scm (string-unfold-right, join-strings,
        string-take-right, string-drop-right):  don't export, since they are
        not defined.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/ChangeLog.diff?r1=1.48&r2=1.49
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/USAGE.diff?r1=1.7&r2=1.8
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/ascii.scm.diff?r1=1.1&r2=1.2
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/lib/string-lib.scm.diff?r1=1.4&r2=1.5

Patches:
Index: guile/guile-scsh/ChangeLog
diff -u guile/guile-scsh/ChangeLog:1.48 guile/guile-scsh/ChangeLog:1.49
--- guile/guile-scsh/ChangeLog:1.48     Wed Dec  6 15:10:39 2000
+++ guile/guile-scsh/ChangeLog  Mon Jan  1 11:54:29 2001
@@ -1,3 +1,9 @@
+2001-01-01  Gary Houston  <address@hidden>
+
+       * lib/string-lib.scm (string-unfold-right, join-strings,
+       string-take-right, string-drop-right):  don't export, since they are
+       not defined.
+
 2000-12-06  Gary Houston  <address@hidden>
 
        * init.scm: load (scsh fdports)
Index: guile/guile-scsh/USAGE
diff -u guile/guile-scsh/USAGE:1.7 guile/guile-scsh/USAGE:1.8
--- guile/guile-scsh/USAGE:1.7  Wed Dec  6 15:10:39 2000
+++ guile/guile-scsh/USAGE      Mon Jan  1 11:54:29 2001
@@ -10,13 +10,12 @@
 individually using the Guile module system.  However note that macros
 may expand to code that requires additional modules.  e.g., `run' is
 defined in (scsh syntax), but requires loading (scsh procobj), (scsh
-scsh), (scsh fdports) and (scsh syntax-helpers) to execute sucessfully.
+scsh), (scsh fdports) and (scsh syntax-helpers) to execute
+sucessfully.  This may be a deficiency of the Guile module system.
 
 One way to avoid clobbering definitions from libguile is to define a
 new module for the code that uses guile-scsh.  e.g.,
 
-#!/usr/bin/guile -s
-!#
 (define-module (test)
    :use-module (scsh syntax)
    :use-module (scsh syntax-helpers)
@@ -25,6 +24,9 @@
    :use-module (scsh fdports))
 (run (echo hello) (> out.log))
 
+In this case the definitions will only be clobbered within the module
+(test).
+
 The remainder of this file lists the modules and the exported symbols
 for each.  The modules don't necessarily correspond with scsh
 structures, since the Guile module system requires a correspondence
@@ -63,8 +65,9 @@
 (arithmetic-shift bitwise-not bitwise-and bitwise-ior bitwise-xor)
 
 (scsh utilities)
-;; "delete" is incompatile with guile primitive.  it's also incompatible with
-;; delete from (scsh lib list-lib).
+;; "delete" is incompatile with guile primitive.
+;; following are defined in (scsh lib list-lib) too, possibly incompatibly:
+;; delete filter first fold fold-right any every
 (del delete filter first first? nth fold fold-right any every mapv mapv! 
vector-every? copy-vector initialize-vector vector-append vfold vfold-right 
check-arg conjoin disjoin negate compose call/cc deprecated-proc 
deposit-bit-field real->exact-integer)
 
 (scsh define-foreign-syntax)
@@ -97,7 +100,7 @@
 ;; string-downcase string-downcase!
 ;; string-upcase string-upcase! string-index
 ;; string-fill! string-copy string->list
-(string-map string-map! string-fold string-unfold string-fold-right 
string-unfold-right string-tabulate string-for-each string-iter string-every 
string-any string-compare string-compare-ci substring-compare 
substring-compare-ci string= string< string> string<= string>= string<> 
string-ci= string-ci< string-ci> string-ci<= string-ci>= string-ci<> substring= 
substring<> substring-ci= substring-ci<> substring< substring> substring-ci< 
substring-ci> substring<= substring>= substring-ci<= substring-ci>= 
string-upper-case? string-lower-case? capitalize-string capitalize-words 
string-downcase string-upcase capitalize-string! capitalize-words! 
string-downcase! string-upcase! string-take string-take-right string-drop 
string-drop-right string-pad string-pad-right string-trim string-trim-right 
string-trim-both string-filter string-delete string-index string-index-right 
string-skip string-skip-right string-prefix-count string-prefix-count-ci 
string-suffix-count string-suffix-count-ci substring-prefix-count 
substring-prefix-count-ci substring-suffix-count substring-suffix-count-ci 
string-prefix? string-prefix-ci? string-suffix? string-suffix-ci? 
substring-prefix? substring-prefix-ci? substring-suffix? substring-suffix-ci? 
substring? substring-ci? string-fill! string-copy! string-copy string-reverse 
string-reverse! reverse-list->string string->list string-concat 
string-concat/shared string-append/shared xsubstring string-xcopy! join-strings 
make-kmp-restart-vector parse-final-start+end parse-start+end 
check-substring-spec)
+(string-map string-map! string-fold string-unfold string-fold-right 
string-tabulate string-for-each string-iter string-every string-any 
string-compare string-compare-ci substring-compare substring-compare-ci string= 
string< string> string<= string>= string<> string-ci= string-ci< string-ci> 
string-ci<= string-ci>= string-ci<> substring= substring<> substring-ci= 
substring-ci<> substring< substring> substring-ci< substring-ci> substring<= 
substring>= substring-ci<= substring-ci>= string-upper-case? string-lower-case? 
capitalize-string capitalize-words string-downcase string-upcase 
capitalize-string! capitalize-words! string-downcase! string-upcase! 
string-take string-drop string-pad string-pad-right string-trim 
string-trim-right string-trim-both string-filter string-delete string-index 
string-index-right string-skip string-skip-right string-prefix-count 
string-prefix-count-ci string-suffix-count string-suffix-count-ci 
substring-prefix-count substring-prefix-count-ci substring-suffix-count 
substring-suffix-count-ci string-prefix? string-prefix-ci? string-suffix? 
string-suffix-ci? substring-prefix? substring-prefix-ci? substring-suffix? 
substring-suffix-ci? substring? substring-ci? string-fill! string-copy! 
string-copy string-reverse string-reverse! reverse-list->string string->list 
string-concat string-concat/shared string-append/shared xsubstring 
string-xcopy! make-kmp-restart-vector parse-final-start+end parse-start+end 
check-substring-spec)
 
 (scsh errno)
 ;; defines symbols such as errno/perm.
@@ -196,6 +199,8 @@
 ;; replaces:
 ;; map map-in-order for-each member assoc iota list-index
 ;; delete delete!
+;; following are defined in (scsh utilities) too, possibly incompatibly:
+;; delete filter first fold fold-right any every
 (xcons list-tabulate list-copy circular-list iota proper-list? circular-list? 
dotted-list? not-pair? null-list? list= first second third fourth fifth sixth 
seventh eighth ninth tenth car+cdr take drop take-right drop-right take! 
drop-right! take-while drop-while take-while! split-at split-at! span break 
span! break! last length+ append-reverse append-reverse! concatenate 
concatenate! zip unzip1 unzip2 unzip3 unzip4 unzip5 count unfold unfold-right 
fold unfold pair-fold reduce fold-right unfold-right pair-fold-right 
reduce-right append-map append-map! map! pair-for-each filter-map map-in-order 
filter partition remove filter! partition! remove! find find-tail any every 
list-index delete delete! delete-duplicates delete-duplicates! alist-cons 
alist-copy alist-delete alist-delete! lset<= lset= lset-adjoin lset-union 
lset-union! lset-intersection lset-intersection! lset-difference 
lset-difference! lset-xor lset-xor! lset-diff+intersection 
lset-diff+intersection! map for-each member assoc)
 
 (scsh syntax)
Index: guile/guile-scsh/ascii.scm
diff -u guile/guile-scsh/ascii.scm:1.1 guile/guile-scsh/ascii.scm:1.2
--- guile/guile-scsh/ascii.scm:1.1      Sun Oct 29 11:53:23 2000
+++ guile/guile-scsh/ascii.scm  Mon Jan  1 11:54:29 2001
@@ -1,7 +1,5 @@
 (define-module (scsh ascii))
 (export ascii->char char->ascii)
 
-;; used in char-set, network, rx/parse, rx/posixstr, rx/rx-lib, rx/spencer,
-;; lib/ccp.
 (define ascii->char integer->char)
 (define char->ascii char->integer)   ;; also in glob.
Index: guile/guile-scsh/lib/string-lib.scm
diff -u guile/guile-scsh/lib/string-lib.scm:1.4 
guile/guile-scsh/lib/string-lib.scm:1.5
--- guile/guile-scsh/lib/string-lib.scm:1.4     Sat Dec  2 13:01:40 2000
+++ guile/guile-scsh/lib/string-lib.scm Mon Jan  1 11:54:29 2001
@@ -96,7 +96,7 @@
 )
 (export string-map    string-map!
        string-fold       string-unfold
-       string-fold-right string-unfold-right 
+       string-fold-right
        string-tabulate
        string-for-each string-iter
        string-every string-any
@@ -110,8 +110,8 @@
        string-upper-case? string-lower-case?
        capitalize-string  capitalize-words  string-downcase  string-upcase
        capitalize-string! capitalize-words! string-downcase! string-upcase!
-       string-take string-take-right
-       string-drop string-drop-right
+       string-take ; string-take-right
+       string-drop ; string-drop-right
        string-pad string-pad-right
        string-trim string-trim-right string-trim-both
        string-filter string-delete
@@ -131,7 +131,6 @@
        string-concat string-concat/shared string-append/shared
        xsubstring string-xcopy!
        ; string-null?
-       join-strings
 
        make-kmp-restart-vector
        parse-final-start+end