Changeset 14608 in project


Ignore:
Timestamp:
05/12/09 15:45:19 (11 years ago)
Author:
felix winkelmann
Message:

removed some obsolete (it seems) exports from regex; more types

Location:
chicken/branches/scrutiny
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/scrutiny/regex.import.scm

    r12937 r14608  
    3030   glob?
    3131   grep
    32    regex-chardef-table
    33    regex-chardef-table?
    3432   regexp
    3533   regexp-escape
  • chicken/branches/scrutiny/types.db

    r14591 r14608  
    863863(with-output-to-pipe (procedure with-output-to-pipe (string (procedure () . *) #!optional symbol) . *))
    864864
     865;; regex
     866
     867(glob->regexp (procedure glob->regexp (string) string))
     868(glob? (procedure glob? (string) boolean))
     869(grep (procedure grep (* list) list))
     870(regexp (procedure regexp (* #!optional * * *) (struct regexp)))
     871(regexp-escape (procedure regexp-escape (string) string))
     872(regexp? (procedure regexp? (*) boolean))
     873(string-match (procedure string-match (* string) list))
     874(string-match-positions (procedure string-match-positions (* string) *))
     875(string-search (procedure string-search (* string #!optional number number) *))
     876(string-search-positions (procedure string-search-positions (* string #!optional number number) *))
     877(string-split-fields (procedure string-split-fields (* string #!optional * number) list))
     878(string-substitute (procedure string-substitute (* string string #!optional *) string))
     879(string-substitute* (procedure string-substitute* (string list #!optional *) string))
     880
     881;; srfi-1
     882
    865883#!eof
    866 
    867 ;; regex
    868 
    869 (glob->regexp (procedure glob->regexp () *))
    870 (glob? (procedure glob? () *))
    871 (grep (procedure grep () *))
    872 (regex-chardef-table (procedure regex-chardef-table () *))
    873 (regex-chardef-table? (procedure regex-chardef-table? () *))
    874 (regexp (procedure regexp () *))
    875 (regexp-escape (procedure regexp-escape () *))
    876 (regexp? (procedure regexp? () *))
    877 (string-match (procedure string-match () *))
    878 (string-match-positions (procedure string-match-positions () *))
    879 (string-search (procedure string-search () *))
    880 (string-search-positions (procedure string-search-positions () *))
    881 (string-split-fields (procedure string-split-fields () *))
    882 (string-substitute (procedure string-substitute () *))
    883 (string-substitute* (procedure string-substitute* () *))
    884 
    885 ;; srfi-1
    886884
    887885(alist-cons (procedure alist-cons () *))
Note: See TracChangeset for help on using the changeset viewer.