diff --git a/README.adoc b/README.adoc index 90bb489..713c321 100644 --- a/README.adoc +++ b/README.adoc @@ -34,7 +34,7 @@ Scheme is a functional language and thus it'd be useful to specify taken / retur Procedures can have more than one entry, even from same library. This occurs, if the procedures is has optional parameters and therefore can be called in multiple ways; or if the result type can be determined more precisely under more specific input parameters. -Structural macros that don't resemble functions are rendered in *green*. If macro is complex, some parts of it are grouped, and the syntax of those groups shown below the syntax of whole macro. Macro literals are also rendered in green. To make parenthesis more obvious, auxiliary parenthesis coloring is used, however this coloring doesn't signify any information. +Macros are rendered in *green*. If macro is complex, some parts of it are grouped, and the syntax of those groups shown below the syntax of whole macro. Macro literals are also rendered in green. To make parenthesis more obvious, auxiliary parenthesis coloring is used, however this coloring doesn't signify any information. === Tags @@ -44,7 +44,6 @@ Result items might have one or more of following tags * predicate - this procedure that takes any object and returns a boolean. Such procedure may be used as a type; * parameterized - the behavior of the procedure depends on a dynamic parameter (ie, uses procedure created with "make-parameter"); * parameter - this procedure was created with "make-parameter" and may be used in parameterize form; -* syntax - this is actually a macro, although presented as a procedure (the justification is that combining ad-hoc type annotation with syntax specification might be confusing. Simple macros were subjectively chosen to be shown as if they were procedures if they superficially appear and are called as such. This might be changed in the future); * deprecated - not recommended to be used, exists only for backwards compatibility with older SRFIs. === Filtering logic @@ -358,7 +357,7 @@ as defined in srfi 180. Otherwise, results are returned as json. `/rest/params` returns array of types, which were used as a parameter type, found in index as strings; -`/rest/procedures` returns found procedures with faceting meta data. The endpoint accepts following query parameters: +`/rest/procedures` returns found items with faceting meta data. The endpoint accepts following query parameters: * `query` text search parameter. diff --git a/pom.xml b/pom.xml index f132af9..2ad241b 100644 --- a/pom.xml +++ b/pom.xml @@ -51,6 +51,10 @@ org.apache.logging.log4j log4j-slf4j-impl + + org.apache.logging.log4j + log4j-core + @@ -64,9 +68,20 @@ org.apache.logging.log4j log4j-slf4j-impl + + org.apache.logging.log4j + log4j-core + + + + org.slf4j + log4j-over-slf4j + 1.7.36 + + com.github.arvyy.kawa-web-collection spark diff --git a/solrhome/scmindex/conf/schema.xml b/solrhome/scmindex/conf/schema.xml index 4998a2b..781f8c6 100644 --- a/solrhome/scmindex/conf/schema.xml +++ b/solrhome/scmindex/conf/schema.xml @@ -28,6 +28,7 @@ + diff --git a/src/main/resources/logback.xml b/src/main/resources/logback.xml index bd3aaa3..3687226 100644 --- a/src/main/resources/logback.xml +++ b/src/main/resources/logback.xml @@ -1,7 +1,15 @@ + + + + + %d{HH:mm:ss.SSS} [%thread] %-5level %logger{36} - %msg%n + + + ${LOG_ROOT}/${LOG_FILE_NAME}.log @@ -16,6 +24,8 @@ + " + \ No newline at end of file diff --git a/src/main/scheme/scmindex/domain.scm b/src/main/scheme/scmindex/domain.scm new file mode 100644 index 0000000..278b999 --- /dev/null +++ b/src/main/scheme/scmindex/domain.scm @@ -0,0 +1,140 @@ +(define-library + (scmindex domain) + (import (scheme base) + (scheme read) + (scheme write)) + (export + + make-search-result + search-result? + search-result-items + search-result-total + search-result-libs + search-result-params + search-result-tags + search-result-returns + + make-search-result-facet + search-result-facet? + search-result-facet-value + search-result-facet-count + + make-func + func? + func-lib + func-name + func-param-names + func-signature + func-param-signatures + func-syntax-param-signatures + func-tags + func-param-types + func-return-types + func-supertypes + + func->json + json->func + search-result->json + ) + (begin + + (define-record-type + (make-func + lib + name + param-names + signature + param-signatures + syntax-param-signatures + tags + param-types + return-types + supertypes) + + func? + + (lib func-lib) + (name func-name) + (param-names func-param-names) + (signature func-signature) + (param-signatures func-param-signatures) + (syntax-param-signatures func-syntax-param-signatures) + (tags func-tags) + (param-types func-param-types) + (return-types func-return-types) + (supertypes func-supertypes)) + + ;;TODO move to util? + (define (->string obj) + (define port (open-output-string)) + (write obj port) + (get-output-string port)) + + (define (read* str) + (define port (open-input-string str)) + (read port)) + + (define (func->json func) + `((lib . ,(->string (func-lib func))) + (name . ,(symbol->string (func-name func))) + (param_names . ,(list->vector (map ->string (func-param-names func)))) + (signature . ,(->string (func-signature func))) + (param_signatures . ,(->string (func-param-signatures func))) + (syntax_param_signatures . ,(->string (func-syntax-param-signatures func))) + (tags . ,(list->vector (map ->string (func-tags func)))) + (param_types . ,(list->vector (map ->string (func-param-types func)))) + (return_types . ,(list->vector (map ->string (func-return-types func)))) + (super_types . ,(list->vector (map ->string (func-supertypes func)))))) + + (define (json->func json) + (define (get field type default) + (cond + ((assoc field json) => + (lambda (value) + (case type + ((sexpr) (read* (cdr value))) + ((symbol) (string->symbol (cdr value))) + ((symbol-lst) (map string->symbol (vector->list (cdr value)))) + (else (cdr value))))) + (else default))) + (make-func + (get 'lib 'sexpr #f) + (get 'name 'symbol #f) + (get 'param_names 'symbol-lst '()) + (get 'signature 'sexpr #f) + (get 'param_signatures 'sexpr '()) + (get 'syntax_param_signatures 'sexpr '()) + (get 'tags 'symbol-lst '()) + (get 'param_types 'symbol-lst '()) + (get 'return_types 'symbol-lst '()) + (get 'supertypes 'symbol-lst '()))) + + (define-record-type + (make-search-result items total libs params tags returns) + search-result? + (items search-result-items) + (total search-result-total) + (libs search-result-libs) + (params search-result-params) + (tags search-result-tags) + (returns search-result-returns)) + + (define-record-type + (make-search-result-facet value count) + search-result-facet? + (value search-result-facet-value) + (count search-result-facet-count)) + + (define (search-result->json sr) + `((items . ,(list->vector (map func->json (search-result-items sr)))) + (total . ,(search-result-total sr)) + (libs . ,(list->vector (map search-result-facet->json (search-result-libs sr)))) + (params . ,(list->vector (map search-result-facet->json (search-result-params sr)))) + (returns . ,(list->vector (map search-result-facet->json (search-result-returns sr)))) + (tags . ,(list->vector (map search-result-facet->json (search-result-tags sr)))))) + + (define (search-result-facet->json f) + `((value . ,(->string (search-result-facet-value f))) + (count . ,(search-result-facet-count f)))) + +)) \ No newline at end of file diff --git a/src/main/scheme/scmindex/mustache.scm b/src/main/scheme/scmindex/mustache.scm index b927801..2737df7 100644 --- a/src/main/scheme/scmindex/mustache.scm +++ b/src/main/scheme/scmindex/mustache.scm @@ -4,57 +4,275 @@ (scheme read) (scheme write) (scheme cxr) + (arvyy mustache) + (arvyy kawa-spark) (class java.net URLEncoder) + (scmindex domain) (only (srfi 1) iota filter find)) - (export make-mustache-search-data - make-mustache-nav-data + (export + render-home-page + render-search-page + render-settings-page + settings-cookies + data-lookup + user-setting/page-size + user-setting/param-filter-loose - make-doc-data - ) + ;; exported for testing + make-doc-data) (begin - - (define nav-data - `#( - ((label . "Home") - (link . "/") - (page . index)) - - ((label . "Search") - (link . "/search") - (page . search)) - - ((label . "Settings") - (link . "/settings") - (page . settings)) - - ((label . "Documentation") - (link . "/README.html") - (page . docs)) - - )) - - (define (make-mustache-nav-data page) - (define links - (vector-map - (lambda (d) - (define active (equal? (cdr (assoc 'page d)) page)) - (cons - (cons 'active active) - d)) - nav-data)) - `((nav-links . ,links))) - - (define (make-mustache-search-data - page - page-size - query - libs - param-types - return-types - tags - data) - + + (define-syntax define-mustache-record-type + (syntax-rules () + ((_ type lookup constructor pred (field getter) ...) + (begin + (define-record-type type constructor pred (field getter) ...) + (define lookup + (let ((getter-map (list (cons (quote field) getter) ...))) + (lambda (obj name found not-found) + (cond + ((not (pred obj)) (not-found)) + ((assoc (string->symbol name) getter-map) => + (lambda (e) + (found ((cdr e) obj)))) + (else (not-found)))))))))) + + + (define-mustache-record-type + sexpr-el-lookup + (make-sexpr-el html text class link sub-exprs) + sexpr-el? + (html sexpr-el-html) + (text sexpr-el-text) + (class sexpr-el-class) + (link sexpr-el-link) + (sub-exprs sexpr-el-sub-exprs)) + + (define-mustache-record-type + navigation-lookup + (make-navigation items) + navigation? + (items navigation-items)) + + (define-mustache-record-type + nav-item-lookup + (make-nav-item label icon-cls link active?) + nav-item? + (label nav-item-label) + (icon-cls nav-item-icon-cls) + (link nav-item-link) + (active? nav-item-active?)) + + (define-mustache-record-type + pager-button-lookup + (make-pager-button number link gap?) + pager-button? + (number pager-button-number) + (link pager-button-link) + (gap? pager-button-gap?)) + + (define-mustache-record-type + facet-lookup + (make-facet name title options) + facet? + (name facet-name) + (title facet-title) + (options facet-options)) + + (define-mustache-record-type + facet-option-lookup + (make-facet-option value label count selected?) + facet-option? + (value facet-option-value) + (label facet-option-label) + (count facet-option-count) + (selected? facet-option-selected?)) + + (define-mustache-record-type + search-result-mustache-lookup + (make-search-result-mustache query facets pages procedures) + search-result-mustache? + (query search-result-mustache-query) + (facets search-result-mustache-facets) + (pages search-result-mustache-pages) + (procedures search-result-mustache-procedures)) + + (define-mustache-record-type + result-item-lookup + (make-result-item signature param-signatures subsyntax-signatures syntax-param-signatures tags lib) + result-item? + (signature result-item-signature) + (param-signatures result-item-param-signatures) + (subsyntax-signatures result-item-subsyntax-signatures) + (syntax-param-signatures result-item-syntax-param-signatures) + (tags result-item-tags) + (lib result-item-lib)) + + (define-mustache-record-type + page-head-lookup + (make-page-head title light-theme ctrlf-override) + page-head? + (title page-head-title) + (light-theme page-head-light-theme) + (ctrlf-override page-head-ctrlf-override)) + + (define-mustache-record-type + setting-lookup + (make-setting name legend description default-value options) + setting? + (name setting-name) + (legend setting-legend) + (description setting-description) + (default-value setting-default-value) + (options setting-options)) + + (define-mustache-record-type + setting-option-lookup + (make-setting-option value selected?) + setting-option? + (value setting-option-value) + (selected? setting-option-selected?)) + + (define-mustache-record-type + page-lookup + (make-page head navigation body) + page? + (head page-head) + (navigation page-navigation) + (body page-body)) + + (define-mustache-record-type + syntax-rule-lookup + (make-syntax-rule name rules) + syntax-rule? + (name syntax-rule-name) + (rules syntax-rule-rules)) + + (define (result-item-extra-lookup obj name found not-found) + (cond + ((not (result-item? obj)) (not-found)) + ((equal? "has-param-signatures?" name) (found (not (null? (result-item-param-signatures obj))))) + ((equal? "has-subsyntax-signatures?" name) (found (not (null? (result-item-subsyntax-signatures obj))))) + ((equal? "has-syntax-param-signatures?" name) (found (not (null? (result-item-syntax-param-signatures obj))))) + (else (not-found)))) + + (define data-lookup + (compose-lookups + sexpr-el-lookup + navigation-lookup + nav-item-lookup + pager-button-lookup + facet-lookup + facet-option-lookup + search-result-mustache-lookup + result-item-lookup + page-head-lookup + setting-lookup + setting-option-lookup + page-lookup + syntax-rule-lookup + result-item-extra-lookup)) + + (define make-mustache-nav-data + (let ((pages '(("Home" "icon-home3" "/" index) + ("Search" "icon-search" "/search" search) + ("Settings" "icon-cog" "/settings" settings) + ("Documentation" "icon-file-text2" "/README.html" docs)))) + (lambda (page) + (map + (lambda (p) + (define active? (equal? (list-ref p 3) page)) + (make-nav-item (list-ref p 0) (list-ref p 1) (list-ref p 2) active?)) + pages)))) + + (define settings-data + (list + (make-setting "pageSize" + "Page size" + "" + "40" + '("10" "40" "100")) + + (make-setting "theme" + "Theme" + "" + "light" + '("light" "dark")) + + (make-setting "overrideCtrlF" + "Override control+f behavior" + "If enabled, pressing control+f will highlight and focus search text field" + "no" + '("yes" "no")) + + (make-setting "filterParamsLoose" + "Use loose parameter filtering" + "When enabled, filtering by parameter of union type, will return results that take parameter of + a type that composes that union. For example, filtering by `list?` (which is union type of `pair?` + and `null?`) will find functions that take `pair?` argument. This leads to showing functions + that searcher is probably interested in, however at the drawback that those functions won't be + applicable in general case" + "yes" + '("yes" "no")))) + + (define settings-cookies '("overrideCtrlF" "theme" "pageSize" "filterParamsLoose")) + + (define (user-setting/page-size req) + (cond + ((assoc 'pageSize (req/cookies req)) => (lambda (e) + (string->number (cdr e)))) + (else 40))) + + (define (user-setting/light-theme? req) + (cond + ((assoc 'theme (req/cookies req)) => (lambda (e) + (equal? "light" (cdr e)))) + (else #t))) + + (define (user-setting/ctrl-f-override req) + (cond + ((assoc 'overrideCtrlF (req/cookies req)) => (lambda (e) + (equal? "yes" (cdr e)))) + (else #f))) + + (define (user-setting/param-filter-loose req) + (cond + ((assoc 'filterParamsLoose (req/cookies req)) => (lambda (e) + (equal? "yes" (cdr e)))) + (else #t))) + + (define (mustache-settings-data req) + (define cookies (req/cookies req)) + (map + (lambda (s) + (define name (setting-name s)) + (define selected-value + (cond + ((assoc (string->symbol name) cookies) => cdr) + (else (setting-default-value s)))) + (define options + (map + (lambda (value) + (make-setting-option value (equal? value selected-value))) + (setting-options s))) + (make-setting (setting-name s) + (setting-legend s) + (setting-description s) + (setting-default-value s) + options)) + settings-data)) + + (define (make-mustache-search-data page page-size query libs tags param-types return-types search-result) + + (define (remove-parens str) + (list->string + (filter + (lambda (ch) + (and (not (eqv? ch #\()) + (not (eqv? ch #\))))) + (string->list str)))) + (define current-query (append `((page . ,(number->string page))) @@ -77,29 +295,24 @@ (lambda (tag) (cons 'tag tag)) tags))) - - `((query . ,query) - (facets . #(((name . "lib") - (title . "Library") - (options . ,(make-mustache-facet (cdr (assoc 'lib data)) libs))) - ((name . "tag") - (title . "Tag") - (options . ,(make-mustache-facet (cdr (assoc 'tag data)) tags))) - ((name . "param") - (title . "Parameter type") - (options . ,(make-mustache-facet (cdr (assoc 'param data)) param-types))) - ((name . "return") - (title . "Return type") - (options . ,(make-mustache-facet (cdr (assoc 'return data)) return-types))))) - (pages . ,(make-pager-data page (ceiling (/ (cdr (assoc 'total data)) page-size)) current-query)) - (procedures . ,(vector-map make-doc-data (cdr (assoc 'procedures data)))))) - - (define (make-mustache-facet facet-result selected-values) - (vector-map + + (make-search-result-mustache + query + (list + (make-facet "lib" "Library" (parse-facet-options (search-result-libs search-result) libs remove-parens)) + (make-facet "tag" "Tag" (parse-facet-options (search-result-tags search-result) tags #f)) + (make-facet "param" "Parameter type" (parse-facet-options (search-result-params search-result) param-types #f)) + (make-facet "return" "Return type" (parse-facet-options (search-result-returns search-result) return-types #f))) + (make-pager-data page (ceiling (/ (search-result-total search-result) page-size)) current-query) + (map make-doc-data (search-result-items search-result)))) + + (define (parse-facet-options facet-result selected-values label-transformer) + (define fn (if label-transformer label-transformer (lambda (x) x))) + (map (lambda (f) - (cons - (cons 'selected (and (member (cdr (assoc 'value f)) selected-values) #t)) - f)) + (define value (search-result-facet-value f)) + (define selected? (member value selected-values)) + (make-facet-option value (fn value) (search-result-facet-count f) selected?)) facet-result)) ;TODO move out @@ -122,7 +335,7 @@ fragment (string-append str "&" fragment))) (loop new-str rest #f)))))) - + (define (make-pager-data page total-pages query) (define query-without-page (filter @@ -145,34 +358,23 @@ (define shown-pages (append begining near-range ending)) - (list->vector - (map - (lambda (p) - (if (not p) - `((pager-gap . #t)) - (let* ((link-query - (cons - (cons 'page (number->string p)) - query-without-page)) - (link - (if (= p page) - #f - (string-append "?" (encode-query link-query))))) - `((number . ,p) - (link . ,link) - (pager-gap . #f))))) - shown-pages))) + (map + (lambda (p) + (if (not p) + (make-pager-button #f #f #t) + (let* ((link-query + (cons + (cons 'page (number->string p)) + query-without-page)) + (link + (if (= p page) + #f + (string-append "?" (encode-query link-query))))) + (make-pager-button p link #f)))) + shown-pages)) (define (make-doc-data doc) - (define (get key) - (cond - ((assoc key doc) => cdr) - (else #f))) - (define signature (read (open-input-string (get 'signature)))) - (define (make-link type param?) - (if param? - (string-append "?" (encode-query `((return . ,(symbol->string type))))) - (string-append "?" (encode-query `((param . ,(symbol->string type))))))) + (define signature (func-signature doc)) (define-values (param-signatures subsyntax-signatures signature-sd) (case (car signature) @@ -183,9 +385,9 @@ (cadr param-sig) (lambda args #f) #t)) - (read (open-input-string (get 'param_signatures)))) + (func-param-signatures doc)) '() - (make-signature-sexpr-data (get 'name) + (make-signature-sexpr-data (func-name doc) signature make-link #f))) @@ -194,86 +396,94 @@ (let ((literals (cadr signature))) (map (lambda (param) - `((name . ,(symbol->string (car param))) - (rules . #(,@(map - (lambda (rule) - (make-subsyntax-signature-sexpr-data literals rule)) - (cdr param)))))) - (read (open-input-string (get 'param_signatures))))) - (make-syntax-signature-sexpr-data (get 'name) + (make-syntax-rule (symbol->string (car param)) + (map + (lambda (rule) + (make-subsyntax-signature-sexpr-data literals rule)) + (cdr param)))) + (func-param-signatures doc))) + (make-syntax-signature-sexpr-data (func-name doc) signature))) ((value) (values '() '() - (make-value-signature-sexpr-data (get 'name) + (make-value-signature-sexpr-data (func-name doc) signature make-link))))) - `((signature . ,signature-sd) - (param_signatures . ,(list->vector param-signatures)) - (has_param_signatures . ,(not (null? param-signatures))) - (subsyntax_signatures . ,(list->vector subsyntax-signatures)) - (has_subsyntax_signatures . ,(not (null? subsyntax-signatures))) - (tags . ,(get 'tags)) - (lib . ,(get 'lib)))) + (define syntax-param-signatures + (make-syntax-param-signatures (func-syntax-param-signatures doc))) + + (make-result-item + signature-sd + param-signatures + subsyntax-signatures + syntax-param-signatures + (func-tags doc) + (func-lib doc))) (define (make-subsyntax-signature-sexpr-data literals rule) (define (term-handler term) (cond ((find (lambda (el) (equal? term el)) literals) - `((text . ,(symbol->string term)) - (sub-exprs . #f) - (class . "bright-syntax"))) + (make-sexpr-el #f (symbol->string term) "bright-syntax" #f #f)) ((or (equal? '... term) (equal? '|#| term)) - `((text . ,(symbol->string term)) - (sub-exprs . #f) - (class . "muted"))) - (else - `((class . "sexpr-flex muted") - (sub-exprs . #(((html . "⟨") - (sub-exprs . #f)) - ((text . ,(symbol->string term)) - (sub-exprs . #f)) - ((html . "⟩") - (sub-exprs . #f)))))))) - `((class . "sexpr-flex") - (sub-exprs . #(,@(make-sexpr-data (cons rule '()) term-handler 1))))) - + (make-sexpr-el #f (symbol->string term) "muted" #f #f)) + (else + (make-sexpr-el #f #f "sexpr-flex muted" #f + (list (make-sexpr-el "⟨" #f #f #f #f) + (make-sexpr-el #f (symbol->string term) #f #f #f) + (make-sexpr-el "⟩" #f #f #f #f)))))) + (make-sexpr-el #f #f "sexpr-flex" #f (make-sexpr-data (cons rule '()) term-handler 1))) + + (define (make-syntax-param-signatures params) + (map + (lambda (param) + (define name (symbol->string (car param))) + (define type (cadr param)) + (make-sexpr-el #f #f "sexpr-flex" #f + (list + paren-open-sd + (make-param-type-sd type #f make-link) + spacer-sd + (make-sexpr-el #f name "muted" #f #f) + paren-close-sd))) + params)) + + (define (make-link type param?) + (if param? + (string-append "?" (encode-query `((return . ,(symbol->string type))))) + (string-append "?" (encode-query `((param . ,(symbol->string type))))))) + (define (make-syntax-signature-sexpr-data name signature) - (define name-symbol (string->symbol name)) (define rules (map (lambda (r) - (cons name-symbol (cdar r))) + `((,name ,@(cdar r)) ,@(cdr r))) (cddr signature))) (define literals (cadr signature)) (define (term-handler term) (cond - ((or (equal? name-symbol term) + ((or (equal? name term) (find (lambda (el) (equal? term el)) literals)) - `((text . ,(symbol->string term)) - (sub-exprs . #f) - (class . "bright-syntax"))) + (make-sexpr-el #f (symbol->string term) "bright-syntax" #f #f)) ((equal? '... term) - `((text . "...") - (sub-exprs . #f) - (class . "muted"))) - (else - `((class . "sexpr-flex muted") - (sub-exprs . #(((html . "⟨") - (sub-exprs . #f)) - ((text . ,(symbol->string term)) - (sub-exprs . #f)) - ((html . "⟩") - (sub-exprs . #f)))))))) + (make-sexpr-el #f "..." "muted" #f #f)) + (else + (make-sexpr-el #f #f "sexpr-flex muted" #f + (list (make-sexpr-el "⟨" #f #f #f #f) + (make-sexpr-el #f (symbol->string term) #f #f #f) + (make-sexpr-el "⟩" #f #f #f #f)))))) (define rules-sds (map (lambda (rule) - `((class . "sexpr-flex") - (sub-exprs . #(,@(make-sexpr-data (cons rule '()) term-handler 0))))) + (define return + (if (= 1 (length rule)) + '() + `(,(make-return-sd (cadr rule) make-link #f)))) + (make-sexpr-el #f #f "sexpr-flex" #f (append (make-sexpr-data (cons (car rule) '()) term-handler 0) return))) rules)) - `((class . "sexpr-flex-col") - (sub-exprs . #(,@rules-sds)))) + (make-sexpr-el #f #f "sexpr-flex-col" #f rules-sds)) (define (make-sexpr-data sexpr term-handler depth) (define (wrap-list sexpr) @@ -284,14 +494,10 @@ (define processed-lst (make-sexpr-data sexpr term-handler new-depth)) (if (pair? sexpr) - `(((class . "sexpr-flex") - (sub-exprs . #(((class . ,(string-append "syntaxbracket-" (number->string depth))) - (text . "(") - (sub-exprs . #f)) - ,@processed-lst - ((class . ,(string-append "syntaxbracket-" (number->string depth))) - (text . ")") - (sub-exprs . #f)))))) + (list (make-sexpr-el #f #f "sexpr-flex" #f + `(,(make-sexpr-el #f "(" (string-append "syntaxbracket-" (number->string depth)) #f #f) + ,@processed-lst + ,(make-sexpr-el #f ")" (string-append "syntaxbracket-" (number->string depth)) #f #f)))) processed-lst)) (cond @@ -306,183 +512,152 @@ (list (term-handler sexpr))) ((and (pair? sexpr) (symbol? (cdr sexpr))) `(,@(wrap-list (car sexpr)) - ((class . "spacer") - (sub-exprs . #f)) - ((class . "muted") - (sub-exprs . #f) - (html . ".")) - ((class . "spacer") - (sub-exprs . #f)) + ,spacer-sd + ,(make-sexpr-el "." #f "muted" #f #f) + ,spacer-sd ,@(make-sexpr-data (cdr sexpr) term-handler depth))) ((pair? sexpr) `(,@(wrap-list (car sexpr)) - ((class . "spacer") - (sub-exprs . #f)) - ,@(make-sexpr-data (cdr sexpr) term-handler depth))) + ,spacer-sd + ,@(make-sexpr-data (cdr sexpr) term-handler depth))) ((null? sexpr) (list)) (else (error sexpr)))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - (define (make-signature-sexpr-data name sig link-maker sub?) + (define spacer-sd + (make-sexpr-el #f #f "spacer" #f #f)) + (define paren-open-sd - `((class . "muted") - (text . "(") - (sub-exprs . #f))) + (make-sexpr-el #f "(" "muted" #f #f)) + (define paren-close-sd - `((class . "muted") - (text . ")") - (sub-exprs . #f))) - (define spacer-sd - `((class . "spacer") - (text . "") - (sub-exprs . #f))) - (define name-sd - `((class . ,(if sub? "muted-name" "bright-name")) - (text . ,name) - (sub-exprs . #f))) - - (define (make-return-sd returns) + (make-sexpr-el #f ")" "muted" #f #f)) + + (define long-arrow-sd + (make-sexpr-el "⟹" #f "muted" #f #f)) + + (define slash (make-sexpr-el #f "/" "muted-type" #f #f)) + + (define (make-return-sd returns link-maker sub?) (define (return-value->sd value) (cond ((or (equal? value '...) (equal? value 'undefined) (equal? value '*)) - `((class . "muted") - (text . ,(symbol->string value)) - (sub-exprs . #f))) + (make-sexpr-el #f (symbol->string value) "muted" #f #f)) ((equal? value #f) - `((class . ,(if sub? "muted-name" "bright-syntax")) - (text . "#f") - (sub-exprs . #f))) - ((equal? value #t) - `((class . ,(if sub? "muted-name" "bright-syntax")) - (text . "#f") - (sub-exprs . #f))) + (make-sexpr-el #f "#f" (if sub? "muted-name" "bright-syntax") #f #f)) ((symbol? value) - `((class . ,(if sub? "muted-name" "bright-type")) - (text . ,(symbol->string value)) - (link . ,(link-maker value #f)) - (sub-exprs . #f))) + (make-sexpr-el #f (symbol->string value) (if sub? "muted-name" "bright-type") (link-maker value #f) #f)) ((list? value) - `((class . "sexpr-flex") - (sub-exprs . #(,paren-open-sd - ((class . "muted") - (text . ,(symbol->string (car value))) - (sub-exprs . #f)) - ,@(map - (lambda (e) - `((class . "sexpr-flex") - (sub-exprs . #(,spacer-sd ,(return-value->sd e))))) - (cdr value)) - ,paren-close-sd)))))) - `((class . "sexpr-flex") - (link . #f) - (sub-exprs . #(,spacer-sd - ((class . "muted") - (link . #f) - (html . "⟹") - (sub-exprs . #f)) - ,spacer-sd - ,(return-value->sd returns))))) - + (make-sexpr-el #f #f "sexpr-flex" #f `( + ,paren-open-sd + ,(make-sexpr-el #f (symbol->string (car value)) "muted" #f #f) + ,@(map + (lambda (e) + (make-sexpr-el #f #f "sexpr-flex" #f (list spacer-sd (return-value->sd e)))) + (cdr value)) + ,paren-close-sd))))) + (make-sexpr-el #f #f "sexpr-flex" #f (list spacer-sd long-arrow-sd spacer-sd (return-value->sd returns)))) + + (define (make-param-type-sd type sub? link-maker) + (cond + ((symbol? type) + (make-sexpr-el #f type (if sub? "muted-type" "bright-type") (link-maker type #t) #f)) + ((equal? #f type) + (make-sexpr-el #f "#f" (if sub? "muted-type" "bright-syntax") #f #f)) + ((list? type) + (let loop ((types (cdr type)) + (sds '())) + (cond + ((null? types) + (make-sexpr-el #f #f "sexpr-flex" #f (cdr sds))) + (else (let* ((type (car types)) + (sd (make-param-type-sd type sub? link-maker))) + (loop (cdr types) + (append (list slash sd) sds))))))))) + + (define (make-signature-sexpr-data name sig link-maker sub?) + + (define name-sd (make-sexpr-el #f name (if sub? "muted-name" "bright-name") #f #f)) + (define (make-param-sds params) - (define slash `((class . "muted-type") - (link . #f) - (text . "/") - (sub-exprs . #f))) - (define (make-type-sd type) - (cond - ((symbol? type) - `((class . ,(if sub? "muted-type" "bright-type")) - (link . ,(link-maker type #t)) - (text . ,type) - (sub-exprs . #f))) - ((equal? #f type) - `((class . ,(if sub? "muted-type" "bright-syntax")) - (link . #f) - (text . "#f") - (sub-exprs . #f))) - ((list? type) - (let loop ((types (cdr type)) - (sds '())) - (cond - ((null? types) - `((class . "sexpr-flex") - (link . #f) - (sub-exprs . ,(list->vector (cdr sds))))) - (else (let* ((type (car types)) - (sd (make-type-sd type))) - (loop (cdr types) - (append (list slash sd) sds))))))))) + (let loop ((params params) (last (null? (cdr (cadr sig)))) (result '())) (define param (car params)) (define sd (cond - ((list? param) - `((class . "sexpr-flex") - (link . #f) - (sub-exprs . #(,spacer-sd - ,paren-open-sd - ,(make-type-sd (car param)) - ,spacer-sd - ((class . "muted") - (link . #f) - (text . ,(cadr param)) - (sub-exprs . #f)) - ,paren-close-sd - ,@(if last (list paren-close-sd) (list)))))) - (else `((class . "sexpr-flex") - (link . #f) - (sub-exprs . #(,spacer-sd - ((class . "muted") - (link . #f) - (text . ,(symbol->string param)) - (sub-exprs . #f)) - ,@(if last (list paren-close-sd) (list)))))))) - + ((list? param) + (make-sexpr-el #f #f "sexpr-flex" #f + `(,spacer-sd + ,paren-open-sd + ,(make-param-type-sd (car param) sub? link-maker) + ,spacer-sd + ,(make-sexpr-el #f (cadr param) "muted" #f #f) + ,paren-close-sd + ,@(if last (list paren-close-sd) (list))))) + (else + (make-sexpr-el #f #f "sexpr-flex" #f + `(,spacer-sd + ,(make-sexpr-el #f (symbol->string param) "muted" #f #f) + ,@(if last (list paren-close-sd) (list))))))) + (if last (reverse (cons sd result)) (loop (cdr params) (null? (cddr params)) (cons sd result))))) - + (define params (cadr sig)) - (define return-sd (make-return-sd (caddr sig))) + (define return-sd (make-return-sd (caddr sig) link-maker sub?)) (if (null? params) - `((class . "sexpr-flex") - (link . #f) - (sub-exprs . #(,paren-open-sd - ,name-sd - ,paren-close-sd - ,return-sd))) - - `((class . "sexpr-flex") - (link . #f) - (sub-exprs . #(,paren-open-sd - ,name-sd - ((class . "sexpr-flex sexpr-shrink") - (link . #f) - (sub-exprs . #(,@(make-param-sds params)))) - ,return-sd))))) + (make-sexpr-el #f #f "sexpr-flex" #f + (list paren-open-sd + name-sd + paren-close-sd + return-sd)) + (make-sexpr-el #f #f "sexpr-flex" #f + (list paren-open-sd + name-sd + (make-sexpr-el #f #f "sexpr-flex sexpr-shrink" #f (make-param-sds params)) + return-sd)))) (define (make-value-signature-sexpr-data name sig link-maker) - `((class . "sexpr-flex") - (sub-exprs . #(((class . "bright-name") - (text . ,name) - (sub-exprs . #f)) - ((class . "spacer") - (sub-exprs . #f)) - ((class . "muted") - (html . "⟹") - (sub-exprs . #f)) - ((class . "spacer") - (sub-exprs . #f)) - ((class . "bright-type") - (text . ,(symbol->string (cadr sig))) - (link . ,(link-maker (cadr sig) #f)) - (sub-exprs . #f)))))))) + (make-sexpr-el #f #f "sexpr-flex" #f + (list (make-sexpr-el #f name "bright-name" #f #f) + spacer-sd + long-arrow-sd + spacer-sd + (make-sexpr-el #f (symbol->string (cadr sig)) "bright-type" (link-maker (cadr sig) #f) #f)))) + + (define (get-page-head title req) + (make-page-head title (user-setting/light-theme? req) (user-setting/ctrl-f-override req))) + + (define (render-home-page req) + (values + "index" + (make-page + (get-page-head #f req) + (make-navigation (make-mustache-nav-data 'index)) + #f))) + + (define (render-search-page req page page-size query libs tags param-types return-types search-result) + (values + "search" + (make-page + (get-page-head "Search" req) + (make-navigation (make-mustache-nav-data 'search)) + (make-mustache-search-data page page-size query libs tags param-types return-types search-result)))) + + (define (render-settings-page req) + (values + "settings" + (make-page + (get-page-head "Settings" req) + (make-navigation (make-mustache-nav-data 'settings)) + (mustache-settings-data req)))) + +)) \ No newline at end of file diff --git a/src/main/scheme/scmindex/settings.scm b/src/main/scheme/scmindex/settings.scm index b7fe16f..6f88194 100644 --- a/src/main/scheme/scmindex/settings.scm +++ b/src/main/scheme/scmindex/settings.scm @@ -16,14 +16,7 @@ deploy-setting/cache-templates deploy-setting/page-size deploy-setting/serve-static - - user-setting/page-size - user-setting/light-theme? - user-setting/ctrl-f-override - user-setting/param-filter-loose - - settings-options - mustache-settings-data) + ) (begin @@ -44,80 +37,5 @@ (define deploy-setting/page-size (cut get-property <> 'page-size 40)) (define deploy-setting/serve-static (cut get-property <> 'serve-static #t)) - (define settings-data - `#( - ((name . "pageSize") - (legend . "Page size") - (description . "") - (default-value . "40") - (values . #("10" "40" "100"))) - - ((name . "theme") - (legend . "Theme") - (description . "") - (default-value . "light") - (values . #("light" "dark"))) - - ((name . "overrideCtrlF") - (legend . "Override control+f behavior") - (description . "If enabled, pressing control+f will highlight and focus search text field") - (default-value . "no") - (values . #("yes" "no"))) - - ((name . "filterParamsLoose") - (legend . "Use loose parameter filtering") - (description . "When enabled, filtering by parameter of union type, will return results that take parameter of - a type that composes that union. For example, filtering by `list?` (which is union type of `pair?` - and `null?`) will find functions that take `pair?` argument. This leads to showing functions - that searcher is probably interested in, however at the drawback that those functions won't be - applicable in general case") - (default-value . "yes") - (values . #("yes" "no"))))) - - (define settings-options '("overrideCtrlF" "theme" "pageSize" "filterParamsLoose")) - - (define (user-setting/page-size req) - (cond - ((assoc 'pageSize (req/cookies req)) => (lambda (e) - (string->number (cdr e)))) - (else 40))) - - (define (user-setting/light-theme? req) - (cond - ((assoc 'theme (req/cookies req)) => (lambda (e) - (equal? "light" (cdr e)))) - (else #t))) - - (define (user-setting/ctrl-f-override req) - (cond - ((assoc 'overrideCtrlF (req/cookies req)) => (lambda (e) - (equal? "yes" (cdr e)))) - (else #f))) - - (define (user-setting/param-filter-loose req) - (cond - ((assoc 'filterParamsLoose (req/cookies req)) => (lambda (e) - (equal? "yes" (cdr e)))) - (else #t))) - - (define (mustache-settings-data req) - (define cookies (req/cookies req)) - (define data - (vector-map - (lambda (option) - (define name (cdr (assoc 'name option))) - (define selected-value - (cond - ((assoc (string->symbol name) cookies) => cdr) - (else (cdr (assoc 'default-value option))))) - (define values+selection - (vector-map - (lambda (value) - `((value . ,value) - (selected . ,(equal? value selected-value)))) - (cdr (assoc 'values option)))) - `((values . ,values+selection) ,@option)) - settings-data)) - `((options . ,data))) )) diff --git a/src/main/scheme/scmindex/solr.scm b/src/main/scheme/scmindex/solr.scm index 5119ce2..479e2b8 100644 --- a/src/main/scheme/scmindex/solr.scm +++ b/src/main/scheme/scmindex/solr.scm @@ -2,8 +2,8 @@ (scmindex solr) (import (scheme base) (scheme write) - ;(arvyy httpclient) (arvyy solrj) + (scmindex domain) (scmindex types-parser)) (export @@ -120,27 +120,29 @@ (define (parse-solr-response response) (define resp (cdr (assoc 'response response))) (define total (cdr (assoc 'num-found resp))) - (define docs (cdr (assoc 'docs resp))) + (define docs (map json->func (vector->list (cdr (assoc 'docs resp))))) (define facet-counts (cdr (assoc 'facet_counts response))) (define facet-fields (cdr (assoc 'facet_fields facet-counts))) (define lib-facets (fold-facet-values (cdr (assoc 'lib facet-fields)))) (define param-facets (fold-facet-values (cdr (assoc 'param_types facet-fields)))) (define return-facets (fold-facet-values (cdr (assoc 'return_types facet-fields)))) (define tag-facets (fold-facet-values (cdr (assoc 'tags facet-fields)))) - - `((procedures . ,docs) - (total . ,total) - (lib . ,lib-facets) - (param . ,param-facets) - (tag . ,tag-facets) - (return . ,return-facets))) + + (make-search-result + docs + total + lib-facets + param-facets + tag-facets + return-facets)) (define (fold-facet-values vals) - (list->vector (map + (map (lambda (e) - `((value . ,(symbol->string (car e))) - (count . ,(cdr e)))) - vals))) + (make-search-result-facet + (symbol->string (car e)) + (cdr e))) + vals)) (define (escape-solr-spec str) (define lst* diff --git a/src/main/scheme/scmindex/types-parser.scm b/src/main/scheme/scmindex/types-parser.scm index b22b604..5d855df 100644 --- a/src/main/scheme/scmindex/types-parser.scm +++ b/src/main/scheme/scmindex/types-parser.scm @@ -6,58 +6,18 @@ (scheme read) (scheme write) (only (srfi 1) lset-adjoin lset-difference alist-cons alist-delete delete-duplicates filter) + (scmindex domain) (arvyy slf4j)) (export read-specs read-spec make-type-maps flatten-type - func->json - - make-func - func? - func-lib - func-name - func-param-names - func-signature - func-param-signatures - func-tags - func-param-types - func-return-types - func-supertypes - ) (begin (define logger (get-logger "types-parser")) - (define-record-type - (make-func - lib - name - param-names - signature - param-signatures - tags - param-types - return-types - supertypes) - - func? - - (lib func-lib) - (name func-name) - (param-names func-param-names) - (signature func-signature) - (param-signatures func-param-signatures) - (tags func-tags) - (param-types func-param-types) - (return-types func-return-types) - (supertypes func-supertypes) - - ) - - (define (read-specs index-file) (log-info logger "Reading specs from index file {}" index-file) (with-input-from-file @@ -76,41 +36,48 @@ lst)) (apply append funcs*)))) - (define (list-ref/f lst index) - (cond - ((null? lst) '()) - ((= index 0) (car lst)) - (else (list-ref/f (cdr lst) (- index 1))))) + (define (assoc* key alist default) + (cond + ((assoc key alist) => cdr) + (else default))) (define (read-spec lib input) (map (lambda (entry) - (define name (let ((n (list-ref entry 0))) + (define name (let ((n (assoc* 'name entry #f))) + (unless n + (error "Missing name attribute")) (log-debug logger "Reading spec {}" n) n)) - (define signature (list-ref entry 1)) + (define signature (let ((s (assoc* 'signature entry #f))) + (unless s + (error "Missing signature attribute")) + s)) (define-values - (supertypes param-names param-types return-types) + (supertypes param-names param-types syntax-param-signatures return-types) (case (car signature) ((lambda) - (values (list-ref/f entry 4) + (values (assoc* 'supertypes entry '()) (extract-param-names signature) (extract-param-types signature) + '() (extract-return-types signature))) ((syntax-rules) (values '() (extract-syntax-names signature) - '() - '())) + (extract-syntax-param-types (assoc* 'syntax-param-signatures entry '())) + (assoc* 'syntax-param-signatures entry '()) + (extract-syntax-return-types signature))) ((value) (values '() + '() '() '() (list (cadr signature)))) (else (error (string-append "Unrecognized signature for " (->string name)))))) - (define tags (list-ref/f entry 2)) - (define param-signatures (list-ref/f entry 3)) - (make-func lib name param-names signature param-signatures tags param-types return-types supertypes)) + (define tags (assoc* 'tags entry '())) + (define param-signatures (assoc* 'subsigs entry '())) + (make-func lib name param-names signature param-signatures syntax-param-signatures tags param-types return-types supertypes)) input)) (define (extract-param-names signature) @@ -148,28 +115,43 @@ (result (delete-duplicates result equal?))) result)) + (define (extract-syntax-return-types signature) + (let* ((rules (cddr signature)) + (rules (filter (lambda (rule) (> (length rule) 1)) rules)) + (returns (map cadr rules)) + (types (map parse-type-from-return returns))) + (delete-duplicates (apply append types)))) + + (define (extract-syntax-param-types param-types) + (define types (map + (lambda (param-type) + (parse-type-from-param (cadr param-type))) + param-types)) + (apply append types)) + (define (extract-param-types signature) (define params-list (cadr signature)) (define lst* (map (lambda (param) (cond ((list? param) - (let ((type (car param))) - (cond - ((and (list? type) (equal? 'or (car type))) - (cdr type)) - ((list? type) (error (string-append "Bad signature: " (->string signature)))) - ((symbol? type) (list type)) - ((equal? #f type) (list)) - (else (error (string-append "Bad signature: " (->string signature))))))) + (let ((value (car param))) + (parse-type-from-param value))) (else (list)))) params-list)) - (filter - symbol? - (apply append lst*))) + (apply append lst*)) - (define (extract-return-types signature) - (define (extract value) + (define (parse-type-from-param value) + (define types + (cond + ((and (list? value) (equal? 'or (car value))) + (cdr value)) + ((symbol? value) (list value)) + ((equal? #f value) (list)) + (else (error "Bad signature")))) + (filter symbol? types)) + + (define (parse-type-from-return value) (cond ((or (equal? '* value) (equal? '... value) @@ -180,11 +162,13 @@ ((and (list? value) (or (equal? 'values (car value)) (equal? 'or (car value)))) - (apply append (map extract (cdr value)))) + (apply append (map parse-type-from-return (cdr value)))) (else (list)))) + + (define (extract-return-types signature) (when (< (length signature) 3) (error (string-append "Bad signature: " (->string signature)))) - (extract (caddr signature))) + (parse-type-from-return (caddr signature))) (define (make-type-maps funcs) (define (make-entries strict) @@ -248,20 +232,11 @@ (loop (append to-add result) new-q)))) + ;;TODO move to util (define (->string obj) (define port (open-output-string)) (write obj port) (get-output-string port)) - (define (func->json func) - `((lib . ,(->string (func-lib func))) - (name . ,(symbol->string (func-name func))) - (param_names . ,(list->vector (map ->string (func-param-names func)))) - (signature . ,(->string (func-signature func))) - (param_signatures . ,(->string (func-param-signatures func))) - (tags . ,(list->vector (map ->string (func-tags func)))) - (param_types . ,(list->vector (map ->string (func-param-types func)))) - (return_types . ,(list->vector (map ->string (func-return-types func)))) - (super_types . ,(list->vector (map ->string (func-supertypes func)))))) ) ) diff --git a/src/main/scheme/scmindex/web-ui.scm b/src/main/scheme/scmindex/web-ui.scm index 5de5c82..c17396f 100644 --- a/src/main/scheme/scmindex/web-ui.scm +++ b/src/main/scheme/scmindex/web-ui.scm @@ -9,6 +9,7 @@ (arvyy mustache) (arvyy solr-embedded) (arvyy solrj) + (scmindex domain) (scmindex types-parser) (scmindex mustache) (scmindex solr) @@ -41,7 +42,9 @@ (define (get/html path handler) (get path (lambda (req resp) (define-values (name data) (handler req resp)) - (execute (get-template name) data)))) + (parameterize ((current-lookup data-lookup) + (current-collection list-collection)) + (execute (get-template name) data))))) (define (get/rest path handler) (get path (lambda (req resp) @@ -59,21 +62,11 @@ (resp/set-header! resp "Access-Control-Allow-Origin" "*") (get-output-string payload)))) -(define (make-tpl-getter name) - (if (deploy-setting/cache-templates config) - (let ((tpl (compile name partial-locator))) - (lambda () tpl)) - (lambda () (compile name partial-locator)))) - (define solr-url (string-append (deploy-setting/solr-url config) "/solr/" (deploy-setting/solr-core config))) (define solr-search-url (string-append solr-url "/search")) (define solr-suggest-url (string-append solr-url "/suggest")) (define default-page-size (deploy-setting/page-size config)) -(define (make-head-data req) - `((light-theme . ,(user-setting/light-theme? req)) - (ctrlf-override . ,(user-setting/ctrl-f-override req)))) - (port (deploy-setting/port config)) (when (deploy-setting/serve-static config) @@ -81,18 +74,11 @@ (get/html "/" (lambda (req resp) - (values "index" - `((page-title . "Home") - ,@(make-mustache-nav-data 'index) - ,@(make-head-data req))))) + (render-home-page req))) (get/html "/settings" (lambda (req resp) - (values "settings" - `((page-title . "Settings") - ,@(make-mustache-nav-data 'settings) - ,@(make-head-data req) - ,@(mustache-settings-data req))))) + (render-settings-page req))) (post "/settings" (lambda (req resp) @@ -102,7 +88,7 @@ (if value (resp/set-cookie! resp opt value) (resp/remove-cookie! resp opt))) - settings-options) + settings-cookies) (resp/redirect resp "/settings"))) (get/html "/search" @@ -120,35 +106,7 @@ (define return-types (or (req/query-param-values req "return") '())) (define tags (or (req/query-param-values req "tag") '())) (define data (exec-solr-query solr-client solr-core start page-size query libs param-types return-types tags filter-params-loose?)) - (define search-data - (make-mustache-search-data - page - page-size - query - libs - param-types - return-types - tags - data)) - (values "search" - `((page-title . "Search") - ,@search-data - ,@(make-mustache-nav-data 'search) - ,@(make-head-data req))))) - -(get/html "/userguide" - (lambda (req resp) - (values "userguide" - `((page-title . "User guide") - ,@(make-mustache-nav-data 'userguide) - ,@(make-head-data req))))) - -(get/html "/restapi" - (lambda (req resp) - (values "restapi" - `((page-title . "REST api") - ,@(make-mustache-nav-data 'restapi) - ,@(make-head-data req))))) + (render-search-page req page page-size query libs tags param-types return-types data))) (get/rest "/suggest" (lambda (req resp) @@ -182,7 +140,10 @@ (define return-types (or (req/query-param-values req "return") '())) (define tags (or (req/query-param-values req "tag") '())) (define filter-params-loose? (equal? (or (req/query-param req "filter_loose") "true") "true")) - (exec-solr-query solr-client solr-core start rows query libs param-types return-types tags filter-params-loose?)))) + (define search-result (exec-solr-query solr-client solr-core start rows query libs param-types return-types tags filter-params-loose?)) + (search-result->json search-result)))) + + ) diff --git a/src/test/scheme/main-test.scm b/src/test/scheme/main-test.scm index c44bd81..a2b608a 100644 --- a/src/test/scheme/main-test.scm +++ b/src/test/scheme/main-test.scm @@ -3,7 +3,8 @@ (import (scheme base) (scheme write) (scheme read) - (scmindex types-parser) + (scmindex domain) + (scmindex types-parser) (scmindex mustache) (only (srfi 1) lset=) (srfi 64) diff --git a/src/test/scheme/test-mustache.scm b/src/test/scheme/test-mustache.scm index 9f48451..3affc75 100644 --- a/src/test/scheme/test-mustache.scm +++ b/src/test/scheme/test-mustache.scm @@ -12,5 +12,5 @@ (vector-for-each (lambda (doc) (test-assert (not (null? (make-doc-data doc))))) - json-scm)) + specs)) diff --git a/src/test/scheme/test-types-parser.scm b/src/test/scheme/test-types-parser.scm index 7bc4784..98b59c6 100644 --- a/src/test/scheme/test-types-parser.scm +++ b/src/test/scheme/test-types-parser.scm @@ -1,11 +1,10 @@ (test-group "Test function general" (define spec-raw - `(integer? - (lambda (obj) boolean?) - (pure predicate) - () - (number?))) + `((name . integer?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate)) + (supertypes . (number?)))) (define f (car (read-spec '(test lib) (list spec-raw)))) (define f* (func->json f)) (test-equal '(test lib) (func-lib f)) @@ -28,12 +27,12 @@ (define specs (read-spec '(test lib) `( - (f1 - (lambda () *)) - (f2 - (lambda (obj1 obj2 ...) *)) - (f3 - (lambda ((string? str) ... (#f obj2)) *)) + ((name . f1) + (signature . (lambda () *))) + ((name . f2) + (signature . (lambda (obj1 obj2 ...) *))) + ((name . f3) + (signature . (lambda ((string? str) ... (#f obj2)) *))) ))) (test-equal '() (func-param-names (list-ref specs 0))) (test-equal '(obj1 obj2) (func-param-names (list-ref specs 1))) @@ -44,14 +43,14 @@ (define specs (read-spec '(test lib) `( - (f1 - (lambda () *)) - (f2 - (lambda (obj) *)) - (f3 - (lambda ((string? str) (#f int)) *)) - (f4 - (lambda (((or #f string?) str)) *))))) + ((name . f1) + (signature . (lambda () *))) + ((name . f2) + (signature . (lambda (obj) *))) + ((name . f3) + (signature . (lambda ((string? str) (#f int)) *))) + ((name . f4) + (signature . (lambda (((or #f string?) str)) *)))))) (test-equal '() (func-param-types (list-ref specs 0))) (test-equal '() (func-param-types (list-ref specs 1))) (test-equal '(string?) (func-param-types (list-ref specs 2))) @@ -62,18 +61,18 @@ (define specs (read-spec '(test lib) `( - (f1 - (lambda () *)) - (f2 - (lambda () undefined)) - (f3 - (lambda () string?)) - (f4 - (lambda () (or integer? string?))) - (f5 - (lambda () (or #f string?))) - (f6 - (lambda () (values integer? string? ...)))))) + ((name . f1) + (signature . (lambda () *))) + ((name . f2) + (signature . (lambda () undefined))) + ((name . f3) + (signature . (lambda () string?))) + ((name . f4) + (signature . (lambda () (or integer? string?)))) + ((name . f5) + (signature . (lambda () (or #f string?)))) + ((name . f6) + (signature . (lambda () (values integer? string? ...))))))) (test-equal '() (func-return-types (list-ref specs 0))) (test-equal '() (func-return-types (list-ref specs 1))) (test-equal '(string?) (func-return-types (list-ref specs 2))) @@ -93,34 +92,28 @@ (define specs (read-spec '(test lib) `( - (A? - (lambda (obj) boolean?) - (pure predicate) - ()) - (B? - (lambda (obj) boolean?) - (pure predicate) - ()) - (C? - (lambda (obj) boolean?) - (pure predicate) - () - (A? B?)) - (D? - (lambda (obj) boolean?) - (pure predicate) - () - (C?)) - (E? - (lambda (obj) boolean?) - (pure predicate) - () - (A?)) - (F? - (lambda (obj) boolean?) - (pure predicate) - () - (E?))))) + ((name . A?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate))) + ((name . B?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate))) + ((name . C?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate)) + (supertypes . (A? B?))) + ((name . D?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate)) + (supertypes . (C?))) + ((name . E?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate)) + (supertypes . (A?))) + ((name . F?) + (signature . (lambda (obj) boolean?)) + (tags . (pure predicate)) + (supertypes . (E?)))))) (define-values (supertype-map subtype-strict-map subtype-loose-map) (make-type-maps specs)) @@ -153,11 +146,12 @@ "Test kawa mangling" (define specs (read-spec '(test lib) - `((->char-set - (lambda ((char? x)) string?)) + `( + ((name . ->char-set) + (signature . (lambda ((char? x)) string?))) - (|char-set:lower-case| - (value char-set?))))) + ((name . |char-set:lower-case|) + (signature . (value char-set?)))))) ;; test workaround works to prevent kawa mangling (let ((f (list-ref specs 0))) (test-equal '|->char-set| (func-name f)) diff --git a/static/css/scmindex.css b/static/css/scmindex.css index ae62d6f..23ae13e 100644 --- a/static/css/scmindex.css +++ b/static/css/scmindex.css @@ -55,6 +55,7 @@ nav { } .facet-count { + font-size: 0.8em; color: var(--text-color-muted); } @@ -117,6 +118,7 @@ nav { .lib { font-size: 0.8em; grid-area: lib; + margin-bottom: 0.8em; } .lib-link { @@ -133,9 +135,12 @@ nav { grid-area: sig; } -.param-signatures, .subsyntax-signatures { +.param-signatures, .subsyntax-signatures-block { grid-area: param-sig; - padding-top: 0.5em; +} + +.param-signatures, .subsyntax-signatures-block, .syntax-param-signatures { + margin-top: 0.8em; } .subsyntax-signatures { @@ -207,14 +212,14 @@ nav { } .procedure:first-child { - border-top-left-radius: 10px; - border-top-right-radius: 10px; + border-top-left-radius: 5px; + border-top-right-radius: 5px; } .procedure:last-child { border-bottom: 1px gray solid; - border-bottom-left-radius: 10px; - border-bottom-right-radius: 10px; + border-bottom-left-radius: 5px; + border-bottom-right-radius: 5px; } .chunk { @@ -222,9 +227,14 @@ nav { margin-left: 5px; } +.settings-group { + margin-top: 0.5em; +} + .settings-group-value, .facet-option { display: block; + padding: 0.1em; vertical-align: middle; cursor: pointer; } @@ -309,8 +319,8 @@ nav { color: var(--text-color-muted); font-weight: bold; background-color: var(--bg-color2); - width: 1.5em; - height: 1.5em; + min-width: 1.5em; + padding: 0.2em; line-height: 1.5em; text-align: center; border-top: solid gray 1px; @@ -343,8 +353,8 @@ nav { .page-gap { color: var(--text-color-muted); background-color: var(--bg-color2); - width: 1.5em; - height: 1.5em; + min-width: 1.5em; + padding: 0.2em; line-height: 1.5em; text-align: center; border-top: solid gray 1px; @@ -384,6 +394,7 @@ h1, h2 { fieldset { border: 1px gray solid; + border-radius: 5px; } @@ -458,6 +469,11 @@ fieldset { color: var(--text-color-muted); } +.result-item-block-header { + font-size: 0.8em; + color: var(--text-color-muted); +} + /* SETTINGS */ .settings-form { diff --git a/static/fonts/Roboto/LICENSE.txt b/static/fonts/Roboto/LICENSE.txt new file mode 100644 index 0000000..75b5248 --- /dev/null +++ b/static/fonts/Roboto/LICENSE.txt @@ -0,0 +1,202 @@ + + Apache License + Version 2.0, January 2004 + http://www.apache.org/licenses/ + + TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION + + 1. Definitions. + + "License" shall mean the terms and conditions for use, reproduction, + and distribution as defined by Sections 1 through 9 of this document. + + "Licensor" shall mean the copyright owner or entity authorized by + the copyright owner that is granting the License. + + "Legal Entity" shall mean the union of the acting entity and all + other entities that control, are controlled by, or are under common + control with that entity. For the purposes of this definition, + "control" means (i) the power, direct or indirect, to cause the + direction or management of such entity, whether by contract or + otherwise, or (ii) ownership of fifty percent (50%) or more of the + outstanding shares, or (iii) beneficial ownership of such entity. + + "You" (or "Your") shall mean an individual or Legal Entity + exercising permissions granted by this License. + + "Source" form shall mean the preferred form for making modifications, + including but not limited to software source code, documentation + source, and configuration files. + + "Object" form shall mean any form resulting from mechanical + transformation or translation of a Source form, including but + not limited to compiled object code, generated documentation, + and conversions to other media types. + + "Work" shall mean the work of authorship, whether in Source or + Object form, made available under the License, as indicated by a + copyright notice that is included in or attached to the work + (an example is provided in the Appendix below). + + "Derivative Works" shall mean any work, whether in Source or Object + form, that is based on (or derived from) the Work and for which the + editorial revisions, annotations, elaborations, or other modifications + represent, as a whole, an original work of authorship. For the purposes + of this License, Derivative Works shall not include works that remain + separable from, or merely link (or bind by name) to the interfaces of, + the Work and Derivative Works thereof. + + "Contribution" shall mean any work of authorship, including + the original version of the Work and any modifications or additions + to that Work or Derivative Works thereof, that is intentionally + submitted to Licensor for inclusion in the Work by the copyright owner + or by an individual or Legal Entity authorized to submit on behalf of + the copyright owner. For the purposes of this definition, "submitted" + means any form of electronic, verbal, or written communication sent + to the Licensor or its representatives, including but not limited to + communication on electronic mailing lists, source code control systems, + and issue tracking systems that are managed by, or on behalf of, the + Licensor for the purpose of discussing and improving the Work, but + excluding communication that is conspicuously marked or otherwise + designated in writing by the copyright owner as "Not a Contribution." + + "Contributor" shall mean Licensor and any individual or Legal Entity + on behalf of whom a Contribution has been received by Licensor and + subsequently incorporated within the Work. + + 2. Grant of Copyright License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + copyright license to reproduce, prepare Derivative Works of, + publicly display, publicly perform, sublicense, and distribute the + Work and such Derivative Works in Source or Object form. + + 3. Grant of Patent License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + (except as stated in this section) patent license to make, have made, + use, offer to sell, sell, import, and otherwise transfer the Work, + where such license applies only to those patent claims licensable + by such Contributor that are necessarily infringed by their + Contribution(s) alone or by combination of their Contribution(s) + with the Work to which such Contribution(s) was submitted. If You + institute patent litigation against any entity (including a + cross-claim or counterclaim in a lawsuit) alleging that the Work + or a Contribution incorporated within the Work constitutes direct + or contributory patent infringement, then any patent licenses + granted to You under this License for that Work shall terminate + as of the date such litigation is filed. + + 4. Redistribution. You may reproduce and distribute copies of the + Work or Derivative Works thereof in any medium, with or without + modifications, and in Source or Object form, provided that You + meet the following conditions: + + (a) You must give any other recipients of the Work or + Derivative Works a copy of this License; and + + (b) You must cause any modified files to carry prominent notices + stating that You changed the files; and + + (c) You must retain, in the Source form of any Derivative Works + that You distribute, all copyright, patent, trademark, and + attribution notices from the Source form of the Work, + excluding those notices that do not pertain to any part of + the Derivative Works; and + + (d) If the Work includes a "NOTICE" text file as part of its + distribution, then any Derivative Works that You distribute must + include a readable copy of the attribution notices contained + within such NOTICE file, excluding those notices that do not + pertain to any part of the Derivative Works, in at least one + of the following places: within a NOTICE text file distributed + as part of the Derivative Works; within the Source form or + documentation, if provided along with the Derivative Works; or, + within a display generated by the Derivative Works, if and + wherever such third-party notices normally appear. The contents + of the NOTICE file are for informational purposes only and + do not modify the License. You may add Your own attribution + notices within Derivative Works that You distribute, alongside + or as an addendum to the NOTICE text from the Work, provided + that such additional attribution notices cannot be construed + as modifying the License. + + You may add Your own copyright statement to Your modifications and + may provide additional or different license terms and conditions + for use, reproduction, or distribution of Your modifications, or + for any such Derivative Works as a whole, provided Your use, + reproduction, and distribution of the Work otherwise complies with + the conditions stated in this License. + + 5. Submission of Contributions. Unless You explicitly state otherwise, + any Contribution intentionally submitted for inclusion in the Work + by You to the Licensor shall be under the terms and conditions of + this License, without any additional terms or conditions. + Notwithstanding the above, nothing herein shall supersede or modify + the terms of any separate license agreement you may have executed + with Licensor regarding such Contributions. + + 6. Trademarks. This License does not grant permission to use the trade + names, trademarks, service marks, or product names of the Licensor, + except as required for reasonable and customary use in describing the + origin of the Work and reproducing the content of the NOTICE file. + + 7. Disclaimer of Warranty. Unless required by applicable law or + agreed to in writing, Licensor provides the Work (and each + Contributor provides its Contributions) on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or + implied, including, without limitation, any warranties or conditions + of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A + PARTICULAR PURPOSE. You are solely responsible for determining the + appropriateness of using or redistributing the Work and assume any + risks associated with Your exercise of permissions under this License. + + 8. Limitation of Liability. In no event and under no legal theory, + whether in tort (including negligence), contract, or otherwise, + unless required by applicable law (such as deliberate and grossly + negligent acts) or agreed to in writing, shall any Contributor be + liable to You for damages, including any direct, indirect, special, + incidental, or consequential damages of any character arising as a + result of this License or out of the use or inability to use the + Work (including but not limited to damages for loss of goodwill, + work stoppage, computer failure or malfunction, or any and all + other commercial damages or losses), even if such Contributor + has been advised of the possibility of such damages. + + 9. Accepting Warranty or Additional Liability. While redistributing + the Work or Derivative Works thereof, You may choose to offer, + and charge a fee for, acceptance of support, warranty, indemnity, + or other liability obligations and/or rights consistent with this + License. However, in accepting such obligations, You may act only + on Your own behalf and on Your sole responsibility, not on behalf + of any other Contributor, and only if You agree to indemnify, + defend, and hold each Contributor harmless for any liability + incurred by, or claims asserted against, such Contributor by reason + of your accepting any such warranty or additional liability. + + END OF TERMS AND CONDITIONS + + APPENDIX: How to apply the Apache License to your work. + + To apply the Apache License to your work, attach the following + boilerplate notice, with the fields enclosed by brackets "[]" + replaced with your own identifying information. (Don't include + the brackets!) The text should be enclosed in the appropriate + comment syntax for the file format. We also recommend that a + file or class name and description of purpose be included on the + same "printed page" as the copyright notice for easier + identification within third-party archives. + + Copyright [yyyy] [name of copyright owner] + + Licensed under the Apache License, Version 2.0 (the "License"); + you may not use this file except in compliance with the License. + You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, software + distributed under the License is distributed on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + See the License for the specific language governing permissions and + limitations under the License. diff --git a/static/fonts/Roboto/Roboto-Regular.ttf b/static/fonts/Roboto/Roboto-Regular.ttf new file mode 100644 index 0000000..ddf4bfa Binary files /dev/null and b/static/fonts/Roboto/Roboto-Regular.ttf differ diff --git a/static/fonts/Roboto/style.css b/static/fonts/Roboto/style.css new file mode 100644 index 0000000..afd057f --- /dev/null +++ b/static/fonts/Roboto/style.css @@ -0,0 +1,6 @@ +@font-face { + font-family: 'Roboto'; + font-style: normal; + font-weight: 400; + src: url(/fonts/Roboto/Roboto-Regular.ttf); +} \ No newline at end of file diff --git a/static/fonts/icomoon/fonts/icomoon.eot b/static/fonts/icomoon/fonts/icomoon.eot new file mode 100644 index 0000000..566057d Binary files /dev/null and b/static/fonts/icomoon/fonts/icomoon.eot differ diff --git a/static/fonts/icomoon/fonts/icomoon.svg b/static/fonts/icomoon/fonts/icomoon.svg new file mode 100644 index 0000000..fccacc6 --- /dev/null +++ b/static/fonts/icomoon/fonts/icomoon.svg @@ -0,0 +1,16 @@ + + + +Generated by IcoMoon + + + + + + + + + + + + \ No newline at end of file diff --git a/static/fonts/icomoon/fonts/icomoon.ttf b/static/fonts/icomoon/fonts/icomoon.ttf new file mode 100644 index 0000000..5d3f612 Binary files /dev/null and b/static/fonts/icomoon/fonts/icomoon.ttf differ diff --git a/static/fonts/icomoon/fonts/icomoon.woff b/static/fonts/icomoon/fonts/icomoon.woff new file mode 100644 index 0000000..7ddd8eb Binary files /dev/null and b/static/fonts/icomoon/fonts/icomoon.woff differ diff --git a/static/fonts/icomoon/style.css b/static/fonts/icomoon/style.css new file mode 100644 index 0000000..2401b73 --- /dev/null +++ b/static/fonts/icomoon/style.css @@ -0,0 +1,45 @@ +@font-face { + font-family: 'icomoon'; + src: url('fonts/icomoon.eot?2bxicz'); + src: url('fonts/icomoon.eot?2bxicz#iefix') format('embedded-opentype'), + url('fonts/icomoon.ttf?2bxicz') format('truetype'), + url('fonts/icomoon.woff?2bxicz') format('woff'), + url('fonts/icomoon.svg?2bxicz#icomoon') format('svg'); + font-weight: normal; + font-style: normal; + font-display: block; +} + +[class^="icon-"], [class*=" icon-"] { + /* use !important to prevent issues with browser extensions that change fonts */ + font-family: 'icomoon' !important; + speak: never; + font-style: normal; + font-weight: normal; + font-variant: normal; + text-transform: none; + line-height: 1; + + /* Better Font Rendering =========== */ + -webkit-font-smoothing: antialiased; + -moz-osx-font-smoothing: grayscale; +} + +.icon-home3:before { + content: "\e902"; +} +.icon-file-text2:before { + content: "\e926"; +} +.icon-folder:before { + content: "\e92f"; +} +.icon-folder-open:before { + content: "\e930"; +} +.icon-search:before { + content: "\e986"; +} +.icon-cog:before { + content: "\e994"; +} diff --git a/templates/head.html b/templates/head.html index 96b17e0..0a87b21 100644 --- a/templates/head.html +++ b/templates/head.html @@ -1,10 +1,10 @@ - {{#page-title}} - R7RS Index | {{page-title}} - {{/page-title}} - {{^page-title}} + {{#title}} + R7RS Index | {{title}} + {{/title}} + {{^title}} R7RS Index - {{/page-title}} + {{/title}} {{#light-theme}} @@ -13,9 +13,8 @@ {{/light-theme}} - - - + + {{#ctrlf-override}} diff --git a/templates/index.html b/templates/index.html index 317e1ba..282ba28 100644 --- a/templates/index.html +++ b/templates/index.html @@ -1,7 +1,11 @@ - {{>head}} + {{#head}} + {{>head}} + {{/head}} - {{>topnavigation}} + {{#navigation}} + {{>topnavigation}} + {{/navigation}}

R7RS index

R7RS index allows searching for R7RS-small and R7RS-large (work in progress) procedures, syntax and constants through types, tags, and names. Please see user guide for details @@ -10,7 +14,7 @@

R7RS index

@@ -23,8 +27,8 @@

R7RS index

-

REST api, STDIO repl api

-

R7RS provides multiple options for integrating its search component with other software. Please consult documentation for details.

+

API (rest, stdin)

+

R7RS provides multiple options for integrating its search component with other software. Please consult documentation for details.

Report an issue

Please report any issues or suggestions you may have at github.

diff --git a/templates/procedure.html b/templates/procedure.html index fba315d..3b9788a 100644 --- a/templates/procedure.html +++ b/templates/procedure.html @@ -7,27 +7,44 @@ {{> sexpr }} {{/ signature}} - {{# has_param_signatures }} + {{# has-param-signatures? }}
- {{# param_signatures }} +
Expanded typing of parameters / returns
+ {{# param-signatures }}
{{> sexpr }}
- {{/ param_signatures }} + {{/ param-signatures }}
- {{/ has_param_signatures }} - {{# has_subsyntax_signatures }} -
- {{# subsyntax_signatures }} - ⟨{{name}}⟩:  -
- {{# rules }} - {{> sexpr }} - {{/ rules }} + {{/ has-param-signatures? }} + + {{# has-subsyntax-signatures? }} +
+
Syntax fragments' format
+
+ {{# subsyntax-signatures }} + ⟨{{name}}⟩:  +
+ {{# rules }} + {{> sexpr }} + {{/ rules }} +
+ {{/ subsyntax-signatures }}
- {{/ subsyntax_signatures }}
- {{/ has_subsyntax_signatures}} + {{/ has-subsyntax-signatures? }} + + {{# has-syntax-param-signatures? }} +
+
Syntax fragments' expected runtime types
+ {{# syntax-param-signatures}} +
+ {{> sexpr }} +
+ {{/ syntax-param-signatures}} +
+ {{/ has-syntax-param-signatures? }} +
{{# tags }} {{ . }} diff --git a/templates/search.html b/templates/search.html index e1b46d7..81644c6 100644 --- a/templates/search.html +++ b/templates/search.html @@ -1,7 +1,12 @@ - {{>head}} + {{#head}} + {{>head}} + {{/head}} - {{>topnavigation}} + {{#navigation}} + {{>topnavigation}} + {{/navigation}} + {{#body}}
@@ -22,10 +27,10 @@ - {{ value }} + {{ label }} ({{ count }}) @@ -38,25 +43,26 @@
{{# procedures }} - {{> procedure }} + {{> procedure }} {{/ procedures }}
{{# pages }} - {{# pager-gap }} - ... - {{/ pager-gap }} - {{^ pager-gap }} - {{# link }} - {{ number }} - {{/ link }} - {{^ link }} - {{ number }} - {{/ link}} - {{/pager-gap}} + {{# gap? }} + ... + {{/ gap? }} + {{^ gap? }} + {{# link }} + {{ number }} + {{/ link }} + {{^ link }} + {{ number }} + {{/ link}} + {{/ gap? }} {{/ pages }}
+ {{/body}} diff --git a/templates/settings.html b/templates/settings.html index 8549b3e..262d7e3 100644 --- a/templates/settings.html +++ b/templates/settings.html @@ -1,27 +1,31 @@ - {{> head }} + {{#head}} + {{> head }} + {{/head}} - {{>topnavigation}} + {{#navigation}} + {{>topnavigation}} + {{/navigation}}

Settings

Here you can customize certain behavior aspects of the site. The choices are stored in cookies upon pressing "Save". - {{# options }} + {{# body }}

{{ legend }} {{description}} - {{# values }} + {{# options }} - {{/ values }} + {{/ options }}
- {{/ options }} + {{/ body }}
diff --git a/templates/topnavigation.html b/templates/topnavigation.html index 2294839..9c03530 100644 --- a/templates/topnavigation.html +++ b/templates/topnavigation.html @@ -1,10 +1,10 @@ diff --git a/types/scheme.base.scm b/types/scheme.base.scm index 237aec7..a3af86a 100644 --- a/types/scheme.base.scm +++ b/types/scheme.base.scm @@ -1,1309 +1,890 @@ -( - - (* - (lambda ((number? z) ...) number?) - (pure)) - - (+ - (lambda ((number? z) ...) number?) - (pure)) - - (- - (lambda ((number? z) ...) number?) - (pure)) - - - (/ - (lambda ((number? z1) (number? z2) ...) number?) - (pure)) - - (< - (lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) - (pure)) - - (<= - (lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) - (pure)) - - (= - (lambda ((number? z1) (number? z2) (number? z3) ...) boolean?) - (pure)) - - (=> - (lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) - (pure)) - - (> - (lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) - (pure)) - - (>= - (lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) - (pure)) - - (abs - (lambda ((real? x)) number?) - (pure)) - - (and - (syntax-rules () - ((_ test1 ...)))) - - (append - (lambda ((list? list) ...) list?) - (pure)) - - (append - (lambda ((list? list) ... obj) *) - (pure)) - - (apply - (lambda ((procedure? proc) arg1 ... (list? args)) *) - (pure)) - - (assoc - (lambda (obj (list? alist)) (or pair? #f)) - (pure)) - - (assoc - (lambda (obj (list? alist) (procedure? =)) (or pair? #f)) - (pure) - ((= (lambda (a b) *)))) - - (assq - (lambda (obj (list? alist)) (or pair? #f)) - (pure)) - - (assv - (lambda (obj (list? alist)) (or pair? #f)) - (pure)) - - (begin - (syntax-rules () - ((_ expression-or-definition ...)))) - - (binary-port? - (lambda (obj) boolean?) - (pure predicate) +(((name . *) (signature lambda ((number? z) ...) number?) (tags pure)) + ((name . +) (signature lambda ((number? z) ...) number?) (tags pure)) + ((name . -) (signature lambda ((number? z) ...) number?) (tags pure)) + ((name . /) + (signature lambda ((number? z1) (number? z2) ...) number?) + (tags pure)) + ((name . <) + (signature lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) + (tags pure)) + ((name . <=) + (signature lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) + (tags pure)) + ((name . =) + (signature lambda ((number? z1) (number? z2) (number? z3) ...) boolean?) + (tags pure)) + ((name . =>) + (signature lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) + (tags pure)) + ((name . >) + (signature lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) + (tags pure)) + ((name . >=) + (signature lambda ((real? x1) (real? x2) (real? x3) ...) boolean?) + (tags pure)) + ((name . abs) (signature lambda ((real? x)) number?) (tags pure)) + ((name . and) (signature syntax-rules () ((_ test1 ...)))) + ((name . append) (signature lambda ((list? list) ...) list?) (tags pure)) + ((name . append) (signature lambda ((list? list) ... obj) *) (tags pure)) + ((name . apply) + (signature lambda ((procedure? proc) arg1 ... (list? args)) *) + (tags pure)) + ((name . assoc) + (signature lambda (obj (list? alist)) (or pair? #f)) + (tags pure)) + ((name . assoc) + (signature lambda (obj (list? alist) (procedure? =)) (or pair? #f)) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . assq) + (signature lambda (obj (list? alist)) (or pair? #f)) + (tags pure)) + ((name . assv) + (signature lambda (obj (list? alist)) (or pair? #f)) + (tags pure)) + ((name . begin) + (signature syntax-rules () ((_ expression-or-definition ...)))) + ((name . binary-port?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes port?)) + ((name . boolean=?) + (signature + lambda + ((boolean? boolean1) (boolean? boolean2) (boolean? boolean3) ...) + boolean?) + (tags pure)) + ((name . boolean?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . bytevector) + (signature lambda ((integer? byte) ...) bytevector?) + (tags pure)) + ((name . bytevector-append) + (signature lambda ((bytevector? bytevector) ...) bytevector?) + (tags pure)) + ((name . bytevector-copy) + (signature lambda ((bytevector? bytevector)) bytevector?) + (tags pure)) + ((name . bytevector-copy) + (signature lambda ((bytevector? bytevector) (integer? start)) bytevector?) + (tags pure)) + ((name . bytevector-copy) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . bytevector-copy!) + (signature + lambda + ((bytevector? to) (integer? at) (bytevector? from)) + undefined)) + ((name . bytevector-copy!) + (signature + lambda + ((bytevector? to) (integer? at) (bytevector? from) (integer? start)) + undefined)) + ((name . bytevector-copy!) + (signature + lambda + ((bytevector? to) + (integer? at) + (bytevector? from) + (integer? start) + (integer? end)) + undefined)) + ((name . bytevector-length) + (signature lambda ((bytevector? bytevector)) integer?) + (tags pure)) + ((name . bytevector-u8-ref) + (signature lambda ((bytevector? bytevector) (integer? k)) integer?) + (tags pure)) + ((name . bytevector-u8-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? byte)) + undefined)) + ((name . bytevector?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . caar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . call-with-current-continuation) + (signature lambda ((procedure? proc)) *) + (subsigs (proc (lambda ((procedure? k)) *)))) + ((name . call-with-port) + (signature lambda ((port? port) (procedure? proc)) *) + (subsigs (proc (lambda ((port? port)) *)))) + ((name . call-with-values) + (signature lambda ((procedure? producer) (procedure? consumer)) *) + (tags pure) + (subsigs (producer (lambda () *)) (consumer (lambda (obj ...) *)))) + ((name . call/cc) + (signature lambda ((procedure? proc)) *) + (subsigs (proc (lambda ((procedure? k)) *)))) + ((name . car) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . case) + (signature syntax-rules (=> else) ((_ key clause1 clause2 ...))) + (subsigs + (clause + ((datum1 ...) expression1 expression2 ...) + ((datum1 ...) => expression) + (else expression1 expression2 ...)))) + ((name . cdar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . ceiling) (signature lambda ((real? x)) real?) (tags pure)) + ((name . char->integer) + (signature lambda ((char? char)) integer?) + (tags pure)) + ((name . char-ready?) (signature lambda () boolean?) (tags parameterized)) + ((name . char-ready?) (signature lambda ((input-port? port)) boolean?)) + ((name . char<=?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char=?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char>?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . close-input-port) (signature lambda ((input-port? port)) undefined)) + ((name . close-output-port) + (signature lambda ((output-port? port)) undefined)) + ((name . close-port) (signature lambda ((port? port)) undefined)) + ((name . complex?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes number?)) + ((name . cond) + (signature syntax-rules (else =>) ((_ clause1 clause2 ...))) + (subsigs + (clause + (test expression1 ...) + (test => expression) + (else expression1 expression2 ...)))) + ((name . cond-expand) + (signature + syntax-rules + (library and or not else) + ((_ ce-clause1 ce-clause2 ...))) + (subsigs + (ce-clause (feature-requirement expression ...) (else expression)) + (feature-requirement + feature-identifier + (library library-name) + (and feature-requirement ...) + (or feature-requirement ...) + (not feature-requirement)))) + ((name . cons) (signature lambda (obj1 obj2) pair?) (tags pure)) + ((name . current-error-port) + (signature lambda () output-port?) + (tags parameter)) + ((name . current-input-port) + (signature lambda () input-port?) + (tags parameter)) + ((name . current-output-port) + (signature lambda () output-port?) + (tags parameter)) + ((name . define) + (signature + syntax-rules () - (port?)) - - (boolean=? - (lambda ((boolean? boolean1) (boolean? boolean2) (boolean? boolean3) ...) boolean?) - (pure)) - - (boolean? - (lambda (obj) boolean?) - (pure predicate)) - - (bytevector - (lambda ((integer? byte) ...) bytevector?) - (pure)) - - (bytevector-append - (lambda ((bytevector? bytevector) ...) bytevector?) - (pure)) - - (bytevector-copy - (lambda ((bytevector? bytevector)) bytevector?) - (pure)) - - (bytevector-copy - (lambda ((bytevector? bytevector) (integer? start)) bytevector?) - (pure)) - - (bytevector-copy - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) bytevector?) - (pure)) - - (bytevector-copy! - (lambda ((bytevector? to) (integer? at) (bytevector? from)) undefined) - ()) - - (bytevector-copy! - (lambda ((bytevector? to) (integer? at) (bytevector? from) (integer? start)) undefined) - ()) - - (bytevector-copy! - (lambda ((bytevector? to) (integer? at) (bytevector? from) (integer? start) (integer? end)) undefined) - ()) - - (bytevector-length - (lambda ((bytevector? bytevector)) integer?) - (pure)) - - (bytevector-u8-ref - (lambda ((bytevector? bytevector) (integer? k)) integer?) - (pure)) - - (bytevector-u8-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? byte)) undefined)) - - (bytevector? - (lambda (obj) boolean?) - (pure predicate)) - - (caar - (lambda ((pair? pair)) *) - (pure)) - - ( - cadr - (lambda ((pair? pair)) *) - (pure)) - - (call-with-current-continuation - (lambda ((procedure? proc)) *) + ((_ variable expression)) + ((_ (variable parameter1 ...) body)) + ((_ (variable parameter1 ... . parameter) body)))) + ((name . define-record-type) + (signature syntax-rules () ((name constructor pred field ...))) + (subsigs + (constructor (constructor-name field-name ...)) + (field (field-name accessor-name) + (field-name accessor-name modifier-name)))) + ((name . define-syntax) + (signature syntax-rules () ((_ keyword transformer-spec)))) + ((name . define-values) + (signature syntax-rules () ((_ formals expression))) + (subsigs + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1)))) + ((name . denominator) (signature lambda ((rational? q)) integer?) (tags pure)) + ((name . do) + (signature + syntax-rules () - ((proc (lambda ((procedure? k)) *)))) - - (call-with-port - (lambda ((port? port) (procedure? proc)) *) - () - ((proc (lambda ((port? port)) *)))) - - (call-with-values - (lambda ((procedure? producer) (procedure? consumer)) *) - (pure) - ((producer (lambda () *)) - (consumer (lambda (obj ...) *)))) - - ( - call/cc - (lambda ((procedure? proc)) *) - () - ((proc (lambda ((procedure? k)) *)))) - - (car - (lambda ((pair? pair)) *) - (pure)) - - (case - (syntax-rules (=> else) - ((_ key clause1 clause2 ...))) + ((_ (variable-decl1 ...) (test expression ...) command ...))) + (subsigs (variable-decl (variable init step) (variable init)))) + ((name . dynamic-wind) + (signature + lambda + ((procedure? before) (procedure? thunk) (procedure? after)) + *) + (subsigs + (before (lambda () undefined)) + (thunk (lambda () *)) + (after (lambda () undefined)))) + ((name . eof-object) (signature lambda () eof-object?) (tags pure)) + ((name . eof-object?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . eq?) (signature lambda (obj1 obj2) boolean?) (tags pure)) + ((name . equal?) (signature lambda (obj1 obj2) boolean?) (tags pure)) + ((name . eqv?) (signature lambda (obj1 obj2) boolean?) (tags pure)) + ((name . error) (signature lambda ((string? message) obj ...) undefined)) + ((name . error-object-irritants) + (signature lambda ((error-object? error-object)) list?) + (tags pure)) + ((name . error-object-message) + (signature lambda ((error-object? error-object)) string?) + (tags pure)) + ((name . error-object?) + (signature lambda (obj) boolean?) + (tags pure predicate)) + ((name . even?) + (signature lambda ((integer? n)) boolean?) + (tags pure predicate)) + ((name . exact) (signature lambda ((number? z)) exact?) (tags pure)) + ((name . exact-integer-sqrt) + (signature lambda ((integer? k)) (values integer? integer?)) + (tags pure)) + ((name . exact-integer?) + (signature lambda ((number? z)) boolean?) + (tags pure) + (subsigs) + (supertypes exact? integer?)) + ((name . exact?) + (signature lambda ((number? z)) boolean?) + (tags pure) + (subsigs) + (supertypes number?)) + ((name . expt) + (signature lambda ((number? z1) (number? z2)) number?) + (tags pure)) + ((name . features) (signature lambda () list?) (tags pure)) + ((name . file-error?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . floor) (signature lambda ((real? x)) integer?) (tags pure)) + ((name . floor-quotient) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . floor-remainder) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . floor/) + (signature lambda ((integer? n1) (integer? n2)) (values integer? integer?)) + (tags pure)) + ((name . flush-output-port) + (signature lambda () undefined) + (tags parameterized)) + ((name . flush-output-port) + (signature lambda ((output-port? port)) undefined)) + ((name . for-each) + (signature + lambda + ((procedure? proc) (list? list1) (list? list2) ...) + undefined) + (subsigs (proc (lambda (obj1 obj2 ...) undefined)))) + ((name . gcd) (signature lambda ((integer? n) ...) integer?) (tags pure)) + ((name . get-output-bytevector) + (signature lambda ((output-port? port)) bytevector?)) + ((name . get-output-string) (signature lambda ((output-port? port)) string?)) + ((name . guard) + (signature + syntax-rules + (=> else) + ((_ (variable cond-clause1 cond-clause2 ...) body))) + (subsigs + (cond-clause + (test expression1 ...) + (test => expression) + (else expression1 expression2 ...)))) + ((name . if) + (signature + syntax-rules () - ((clause ((datum1 ...) expression1 expression2 ...) - ((datum1 ...) => expression) - (else expression1 expression2 ...)))) - - (cdar - (lambda ((pair? pair)) *) - (pure)) - - (cddr - (lambda ((pair? pair)) *) - (pure)) - - (cdr - (lambda ((pair? pair)) *) - (pure)) - - (ceiling - (lambda ((real? x)) real?) - (pure)) - - (char->integer - (lambda ((char? char)) integer?) - (pure)) - - (char-ready? - (lambda () boolean?) - (parameterized)) - - (char-ready? - (lambda ((input-port? port)) boolean?) - ()) - - (char<=? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char=? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char>? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char? - (lambda (obj) boolean?) - (pure predicate)) - - (close-input-port - (lambda ((input-port? port)) undefined)) - - (close-output-port - (lambda ((output-port? port)) undefined)) - - (close-port - (lambda ((port? port)) undefined)) - - (complex? - (lambda (obj) boolean?) - (pure predicate) + ((_ test consequent)) + ((_ test consequent alternate)))) + ((name . include) (signature syntax-rules () ((_ string1 string2 ...)))) + ((name . include-ci) (signature syntax-rules () ((_ string1 string2 ...)))) + ((name . inexact) (signature lambda ((number? z)) inexact?) (tags pure)) + ((name . inexact?) + (signature lambda ((number? z)) boolean?) + (tags pure) + (subsigs) + (supertypes number?)) + ((name . input-port-open?) (signature lambda ((input-port? port)) boolean?)) + ((name . input-port?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes port?)) + ((name . integer->char) (signature lambda ((integer? n)) char?) (tags pure)) + ((name . integer?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes rational?)) + ((name . lambda) + (signature syntax-rules () ((_ formals body))) + (subsigs + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1)))) + ((name . lcm) (signature lambda ((integer? n) ...) integer?) (tags pure)) + ((name . length) (signature lambda ((list? list)) integer?) (tags pure)) + ((name . let) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((variable1 init1) ...)))) + ((name . let*) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((variable1 init1) ...)))) + ((name . let*-values) + (signature syntax-rules () ((_ mv-binding-spec body))) + (subsigs + (mv-binding-spec ((formals1 init1) ...)) + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1)))) + ((name . let-syntax) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((keyword transformer-spec) ...)))) + ((name . let-values) + (signature syntax-rules () ((_ mv-binding-spec body))) + (subsigs + (mv-binding-spec ((formals1 init1) ...)) + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1)))) + ((name . letrec) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((variable1 init1) ...)))) + ((name . letrec*) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((variable1 init1) ...)))) + ((name . letrec-syntax) + (signature syntax-rules () ((_ bindings body))) + (subsigs (bindings ((keyword transformer-spec) ...)))) + ((name . list) (signature lambda (obj ...) list?) (tags pure)) + ((name . list->string) (signature lambda ((list? list)) string?) (tags pure)) + ((name . list->vector) (signature lambda ((list? list)) vector?) (tags pure)) + ((name . list-copy) (signature lambda (obj) *) (tags pure)) + ((name . list-ref) + (signature lambda ((list? list) (integer? k)) *) + (tags pure)) + ((name . list-set!) + (signature lambda ((list? list) (integer? k) obj) undefined)) + ((name . list-tail) + (signature lambda ((list? list) (integer? k)) list?) + (tags pure)) + ((name . list?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes pair? null?)) + ((name . make-bytevector) (signature lambda ((integer? k)) bytevector?)) + ((name . make-bytevector) + (signature lambda ((integer? k) (integer? byte)) bytevector?) + (tags pure)) + ((name . make-list) (signature lambda ((integer? k)) list?)) + ((name . make-list) (signature lambda ((integer? k) obj) list?) (tags pure)) + ((name . make-parameter) (signature lambda (obj) procedure?) (tags pure)) + ((name . make-parameter) + (signature lambda (obj (procedure? converter)) procedure?) + (tags pure) + (subsigs (converter (lambda (obj) *)))) + ((name . make-string) (signature lambda ((integer? k)) string?)) + ((name . make-string) + (signature lambda ((integer? k) (char? char)) string?) + (tags pure)) + ((name . make-vector) (signature lambda ((integer? k)) vector?)) + ((name . make-vector) + (signature lambda ((integer? k) fill) vector?) + (tags pure)) + ((name . map) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . max) + (signature lambda ((real? x1) (real? x2) ...) real?) + (tags pure)) + ((name . member) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . member) + (signature lambda (obj (list? list) (procedure? compare)) (or #f list?)) + (tags pure) + (subsigs (compare (lambda (obj1 obj2) *)))) + ((name . memq) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . memv) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . min) + (signature lambda ((real? x1) (real? x2) ...) real?) + (tags pure)) + ((name . modulo) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . negative?) (signature lambda ((real? x)) boolean?) (tags pure)) + ((name . newline) (signature lambda () undefined) (tags parameterized)) + ((name . newline) (signature lambda ((output-port? port)) undefined)) + ((name . not) (signature lambda (obj) boolean?) (tags pure)) + ((name . null?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . number->string) (signature lambda ((number? z)) string?) (tags pure)) + ((name . number->string) + (signature lambda ((number? z) (integer? radix)) string?) + (tags pure)) + ((name . number?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . numerator) (signature lambda ((rational? q)) integer?) (tags pure)) + ((name . odd?) + (signature lambda ((integer? n)) boolean?) + (tags pure predicate)) + ((name . open-input-bytevector) + (signature lambda ((bytevector? bytevector)) input-port?) + (tags pure)) + ((name . open-input-string) + (signature lambda ((string? string)) input-port?) + (tags pure)) + ((name . open-output-bytevector) + (signature lambda () output-port?) + (tags pure)) + ((name . open-output-string) (signature lambda () output-port?) (tags pure)) + ((name . or) (signature syntax-rules () ((_ test1 ...)))) + ((name . output-port-open?) (signature lambda ((output-port? port)) boolean?)) + ((name . output-port?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes port?)) + ((name . pair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . parameterize) + (signature syntax-rules () ((_ ((param1 value1) ...) body)))) + ((name . peek-char) + (signature lambda () (or eof-object? char?)) + (tags parameterized)) + ((name . peek-char) + (signature lambda ((input-port? port)) (or eof-object? char?))) + ((name . peek-u8) + (signature lambda () (or eof-object? integer?)) + (tags parameterized)) + ((name . peek-u8) + (signature lambda ((input-port? port)) (or eof-object? integer?))) + ((name . port?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . positive?) (signature lambda ((real? x)) boolean?) (tags pure)) + ((name . procedure?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . quasiquote) (signature syntax-rules () ((_ qq-template)))) + ((name . quote) (signature syntax-rules () ((_ datum)))) + ((name . quotient) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . raise) (signature lambda (obj) undefined)) + ((name . raise-continuable) (signature lambda (obj) undefined)) + ((name . rational?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes real?)) + ((name . rationalize) + (signature lambda ((real? x) (real? y)) rational?) + (tags pure)) + ((name . read-bytevector) + (signature lambda ((integer? k)) bytevector?) + (tags parameterized)) + ((name . read-bytevector) + (signature lambda ((integer? k) (input-port? port)) bytevector?)) + ((name . read-bytevector!) + (signature lambda ((bytevector? bytevector)) (or eof-object? integer?)) + (tags parameterized)) + ((name . read-bytevector!) + (signature + lambda + ((bytevector? bytevector) (input-port? port)) + (or eof-object? integer?))) + ((name . read-bytevector!) + (signature + lambda + ((bytevector? bytevector) (input-port? port) (integer? start)) + (or eof-object? integer?))) + ((name . read-bytevector!) + (signature + lambda + ((bytevector? bytevector) + (input-port? port) + (integer? start) + (integer? end)) + (or eof-object? integer?))) + ((name . read-char) + (signature lambda () (or eof-object? char?)) + (tags parameterized)) + ((name . read-char) + (signature lambda ((input-port? port)) (or eof-object? char?))) + ((name . read-error?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . read-line) + (signature lambda () (or eof-object? string?)) + (tags parameterized)) + ((name . read-line) + (signature lambda ((input-port? port)) (or eof-object? string?))) + ((name . read-string) + (signature lambda ((integer? k)) (or eof-object? string?)) + (tags parameterized)) + ((name . read-string) + (signature + lambda + ((integer? k) (input-port? port)) + (or eof-object? string?))) + ((name . read-u8) + (signature lambda () (or eof-object? integer?)) + (tags parameterized)) + ((name . read-u8) + (signature lambda ((input-port? port)) (or eof-object? integer?))) + ((name . real?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes complex?)) + ((name . remainder) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . reverse) (signature lambda ((list? list)) list?) (tags pure)) + ((name . round) (signature lambda ((real? x)) integer?) (tags pure)) + ((name . set!) (signature syntax-rules () ((_ variable expression)))) + ((name . set-car!) (signature lambda ((pair? pair) obj) undefined)) + ((name . set-cdr!) (signature lambda ((pair? pair) obj) undefined)) + ((name . square) (signature lambda ((number? z)) number?) (tags pure)) + ((name . string) (signature lambda ((char? char) ...) string?) (tags pure)) + ((name . string->list) + (signature lambda ((string? string)) list?) + (tags pure)) + ((name . string->list) + (signature lambda ((string? string) (integer? start)) list?) + (tags pure)) + ((name . string->list) + (signature lambda ((string? string) (integer? start) (integer? end)) list?) + (tags pure)) + ((name . string->number) + (signature lambda ((string? string)) number?) + (tags pure)) + ((name . string->number) + (signature lambda ((string? string) (integer? radix)) number?) + (tags pure)) + ((name . string->symbol) + (signature lambda ((string? string)) symbol?) + (tags pure)) + ((name . string->utf8) + (signature lambda ((string? string)) bytevector?) + (tags pure)) + ((name . string->utf8) + (signature lambda ((string? string) (integer? start)) bytevector?) + (tags pure)) + ((name . string->utf8) + (signature + lambda + ((string? string) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string)) vector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string) (integer? start)) vector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string) (integer? start) (integer? end)) vector?) + (tags pure)) + ((name . string-append) + (signature lambda ((string? string) ...) string?) + (tags pure)) + ((name . string-copy) + (signature lambda ((string? string)) string?) + (tags pure)) + ((name . string-copy) + (signature lambda ((string? string) (integer? start)) string?) + (tags pure)) + ((name . string-copy) + (signature lambda ((string? string) (integer? start) (integer? end)) string?) + (tags pure)) + ((name . string-copy!) + (signature lambda ((string? to) (integer? at) (string? from)) undefined)) + ((name . string-copy!) + (signature + lambda + ((string? to) (integer? at) (string? from) (integer? start)) + undefined)) + ((name . string-copy!) + (signature + lambda + ((string? to) (integer? at) (string? from) (integer? start) (integer? end)) + undefined)) + ((name . string-fill!) + (signature lambda ((string? string) (char? fill)) undefined)) + ((name . string-fill!) + (signature + lambda + ((string? string) (char? fill) (integer? start)) + undefined)) + ((name . string-fill!) + (signature + lambda + ((string? string) (char? fill) (integer? start) (integer? end)) + undefined)) + ((name . string-for-each) + (signature + lambda + ((procedure? proc) (string? string1) (string? string2) ...) + undefined) + (subsigs (proc (lambda ((string? string) ...) undefined)))) + ((name . string-length) + (signature lambda ((string? string)) integer?) + (tags pure)) + ((name . string-map) + (signature + lambda + ((procedure? proc) (string? string1) (string? string2) ...) + string?) + (tags pure) + (subsigs (proc (lambda ((string? string) ...) char?)))) + ((name . string-ref) + (signature lambda ((string? string) (integer? k)) char?) + (tags pure)) + ((name . string-set!) + (signature lambda ((string? string) (integer? k) (char? char)) undefined)) + ((name . string<=?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string=?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string>?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes textual?)) + ((name . substring) + (signature lambda ((string? string) (integer? start) (integer? end)) string?) + (tags pure)) + ((name . symbol->string) + (signature lambda ((symbol? symbol)) string?) + (tags pure)) + ((name . symbol=?) + (signature + lambda + ((symbol? symbol1) (symbol? symbol2) (symbol? symbol3) ...) + boolean?) + (tags pure)) + ((name . symbol?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . syntax-error) (signature syntax-rules () ((_ message args ...)))) + ((name . syntax-rules) + (signature + syntax-rules () - (number?)) - - (cond - (syntax-rules (else =>) - ((_ clause1 clause2 ...))) - () - ((clause (test expression1 ...) - (test => expression) - (else expression1 expression2 ...)))) - - (cond-expand - (syntax-rules (library and or not else) - ((_ ce-clause1 ce-clause2 ...))) - () - ((ce-clause (feature-requirement expression ...) - (else expression)) - (feature-requirement feature-identifier - (library library-name) - (and feature-requirement ...) - (or feature-requirement ...) - (not feature-requirement)))) - - (cons - (lambda (obj1 obj2) pair?) - (pure)) - - (current-error-port - (lambda () output-port?) - (parameter)) - - (current-input-port - (lambda () input-port?) - (parameter)) - - (current-output-port - (lambda () output-port?) - (parameter)) - - (define - (syntax-rules () - ((_ variable expression)) - ((_ (variable parameter1 ...) body)) - ((_ (variable parameter1 ... . parameter) body)))) - - (define-record-type - (syntax-rules () - ((name constructor pred field ...))) - () - ((constructor (constructor-name field-name ...)) - (field (field-name accessor-name) - (field-name accessor-name modifier-name)))) - - (define-syntax - (syntax-rules () - ((_ keyword transformer-spec)))) - - (define-values - (syntax-rules () - ((_ formals expression))) - () - ((formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - - (denominator - (lambda ((rational? q)) integer?) - (pure)) - - (do - (syntax-rules () - ((_ (variable-decl1 ...) - (test expression ...) - command ...))) - () - ((variable-decl (variable init step) - (variable init)))) - - (dynamic-wind - (lambda ((procedure? before) (procedure? thunk) (procedure? after)) *) - () - ((before (lambda () undefined)) - (thunk (lambda () *)) - (after (lambda () undefined)))) - - - (eof-object - (lambda () eof-object?) - (pure)) - - (eof-object? - (lambda (obj) boolean?) - (pure predicate)) - - (eq? - (lambda (obj1 obj2) boolean?) - (pure)) - - (equal? - (lambda (obj1 obj2) boolean?) - (pure)) - - (eqv? - (lambda (obj1 obj2) boolean?) - (pure)) - - (error - (lambda ((string? message) obj ...) undefined) - ()) - - (error-object-irritants - (lambda ((error-object? error-object)) list?) - (pure)) - - (error-object-message - (lambda ((error-object? error-object)) string?) - (pure)) - - (error-object? - (lambda (obj) boolean?) - (pure predicate)) - - (even? - (lambda ((integer? n)) boolean?) - (pure predicate)) - - (exact - (lambda ((number? z)) exact?) - (pure)) - - (exact-integer-sqrt - (lambda ((integer? k)) (values integer? integer?)) - (pure)) - - (exact-integer? - (lambda ((number? z)) boolean?) - (pure) - () - (exact? integer?) - ) - - (exact? - (lambda ((number? z)) boolean?) - (pure) - () - (number?)) - - (expt - (lambda ((number? z1) (number? z2)) number?) - (pure)) - - (features - (lambda () list?) - (pure)) - - (file-error? - (lambda (obj) boolean?) - (pure predicate)) - - (floor - (lambda ((real? x)) integer?) - (pure)) - - (floor-quotient - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (floor-remainder - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (floor/ - (lambda ((integer? n1) (integer? n2)) (values integer? integer?)) - (pure)) - - (flush-output-port - (lambda () undefined) - (parameterized)) - - (flush-output-port - (lambda ((output-port? port)) undefined) - ()) - - (for-each - (lambda ((procedure? proc) (list? list1) (list? list2) ...) undefined) - () - ((proc (lambda (obj1 obj2 ...) undefined)))) - - (gcd - (lambda ((integer? n) ...) integer?) - (pure)) - - (get-output-bytevector - (lambda ((output-port? port)) bytevector?) - ()) - - (get-output-string - (lambda ((output-port? port)) string?) - ()) - - (guard - (syntax-rules (=> else) - ((_ (variable cond-clause1 cond-clause2 ...) body))) - () - ((cond-clause (test expression1 ...) - (test => expression) - (else expression1 expression2 ...)))) - - (if - (syntax-rules () - ((_ test consequent)) - ((_ test consequent alternate)))) - - (include - (syntax-rules () - ((_ string1 string2 ...)))) - - (include-ci - (syntax-rules () - ((_ string1 string2 ...)))) - - (inexact - (lambda ((number? z)) inexact?) - (pure)) - - (inexact? - (lambda ((number? z)) boolean?) - (pure) - () - (number?)) - - (input-port-open? - (lambda ((input-port? port)) boolean?)) - - (input-port? - (lambda (obj) boolean?) - (pure predicate) - () - (port?)) - - (integer->char - (lambda ((integer? n)) char?) - (pure)) - - (integer? - (lambda (obj) boolean?) - (pure predicate) - () - (rational?)) - - (lambda - (syntax-rules () - ((_ formals body))) - () - ((formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - - (lcm - (lambda ((integer? n) ...) integer?) - (pure)) - - (length - (lambda ((list? list)) integer?) - (pure)) - - (let - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((variable1 init1) ...)))) - - (let* - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((variable1 init1) ...)))) - - (let*-values - (syntax-rules () - ((_ mv-binding-spec body))) - () - ((mv-binding-spec ((formals1 init1) ...)) - (formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - - (let-syntax - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((keyword transformer-spec) ...)))) - - (let-values - (syntax-rules () - ((_ mv-binding-spec body))) - () - ((mv-binding-spec ((formals1 init1) ...)) - (formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - - (letrec - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((variable1 init1) ...)))) - - (letrec* - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((variable1 init1) ...)))) - - (letrec-syntax - (syntax-rules () - ((_ bindings body))) - () - ((bindings ((keyword transformer-spec) ...)))) - - (list - (lambda (obj ...) list?) - (pure)) - - (list->string - (lambda ((list? list)) string?) - (pure)) - - (list->vector - (lambda ((list? list)) vector?) - (pure)) - - (list-copy - (lambda (obj) *) - (pure)) - - (list-ref - (lambda ((list? list) (integer? k)) *) - (pure)) - - (list-set! - (lambda ((list? list) (integer? k) obj) undefined) - ()) - - (list-tail - (lambda ((list? list) (integer? k)) list?) - (pure)) - - (list? - (lambda (obj) boolean?) - (pure predicate) - () - (pair? null?)) - - (make-bytevector - (lambda ((integer? k)) bytevector?) - ()) - - (make-bytevector - (lambda ((integer? k) (integer? byte)) bytevector?) - (pure)) - - (make-list - (lambda ((integer? k)) list?) - ()) - - (make-list - (lambda ((integer? k) obj) list?) - (pure)) - - (make-parameter - (lambda (obj) procedure?) - (pure)) - - (make-parameter - (lambda (obj (procedure? converter)) procedure?) - (pure) - ((converter (lambda (obj) *)))) - - (make-string - (lambda ((integer? k)) string?) - ()) - - (make-string - (lambda ((integer? k) (char? char)) string?) - (pure)) - - (make-vector - (lambda ((integer? k)) vector?) - ()) - - (make-vector - (lambda ((integer? k) fill) vector?) - (pure)) - - (map - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (max - (lambda ((real? x1) (real? x2) ...) real?) - (pure)) - - (member - (lambda (obj (list? list)) (or #f list?)) - (pure)) - - (member - (lambda (obj (list? list) (procedure? compare)) (or #f list?)) - (pure) - ((compare (lambda (obj1 obj2) *)))) - - (memq - (lambda (obj (list? list)) (or #f list?)) - (pure)) - - (memv - (lambda (obj (list? list)) (or #f list?)) - (pure)) - - (min - (lambda ((real? x1) (real? x2) ...) real?) - (pure)) - - (modulo - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (negative? - (lambda ((real? x)) boolean?) - (pure)) - - (newline - (lambda () undefined) - (parameterized)) - - (newline - (lambda ((output-port? port)) undefined) - ()) - - (not - (lambda (obj) boolean?) - (pure)) - - (null? - (lambda (obj) boolean?) - (pure predicate)) - - (number->string - (lambda ((number? z)) string?) - (pure)) - - (number->string - (lambda ((number? z) (integer? radix)) string?) - (pure)) - - (number? - (lambda (obj) boolean?) - (pure predicate)) - - (numerator - (lambda ((rational? q)) integer?) - (pure)) - - (odd? - (lambda ((integer? n)) boolean?) - (pure predicate)) - - (open-input-bytevector - (lambda ((bytevector? bytevector)) input-port?) - (pure)) - - (open-input-string - (lambda ((string? string)) input-port?) - (pure)) - - (open-output-bytevector - (lambda () output-port?) - (pure)) - - (open-output-string - (lambda () output-port?) - (pure)) - - (or - (syntax-rules () - ((_ test1 ...)))) - - (output-port-open? - (lambda ((output-port? port)) boolean?) - ()) - - (output-port? - (lambda (obj) boolean?) - (pure predicate) - () - (port?)) - - (pair? - (lambda (obj) boolean?) - (pure predicate)) - - (parameterize - (syntax-rules () - ((_ ((param1 value1) ...) body)))) - - (peek-char - (lambda () (or eof-object? char?)) - (parameterized)) - - (peek-char - (lambda ((input-port? port)) (or eof-object? char?)) - ()) - - (peek-u8 - (lambda () (or eof-object? integer?)) - (parameterized)) - - (peek-u8 - (lambda ((input-port? port)) (or eof-object? integer?)) - ()) - - (port? - (lambda (obj) boolean?) - (pure predicate)) - - (positive? - (lambda ((real? x)) boolean?) - (pure)) - - (procedure? - (lambda (obj) boolean?) - (pure predicate)) - - (quasiquote - (syntax-rules () - ((_ qq-template)))) - - (quote - (syntax-rules () - ((_ datum)))) - - (quotient - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (raise - (lambda (obj) undefined) - ()) - - (raise-continuable - (lambda (obj) undefined) - ()) - - (rational? - (lambda (obj) boolean?) - (pure predicate) - () - (real?)) - - (rationalize - (lambda ((real? x) (real? y)) rational?) - (pure)) - - (read-bytevector - (lambda ((integer? k)) bytevector?) - (parameterized)) - - (read-bytevector - (lambda ((integer? k) (input-port? port)) bytevector?) - ()) - - (read-bytevector! - (lambda ((bytevector? bytevector)) (or eof-object? integer?)) - (parameterized)) - - (read-bytevector! - (lambda ((bytevector? bytevector) (input-port? port)) (or eof-object? integer?)) - ()) - - (read-bytevector! - (lambda ((bytevector? bytevector) (input-port? port) (integer? start)) (or eof-object? integer?)) - ()) - - (read-bytevector! - (lambda ((bytevector? bytevector) (input-port? port) (integer? start) (integer? end)) (or eof-object? integer?)) - ()) - - (read-char - (lambda () (or eof-object? char?)) - (parameterized)) - - (read-char - (lambda ((input-port? port)) (or eof-object? char?)) - ()) - - (read-error? - (lambda (obj) boolean?) - (pure predicate)) - - (read-line - (lambda () (or eof-object? string?)) - (parameterized)) - - (read-line - (lambda ((input-port? port)) (or eof-object? string?)) - ()) - - (read-string - (lambda ((integer? k)) (or eof-object? string?)) - (parameterized)) - - (read-string - (lambda ((integer? k) (input-port? port)) (or eof-object? string?)) - ()) - - - (read-u8 - (lambda () (or eof-object? integer?)) - (parameterized)) - - (read-u8 - (lambda ((input-port? port)) (or eof-object? integer?)) - ()) - - (real? - (lambda (obj) boolean?) - (pure predicate) - () - (complex?)) - - (remainder - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (reverse - (lambda ((list? list)) list?) - (pure)) - - (round - (lambda ((real? x)) integer?) - (pure)) - - (set! - (syntax-rules () - ((_ variable expression)))) - - (set-car! - (lambda ((pair? pair) obj) undefined)) - - (set-cdr! - (lambda ((pair? pair) obj) undefined)) - - (square - (lambda ((number? z)) number?) - (pure)) - - (string - (lambda ((char? char) ...) string?) - (pure)) - - (string->list - (lambda ((string? string)) list?) - (pure)) - - (string->list - (lambda ((string? string) (integer? start)) list?) - (pure)) - - (string->list - (lambda ((string? string) (integer? start) (integer? end)) list?) - (pure)) - - (string->number - (lambda ((string? string)) number?) - (pure)) - - (string->number - (lambda ((string? string) (integer? radix)) number?) - (pure)) - - (string->symbol - (lambda ((string? string)) symbol?) - (pure)) - - (string->utf8 - (lambda ((string? string)) bytevector?) - (pure)) - - (string->utf8 - (lambda ((string? string) (integer? start)) bytevector?) - (pure)) - - (string->utf8 - (lambda ((string? string) (integer? start) (integer? end)) bytevector?) - (pure)) - - (string->vector - (lambda ((string? string)) vector?) - (pure)) - - (string->vector - (lambda ((string? string) (integer? start)) vector?) - (pure)) - - (string->vector - (lambda ((string? string) (integer? start) (integer? end)) vector?) - (pure)) - - (string-append - (lambda ((string? string) ...) string?) - (pure)) - - (string-copy - (lambda ((string? string)) string?) - (pure)) - - (string-copy - (lambda ((string? string) (integer? start)) string?) - (pure)) - - (string-copy - (lambda ((string? string) (integer? start) (integer? end)) string?) - (pure)) - - (string-copy! - (lambda ((string? to) (integer? at) (string? from)) undefined) - ()) - - (string-copy! - (lambda ((string? to) (integer? at) (string? from) (integer? start)) undefined) - ()) - - (string-copy! - (lambda ((string? to) (integer? at) (string? from) (integer? start) (integer? end)) undefined) - ()) - - (string-fill! - (lambda ((string? string) (char? fill)) undefined) - ()) - - (string-fill! - (lambda ((string? string) (char? fill) (integer? start)) undefined) - ()) - - (string-fill! - (lambda ((string? string) (char? fill) (integer? start) (integer? end)) undefined) - ()) - - (string-for-each - (lambda ((procedure? proc) (string? string1) (string? string2) ...) undefined) - () - ((proc (lambda ((string? string) ...) undefined)))) - - (string-length - (lambda ((string? string)) integer?) - (pure)) - - (string-map - (lambda ((procedure? proc) (string? string1) (string? string2) ...) string?) - (pure) - ((proc (lambda ((string? string) ...) char?)))) - - (string-ref - (lambda ((string? string) (integer? k)) char?) - (pure)) - - (string-set! - (lambda ((string? string) (integer? k) (char? char)) undefined) - ()) - - (string<=? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string=? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string>? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string? - (lambda (obj) boolean?) - (pure predicate) - () - (textual?)) - - (substring - (lambda ((string? string) (integer? start) (integer? end)) string?) - (pure)) - - (symbol->string - (lambda ((symbol? symbol)) string?) - (pure)) - - (symbol=? - (lambda ((symbol? symbol1) (symbol? symbol2) (symbol? symbol3) ...) boolean?) - (pure)) - - (symbol? - (lambda (obj) boolean?) - (pure predicate)) - - (syntax-error - (syntax-rules () - ((_ message args ...)))) - - (syntax-rules - (syntax-rules () - ((_ (literal ...) syntax-rule ...)) - ((_ ellipsis (literal ...) syntax-rule ...))) - () - ((syntax-rule (pattern template)) - (pattern identifier - constant - (pattern ...) - (pattern pattern ... . pattern) - (pattern ... pattern ellipsis pattern ...) - (pattern ... pattern ellipsis pattern ... . pattern) - (_append |#| (pattern ...)) - (_append |#| (pattern ... pattern ellipsis pattern ...))) - (template identifier - constant - (element ...) - (element element ... . template) - (ellipsis template) - (_append |#| (element ...))) - (element template - (_append template ellipsis)))) - - (textual-port? - (lambda (obj) boolean?) - (pure predicate) - () - (port?)) - - (truncate - (lambda ((real? x)) integer?) - (pure)) - - (truncate-quotient - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (truncate-remainder - (lambda ((integer? n1) (integer? n2)) integer?) - (pure)) - - (truncate/ - (lambda ((integer? n1) (integer? n2)) (values integer? integer?)) - (pure)) - - - (u8-ready? - (lambda () boolean?) - (parameterized)) - - (unless - (syntax-rules () - ((_ test expression1 expression2 ...)))) - - (unquote - (syntax-rules () - ((_ expression)))) - - (unquote-splicing - (syntax-rules () - ((_ expression)))) - - (u8-ready? - (lambda ((input-port? port)) boolean?) - ()) - - (utf8->string - (lambda ((bytevector? bytevector)) string?) - (pure)) - - (utf8->string - (lambda ((bytevector? bytevector) (integer? start)) string?) - (pure)) - - (utf8->string - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) string?) - (pure)) - - (values - (lambda (obj ...) (values * ...)) - (pure)) - - (vector - (lambda (obj ...) vector?) - (pure)) - - (vector->list - (lambda ((vector? vector)) list?) - (pure)) - - (vector->list - (lambda ((vector? vector) (integer? start)) list?) - (pure)) - - (vector->list - (lambda ((vector? vector) (integer? start) (integer? end)) list?) - (pure)) - - (vector->string - (lambda ((vector? vector)) string?) - (pure)) - - (vector->string - (lambda ((vector? vector) (integer? start)) string?) - (pure)) - - (vector->string - (lambda ((vector? vector) (integer? start) (integer? end)) string?) - (pure)) - - (vector-append - (lambda ((vector? vector) ...) vector?) - (pure)) - - (vector-copy - (lambda ((vector? vector)) vector?) - (pure)) - - (vector-copy - (lambda ((vector? vector) (integer? start)) vector?) - (pure)) - - (vector-copy - (lambda ((vector? vector) (integer? start) (integer? end)) vector?) - (pure)) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from)) undefined) - ()) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start)) undefined) - ()) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill (integer? start)) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill (integer? start) (integer? end)) undefined) - ()) - - (vector-for-each - (lambda ((procedure? proc) (vector? vector1) (vector? vector2) ...) undefined) - () - ((proc (lambda (obj ...) undefined)))) - - (vector-length - (lambda ((vector? vector)) integer?) - (pure)) - - (vector-map - (lambda ((procedure? proc) (vector? vector1) (vector? vector2) ...) vector?) - (pure) - ((proc (lambda (obj ...) *)))) - - (vector-ref - (lambda ((vector? vector) (integer? k)) *) - (pure)) - - (vector-set! - (lambda ((vector? vector) (integer? k) obj) undefined) - ()) - - (vector? - (lambda (obj) boolean?) - (pure predicate)) - - (when - (syntax-rules () - ((_ test expression1 expression2 ...)))) - - (with-exception-handler - (lambda ((procedure? handler) (procedure? thunk)) *) - () - ((handler (lambda (obj) *)) - (thunk (lambda () *)))) - - (write-bytevector - (lambda ((bytevector? bytevector)) undefined) - (parameterized)) - - (write-bytevector - (lambda ((bytevector? bytevector) (output-port? port)) undefined) - ()) - - (write-bytevector - (lambda ((bytevector? bytevector) (output-port? port) (integer? start)) undefined) - ()) - - (write-bytevector - (lambda ((bytevector? bytevector) (output-port? port) (integer? start) (integer? end)) undefined) - ()) - - (write-char - (lambda ((char? char)) undefined) - (parameterized)) - - (write-char - (lambda ((char? char) (output-port? port)) undefined) - ()) - - (write-string - (lambda ((string? string)) undefined) - (parameterized)) - - (write-string - (lambda ((string? string) (output-port? port)) undefined) - ()) - - (write-string - (lambda ((string? string) (output-port? port) (integer? start)) undefined) - ()) - - (write-string - (lambda ((string? string) (output-port? port) (integer? start) (integer? end)) undefined) - ()) - - (write-u8 - (lambda ((integer? byte)) undefined) - (parameterized)) - - (write-u8 - (lambda ((integer? byte) (output-port? port)) undefined) - ()) - - (zero? - (lambda ((number? z)) boolean?) - (pure predicate)) - - ) + ((_ (literal ...) syntax-rule ...)) + ((_ ellipsis (literal ...) syntax-rule ...))) + (subsigs + (syntax-rule (pattern template)) + (pattern + identifier + constant + (pattern ...) + (pattern pattern ... . pattern) + (pattern ... pattern ellipsis pattern ...) + (pattern ... pattern ellipsis pattern ... . pattern) + (_append |#| (pattern ...)) + (_append |#| (pattern ... pattern ellipsis pattern ...))) + (template + identifier + constant + (element ...) + (element element ... . template) + (ellipsis template) + (_append |#| (element ...))) + (element template (_append template ellipsis)))) + ((name . textual-port?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes port?)) + ((name . truncate) (signature lambda ((real? x)) integer?) (tags pure)) + ((name . truncate-quotient) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . truncate-remainder) + (signature lambda ((integer? n1) (integer? n2)) integer?) + (tags pure)) + ((name . truncate/) + (signature lambda ((integer? n1) (integer? n2)) (values integer? integer?)) + (tags pure)) + ((name . u8-ready?) (signature lambda () boolean?) (tags parameterized)) + ((name . unless) + (signature syntax-rules () ((_ test expression1 expression2 ...)))) + ((name . unquote) (signature syntax-rules () ((_ expression)))) + ((name . unquote-splicing) (signature syntax-rules () ((_ expression)))) + ((name . u8-ready?) (signature lambda ((input-port? port)) boolean?)) + ((name . utf8->string) + (signature lambda ((bytevector? bytevector)) string?) + (tags pure)) + ((name . utf8->string) + (signature lambda ((bytevector? bytevector) (integer? start)) string?) + (tags pure)) + ((name . utf8->string) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + string?) + (tags pure)) + ((name . values) (signature lambda (obj ...) (values * ...)) (tags pure)) + ((name . vector) (signature lambda (obj ...) vector?) (tags pure)) + ((name . vector->list) + (signature lambda ((vector? vector)) list?) + (tags pure)) + ((name . vector->list) + (signature lambda ((vector? vector) (integer? start)) list?) + (tags pure)) + ((name . vector->list) + (signature lambda ((vector? vector) (integer? start) (integer? end)) list?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector)) string?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector) (integer? start)) string?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector) (integer? start) (integer? end)) string?) + (tags pure)) + ((name . vector-append) + (signature lambda ((vector? vector) ...) vector?) + (tags pure)) + ((name . vector-copy) + (signature lambda ((vector? vector)) vector?) + (tags pure)) + ((name . vector-copy) + (signature lambda ((vector? vector) (integer? start)) vector?) + (tags pure)) + ((name . vector-copy) + (signature lambda ((vector? vector) (integer? start) (integer? end)) vector?) + (tags pure)) + ((name . vector-copy!) + (signature lambda ((vector? to) (integer? at) (vector? from)) undefined)) + ((name . vector-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start)) + undefined)) + ((name . vector-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) + undefined)) + ((name . vector-fill!) (signature lambda ((vector? vector) fill) undefined)) + ((name . vector-fill!) + (signature lambda ((vector? vector) fill (integer? start)) undefined)) + ((name . vector-fill!) + (signature + lambda + ((vector? vector) fill (integer? start) (integer? end)) + undefined)) + ((name . vector-for-each) + (signature + lambda + ((procedure? proc) (vector? vector1) (vector? vector2) ...) + undefined) + (subsigs (proc (lambda (obj ...) undefined)))) + ((name . vector-length) + (signature lambda ((vector? vector)) integer?) + (tags pure)) + ((name . vector-map) + (signature + lambda + ((procedure? proc) (vector? vector1) (vector? vector2) ...) + vector?) + (tags pure) + (subsigs (proc (lambda (obj ...) *)))) + ((name . vector-ref) + (signature lambda ((vector? vector) (integer? k)) *) + (tags pure)) + ((name . vector-set!) + (signature lambda ((vector? vector) (integer? k) obj) undefined)) + ((name . vector?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . when) + (signature syntax-rules () ((_ test expression1 expression2 ...)))) + ((name . with-exception-handler) + (signature lambda ((procedure? handler) (procedure? thunk)) *) + (subsigs (handler (lambda (obj) *)) (thunk (lambda () *)))) + ((name . write-bytevector) + (signature lambda ((bytevector? bytevector)) undefined) + (tags parameterized)) + ((name . write-bytevector) + (signature lambda ((bytevector? bytevector) (output-port? port)) undefined)) + ((name . write-bytevector) + (signature + lambda + ((bytevector? bytevector) (output-port? port) (integer? start)) + undefined)) + ((name . write-bytevector) + (signature + lambda + ((bytevector? bytevector) + (output-port? port) + (integer? start) + (integer? end)) + undefined)) + ((name . write-char) + (signature lambda ((char? char)) undefined) + (tags parameterized)) + ((name . write-char) + (signature lambda ((char? char) (output-port? port)) undefined)) + ((name . write-string) + (signature lambda ((string? string)) undefined) + (tags parameterized)) + ((name . write-string) + (signature lambda ((string? string) (output-port? port)) undefined)) + ((name . write-string) + (signature + lambda + ((string? string) (output-port? port) (integer? start)) + undefined)) + ((name . write-string) + (signature + lambda + ((string? string) (output-port? port) (integer? start) (integer? end)) + undefined)) + ((name . write-u8) + (signature lambda ((integer? byte)) undefined) + (tags parameterized)) + ((name . write-u8) + (signature lambda ((integer? byte) (output-port? port)) undefined)) + ((name . zero?) + (signature lambda ((number? z)) boolean?) + (tags pure predicate))) diff --git a/types/scheme.bitwise.scm b/types/scheme.bitwise.scm index ed1791d..e943426 100644 --- a/types/scheme.bitwise.scm +++ b/types/scheme.bitwise.scm @@ -1,172 +1,134 @@ -( - - (bitwise-not - (lambda ((integer? i)) integer?) - (pure)) - - (bitwise-and - (lambda ((integer? i) ...) integer?) - (pure)) - - (bitwise-ior - (lambda ((integer? i) ...) integer?) - (pure)) - - (bitwise-xor - (lambda ((integer? i) ...) integer?) - (pure)) - - (bitwise-eqv - (lambda ((integer? i) ...) integer?) - (pure)) - - (bitwise-nand - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (bitwise-nor - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (bitwise-andc1 - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (bitwise-andc2 - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (bitwise-orc1 - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (bitwise-orc2 - (lambda ((integer? i) (integer? j)) integer?) - (pure)) - - (arithmetic-shift - (lambda ((integer? i) (integer? count)) integer?) - (pure)) - - (bit-count - (lambda ((integer? i)) integer?) - (pure)) - - (integer-length - (lambda ((integer? i)) integer?) - (pure)) - - (bitwise-if - (lambda ((integer? mask) (integer? i) (integer? j)) integer?) - (pure)) - - (bit-set? - (lambda ((integer? index) (integer? i)) boolean?) - (pure)) - - (copy-bit - (lambda ((integer? index) (integer? i) (boolean? boolean)) integer?) - (pure)) - - (bit-swap - (lambda ((integer? index1) (integer? index2) (integer? i)) integer?) - (pure)) - - (any-bit-set? - (lambda ((integer? test-bits) (integer? i)) boolean?) - (pure)) - - (every-bit-set? - (lambda ((integer? test-bits) (integer? i)) boolean?) - (pure)) - - (first-set-bit - (lambda ((integer? i)) integer?) - (pure)) - - (bit-field - (lambda ((integer? i) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-any? - (lambda ((integer? i) (integer? start) (integer? end)) boolean?) - (pure)) - - (bit-field-every? - (lambda ((integer? i) (integer? start) (integer? end)) boolean?) - (pure)) - - (bit-field-clear - (lambda ((integer? i) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-set - (lambda ((integer? i) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-replace - (lambda ((integer? dest) (integer? source) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-replace-same - (lambda ((integer? dest) (integer? source) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-rotate - (lambda ((integer? i) (integer? count) (integer? start) (integer? end)) integer?) - (pure)) - - (bit-field-reverse - (lambda ((integer? i) (integer? start) (integer? end)) integer?) - (pure)) - - (bits->list - (lambda ((integer? i)) list?) - (pure)) - - (bits->list - (lambda ((integer? i) (integer? len)) list?) - (pure)) - - (bits->vector - (lambda ((integer? i)) vector?) - (pure)) - - (bits->vector - (lambda ((integer? i) (integer? len)) vector?) - (pure)) - - (list->bits - (lambda ((list? list)) integer?) - (pure)) - - (vector->bits - (lambda ((vector? vector)) integer?) - (pure)) - - (bits - (lambda ((boolean? bool) ...) integer?) - (pure)) - - (bitwise-fold - (lambda ((procedure? proc) seed (integer? i)) *) - (pure) - ((proc (lambda ((boolean? bit) state) *)))) - - (bitwise-for-each - (lambda ((procedure? proc) (integer? i)) undefined) - () - ((proc (lambda ((boolean? bit)) undefined)))) - - (bitwise-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) integer?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) boolean?)) - (successor (lambda (seed) *)))) - - (make-bitwise-generator - (lambda ((integer? i)) procedure?) - () - ((return (lambda () boolean?)))) - ) +(((name . bitwise-not) (signature lambda ((integer? i)) integer?) (tags pure)) + ((name . bitwise-and) + (signature lambda ((integer? i) ...) integer?) + (tags pure)) + ((name . bitwise-ior) + (signature lambda ((integer? i) ...) integer?) + (tags pure)) + ((name . bitwise-xor) + (signature lambda ((integer? i) ...) integer?) + (tags pure)) + ((name . bitwise-eqv) + (signature lambda ((integer? i) ...) integer?) + (tags pure)) + ((name . bitwise-nand) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bitwise-nor) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bitwise-andc1) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bitwise-andc2) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bitwise-orc1) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bitwise-orc2) + (signature lambda ((integer? i) (integer? j)) integer?) + (tags pure)) + ((name . arithmetic-shift) + (signature lambda ((integer? i) (integer? count)) integer?) + (tags pure)) + ((name . bit-count) (signature lambda ((integer? i)) integer?) (tags pure)) + ((name . integer-length) + (signature lambda ((integer? i)) integer?) + (tags pure)) + ((name . bitwise-if) + (signature lambda ((integer? mask) (integer? i) (integer? j)) integer?) + (tags pure)) + ((name . bit-set?) + (signature lambda ((integer? index) (integer? i)) boolean?) + (tags pure)) + ((name . copy-bit) + (signature + lambda + ((integer? index) (integer? i) (boolean? boolean)) + integer?) + (tags pure)) + ((name . bit-swap) + (signature + lambda + ((integer? index1) (integer? index2) (integer? i)) + integer?) + (tags pure)) + ((name . any-bit-set?) + (signature lambda ((integer? test-bits) (integer? i)) boolean?) + (tags pure)) + ((name . every-bit-set?) + (signature lambda ((integer? test-bits) (integer? i)) boolean?) + (tags pure)) + ((name . first-set-bit) + (signature lambda ((integer? i)) integer?) + (tags pure)) + ((name . bit-field) + (signature lambda ((integer? i) (integer? start) (integer? end)) integer?) + (tags pure)) + ((name . bit-field-any?) + (signature lambda ((integer? i) (integer? start) (integer? end)) boolean?) + (tags pure)) + ((name . bit-field-every?) + (signature lambda ((integer? i) (integer? start) (integer? end)) boolean?) + (tags pure)) + ((name . bit-field-clear) + (signature lambda ((integer? i) (integer? start) (integer? end)) integer?) + (tags pure)) + ((name . bit-field-set) + (signature lambda ((integer? i) (integer? start) (integer? end)) integer?) + (tags pure)) + ((name . bit-field-replace) + (signature + lambda + ((integer? dest) (integer? source) (integer? start) (integer? end)) + integer?) + (tags pure)) + ((name . bit-field-replace-same) + (signature + lambda + ((integer? dest) (integer? source) (integer? start) (integer? end)) + integer?) + (tags pure)) + ((name . bit-field-rotate) + (signature + lambda + ((integer? i) (integer? count) (integer? start) (integer? end)) + integer?) + (tags pure)) + ((name . bit-field-reverse) + (signature lambda ((integer? i) (integer? start) (integer? end)) integer?) + (tags pure)) + ((name . bits->list) (signature lambda ((integer? i)) list?) (tags pure)) + ((name . bits->list) + (signature lambda ((integer? i) (integer? len)) list?) + (tags pure)) + ((name . bits->vector) (signature lambda ((integer? i)) vector?) (tags pure)) + ((name . bits->vector) + (signature lambda ((integer? i) (integer? len)) vector?) + (tags pure)) + ((name . list->bits) (signature lambda ((list? list)) integer?) (tags pure)) + ((name . vector->bits) + (signature lambda ((vector? vector)) integer?) + (tags pure)) + ((name . bits) (signature lambda ((boolean? bool) ...) integer?) (tags pure)) + ((name . bitwise-fold) + (signature lambda ((procedure? proc) seed (integer? i)) *) + (tags pure) + (subsigs (proc (lambda ((boolean? bit) state) *)))) + ((name . bitwise-for-each) + (signature lambda ((procedure? proc) (integer? i)) undefined) + (subsigs (proc (lambda ((boolean? bit)) undefined)))) + ((name . bitwise-unfold) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + integer?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) boolean?)) + (successor (lambda (seed) *)))) + ((name . make-bitwise-generator) + (signature lambda ((integer? i)) procedure?) + (subsigs (return (lambda () boolean?))))) diff --git a/types/scheme.box.scm b/types/scheme.box.scm index ffc9811..bdfe669 100644 --- a/types/scheme.box.scm +++ b/types/scheme.box.scm @@ -1,19 +1,4 @@ -( - - (box - (lambda (value) box?) - (pure)) - - (box? - (lambda (object) boolean?) - (pure predicate)) - - (unbox - (lambda ((box? box)) *) - (pure)) - - (set-box! - (lambda ((box? box) value) undefined) - ()) - - ) +(((name . box) (signature lambda (value) box?) (tags pure)) + ((name . box?) (signature lambda (object) boolean?) (tags pure predicate)) + ((name . unbox) (signature lambda ((box? box)) *) (tags pure)) + ((name . set-box!) (signature lambda ((box? box) value) undefined))) diff --git a/types/scheme.bytevector.scm b/types/scheme.bytevector.scm index c215bc2..2fda3f3 100644 --- a/types/scheme.bytevector.scm +++ b/types/scheme.bytevector.scm @@ -1,264 +1,354 @@ -( - - (endianness - (syntax-rules () - ((_ endianness-symbol)))) - - (native-endianness - (lambda () symbol?)) - - (bytevector? - (lambda (obj) boolean?) - (pure predicate)) - - (make-bytevector - (lambda ((integer? k)) bytevector?) - ()) - - (make-bytevector - (lambda ((integer? k) (integer? byte)) bytevector?) - (pure)) - - (bytevector-length - (lambda ((bytevector? bytevector)) integer?) - (pure)) - - (bytevector=? - (lambda ((bytevector? bytevector1) (bytevector? bytevector2)) boolean?) - (pure)) - - (bytevector-fill! - (lambda ((bytevector? bytevector) (integer? k)) undefined) - ()) - - (bytevector-copy! - (lambda ((bytevector? source) (integer? source-start) (bytevector? target) (integer? target-start) (integer? k)) undefined) - ()) - - (bytevector-copy - (lambda ((bytevector? bytevector)) bytevector?) - (pure)) - - (bytevector-u8-ref - (lambda ((bytevector? bytevector) (integer? k)) integer?) - (pure)) - - (bytevector-s8-ref - (lambda ((bytevector? bytevector) (integer? k)) integer?) - (pure)) - - (bytevector-u8-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? octet)) undefined)) - - (bytevector-s8-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? byte)) undefined)) - - (bytevector->u8-list - (lambda ((bytevector? bytevector)) list?) - (pure)) - - (u8-list->bytevector - (lambda ((list? list)) bytevector?) - (pure)) - - (bytevector-uint-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-sint-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-uint-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-sint-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector->uint-list - (lambda ((bytevector? bytevector) (symbol? endianness) (integer? size)) list?) - (pure)) - - (bytevector->sint-list - (lambda ((bytevector? bytevector) (symbol? endianness) (integer? size)) list?) - (pure)) - - (uint-list->bytevector - (lambda ((list? list) (symbol? endianness) (integer? size)) bytevector?) - (pure)) - - (sint-list->bytevector - (lambda ((list? list) (symbol? endianness) (integer? size)) bytevector?) - (pure)) - - (bytevector-u16-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-s16-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-u16-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-s16-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-u16-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-s16-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-u16-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-s16-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-u32-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-s32-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-u32-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-s32-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-u32-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-s32-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-u32-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-s32-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-u64-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-s64-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) integer?) - (pure)) - - (bytevector-u64-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-s64-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) integer?) - (pure)) - - (bytevector-u64-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-s64-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-u64-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-s64-native-set! - (lambda ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) undefined) - ()) - - (bytevector-ieee-single-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) real?) - (pure)) - - (bytevector-ieee-double-ref - (lambda ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) real?) - (pure)) - - (bytevector-ieee-single-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) real?) - (pure)) - - (bytevector-ieee-double-native-ref - (lambda ((bytevector? bytevector) (integer? k) (integer? size)) real?) - (pure)) - - (bytevector-ieee-single-set! - (lambda ((bytevector? bytevector) (integer? k) (real? x) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-ieee-double-set! - (lambda ((bytevector? bytevector) (integer? k) (real? x) (symbol? endianness) (integer? size)) undefined) - ()) - - (bytevector-ieee-single-native-set! - (lambda ((bytevector? bytevector) (integer? k) (real? x) (integer? size)) undefined) - ()) - - (bytevector-ieee-double-native-set! - (lambda ((bytevector? bytevector) (integer? k) (real? x) (integer? size)) undefined) - ()) - - (string->utf8 - (lambda ((string? string)) bytevector?) - (pure)) - - (string->utf16 - (lambda ((string? string)) bytevector?) - (pure)) - - (string->utf16 - (lambda ((string? string) (symbol? endianness)) bytevector?) - (pure)) - - (string->utf32 - (lambda ((string? string)) bytevector?) - (pure)) - - (string->utf32 - (lambda ((string? string) (symbol? endianness)) bytevector?) - (pure)) - - (utf8->string - (lambda ((bytevector? bytevector)) string?) - (pure)) - - (utf16->string - (lambda ((bytevector? bytevector) (symbol? endianness)) string?) - (pure)) - - (utf16->string - (lambda ((bytevector? bytevector) (symbol? endianness) (boolean? endianness-mandatory?)) string?) - (pure)) - - (utf32->string - (lambda ((bytevector? bytevector) (symbol? endianness)) string?) - (pure)) - - (utf32->string - (lambda ((bytevector? bytevector) (symbol? endianness) (boolean? endianness-mandatory?)) string?) - (pure)) - - ) +(((name . endianness) (signature syntax-rules () ((_ endianness-symbol)))) + ((name . native-endianness) (signature lambda () symbol?)) + ((name . bytevector?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . make-bytevector) (signature lambda ((integer? k)) bytevector?)) + ((name . make-bytevector) + (signature lambda ((integer? k) (integer? byte)) bytevector?) + (tags pure)) + ((name . bytevector-length) + (signature lambda ((bytevector? bytevector)) integer?) + (tags pure)) + ((name . bytevector=?) + (signature + lambda + ((bytevector? bytevector1) (bytevector? bytevector2)) + boolean?) + (tags pure)) + ((name . bytevector-fill!) + (signature lambda ((bytevector? bytevector) (integer? k)) undefined)) + ((name . bytevector-copy!) + (signature + lambda + ((bytevector? source) + (integer? source-start) + (bytevector? target) + (integer? target-start) + (integer? k)) + undefined)) + ((name . bytevector-copy) + (signature lambda ((bytevector? bytevector)) bytevector?) + (tags pure)) + ((name . bytevector-u8-ref) + (signature lambda ((bytevector? bytevector) (integer? k)) integer?) + (tags pure)) + ((name . bytevector-s8-ref) + (signature lambda ((bytevector? bytevector) (integer? k)) integer?) + (tags pure)) + ((name . bytevector-u8-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? octet)) + undefined)) + ((name . bytevector-s8-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? byte)) + undefined)) + ((name . bytevector->u8-list) + (signature lambda ((bytevector? bytevector)) list?) + (tags pure)) + ((name . u8-list->bytevector) + (signature lambda ((list? list)) bytevector?) + (tags pure)) + ((name . bytevector-uint-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-sint-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-uint-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-sint-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector->uint-list) + (signature + lambda + ((bytevector? bytevector) (symbol? endianness) (integer? size)) + list?) + (tags pure)) + ((name . bytevector->sint-list) + (signature + lambda + ((bytevector? bytevector) (symbol? endianness) (integer? size)) + list?) + (tags pure)) + ((name . uint-list->bytevector) + (signature + lambda + ((list? list) (symbol? endianness) (integer? size)) + bytevector?) + (tags pure)) + ((name . sint-list->bytevector) + (signature + lambda + ((list? list) (symbol? endianness) (integer? size)) + bytevector?) + (tags pure)) + ((name . bytevector-u16-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s16-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u16-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s16-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u16-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-s16-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-u16-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-s16-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-u32-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s32-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u32-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s32-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u32-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-s32-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-u32-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-s32-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-u64-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s64-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u64-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-s64-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + integer?) + (tags pure)) + ((name . bytevector-u64-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-s64-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (integer? n) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-u64-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-s64-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? n) (integer? size)) + undefined)) + ((name . bytevector-ieee-single-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + real?) + (tags pure)) + ((name . bytevector-ieee-double-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (symbol? endianness) (integer? size)) + real?) + (tags pure)) + ((name . bytevector-ieee-single-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + real?) + (tags pure)) + ((name . bytevector-ieee-double-native-ref) + (signature + lambda + ((bytevector? bytevector) (integer? k) (integer? size)) + real?) + (tags pure)) + ((name . bytevector-ieee-single-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (real? x) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-ieee-double-set!) + (signature + lambda + ((bytevector? bytevector) + (integer? k) + (real? x) + (symbol? endianness) + (integer? size)) + undefined)) + ((name . bytevector-ieee-single-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (real? x) (integer? size)) + undefined)) + ((name . bytevector-ieee-double-native-set!) + (signature + lambda + ((bytevector? bytevector) (integer? k) (real? x) (integer? size)) + undefined)) + ((name . string->utf8) + (signature lambda ((string? string)) bytevector?) + (tags pure)) + ((name . string->utf16) + (signature lambda ((string? string)) bytevector?) + (tags pure)) + ((name . string->utf16) + (signature lambda ((string? string) (symbol? endianness)) bytevector?) + (tags pure)) + ((name . string->utf32) + (signature lambda ((string? string)) bytevector?) + (tags pure)) + ((name . string->utf32) + (signature lambda ((string? string) (symbol? endianness)) bytevector?) + (tags pure)) + ((name . utf8->string) + (signature lambda ((bytevector? bytevector)) string?) + (tags pure)) + ((name . utf16->string) + (signature lambda ((bytevector? bytevector) (symbol? endianness)) string?) + (tags pure)) + ((name . utf16->string) + (signature + lambda + ((bytevector? bytevector) + (symbol? endianness) + (boolean? endianness-mandatory?)) + string?) + (tags pure)) + ((name . utf32->string) + (signature lambda ((bytevector? bytevector) (symbol? endianness)) string?) + (tags pure)) + ((name . utf32->string) + (signature + lambda + ((bytevector? bytevector) + (symbol? endianness) + (boolean? endianness-mandatory?)) + string?) + (tags pure))) diff --git a/types/scheme.case-lambda.scm b/types/scheme.case-lambda.scm index 387c4b7..b737e71 100644 --- a/types/scheme.case-lambda.scm +++ b/types/scheme.case-lambda.scm @@ -1,10 +1,8 @@ -( - (case-lambda - (syntax-rules () - ((_ clause ...))) - () - ((clause (formals body)) - (formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - ) +(((name . case-lambda) + (signature syntax-rules () ((_ clause ...))) + (subsigs + (clause (formals body)) + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1))))) diff --git a/types/scheme.char.scm b/types/scheme.char.scm index 27cfd16..6b31160 100644 --- a/types/scheme.char.scm +++ b/types/scheme.char.scm @@ -1,88 +1,75 @@ -( - (char-alphabetic? - (lambda ((char? char)) boolean?) - (pure)) - - (char-ci<=? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char-ci=? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char-ci>? - (lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) - (pure)) - - (char-downcase - (lambda ((char? char)) char?) - (pure)) - - (char-foldcase - (lambda ((char? char)) char?) - (pure)) - - (char-lower-case? - (lambda ((char? char)) boolean?) - (pure)) - - (char-numeric? - (lambda ((char? char)) boolean?) - (pure)) - - (char-upcase - (lambda ((char? char)) char?) - (pure)) - - (char-upper-case? - (lambda ((char? char)) boolean?) - (pure)) - (char-whitespace? - (lambda ((char? char)) boolean?) - (pure)) - - (digit-value - (lambda ((char? char)) (or #f integer?)) - (pure)) - - (string-ci<=? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string-ci=? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string-ci>? - (lambda ((string? string1) (string? string2) (string? string3) ...) boolean?) - (pure)) - - (string-downcase - (lambda ((string? string)) string?) - (pure)) - - (string-foldcase - (lambda ((string? string)) string?) - (pure)) - - (string-upcase - (lambda ((string? string)) string?) - (pure)) - ) +(((name . char-alphabetic?) + (signature lambda ((char? char)) boolean?) + (tags pure)) + ((name . char-ci<=?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char-ci=?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char-ci>?) + (signature lambda ((char? char1) (char? char2) (char? char3) ...) boolean?) + (tags pure)) + ((name . char-downcase) (signature lambda ((char? char)) char?) (tags pure)) + ((name . char-foldcase) (signature lambda ((char? char)) char?) (tags pure)) + ((name . char-lower-case?) + (signature lambda ((char? char)) boolean?) + (tags pure)) + ((name . char-numeric?) + (signature lambda ((char? char)) boolean?) + (tags pure)) + ((name . char-upcase) (signature lambda ((char? char)) char?) (tags pure)) + ((name . char-upper-case?) + (signature lambda ((char? char)) boolean?) + (tags pure)) + ((name . char-whitespace?) + (signature lambda ((char? char)) boolean?) + (tags pure)) + ((name . digit-value) + (signature lambda ((char? char)) (or #f integer?)) + (tags pure)) + ((name . string-ci<=?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string-ci=?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string-ci>?) + (signature + lambda + ((string? string1) (string? string2) (string? string3) ...) + boolean?) + (tags pure)) + ((name . string-downcase) + (signature lambda ((string? string)) string?) + (tags pure)) + ((name . string-foldcase) + (signature lambda ((string? string)) string?) + (tags pure)) + ((name . string-upcase) + (signature lambda ((string? string)) string?) + (tags pure))) diff --git a/types/scheme.charset.scm b/types/scheme.charset.scm index 3759e6a..4dbe64c 100644 --- a/types/scheme.charset.scm +++ b/types/scheme.charset.scm @@ -1,289 +1,201 @@ -( - - (char-set? - (lambda (obj) boolean?) - (pure predicate)) - - (char-set= - (lambda ((char-set? cs1) ...) boolean?) - (pure)) - - (char-set<= - (lambda ((char-set? cs1) ...) boolean?) - (pure)) - - (char-set-hash - (lambda ((char-set? cs)) integer?) - (pure)) - - (char-set-hash - (lambda ((char-set? cs) (integer? bound)) integer?) - (pure)) - - (char-set-cursor - (lambda ((char-set? cset)) *)) - - (char-set-ref - (lambda ((char-set? cset) cursor) char?)) - - (char-set-cursor-next - (lambda ((char-set? cset) cursor) *)) - - (end-of-char-set? - (lambda (cursor) boolean?)) - - (char-set-fold - (lambda ((procedure? kons) knil (char-set? cs)) *) - (pure) - ((kons (lambda ((char? c) state) *)))) - - (char-set-unfold - (lambda ((procedure? f) (procedure? p) (procedure? g) seed) char-set?) - (pure) - ((f (lambda (seed) char?)) - (p (lambda (seed) boolean?)) - (g (lambda (seed) *)))) - - (char-set-unfold - (lambda ((procedure? f) (procedure? p) (procedure? g) seed (char-set? base-cs)) char-set?) - (pure) - ((f (lambda (seed) char?)) - (p (lambda (seed) boolean?)) - (g (lambda (seed) *)))) - - (char-set-unfold! - (lambda ((procedure? f) (procedure? p) (procedure? g) seed (char-set? base-cs)) char-set?) - (pure) - ((f (lambda (seed) char?)) - (p (lambda (seed) boolean?)) - (g (lambda (seed) *)))) - - (char-set-for-each - (lambda ((procedure? proc) (char-set? cs)) undefined) - () - ((proc (lambda ((char? c)) undefined)))) - - (char-set-map - (lambda ((procedure? proc) (char-set? cs)) char-set?) - (pure) - ((proc (lambda ((char? c)) char?)))) - - (char-set-copy - (lambda ((char-set? cs)) char-set?) - (pure)) - - (char-set - (lambda ((char? char1) ...) char-set?) - (pure)) - - (list->char-set - (lambda ((list? char-list)) char-set?) - (pure)) - - (list->char-set - (lambda ((list? char-list) (char-set? base-cs)) char-set?) - (pure)) - - (list->char-set! - (lambda ((list? char-list) (char-set? base-cs)) char-set?) - ()) - - (string->char-set - (lambda ((string? s)) char-set?) - (pure)) - - (string->char-set - (lambda ((string? s) (char-set? base-cs)) char-set?) - (pure)) - - (string->char-set! - (lambda ((string? s) (char-set? base-cs)) char-set?) - ()) - - (char-set-filter - (lambda ((procedure? pred) (char-set? cs)) char-set?) - (pure) - ((pred (lambda ((char? c)) boolean?)))) - - (char-set-filter - (lambda ((procedure? pred) (char-set? cs) (char-set? base-cs)) char-set?) - (pure) - ((pred (lambda ((char? c)) boolean?)))) - - (char-set-filter! - (lambda ((procedure? pred) (char-set? cs) (char-set? base-cs)) char-set?) - () - ((pred (lambda ((char? c)) boolean?)))) - - (ucs-range->char-set - (lambda ((integer? lower) (integer? upper)) char-set?) - (pure)) - - (ucs-range->char-set - (lambda ((integer? lower) (integer? upper) (boolean? error?)) char-set?) - (pure)) - - (ucs-range->char-set - (lambda ((integer? lower) (integer? upper) (boolean? error?) (char-set? base-cs)) char-set?) - (pure)) - - (ucs-range->char-set! - (lambda ((integer? lower) (integer? upper) (boolean? error?) (char-set? base-cs)) char-set?) - ()) - - (|->char-set| - (lambda ((string? x)) char-set?) - (pure)) - - (|->char-set| - (lambda ((char? x)) char-set?) - (pure)) - - (|->char-set| - (lambda ((char-set? x)) char-set?) - (pure)) - - (char-set-size - (lambda ((char-set? cs)) integer?) - (pure)) - - (char-set-count - (lambda ((procedure? pred) (char-set? cs)) integer?) - (pure) - ((pred (lambda ((char? c)) boolean?)))) - - (char-set->list - (lambda ((char-set? cs)) list?)) - - (char-set->string - (lambda ((char-set? cs)) string?)) - - (char-set-contains? - (lambda ((char-set? cs) (char? char)) boolean?)) - - (char-set-every - (lambda ((procedure? pred) (char-set? cs)) boolean?) - (pure) - ((pred (lambda ((char? c)) boolean?)))) - - (char-set-any - (lambda ((procedure? pred) (char-set? cs)) boolean?) - (pure) - ((pred (lambda ((char? c)) boolean?)))) - - (char-set-adjoin - (lambda ((char-set? cs) (char? char1) ...) char-set?) - (pure)) - - (char-set-delete - (lambda ((char-set? cs) (char? char1) ...) char-set?) - (pure)) - - (char-set-adjoin! - (lambda ((char-set? cs) (char? char1) ...) char-set?) - ()) - - (char-set-delete! - (lambda ((char-set? cs) (char? char1) ...) char-set?) - ()) - - (char-set-complement - (lambda ((char-set? cs)) char-set?) - (pure)) - - (char-set-union - (lambda ((char-set? cs1) ...) char-set?) - (pure)) - - (char-set-intersection - (lambda ((char-set? cs1) ...) char-set?) - (pure)) - - (char-set-difference - (lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) - (pure)) - - (char-set-xor - (lambda ((char-set? cs1) ...) char-set?) - (pure)) - - (char-set-diff+intersection - (lambda ((char-set? cs1) (char-set? cs2) ...) (values char-set? char-set?)) - (pure)) - - (char-set-complement! - (lambda ((char-set? cs)) char-set?) - ()) - - (char-set-union - (lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) - ()) - - (char-set-intersection! - (lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) - ()) - - (char-set-difference! - (lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) - ()) - - (char-set-xor! - (lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) - ()) - - (char-set-diff+intersection! - (lambda ((char-set? cs1) (char-set? cs2) (char-set? cs3) ...) (values char-set? char-set?)) - ()) - - (|char-set:lower-case| - (value char-set?)) - - (|char-set:upper-case| - (value char-set?)) - - (|char-set:title-case| - (value char-set?)) - - (|char-set:letter| - (value char-set?)) - - (|char-set:digit| - (value char-set?)) - - (|char-set:letter+digit| - (value char-set?)) - - (|char-set:graphic| - (value char-set?)) - - (|char-set:printing| - (value char-set?)) - - (|char-set:whitespace| - (value char-set?)) - - (|char-set:iso-control| - (value char-set?)) - - (|char-set:punctuation| - (value char-set?)) - - (|char-set:symbol| - (value char-set?)) - - (|char-set:hex-digit| - (value char-set?)) - - (|char-set:blank| - (value char-set?)) - - (|char-set:ascii| - (value char-set?)) - - (|char-set:empty| - (value char-set?)) - - (|char-set:full| - (value char-set?)) - - ) +(((name . char-set?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . char-set=) + (signature lambda ((char-set? cs1) ...) boolean?) + (tags pure)) + ((name . char-set<=) + (signature lambda ((char-set? cs1) ...) boolean?) + (tags pure)) + ((name . char-set-hash) + (signature lambda ((char-set? cs)) integer?) + (tags pure)) + ((name . char-set-hash) + (signature lambda ((char-set? cs) (integer? bound)) integer?) + (tags pure)) + ((name . char-set-cursor) (signature lambda ((char-set? cset)) *)) + ((name . char-set-ref) (signature lambda ((char-set? cset) cursor) char?)) + ((name . char-set-cursor-next) (signature lambda ((char-set? cset) cursor) *)) + ((name . end-of-char-set?) (signature lambda (cursor) boolean?)) + ((name . char-set-fold) + (signature lambda ((procedure? kons) knil (char-set? cs)) *) + (tags pure) + (subsigs (kons (lambda ((char? c) state) *)))) + ((name . char-set-unfold) + (signature + lambda + ((procedure? f) (procedure? p) (procedure? g) seed) + char-set?) + (tags pure) + (subsigs + (f (lambda (seed) char?)) + (p (lambda (seed) boolean?)) + (g (lambda (seed) *)))) + ((name . char-set-unfold) + (signature + lambda + ((procedure? f) (procedure? p) (procedure? g) seed (char-set? base-cs)) + char-set?) + (tags pure) + (subsigs + (f (lambda (seed) char?)) + (p (lambda (seed) boolean?)) + (g (lambda (seed) *)))) + ((name . char-set-unfold!) + (signature + lambda + ((procedure? f) (procedure? p) (procedure? g) seed (char-set? base-cs)) + char-set?) + (tags pure) + (subsigs + (f (lambda (seed) char?)) + (p (lambda (seed) boolean?)) + (g (lambda (seed) *)))) + ((name . char-set-for-each) + (signature lambda ((procedure? proc) (char-set? cs)) undefined) + (subsigs (proc (lambda ((char? c)) undefined)))) + ((name . char-set-map) + (signature lambda ((procedure? proc) (char-set? cs)) char-set?) + (tags pure) + (subsigs (proc (lambda ((char? c)) char?)))) + ((name . char-set-copy) + (signature lambda ((char-set? cs)) char-set?) + (tags pure)) + ((name . char-set) + (signature lambda ((char? char1) ...) char-set?) + (tags pure)) + ((name . list->char-set) + (signature lambda ((list? char-list)) char-set?) + (tags pure)) + ((name . list->char-set) + (signature lambda ((list? char-list) (char-set? base-cs)) char-set?) + (tags pure)) + ((name . list->char-set!) + (signature lambda ((list? char-list) (char-set? base-cs)) char-set?)) + ((name . string->char-set) + (signature lambda ((string? s)) char-set?) + (tags pure)) + ((name . string->char-set) + (signature lambda ((string? s) (char-set? base-cs)) char-set?) + (tags pure)) + ((name . string->char-set!) + (signature lambda ((string? s) (char-set? base-cs)) char-set?)) + ((name . char-set-filter) + (signature lambda ((procedure? pred) (char-set? cs)) char-set?) + (tags pure) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . char-set-filter) + (signature + lambda + ((procedure? pred) (char-set? cs) (char-set? base-cs)) + char-set?) + (tags pure) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . char-set-filter!) + (signature + lambda + ((procedure? pred) (char-set? cs) (char-set? base-cs)) + char-set?) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . ucs-range->char-set) + (signature lambda ((integer? lower) (integer? upper)) char-set?) + (tags pure)) + ((name . ucs-range->char-set) + (signature + lambda + ((integer? lower) (integer? upper) (boolean? error?)) + char-set?) + (tags pure)) + ((name . ucs-range->char-set) + (signature + lambda + ((integer? lower) (integer? upper) (boolean? error?) (char-set? base-cs)) + char-set?) + (tags pure)) + ((name . ucs-range->char-set!) + (signature + lambda + ((integer? lower) (integer? upper) (boolean? error?) (char-set? base-cs)) + char-set?)) + ((name . ->char-set) (signature lambda ((string? x)) char-set?) (tags pure)) + ((name . ->char-set) (signature lambda ((char? x)) char-set?) (tags pure)) + ((name . ->char-set) (signature lambda ((char-set? x)) char-set?) (tags pure)) + ((name . char-set-size) + (signature lambda ((char-set? cs)) integer?) + (tags pure)) + ((name . char-set-count) + (signature lambda ((procedure? pred) (char-set? cs)) integer?) + (tags pure) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . char-set->list) (signature lambda ((char-set? cs)) list?)) + ((name . char-set->string) (signature lambda ((char-set? cs)) string?)) + ((name . char-set-contains?) + (signature lambda ((char-set? cs) (char? char)) boolean?)) + ((name . char-set-every) + (signature lambda ((procedure? pred) (char-set? cs)) boolean?) + (tags pure) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . char-set-any) + (signature lambda ((procedure? pred) (char-set? cs)) boolean?) + (tags pure) + (subsigs (pred (lambda ((char? c)) boolean?)))) + ((name . char-set-adjoin) + (signature lambda ((char-set? cs) (char? char1) ...) char-set?) + (tags pure)) + ((name . char-set-delete) + (signature lambda ((char-set? cs) (char? char1) ...) char-set?) + (tags pure)) + ((name . char-set-adjoin!) + (signature lambda ((char-set? cs) (char? char1) ...) char-set?)) + ((name . char-set-delete!) + (signature lambda ((char-set? cs) (char? char1) ...) char-set?)) + ((name . char-set-complement) + (signature lambda ((char-set? cs)) char-set?) + (tags pure)) + ((name . char-set-union) + (signature lambda ((char-set? cs1) ...) char-set?) + (tags pure)) + ((name . char-set-intersection) + (signature lambda ((char-set? cs1) ...) char-set?) + (tags pure)) + ((name . char-set-difference) + (signature lambda ((char-set? cs1) (char-set? cs2) ...) char-set?) + (tags pure)) + ((name . char-set-xor) + (signature lambda ((char-set? cs1) ...) char-set?) + (tags pure)) + ((name . char-set-diff+intersection) + (signature + lambda + ((char-set? cs1) (char-set? cs2) ...) + (values char-set? char-set?)) + (tags pure)) + ((name . char-set-complement!) (signature lambda ((char-set? cs)) char-set?)) + ((name . char-set-union) + (signature lambda ((char-set? cs1) (char-set? cs2) ...) char-set?)) + ((name . char-set-intersection!) + (signature lambda ((char-set? cs1) (char-set? cs2) ...) char-set?)) + ((name . char-set-difference!) + (signature lambda ((char-set? cs1) (char-set? cs2) ...) char-set?)) + ((name . char-set-xor!) + (signature lambda ((char-set? cs1) (char-set? cs2) ...) char-set?)) + ((name . char-set-diff+intersection!) + (signature + lambda + ((char-set? cs1) (char-set? cs2) (char-set? cs3) ...) + (values char-set? char-set?))) + ((name . |char-set:lower-case|) (signature value char-set?)) + ((name . |char-set:upper-case|) (signature value char-set?)) + ((name . |char-set:title-case|) (signature value char-set?)) + ((name . |char-set:letter|) (signature value char-set?)) + ((name . |char-set:digit|) (signature value char-set?)) + ((name . |char-set:letter+digit|) (signature value char-set?)) + ((name . |char-set:graphic|) (signature value char-set?)) + ((name . |char-set:printing|) (signature value char-set?)) + ((name . |char-set:whitespace|) (signature value char-set?)) + ((name . |char-set:iso-control|) (signature value char-set?)) + ((name . |char-set:punctuation|) (signature value char-set?)) + ((name . |char-set:symbol|) (signature value char-set?)) + ((name . |char-set:hex-digit|) (signature value char-set?)) + ((name . |char-set:blank|) (signature value char-set?)) + ((name . |char-set:ascii|) (signature value char-set?)) + ((name . |char-set:empty|) (signature value char-set?)) + ((name . |char-set:full|) (signature value char-set?))) diff --git a/types/scheme.comparator.scm b/types/scheme.comparator.scm index 3532845..4858ca3 100644 --- a/types/scheme.comparator.scm +++ b/types/scheme.comparator.scm @@ -1,158 +1,131 @@ -( - - (comparator? - (lambda (obj) boolean?) - (pure predicate)) - - (comparator-ordered? - (lambda ((comparator? comparator)) boolean?) - (pure)) - - (comparatory-hashable? - (lambda ((comparator? comparator)) boolean?) - (pure)) - - (make-comparator - (lambda ((procedure? type-test) (procedure? equality) ((or procedure? #f) ordering) ((or procedure? #f) hash)) comparator?) - (pure) - ((type-test (lambda (obj) boolean?)) - (equality (lambda (obj1 obj2) boolean?)) - (ordering (lambda (obj1 obj2) boolean?)) - (hash (lambda (obj) integer?)))) - - (make-pair-comparator - (lambda ((comparator? car-comparator) (comparator? cdr-comparator)) comparator?) - (pure)) - - (make-list-comparator - (lambda ((comparator? element-comparator) (procedure? type-test) (procedure? empty?) (procedure? head) (procedure? tail)) comparator?) - (pure) - ((type-test (lambda (obj) boolean?)) - (empty? (lambda (obj) boolean?)) - (head (lambda (obj) *)) - (tail (lambda (obj) *)))) - - (make-vector-comparator - (lambda ((comparator? element-comparator) (procedure? type-test) (procedure? length) (procedure? ref)) comparator?) - (pure) - ((type-test (lambda (obj) boolean?)) - (length (lambda (obj) integer?)) - (ref (lambda (vec (integer? index)) *)))) - - (make-eq-comparator - (lambda () comparator?) - (pure)) - - (make-eqv-comparator - (lambda () comparator?) - (pure)) - - (make-equal-comparator - (lambda () comparator?) - (pure)) - - (boolean-hash - (lambda (obj) integer?) - (pure)) - - (char-hash - (lambda (obj) integer?) - (pure)) - - (char-ci-hash - (lambda (obj) integer?) - (pure)) - - (string-hash - (lambda (obj) integer?) - (pure)) - - (string-ci-hash - (lambda (obj) integer?) - (pure)) - - (symbol-hash - (lambda (obj) integer?) - (pure)) - - (number-hash - (lambda (obj) integer?) - (pure)) - - (hash-bound - (lambda () integer?) - (syntax)) - - (hash-salt - (lambda () integer?) - (syntax)) - - (make-default-comparator - (lambda () comparator?) - ()) - - (default-hash - (lambda (obj) integer?) - ()) - - (comparator-register-default! - (lambda ((comparator? comparator)) undefined)) - - (comparator-type-test-predicate - (lambda ((comparator? comparator)) procedure?) - (pure) - ((return (lambda (obj) boolean?)))) - - (comparator-equality-predicate - (lambda ((comparator? comparator)) procedure?) - (pure) - ((return (lambda (obj1 obj2) boolean?)))) - - (comparator-ordering-predicate - (lambda ((comparator? comparator)) (or #f procedure?)) - (pure) - ((return (lambda (obj1 obj2) boolean?)))) - - (comparator-hash-function - (lambda ((comparator? comparator)) (or #f procedure?)) - (pure) - ((return (lambda (obj) integer?)))) - - (comparator-test-type - (lambda ((comparator? comparator) obj) boolean?) - (pure)) - - (comparator-check-type - (lambda ((comparator? comparator) obj) boolean?) - ()) - - (comparator-hash - (lambda ((comparator? comparator) obj) integer?) - (pure)) - - (=? - (lambda ((comparator? comparator) object1 object2 object3 ...) boolean?) - (pure)) - - (? - (lambda ((comparator? comparator) object1 object2 object3 ...) boolean?) - (pure)) - - (<=? - (lambda ((comparator? comparator) object1 object2 object3 ...) boolean?) - (pure)) - - (>=? - (lambda ((comparator? comparator) object1 object2 object3 ...) boolean?) - (pure)) - - (comparator-if<=> - (syntax-rules () - ((_ comparator object1 object2 less-than equal-to greater-than)) - ((_ object1 object2 less-than equal-to greater-than)))) - - ) +(((name . comparator?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . comparator-ordered?) + (signature lambda ((comparator? comparator)) boolean?) + (tags pure)) + ((name . comparatory-hashable?) + (signature lambda ((comparator? comparator)) boolean?) + (tags pure)) + ((name . make-comparator) + (signature + lambda + ((procedure? type-test) + (procedure? equality) + ((or procedure? #f) ordering) + ((or procedure? #f) hash)) + comparator?) + (tags pure) + (subsigs + (type-test (lambda (obj) boolean?)) + (equality (lambda (obj1 obj2) boolean?)) + (ordering (lambda (obj1 obj2) boolean?)) + (hash (lambda (obj) integer?)))) + ((name . make-pair-comparator) + (signature + lambda + ((comparator? car-comparator) (comparator? cdr-comparator)) + comparator?) + (tags pure)) + ((name . make-list-comparator) + (signature + lambda + ((comparator? element-comparator) + (procedure? type-test) + (procedure? empty?) + (procedure? head) + (procedure? tail)) + comparator?) + (tags pure) + (subsigs + (type-test (lambda (obj) boolean?)) + (empty? (lambda (obj) boolean?)) + (head (lambda (obj) *)) + (tail (lambda (obj) *)))) + ((name . make-vector-comparator) + (signature + lambda + ((comparator? element-comparator) + (procedure? type-test) + (procedure? length) + (procedure? ref)) + comparator?) + (tags pure) + (subsigs + (type-test (lambda (obj) boolean?)) + (length (lambda (obj) integer?)) + (ref (lambda (vec (integer? index)) *)))) + ((name . make-eq-comparator) (signature lambda () comparator?) (tags pure)) + ((name . make-eqv-comparator) (signature lambda () comparator?) (tags pure)) + ((name . make-equal-comparator) (signature lambda () comparator?) (tags pure)) + ((name . boolean-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . char-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . char-ci-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . string-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . string-ci-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . symbol-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . number-hash) (signature lambda (obj) integer?) (tags pure)) + ((name . hash-bound) (signature syntax-rules () ((_) integer?)) (tags)) + ((name . hash-salt) (signature syntax-rules () ((_) integer?)) (tags)) + ((name . make-default-comparator) (signature lambda () comparator?)) + ((name . default-hash) (signature lambda (obj) integer?)) + ((name . comparator-register-default!) + (signature lambda ((comparator? comparator)) undefined)) + ((name . comparator-type-test-predicate) + (signature lambda ((comparator? comparator)) procedure?) + (tags pure) + (subsigs (return (lambda (obj) boolean?)))) + ((name . comparator-equality-predicate) + (signature lambda ((comparator? comparator)) procedure?) + (tags pure) + (subsigs (return (lambda (obj1 obj2) boolean?)))) + ((name . comparator-ordering-predicate) + (signature lambda ((comparator? comparator)) (or #f procedure?)) + (tags pure) + (subsigs (return (lambda (obj1 obj2) boolean?)))) + ((name . comparator-hash-function) + (signature lambda ((comparator? comparator)) (or #f procedure?)) + (tags pure) + (subsigs (return (lambda (obj) integer?)))) + ((name . comparator-test-type) + (signature lambda ((comparator? comparator) obj) boolean?) + (tags pure)) + ((name . comparator-check-type) + (signature lambda ((comparator? comparator) obj) boolean?)) + ((name . comparator-hash) + (signature lambda ((comparator? comparator) obj) integer?) + (tags pure)) + ((name . =?) + (signature + lambda + ((comparator? comparator) object1 object2 object3 ...) + boolean?) + (tags pure)) + ((name . ?) + (signature + lambda + ((comparator? comparator) object1 object2 object3 ...) + boolean?) + (tags pure)) + ((name . <=?) + (signature + lambda + ((comparator? comparator) object1 object2 object3 ...) + boolean?) + (tags pure)) + ((name . >=?) + (signature + lambda + ((comparator? comparator) object1 object2 object3 ...) + boolean?) + (tags pure)) + ((name . comparator-if<=>) + (signature + syntax-rules + () + ((_ comparator object1 object2 less-than equal-to greater-than)) + ((_ object1 object2 less-than equal-to greater-than))))) diff --git a/types/scheme.complex.scm b/types/scheme.complex.scm index 6f2e8a2..e5194f7 100644 --- a/types/scheme.complex.scm +++ b/types/scheme.complex.scm @@ -1,26 +1,10 @@ -( - (angle - (lambda ((complex? z)) real?) - (pure)) - - (imag-part - (lambda ((complex? z)) real?) - (pure)) - - (magnitude - (lambda ((complex? z)) real?) - (pure)) - - (make-polar - (lambda ((real? x3) (real? x4)) complex?) - (pure)) - - (make-rectangular - (lambda ((real? x1) (real? x2)) complex?) - (pure)) - - (real-part - (lambda ((complex? z)) real?) - (pure)) - - ) +(((name . angle) (signature lambda ((complex? z)) real?) (tags pure)) + ((name . imag-part) (signature lambda ((complex? z)) real?) (tags pure)) + ((name . magnitude) (signature lambda ((complex? z)) real?) (tags pure)) + ((name . make-polar) + (signature lambda ((real? x3) (real? x4)) complex?) + (tags pure)) + ((name . make-rectangular) + (signature lambda ((real? x1) (real? x2)) complex?) + (tags pure)) + ((name . real-part) (signature lambda ((complex? z)) real?) (tags pure))) diff --git a/types/scheme.cxr.scm b/types/scheme.cxr.scm index 83e4b7e..8b48fe5 100644 --- a/types/scheme.cxr.scm +++ b/types/scheme.cxr.scm @@ -1,97 +1,24 @@ -( - (caaaar - (lambda ((pair? pair)) *) - (pure)) - - (caaadr - (lambda ((pair? pair)) *) - (pure)) - - (caaar - (lambda ((pair? pair)) *) - (pure)) - - (caadar - (lambda ((pair? pair)) *) - (pure)) - - (caaddr - (lambda ((pair? pair)) *) - (pure)) - - (caadr - (lambda ((pair? pair)) *) - (pure)) - - (cadaar - (lambda ((pair? pair)) *) - (pure)) - - (cadadr - (lambda ((pair? pair)) *) - (pure)) - - (cadar - (lambda ((pair? pair)) *) - (pure)) - - (caddar - (lambda ((pair? pair)) *) - (pure)) - - (cadddr - (lambda ((pair? pair)) *) - (pure)) - - (caddr - (lambda ((pair? pair)) *) - (pure)) - - (cdaaar - (lambda ((pair? pair)) *) - (pure)) - - (cdaadr - (lambda ((pair? pair)) *) - (pure)) - - (cdaar - (lambda ((pair? pair)) *) - (pure)) - - (cdadar - (lambda ((pair? pair)) *) - (pure)) - - (cdaddr - (lambda ((pair? pair)) *) - (pure)) - - (cdadr - (lambda ((pair? pair)) *) - (pure)) - - (cddaar - (lambda ((pair? pair)) *) - (pure)) - - (cddadr - (lambda ((pair? pair)) *) - (pure)) - - (cddar - (lambda ((pair? pair)) *) - (pure)) - - (cdddar - (lambda ((pair? pair)) *) - (pure)) - - (cddddr - (lambda ((pair? pair)) *) - (pure)) - - (cdddr - (lambda ((pair? pair)) *) - (pure)) - ) +(((name . caaaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdddr) (signature lambda ((pair? pair)) *) (tags pure))) diff --git a/types/scheme.division.scm b/types/scheme.division.scm index a946b22..032c1f2 100644 --- a/types/scheme.division.scm +++ b/types/scheme.division.scm @@ -1,74 +1,72 @@ -( - - (floor/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (floor-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (floor-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (ceiling/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (ceiling-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (ceiling-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (truncate/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (truncate-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (truncate-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (round/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (round-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (round-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (euclidean/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (euclidean-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (euclidean-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (balanced/ - (lambda ((integer? numerator) (integer? denominator)) (values integer? integer?)) - (pure)) - - (balanced-quotient - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - - (balanced-remainder - (lambda ((integer? numerator) (integer? denominator)) integer?) - (pure)) - ) +(((name . floor/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . floor-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . floor-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . ceiling/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . ceiling-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . ceiling-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . truncate/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . truncate-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . truncate-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . round/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . round-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . round-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . euclidean/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . euclidean-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . euclidean-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . balanced/) + (signature + lambda + ((integer? numerator) (integer? denominator)) + (values integer? integer?)) + (tags pure)) + ((name . balanced-quotient) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure)) + ((name . balanced-remainder) + (signature lambda ((integer? numerator) (integer? denominator)) integer?) + (tags pure))) diff --git a/types/scheme.ephemeron.scm b/types/scheme.ephemeron.scm index a3c2d0b..835f068 100644 --- a/types/scheme.ephemeron.scm +++ b/types/scheme.ephemeron.scm @@ -1,22 +1,9 @@ -( - - (ephemeron? - (lambda (object) boolean?) - (pure predicate)) - - (make-ephemeron - (lambda (key datum) ephemeron?)) - - (ephemeron-broken? - (lambda ((ephemeron? ephemeron)) boolean?)) - - (ephemeron-key - (lambda ((ephemeron? ephemeron)) *)) - - (ephemeron-datum - (lambda ((ephemeron? ephemeron)) *)) - - (reference-barrier - (lambda (key) *)) - - ) +(((name . ephemeron?) + (signature lambda (object) boolean?) + (tags pure predicate)) + ((name . make-ephemeron) (signature lambda (key datum) ephemeron?)) + ((name . ephemeron-broken?) + (signature lambda ((ephemeron? ephemeron)) boolean?)) + ((name . ephemeron-key) (signature lambda ((ephemeron? ephemeron)) *)) + ((name . ephemeron-datum) (signature lambda ((ephemeron? ephemeron)) *)) + ((name . reference-barrier) (signature lambda (key) *))) diff --git a/types/scheme.eval.scm b/types/scheme.eval.scm index 2e6697c..ee9deee 100644 --- a/types/scheme.eval.scm +++ b/types/scheme.eval.scm @@ -1,8 +1,2 @@ -( - (environment - (lambda ((list? list1) ...) *) - (pure)) - - (eval - (lambda (expr-or-def environment-specifier) *)) - ) +(((name . environment) (signature lambda ((list? list1) ...) *) (tags pure)) + ((name . eval) (signature lambda (expr-or-def environment-specifier) *))) diff --git a/types/scheme.file.scm b/types/scheme.file.scm index 1a461d8..0e58d8e 100644 --- a/types/scheme.file.scm +++ b/types/scheme.file.scm @@ -1,39 +1,22 @@ -( - (call-with-input-file - (lambda ((string? string) (procedure? proc)) *) - () - ((proc (lambda ((input-port? port)) *)))) - - (call-with-output-file - (lambda ((string? string) (procedure? proc)) *) - () - ((proc (lambda ((output-port? port)) *)))) - - (delete-file - (lambda ((string? filename)) undefined)) - - (file-exists? - (lambda ((string? filename)) boolean?)) - - (open-binary-input-file - (lambda ((string? string)) input-port?)) - - (open-binary-output-file - (lambda ((string? string)) output-port?)) - - (open-input-file - (lambda ((string? string)) input-port?)) - - (open-output-file - (lambda ((string? string)) output-port?)) - - (with-input-from-file - (lambda ((string? string) (procedure? thunk)) *) - (parameterized) - ((thunk (lambda () *)))) - - (with-output-to-file - (lambda ((string? string) (procedure? thunk)) *) - (parameterized) - ((thunk (lambda () *)))) - ) +(((name . call-with-input-file) + (signature lambda ((string? string) (procedure? proc)) *) + (subsigs (proc (lambda ((input-port? port)) *)))) + ((name . call-with-output-file) + (signature lambda ((string? string) (procedure? proc)) *) + (subsigs (proc (lambda ((output-port? port)) *)))) + ((name . delete-file) (signature lambda ((string? filename)) undefined)) + ((name . file-exists?) (signature lambda ((string? filename)) boolean?)) + ((name . open-binary-input-file) + (signature lambda ((string? string)) input-port?)) + ((name . open-binary-output-file) + (signature lambda ((string? string)) output-port?)) + ((name . open-input-file) (signature lambda ((string? string)) input-port?)) + ((name . open-output-file) (signature lambda ((string? string)) output-port?)) + ((name . with-input-from-file) + (signature lambda ((string? string) (procedure? thunk)) *) + (tags parameterized) + (subsigs (thunk (lambda () *)))) + ((name . with-output-to-file) + (signature lambda ((string? string) (procedure? thunk)) *) + (tags parameterized) + (subsigs (thunk (lambda () *))))) diff --git a/types/scheme.fixnum.scm b/types/scheme.fixnum.scm index eed1325..f6a68ae 100644 --- a/types/scheme.fixnum.scm +++ b/types/scheme.fixnum.scm @@ -1,177 +1,100 @@ -( - - (fx-width - (value integer?)) - - (fx-greatest - (value fixnum?)) - - (fx-least - (value fixnum?)) - - (fixnum? - (lambda (obj) boolean?) - (pure predicate) - () - (integer?)) - - (fx=? - (lambda ((fixnum? i) ...) boolean?) - (pure)) - - (fx? - (lambda ((fixnum? i) ...) boolean?) - (pure)) - - (fx<=? - (lambda ((fixnum? i) ...) boolean?) - (pure)) - - (fx>=? - (lambda ((fixnum? i) ...) boolean?) - (pure)) - - (fxzero? - (lambda ((fixnum? i)) boolean?) - (pure)) - - (fxpositive? - (lambda ((fixnum? i)) boolean?) - (pure)) - - (fxnegative? - (lambda ((fixnum? i)) boolean?) - (pure)) - - (fxodd? - (lambda ((fixnum? i)) boolean?) - (pure)) - - (fxeven? - (lambda ((fixnum? i)) boolean?) - (pure)) - - (fxmax - (lambda ((fixnum? i) (fixnum? j) ...) fixnum?) - (pure)) - - (fxmin - (lambda ((fixnum? i) (fixnum? j) ...) fixnum?) - (pure)) - - (fx+ - (lambda ((fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fx- - (lambda ((fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fxneg - (lambda ((fixnum? i)) fixnum?) - (pure)) - - (fx* - (lambda ((fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fxquotient - (lambda ((fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fxremainder - (lambda ((fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fxabs - (lambda ((fixnum? i)) fixnum?) - (pure)) - - (fxsquare - (lambda ((fixnum? i)) fixnum?) - (pure)) - - (fxsqrt - (lambda ((fixnum? i)) fixnum?) - (pure)) - - (fx+/carry - (lambda ((fixnum? i) (fixnum? j) (fixnum? k)) (values fixnum? fixnum?)) - (pure)) - - (fx-/carry - (lambda ((fixnum? i) (fixnum? j) (fixnum? k)) (values fixnum? fixnum?)) - (pure)) - - (fx*/carry - (lambda ((fixnum? i) (fixnum? j) (fixnum? k)) (values fixnum? fixnum?)) - (pure)) - - (fxnot - (lambda ((integer? i)) integer?) - (pure)) - - (fxand - (lambda ((integer? i) ...) integer?) - (pure)) - - (fxior - (lambda ((integer? i) ...) integer?) - (pure)) - - (fxxor - (lambda ((integer? i) ...) integer?) - (pure)) - - (fxarithmetic-shift - (lambda ((fixnum? i) (integer? count)) fixnum?) - (pure)) - - (arithmetic-shift-left - (lambda ((fixnum? i) (integer? count)) fixnum?) - (pure)) - - (arithmetic-shift-right - (lambda ((fixnum? i) (integer? count)) fixnum?) - (pure)) - - (fxbit-count - (lambda ((fixnum? i)) integer?) - (pure)) - - (fxlength - (lambda ((fixnum? i)) integer?) - (pure)) - - (fxif - (lambda ((fixnum? mask) (fixnum? i) (fixnum? j)) fixnum?) - (pure)) - - (fxbit-set? - (lambda ((integer? index) (fixnum? i)) boolean?) - (pure)) - - (fxcopy-bit - (lambda ((integer? index) (fixnum? i) (boolean? boolean)) fixnum?) - (pure)) - - (fxfirst-set-bit - (lambda ((fixnum? i)) integer?) - (pure)) - - (fxbit-field - (lambda ((fixnum? i) (integer? start) (integer? end)) fixnum?) - (pure)) - - (fxbit-field-rotate - (lambda ((fixnum? i) (integer? count) (integer? start) (integer? end)) fixnum?) - (pure)) - - (bit-field-reverse - (lambda ((fixnum? i) (integer? start) (integer? end)) fixnum?) - (pure)) - ) +(((name . fx-width) (signature value integer?)) + ((name . fx-greatest) (signature value fixnum?)) + ((name . fx-least) (signature value fixnum?)) + ((name . fixnum?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes integer?)) + ((name . fx=?) (signature lambda ((fixnum? i) ...) boolean?) (tags pure)) + ((name . fx?) (signature lambda ((fixnum? i) ...) boolean?) (tags pure)) + ((name . fx<=?) (signature lambda ((fixnum? i) ...) boolean?) (tags pure)) + ((name . fx>=?) (signature lambda ((fixnum? i) ...) boolean?) (tags pure)) + ((name . fxzero?) (signature lambda ((fixnum? i)) boolean?) (tags pure)) + ((name . fxpositive?) (signature lambda ((fixnum? i)) boolean?) (tags pure)) + ((name . fxnegative?) (signature lambda ((fixnum? i)) boolean?) (tags pure)) + ((name . fxodd?) (signature lambda ((fixnum? i)) boolean?) (tags pure)) + ((name . fxeven?) (signature lambda ((fixnum? i)) boolean?) (tags pure)) + ((name . fxmax) + (signature lambda ((fixnum? i) (fixnum? j) ...) fixnum?) + (tags pure)) + ((name . fxmin) + (signature lambda ((fixnum? i) (fixnum? j) ...) fixnum?) + (tags pure)) + ((name . fx+) + (signature lambda ((fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fx-) + (signature lambda ((fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fxneg) (signature lambda ((fixnum? i)) fixnum?) (tags pure)) + ((name . fx*) + (signature lambda ((fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fxquotient) + (signature lambda ((fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fxremainder) + (signature lambda ((fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fxabs) (signature lambda ((fixnum? i)) fixnum?) (tags pure)) + ((name . fxsquare) (signature lambda ((fixnum? i)) fixnum?) (tags pure)) + ((name . fxsqrt) (signature lambda ((fixnum? i)) fixnum?) (tags pure)) + ((name . fx+/carry) + (signature + lambda + ((fixnum? i) (fixnum? j) (fixnum? k)) + (values fixnum? fixnum?)) + (tags pure)) + ((name . fx-/carry) + (signature + lambda + ((fixnum? i) (fixnum? j) (fixnum? k)) + (values fixnum? fixnum?)) + (tags pure)) + ((name . fx*/carry) + (signature + lambda + ((fixnum? i) (fixnum? j) (fixnum? k)) + (values fixnum? fixnum?)) + (tags pure)) + ((name . fxnot) (signature lambda ((integer? i)) integer?) (tags pure)) + ((name . fxand) (signature lambda ((integer? i) ...) integer?) (tags pure)) + ((name . fxior) (signature lambda ((integer? i) ...) integer?) (tags pure)) + ((name . fxxor) (signature lambda ((integer? i) ...) integer?) (tags pure)) + ((name . fxarithmetic-shift) + (signature lambda ((fixnum? i) (integer? count)) fixnum?) + (tags pure)) + ((name . arithmetic-shift-left) + (signature lambda ((fixnum? i) (integer? count)) fixnum?) + (tags pure)) + ((name . arithmetic-shift-right) + (signature lambda ((fixnum? i) (integer? count)) fixnum?) + (tags pure)) + ((name . fxbit-count) (signature lambda ((fixnum? i)) integer?) (tags pure)) + ((name . fxlength) (signature lambda ((fixnum? i)) integer?) (tags pure)) + ((name . fxif) + (signature lambda ((fixnum? mask) (fixnum? i) (fixnum? j)) fixnum?) + (tags pure)) + ((name . fxbit-set?) + (signature lambda ((integer? index) (fixnum? i)) boolean?) + (tags pure)) + ((name . fxcopy-bit) + (signature lambda ((integer? index) (fixnum? i) (boolean? boolean)) fixnum?) + (tags pure)) + ((name . fxfirst-set-bit) + (signature lambda ((fixnum? i)) integer?) + (tags pure)) + ((name . fxbit-field) + (signature lambda ((fixnum? i) (integer? start) (integer? end)) fixnum?) + (tags pure)) + ((name . fxbit-field-rotate) + (signature + lambda + ((fixnum? i) (integer? count) (integer? start) (integer? end)) + fixnum?) + (tags pure)) + ((name . bit-field-reverse) + (signature lambda ((fixnum? i) (integer? start) (integer? end)) fixnum?) + (tags pure))) diff --git a/types/scheme.flonum.scm b/types/scheme.flonum.scm index 84851a4..54ccb94 100644 --- a/types/scheme.flonum.scm +++ b/types/scheme.flonum.scm @@ -1,412 +1,183 @@ -( - - (fl-e (value flonum?)) - - (fl-1/e (value flonum?)) - - (fl-e-2 (value flonum?)) - - (fl-e-pi/4 (value flonum?)) - - (fl-log2-e (value flonum?)) - - (fl-log10-e (value flonum?)) - - (fl-log-2 (value flonum?)) - - (fl-1/log-2 (value flonum?)) - - (fl-log-3 (value flonum?)) - - (fl-log-pi (value flonum?)) - - (fl-log-10 (value flonum?)) - - (fl-1/log-10 (value flonum?)) - - (fl-pi (value flonum?)) - - (fl-1/pi (value flonum?)) - - (fl-2pi (value flonum?)) - - (fl-pi/2 (value flonum?)) - - (fl-pi/4 (value flonum?)) - - (fl-pi-squared (value flonum?)) - - (fl-degree (value flonum?)) - - (fl-2/pi (value flonum?)) - - (fl-2/sqrt-pi (value flonum?)) - - (fl-sqrt-2 (value flonum?)) - - (fl-sqrt-3 (value flonum?)) - - (fl-sqrt-5 (value flonum?)) - - (fl-sqrt-10 (value flonum?)) - - (fl-1/sqrt-2 (value flonum?)) - - (fl-cbrt-2 (value flonum?)) - - (fl-cbrt-3 (value flonum?)) - - (fl-4thrt-2 (value flonum?)) - - (fl-phi (value flonum?)) - - (fl-log-phi (value flonum?)) - - (fl-1/log-phi (value flonum?)) - - (fl-euler (value flonum?)) - - (fl-e-euler (value flonum?)) - - (fl-sin-1 (value flonum?)) - - (fl-cos-1 (value flonum?)) - - (fl-gamma-1/2 (value flonum?)) - - (fl-gamma-1/3 (value flonum?)) - - (fl-gamma-2/3 (value flonum?)) - - (fl-greatest (value flonum?)) - - (fl-least (value flonum?)) - - (fl-epsilon (value flonum?)) - - (fl-fast-fl+* (value boolean?)) - - (fl-integer-exponent-zero (value integer?)) - - (fl-integer-exponent-nan (value integer?)) - - (flonum - (lambda ((real? number)) flonum?) - (pure)) - - (fladjacent - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flcopysign - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (make-flonum - (lambda ((flonum? x) (integer? n)) flonum?) - (pure)) - - (flinteger-fraction - (lambda ((flonum? x)) (values flonum? flonum?)) - (pure)) - - (flexponent - (lambda ((flonum? x)) flonum?) - (pure)) - - (flinteger-exponent - (lambda ((flonum? x)) integer?) - (pure)) - - (flnormalized-fraction-exponent - (lambda ((flonum? x)) (flonum? integer?)) - (pure)) - - (flsign-bit - (lambda ((flonum? x)) integer?) - (pure)) - - (flonum? - (lambda (obj) boolean?) - (pure predicate) - () - (real?)) - - (fl=? - (lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) - (pure)) - - (fl? - (lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) - (pure)) - - (fl<=? - (lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) - (pure)) - - (fl>=? - (lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) - (pure)) - - (flunordered - (lambda ((flonum? x) (flonum? y)) boolean?) - (pure)) - - (flinteger? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flzero? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flpositive? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flnegative? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flodd? - (lambda ((flonum? x)) boolean?) - (pure)) - - (fleven? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flfinite? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flinfinite? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flnan? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flnormalized? - (lambda ((flonum? x)) boolean?) - (pure)) - - (fldenormalized? - (lambda ((flonum? x)) boolean?) - (pure)) - - (flmax - (lambda ((flonum? x) ...) flonum?) - (pure)) - - (flmin - (lambda ((flonum? x) ...) flonum?) - (pure)) - - (fl+ - (lambda ((flonum? x) ...) flonum?) - (pure)) - - (fl* - (lambda ((flonum? x) ...) flonum?) - (pure)) - - (fl+* - (lambda ((flonum? x) (flonum? y) (flonum? z)) flonum?) - (pure)) - - (fl- - (lambda ((flonum? x) (flonum? y) ...) flonum?) - (pure)) - - (fl/ - (lambda ((flonum? x) (flonum? y) ...) flonum?) - (pure)) - - (flabs - (lambda ((flonum? x)) flonum?) - (pure)) - - (flabsdiff - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flposdiff - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flsgn - (lambda ((flonum? x)) flonum?) - (pure)) - - (flnumerator - (lambda ((flonum? x)) flonum?) - (pure)) - - (fldenominator - (lambda ((flonum? x)) flonum?) - (pure)) - - (flfloor - (lambda ((flonum? x)) flonum?) - (pure)) - - (flceiling - (lambda ((flonum? x)) flonum?) - (pure)) - - (flround - (lambda ((flonum? x)) flonum?) - (pure)) - - (fltruncate - (lambda ((flonum? x)) flonum?) - (pure)) - - (flexp - (lambda ((flonum? x)) flonum?) - (pure)) - - (flexp2 - (lambda ((flonum? x)) flonum?) - (pure)) - - (flexp-1 - (lambda ((flonum? x)) flonum?) - (pure)) - - (flsquare - (lambda ((flonum? x)) flonum?) - (pure)) - - (flsqrt - (lambda ((flonum? x)) flonum?) - (pure)) - - (flcbrt - (lambda ((flonum? x)) flonum?) - (pure)) - - (flhypot - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flexpt - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (fllog - (lambda ((flonum? x)) flonum?) - (pure)) - - (fllog1+ - (lambda ((flonum? x)) flonum?) - (pure)) - - (fllog2 - (lambda ((flonum? x)) flonum?) - (pure)) - - (fllog10 - (lambda ((flonum? x)) flonum?) - (pure)) - - (make-fllog-base - (lambda ((flonum? base)) procedure?) - (pure) - ((return (lambda ((flonum? x)) flonum?)))) - - (flsin - (lambda ((flonum? x)) flonum?) - (pure)) - - (flcos - (lambda ((flonum? x)) flonum?) - (pure)) - - (fltan - (lambda ((flonum? x)) flonum?) - (pure)) - - (flasin - (lambda ((flonum? x)) flonum?) - (pure)) - - (flacos - (lambda ((flonum? x)) flonum?) - (pure)) - - (flatan - (lambda ((flonum? x)) flonum?) - (pure)) - - (flatan - (lambda ((flonum? y) (flonum? x)) flonum?) - (pure)) - - (flsinh - (lambda ((flonum? x)) flonum?) - (pure)) - - (flcosh - (lambda ((flonum? x)) flonum?) - (pure)) - - (fltanh - (lambda ((flonum? x)) flonum?) - (pure)) - - (flasinh - (lambda ((flonum? x)) flonum?) - (pure)) - - (flacosh - (lambda ((flonum? x)) flonum?) - (pure)) - - (flatanh - (lambda ((flonum? x)) flonum?) - (pure)) - - (flquotient - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flremainder - (lambda ((flonum? x) (flonum? y)) flonum?) - (pure)) - - (flremquo - (lambda ((flonum? x) (flonum? y)) (values flonum? integer?)) - (pure)) - - (flgamma - (lambda ((flonum? x)) flonum?) - (pure)) - - (flloggamma - (lambda ((flonum? x)) flonum?) - (pure)) - - (flfirst-bessel - (lambda ((integer? n) (flonum? x)) flonum?) - (pure)) - - (flsecond-bessel - (lambda ((integer? n) (flonum? x)) flonum?) - (pure)) - - (flerf - (lambda ((flonum? x)) flonum?) - (pure)) - - (flerfc - (lambda ((flonum? x)) flonum?) - (pure)) - -) +(((name . fl-e) (signature value flonum?)) + ((name . fl-1/e) (signature value flonum?)) + ((name . fl-e-2) (signature value flonum?)) + ((name . fl-e-pi/4) (signature value flonum?)) + ((name . fl-log2-e) (signature value flonum?)) + ((name . fl-log10-e) (signature value flonum?)) + ((name . fl-log-2) (signature value flonum?)) + ((name . fl-1/log-2) (signature value flonum?)) + ((name . fl-log-3) (signature value flonum?)) + ((name . fl-log-pi) (signature value flonum?)) + ((name . fl-log-10) (signature value flonum?)) + ((name . fl-1/log-10) (signature value flonum?)) + ((name . fl-pi) (signature value flonum?)) + ((name . fl-1/pi) (signature value flonum?)) + ((name . fl-2pi) (signature value flonum?)) + ((name . fl-pi/2) (signature value flonum?)) + ((name . fl-pi/4) (signature value flonum?)) + ((name . fl-pi-squared) (signature value flonum?)) + ((name . fl-degree) (signature value flonum?)) + ((name . fl-2/pi) (signature value flonum?)) + ((name . fl-2/sqrt-pi) (signature value flonum?)) + ((name . fl-sqrt-2) (signature value flonum?)) + ((name . fl-sqrt-3) (signature value flonum?)) + ((name . fl-sqrt-5) (signature value flonum?)) + ((name . fl-sqrt-10) (signature value flonum?)) + ((name . fl-1/sqrt-2) (signature value flonum?)) + ((name . fl-cbrt-2) (signature value flonum?)) + ((name . fl-cbrt-3) (signature value flonum?)) + ((name . fl-4thrt-2) (signature value flonum?)) + ((name . fl-phi) (signature value flonum?)) + ((name . fl-log-phi) (signature value flonum?)) + ((name . fl-1/log-phi) (signature value flonum?)) + ((name . fl-euler) (signature value flonum?)) + ((name . fl-e-euler) (signature value flonum?)) + ((name . fl-sin-1) (signature value flonum?)) + ((name . fl-cos-1) (signature value flonum?)) + ((name . fl-gamma-1/2) (signature value flonum?)) + ((name . fl-gamma-1/3) (signature value flonum?)) + ((name . fl-gamma-2/3) (signature value flonum?)) + ((name . fl-greatest) (signature value flonum?)) + ((name . fl-least) (signature value flonum?)) + ((name . fl-epsilon) (signature value flonum?)) + ((name . fl-fast-fl+*) (signature value boolean?)) + ((name . fl-integer-exponent-zero) (signature value integer?)) + ((name . fl-integer-exponent-nan) (signature value integer?)) + ((name . flonum) (signature lambda ((real? number)) flonum?) (tags pure)) + ((name . fladjacent) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flcopysign) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . make-flonum) + (signature lambda ((flonum? x) (integer? n)) flonum?) + (tags pure)) + ((name . flinteger-fraction) + (signature lambda ((flonum? x)) (values flonum? flonum?)) + (tags pure)) + ((name . flexponent) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flinteger-exponent) + (signature lambda ((flonum? x)) integer?) + (tags pure)) + ((name . flnormalized-fraction-exponent) + (signature lambda ((flonum? x)) (flonum? integer?)) + (tags pure)) + ((name . flsign-bit) (signature lambda ((flonum? x)) integer?) (tags pure)) + ((name . flonum?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes real?)) + ((name . fl=?) + (signature lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) + (tags pure)) + ((name . fl?) + (signature lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) + (tags pure)) + ((name . fl<=?) + (signature lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) + (tags pure)) + ((name . fl>=?) + (signature lambda ((flonum? x) (flonum? y) (flonum? z) ...) boolean?) + (tags pure)) + ((name . flunordered) + (signature lambda ((flonum? x) (flonum? y)) boolean?) + (tags pure)) + ((name . flinteger?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flzero?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flpositive?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flnegative?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flodd?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . fleven?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flfinite?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flinfinite?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flnan?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . flnormalized?) (signature lambda ((flonum? x)) boolean?) (tags pure)) + ((name . fldenormalized?) + (signature lambda ((flonum? x)) boolean?) + (tags pure)) + ((name . flmax) (signature lambda ((flonum? x) ...) flonum?) (tags pure)) + ((name . flmin) (signature lambda ((flonum? x) ...) flonum?) (tags pure)) + ((name . fl+) (signature lambda ((flonum? x) ...) flonum?) (tags pure)) + ((name . fl*) (signature lambda ((flonum? x) ...) flonum?) (tags pure)) + ((name . fl+*) + (signature lambda ((flonum? x) (flonum? y) (flonum? z)) flonum?) + (tags pure)) + ((name . fl-) + (signature lambda ((flonum? x) (flonum? y) ...) flonum?) + (tags pure)) + ((name . fl/) + (signature lambda ((flonum? x) (flonum? y) ...) flonum?) + (tags pure)) + ((name . flabs) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flabsdiff) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flposdiff) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flsgn) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flnumerator) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fldenominator) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flfloor) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flceiling) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flround) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fltruncate) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flexp) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flexp2) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flexp-1) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flsquare) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flsqrt) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flcbrt) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flhypot) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flexpt) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . fllog) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fllog1+) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fllog2) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fllog10) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . make-fllog-base) + (signature lambda ((flonum? base)) procedure?) + (tags pure) + (subsigs (return (lambda ((flonum? x)) flonum?)))) + ((name . flsin) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flcos) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fltan) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flasin) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flacos) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flatan) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flatan) + (signature lambda ((flonum? y) (flonum? x)) flonum?) + (tags pure)) + ((name . flsinh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flcosh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . fltanh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flasinh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flacosh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flatanh) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flquotient) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flremainder) + (signature lambda ((flonum? x) (flonum? y)) flonum?) + (tags pure)) + ((name . flremquo) + (signature lambda ((flonum? x) (flonum? y)) (values flonum? integer?)) + (tags pure)) + ((name . flgamma) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flloggamma) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flfirst-bessel) + (signature lambda ((integer? n) (flonum? x)) flonum?) + (tags pure)) + ((name . flsecond-bessel) + (signature lambda ((integer? n) (flonum? x)) flonum?) + (tags pure)) + ((name . flerf) (signature lambda ((flonum? x)) flonum?) (tags pure)) + ((name . flerfc) (signature lambda ((flonum? x)) flonum?) (tags pure))) diff --git a/types/scheme.generator.scm b/types/scheme.generator.scm index 023001f..f043618 100644 --- a/types/scheme.generator.scm +++ b/types/scheme.generator.scm @@ -1,318 +1,229 @@ -( - (generator - (lambda (arg ...) procedure?) - () - ((return (lambda () *)))) - - (make-iota-generator - (lambda ((integer? count)) procedure?) - () - ((return (lambda () (or integer? eof-object?))))) - - (make-iota-generator - (lambda ((integer? count) (real? start)) procedure?) - () - ((return (lambda () (or real? eof-object?))))) - - (make-iota-generator - (lambda ((integer? count) (real? start) (real? step)) procedure?) - () - ((return (lambda () (or real? eof-object?))))) - - (make-range-generator - (lambda ((real? start)) procedure?) - () - ((return (lambda () real?)))) - - (make-range-generator - (lambda ((real? start) (real? end)) procedure?) - () - ((return (lambda () (or real? eof-object?))))) - - (make-range-generator - (lambda ((real? start) (real? end) (real? step)) procedure?) - () - ((return (lambda () (or real? eof-object?))))) - - (make-coroutine-generator - (lambda ((procedure? proc)) procedure?) - () - ((proc (lambda ((procedure? yield)) undefined)) - (yield (lambda (value) undefined)) - (return (lambda () *)))) - - (list->generator - (lambda ((list? lis)) procedure?) - () - ((return (lambda () *)))) - - (vector->generator - (lambda ((vector? vec)) procedure?) - () - ((return (lambda () *)))) - - (vector->generator - (lambda ((vector? vec) (integer? start)) procedure?) - () - ((return (lambda () *)))) - - (vector->generator - (lambda ((vector? vec) (integer? start) (integer? end)) procedure?) - () - ((return (lambda () *)))) - - (reverse-vector->generator - (lambda ((vector? vec)) procedure?) - () - ((return (lambda () *)))) - - (reverse-vector->generator - (lambda ((vector? vec) (integer? start)) procedure?) - () - ((return (lambda () *)))) - - (reverse-vector->generator - (lambda ((vector? vec) (integer? start) (integer? end)) procedure?) - () - ((return (lambda () *)))) - - (string->generator - (lambda ((string? str)) procedure?) - () - ((return (lambda () (or char? eof-object?))))) - - (string->generator - (lambda ((string? str) (integer? start)) procedure?) - () - ((return (lambda () (or char? eof-object?))))) - - (string->generator - (lambda ((string? str) (integer? start) (integer? end)) procedure?) - () - ((return (lambda () (or char? eof-object?))))) - - (bytevector->generator - (lambda ((bytevector? bytevector)) procedure?) - () - ((return (lambda () (or integer? eof-object?))))) - - (bytevector->generator - (lambda ((bytevector? bytevector) (integer? start)) procedure?) - () - ((return (lambda () (or integer? eof-object?))))) - - (bytevector->generator - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) procedure?) - () - ((return (lambda () (or integer? eof-object?))))) - - (make-for-each-generator - (lambda ((procedure? for-each) obj) procedure?) - () - ((for-each (lambda (element) undefined)) - (return (lambda () *)))) - - (make-unfold-generator - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) procedure?) - () - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)) - (return (lambda () *)))) - - (gcons* - (lambda (item ... (procedure? gen)) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gappend - (lambda ((procedure? gen) ...) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gcombine - (lambda ((procedure? proc) seed (procedure? gen1) (procedure? gen2) ...) procedure?) - () - ((proc (lambda (value1 value2 ... seed) (values * *))) - (gen (lambda () *)) - (return (lambda () *)))) - - (gfilter - (lambda ((procedure? pred) (procedure? gen)) procedure?) - () - ((pred (lambda (element) boolean?)) - (gen (lambda () *)) - (return (lambda () *)))) - - (gremove - (lambda ((procedure? pred) (procedure? gen)) procedure?) - () - ((pred (lambda (element) boolean?)) - (gen (lambda () *)) - (return (lambda () *)))) - - (gtake - (lambda ((procedure? gen) (integer? k)) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gtake - (lambda ((procedure? gen) (integer? k) padding) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gdrop - (lambda ((procedure? gen) (integer? k)) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gtake-while - (lambda ((procedure? pred) (procedure? gen)) procedure?) - () - ((pred (lambda (element) boolean?)) - (gen (lambda () *)) - (return (lambda () *)))) - - (gdrop-while - (lambda ((procedure? pred) (procedure? gen)) procedure?) - () - ((pred (lambda (element) boolean?)) - (gen (lambda () *)) - (return (lambda () *)))) - - (gdelete - (lambda (item (procedure? gen)) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gdelete - (lambda (item (procedure? gen) (procedure? =)) procedure?) - () - ((gen (lambda () *)) - (= (lambda (a b) boolean?)) - (return (lambda () *)))) - - (gdelete-neighbor-dups - (lambda ((procedure? gen)) procedure?) - () - ((gen (lambda () *)) - (return (lambda () *)))) - - (gdelete-neighbor-dups - (lambda ((procedure? gen) (procedure? =)) procedure?) - () - ((gen (lambda () *)) - (= (lambda (a b) boolean?)) - (return (lambda () *)))) - - (gindex - (lambda ((procedure? value-gen) (procedure? index-gen)) procedure?) - () - ((value-gen (lambda () *)) - (index-gen (lambda () (or integer? eof-object?))) - (return (lambda () *)))) - - (gselect - (lambda ((procedure? value-gen) (procedure? truth-gen)) procedure?) - () - ((value-gen (lambda () *)) - (truth-gen (lambda () (or boolean? eof-object?))) - (return (lambda () *)))) - - (generator->list - (lambda ((procedure? generator)) list?) - () - ((generator (lambda () *)))) - - (generator->list - (lambda ((procedure? generator) (integer? k)) list?) - () - ((generator (lambda () *)))) - - (generator->reverse-list - (lambda ((procedure? generator)) list?) - () - ((generator (lambda () *)))) - - (generator->reverse-list - (lambda ((procedure? generator) (integer? k)) list?) - () - ((generator (lambda () *)))) - - (generator->vector - (lambda ((procedure? generator)) vector?) - () - ((generator (lambda () *)))) - - (generator->vector - (lambda ((procedure? generator) (integer? k)) vector?) - () - ((generator (lambda () *)))) - - (generator->vector! - (lambda ((vector? vector) (integer? at) (procedure? generator)) integer?) - () - ((generator (lambda () *)))) - - (generator->string - (lambda ((procedure? generator)) string?) - () - ((generator (lambda () (or char? eof-object?))))) - - (generator->string - (lambda ((procedure? generator) (integer? k)) string?) - () - ((generator (lambda () (or char? eof-object?))))) - - (generator-fold - (lambda ((procedure? proc) seed (procedure? gen1) (procedure? gen2) ...) procedure?) - () - ((proc (lambda (val1 val2 ... state) *)) - (gen (lambda () *)))) - - (generator-for-each - (lambda ((procedure? proc) (procedure? gen1) (procedure? gen2) ...) undefined) - () - ((proc (lambda (val1 val2 ...) undefined)) - (gen (lambda () *)))) - - (generator-find - (lambda ((procedure? pred) (procedure? generator)) *) - () - ((pred (lambda (element) boolean?)) - (generator (lambda () *)))) - - (generator-count - (lambda ((procedure? pred) (procedure? generator)) integer?) - () - ((pred (lambda (element) boolean?)) - (generator (lambda () *)))) - - (generator-any - (lambda ((procedure? pred) (procedure? generator)) *) - () - ((pred (lambda (element) boolean?)) - (generator (lambda () *)))) - - (generator-every - (lambda ((procedure? pred) (procedure? generator)) *) - () - ((pred (lambda (element) boolean?)) - (generator (lambda () *)))) - - (generator-unfold - (lambda ((procedure? gen) (procedure? unfold) arg ...) *) - () - ((gen (lambda () *)) - (unfold (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed args ...) *)) - (stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - ) +(((name . generator) + (signature lambda (arg ...) procedure?) + (subsigs (return (lambda () *)))) + ((name . make-iota-generator) + (signature lambda ((integer? count)) procedure?) + (subsigs (return (lambda () (or integer? eof-object?))))) + ((name . make-iota-generator) + (signature lambda ((integer? count) (real? start)) procedure?) + (subsigs (return (lambda () (or real? eof-object?))))) + ((name . make-iota-generator) + (signature lambda ((integer? count) (real? start) (real? step)) procedure?) + (subsigs (return (lambda () (or real? eof-object?))))) + ((name . make-range-generator) + (signature lambda ((real? start)) procedure?) + (subsigs (return (lambda () real?)))) + ((name . make-range-generator) + (signature lambda ((real? start) (real? end)) procedure?) + (subsigs (return (lambda () (or real? eof-object?))))) + ((name . make-range-generator) + (signature lambda ((real? start) (real? end) (real? step)) procedure?) + (subsigs (return (lambda () (or real? eof-object?))))) + ((name . make-coroutine-generator) + (signature lambda ((procedure? proc)) procedure?) + (subsigs + (proc (lambda ((procedure? yield)) undefined)) + (yield (lambda (value) undefined)) + (return (lambda () *)))) + ((name . list->generator) + (signature lambda ((list? lis)) procedure?) + (subsigs (return (lambda () *)))) + ((name . vector->generator) + (signature lambda ((vector? vec)) procedure?) + (subsigs (return (lambda () *)))) + ((name . vector->generator) + (signature lambda ((vector? vec) (integer? start)) procedure?) + (subsigs (return (lambda () *)))) + ((name . vector->generator) + (signature lambda ((vector? vec) (integer? start) (integer? end)) procedure?) + (subsigs (return (lambda () *)))) + ((name . reverse-vector->generator) + (signature lambda ((vector? vec)) procedure?) + (subsigs (return (lambda () *)))) + ((name . reverse-vector->generator) + (signature lambda ((vector? vec) (integer? start)) procedure?) + (subsigs (return (lambda () *)))) + ((name . reverse-vector->generator) + (signature lambda ((vector? vec) (integer? start) (integer? end)) procedure?) + (subsigs (return (lambda () *)))) + ((name . string->generator) + (signature lambda ((string? str)) procedure?) + (subsigs (return (lambda () (or char? eof-object?))))) + ((name . string->generator) + (signature lambda ((string? str) (integer? start)) procedure?) + (subsigs (return (lambda () (or char? eof-object?))))) + ((name . string->generator) + (signature lambda ((string? str) (integer? start) (integer? end)) procedure?) + (subsigs (return (lambda () (or char? eof-object?))))) + ((name . bytevector->generator) + (signature lambda ((bytevector? bytevector)) procedure?) + (subsigs (return (lambda () (or integer? eof-object?))))) + ((name . bytevector->generator) + (signature lambda ((bytevector? bytevector) (integer? start)) procedure?) + (subsigs (return (lambda () (or integer? eof-object?))))) + ((name . bytevector->generator) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + procedure?) + (subsigs (return (lambda () (or integer? eof-object?))))) + ((name . make-for-each-generator) + (signature lambda ((procedure? for-each) obj) procedure?) + (subsigs (for-each (lambda (element) undefined)) (return (lambda () *)))) + ((name . make-unfold-generator) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + procedure?) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)) + (return (lambda () *)))) + ((name . gcons*) + (signature lambda (item ... (procedure? gen)) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gappend) + (signature lambda ((procedure? gen) ...) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gcombine) + (signature + lambda + ((procedure? proc) seed (procedure? gen1) (procedure? gen2) ...) + procedure?) + (subsigs + (proc (lambda (value1 value2 ... seed) (values * *))) + (gen (lambda () *)) + (return (lambda () *)))) + ((name . gfilter) + (signature lambda ((procedure? pred) (procedure? gen)) procedure?) + (subsigs + (pred (lambda (element) boolean?)) + (gen (lambda () *)) + (return (lambda () *)))) + ((name . gremove) + (signature lambda ((procedure? pred) (procedure? gen)) procedure?) + (subsigs + (pred (lambda (element) boolean?)) + (gen (lambda () *)) + (return (lambda () *)))) + ((name . gtake) + (signature lambda ((procedure? gen) (integer? k)) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gtake) + (signature lambda ((procedure? gen) (integer? k) padding) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gdrop) + (signature lambda ((procedure? gen) (integer? k)) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gtake-while) + (signature lambda ((procedure? pred) (procedure? gen)) procedure?) + (subsigs + (pred (lambda (element) boolean?)) + (gen (lambda () *)) + (return (lambda () *)))) + ((name . gdrop-while) + (signature lambda ((procedure? pred) (procedure? gen)) procedure?) + (subsigs + (pred (lambda (element) boolean?)) + (gen (lambda () *)) + (return (lambda () *)))) + ((name . gdelete) + (signature lambda (item (procedure? gen)) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gdelete) + (signature lambda (item (procedure? gen) (procedure? =)) procedure?) + (subsigs + (gen (lambda () *)) + (= (lambda (a b) boolean?)) + (return (lambda () *)))) + ((name . gdelete-neighbor-dups) + (signature lambda ((procedure? gen)) procedure?) + (subsigs (gen (lambda () *)) (return (lambda () *)))) + ((name . gdelete-neighbor-dups) + (signature lambda ((procedure? gen) (procedure? =)) procedure?) + (subsigs + (gen (lambda () *)) + (= (lambda (a b) boolean?)) + (return (lambda () *)))) + ((name . gindex) + (signature lambda ((procedure? value-gen) (procedure? index-gen)) procedure?) + (subsigs + (value-gen (lambda () *)) + (index-gen (lambda () (or integer? eof-object?))) + (return (lambda () *)))) + ((name . gselect) + (signature lambda ((procedure? value-gen) (procedure? truth-gen)) procedure?) + (subsigs + (value-gen (lambda () *)) + (truth-gen (lambda () (or boolean? eof-object?))) + (return (lambda () *)))) + ((name . generator->list) + (signature lambda ((procedure? generator)) list?) + (subsigs (generator (lambda () *)))) + ((name . generator->list) + (signature lambda ((procedure? generator) (integer? k)) list?) + (subsigs (generator (lambda () *)))) + ((name . generator->reverse-list) + (signature lambda ((procedure? generator)) list?) + (subsigs (generator (lambda () *)))) + ((name . generator->reverse-list) + (signature lambda ((procedure? generator) (integer? k)) list?) + (subsigs (generator (lambda () *)))) + ((name . generator->vector) + (signature lambda ((procedure? generator)) vector?) + (subsigs (generator (lambda () *)))) + ((name . generator->vector) + (signature lambda ((procedure? generator) (integer? k)) vector?) + (subsigs (generator (lambda () *)))) + ((name . generator->vector!) + (signature + lambda + ((vector? vector) (integer? at) (procedure? generator)) + integer?) + (subsigs (generator (lambda () *)))) + ((name . generator->string) + (signature lambda ((procedure? generator)) string?) + (subsigs (generator (lambda () (or char? eof-object?))))) + ((name . generator->string) + (signature lambda ((procedure? generator) (integer? k)) string?) + (subsigs (generator (lambda () (or char? eof-object?))))) + ((name . generator-fold) + (signature + lambda + ((procedure? proc) seed (procedure? gen1) (procedure? gen2) ...) + procedure?) + (subsigs (proc (lambda (val1 val2 ... state) *)) (gen (lambda () *)))) + ((name . generator-for-each) + (signature + lambda + ((procedure? proc) (procedure? gen1) (procedure? gen2) ...) + undefined) + (subsigs (proc (lambda (val1 val2 ...) undefined)) (gen (lambda () *)))) + ((name . generator-find) + (signature lambda ((procedure? pred) (procedure? generator)) *) + (subsigs (pred (lambda (element) boolean?)) (generator (lambda () *)))) + ((name . generator-count) + (signature lambda ((procedure? pred) (procedure? generator)) integer?) + (subsigs (pred (lambda (element) boolean?)) (generator (lambda () *)))) + ((name . generator-any) + (signature lambda ((procedure? pred) (procedure? generator)) *) + (subsigs (pred (lambda (element) boolean?)) (generator (lambda () *)))) + ((name . generator-every) + (signature lambda ((procedure? pred) (procedure? generator)) *) + (subsigs (pred (lambda (element) boolean?)) (generator (lambda () *)))) + ((name . generator-unfold) + (signature lambda ((procedure? gen) (procedure? unfold) arg ...) *) + (subsigs + (gen (lambda () *)) + (unfold + (lambda ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + args + ...) + *)) + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *))))) diff --git a/types/scheme.hash-table.scm b/types/scheme.hash-table.scm index 2b5c2da..a9f95b9 100644 --- a/types/scheme.hash-table.scm +++ b/types/scheme.hash-table.scm @@ -1,274 +1,268 @@ -( - - (make-hash-table - (lambda ((comparator? comparator) arg ...) hash-table?) - (pure)) - - (make-hash-table - (lambda ((procedure? equality-predicate) arg ...) hash-table?) - (pure deprecated) - ((equality-predicate (lambda (a b) boolean?)))) - - (make-hash-table - (lambda ((procedure? equality-predicate) (procedure? hash-function) arg ...) hash-table?) - (pure deprecated) - ((equality-predicate (lambda (a b) boolean?)) - (hash-function (lambda (obj) integer?)))) - - (hash-table - (lambda ((comparator? comparator) key1 value1 ...) hash-table?) - (pure)) - - (hash-table-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (comparator? comparator) arg ...) hash-table?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (values * *))) - (successor (lambda (seed) *)))) - - (alist->hash-table - (lambda ((list? alist) (comparator? comparator) arg ...) hash-table?) - (pure)) - - (alist->hash-table - (lambda ((list? alist) (procedure? equality-predicate) arg ...) hash-table?) - (pure deprecated) - ((equality-predicate (lambda (a b) boolean?)) - (hash-function (lambda (obj) integer?)))) - - (alist->hash-table - (lambda ((list? alist) (procedure? equality-predicate) (procedure? hash-function) arg ...) hash-table?) - (pure deprecated) - ((equality-predicate (lambda (a b) boolean?)) - (hash-function (lambda (obj) integer?)))) - - (hash-table? - (lambda (obj) boolean?) - (pure predicate)) - - (hash-table-contains? - (lambda ((hash-table? hash-table) key) boolean?) - (pure)) - - (hash-table-exists? - (lambda ((hash-table? hash-table) key) boolean?) - (pure deprecated)) - - (hash-table-empty? - (lambda ((hash-table? hash-table)) boolean?) - (pure)) - - (hash-table=? - (lambda ((comparator? value-comparator) (hash-table? hash-table1) (hash-table? hash-table2)) boolean?) - (pure)) - - (hash-table-mutable? - (lambda ((hash-table? hash-table)) boolean?) - (pure)) - - (hash-table-ref - (lambda ((hash-table? hash-table) key) *) - (pure)) - - (hash-table-ref - (lambda ((hash-table? hash-table) key (procedure? failure)) *) - (pure) - ((failure (lambda () *)))) - - (hash-table-ref - (lambda ((hash-table? hash-table) key (procedure? failure) (procedure? success)) *) - (pure) - ((failure (lambda () *)) - (success (lambda (value) *)))) - - (hash-table-ref/default - (lambda ((hash-table? hash-table) key default) *) - (pure)) - - (hash-table-set! - (lambda ((hash-table? hash-table) key1 value1 ...) undefined)) - - (hash-table-delete! - (lambda ((hash-table? hash-table) key ...) undefined)) - - (hash-table-intern! - (lambda ((hash-table? hash-table) key (procedure? failure)) undefined) - () - ((failure (lambda () *)))) - - (hash-table-update! - (lambda ((hash-table? hash-table) key (procedure? updater)) undefined) - () - ((updated (lambda (value) *)))) - - (hash-table-update! - (lambda ((hash-table? hash-table) key (procedure? updater) (procedure? failure)) undefined) - () - ((updater (lambda (value) *)) - (failure (lambda () *)))) - - (hash-table-update! - (lambda ((hash-table? hash-table) key (procedure? updater) (procedure? failure) (procedure? success)) undefined) - () - ((updater (lambda (value) *)) - (failure (lambda () *)) - (success (lambda (value) *)))) - - (hash-table-update!/default - (lambda ((hash-table? hash-table) key (procedure? updater) default) undefined) - () - ((updated (lambda (value) *)))) - - (hash-table-pop! - (lambda ((hash-table? hash-table)) (values * *)) - ()) - - (hash-table-clear! - (lambda ((hash-table? hash-table)) undefined)) - - (hash-table-size - (lambda ((hash-table? hash-table)) integer?) - (pure)) - - (hash-table-keys - (lambda ((hash-table? hash-table)) list?) - (pure)) - - (hash-table-values - (lambda ((hash-table? hash-table)) list?) - (pure)) - - (hash-table-entries - (lambda ((hash-table? hash-table)) (values list? list?)) - (pure)) - - (hash-table-find - (lambda ((procedure? proc) (hash-table? hash-table) (procedure? failure)) *) - (pure) - ((proc (lambda (key value) *)) - (failure (lambda () *)))) - - (hash-table-count - (lambda ((procedure? pred) (hash-table? hash-table)) integer?) - (pure) - ((pred (lambda (key value) boolean?)))) - - (hash-table-map - (lambda ((procedure? proc) (comparator? comparator) (hash-table? hash-table)) hash-table?) - (pure) - ((proc (lambda (value) *)))) - - (hash-table-for-each - (lambda ((procedure? proc) (hash-table? hash-table)) undefined) - () - ((proc (lambda (key value) undefined)))) - - (hash-table-walk - (lambda ((hash-table? hash-table) (procedure? proc)) undefined) - (deprecated) - ((proc (lambda (key value) undefined)))) - - (hash-table-map! - (lambda ((procedure? proc) (comparator? comparator) (hash-table? hash-table)) undefined) - () - ((proc (lambda (key value) *)))) - - (hash-table-map->list - (lambda ((procedure? proc) (hash-table? hash-table)) list?) - () - ((proc (lambda (key value) *)))) - - (hash-table-fold - (lambda ((procedure? proc) seed (hash-table? hash-table)) *) - (pure) - ((proc (lambda (key value state) *)))) - - (hash-table-fold - (lambda ((hash-table? hash-table) (procedure? proc) seed) *) - (pure deprecated) - ((proc (lambda (key value state) *)))) - - (hash-table-prune! - (lambda ((procedure? proc) (hash-table? hash-table)) undefined) - () - ((proc (lambda (key value) boolean?)))) - - (hash-table-copy - (lambda ((hash-table? hash-table)) hash-table?) - (pure)) - - (hash-table-copy - (lambda ((hash-table? hash-table) (boolean? mutable)) hash-table?) - (pure)) - - (hash-table-empty-copy - (lambda ((hash-table? hash-table)) hash-table?) - (pure)) - - (hash-table->alist - (lambda ((hash-table? hash-table)) list?) - ()) - - (hash-table-union! - (lambda ((hash-table? hash-table1) (hash-table? hash-table2)) hash-table?) - ()) - - (hash-table-merge! - (lambda ((hash-table? hash-table1) (hash-table? hash-table2)) hash-table?) - (deprecated)) - - (hash-table-intersection! - (lambda ((hash-table? hash-table1) (hash-table? hash-table2)) hash-table?) - ()) - - (hash-table-difference! - (lambda ((hash-table? hash-table1) (hash-table? hash-table2)) hash-table?) - ()) - - (hash-table-xor! - (lambda ((hash-table? hash-table1) (hash-table? hash-table2)) hash-table?) - ()) - - (hash - (lambda (obj) integer?) - (deprecated)) - - (hash - (lambda (obj arg) integer?) - (deprecated)) - - (string-hash - (lambda ((string? str)) integer?) - (pure deprecated)) - - (string-hash - (lambda ((string? str) arg) integer?) - (pure deprecated)) - - (string-ci-hash - (lambda ((string? str)) integer?) - (pure deprecated)) - - (string-ci-hash - (lambda ((string? str) arg) integer?) - (pure deprecated)) - - (hash-by-identity - (lambda (obj) integer?) - (pure deprecated)) - - (hash-by-identity - (lambda (obj arg) integer?) - (pure deprecated)) - - (hash-table-equivalence-function - (lambda ((hash-table? hash-table)) procedure?) - (pure deprecated) - ((return (lambda (a b) boolean?)))) - - (hash-table-hash-function - (lambda ((hash-table? hash-table)) procedure?) - (pure deprecated) - ((return (lambda (obj) integer?)))) - - ) +(((name . make-hash-table) + (signature lambda ((comparator? comparator) arg ...) hash-table?) + (tags pure)) + ((name . make-hash-table) + (signature lambda ((procedure? equality-predicate) arg ...) hash-table?) + (tags pure deprecated) + (subsigs (equality-predicate (lambda (a b) boolean?)))) + ((name . make-hash-table) + (signature + lambda + ((procedure? equality-predicate) (procedure? hash-function) arg ...) + hash-table?) + (tags pure deprecated) + (subsigs + (equality-predicate (lambda (a b) boolean?)) + (hash-function (lambda (obj) integer?)))) + ((name . hash-table) + (signature lambda ((comparator? comparator) key1 value1 ...) hash-table?) + (tags pure)) + ((name . hash-table-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (comparator? comparator) + arg + ...) + hash-table?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (values * *))) + (successor (lambda (seed) *)))) + ((name . alist->hash-table) + (signature + lambda + ((list? alist) (comparator? comparator) arg ...) + hash-table?) + (tags pure)) + ((name . alist->hash-table) + (signature + lambda + ((list? alist) (procedure? equality-predicate) arg ...) + hash-table?) + (tags pure deprecated) + (subsigs + (equality-predicate (lambda (a b) boolean?)) + (hash-function (lambda (obj) integer?)))) + ((name . alist->hash-table) + (signature + lambda + ((list? alist) + (procedure? equality-predicate) + (procedure? hash-function) + arg + ...) + hash-table?) + (tags pure deprecated) + (subsigs + (equality-predicate (lambda (a b) boolean?)) + (hash-function (lambda (obj) integer?)))) + ((name . hash-table?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . hash-table-contains?) + (signature lambda ((hash-table? hash-table) key) boolean?) + (tags pure)) + ((name . hash-table-exists?) + (signature lambda ((hash-table? hash-table) key) boolean?) + (tags pure deprecated)) + ((name . hash-table-empty?) + (signature lambda ((hash-table? hash-table)) boolean?) + (tags pure)) + ((name . hash-table=?) + (signature + lambda + ((comparator? value-comparator) + (hash-table? hash-table1) + (hash-table? hash-table2)) + boolean?) + (tags pure)) + ((name . hash-table-mutable?) + (signature lambda ((hash-table? hash-table)) boolean?) + (tags pure)) + ((name . hash-table-ref) + (signature lambda ((hash-table? hash-table) key) *) + (tags pure)) + ((name . hash-table-ref) + (signature lambda ((hash-table? hash-table) key (procedure? failure)) *) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . hash-table-ref) + (signature + lambda + ((hash-table? hash-table) key (procedure? failure) (procedure? success)) + *) + (tags pure) + (subsigs (failure (lambda () *)) (success (lambda (value) *)))) + ((name . hash-table-ref/default) + (signature lambda ((hash-table? hash-table) key default) *) + (tags pure)) + ((name . hash-table-set!) + (signature lambda ((hash-table? hash-table) key1 value1 ...) undefined)) + ((name . hash-table-delete!) + (signature lambda ((hash-table? hash-table) key ...) undefined)) + ((name . hash-table-intern!) + (signature + lambda + ((hash-table? hash-table) key (procedure? failure)) + undefined) + (subsigs (failure (lambda () *)))) + ((name . hash-table-update!) + (signature + lambda + ((hash-table? hash-table) key (procedure? updater)) + undefined) + (subsigs (updated (lambda (value) *)))) + ((name . hash-table-update!) + (signature + lambda + ((hash-table? hash-table) key (procedure? updater) (procedure? failure)) + undefined) + (subsigs (updater (lambda (value) *)) (failure (lambda () *)))) + ((name . hash-table-update!) + (signature + lambda + ((hash-table? hash-table) + key + (procedure? updater) + (procedure? failure) + (procedure? success)) + undefined) + (subsigs + (updater (lambda (value) *)) + (failure (lambda () *)) + (success (lambda (value) *)))) + ((name . hash-table-update!/default) + (signature + lambda + ((hash-table? hash-table) key (procedure? updater) default) + undefined) + (subsigs (updated (lambda (value) *)))) + ((name . hash-table-pop!) + (signature lambda ((hash-table? hash-table)) (values * *))) + ((name . hash-table-clear!) + (signature lambda ((hash-table? hash-table)) undefined)) + ((name . hash-table-size) + (signature lambda ((hash-table? hash-table)) integer?) + (tags pure)) + ((name . hash-table-keys) + (signature lambda ((hash-table? hash-table)) list?) + (tags pure)) + ((name . hash-table-values) + (signature lambda ((hash-table? hash-table)) list?) + (tags pure)) + ((name . hash-table-entries) + (signature lambda ((hash-table? hash-table)) (values list? list?)) + (tags pure)) + ((name . hash-table-find) + (signature + lambda + ((procedure? proc) (hash-table? hash-table) (procedure? failure)) + *) + (tags pure) + (subsigs (proc (lambda (key value) *)) (failure (lambda () *)))) + ((name . hash-table-count) + (signature lambda ((procedure? pred) (hash-table? hash-table)) integer?) + (tags pure) + (subsigs (pred (lambda (key value) boolean?)))) + ((name . hash-table-map) + (signature + lambda + ((procedure? proc) (comparator? comparator) (hash-table? hash-table)) + hash-table?) + (tags pure) + (subsigs (proc (lambda (value) *)))) + ((name . hash-table-for-each) + (signature lambda ((procedure? proc) (hash-table? hash-table)) undefined) + (subsigs (proc (lambda (key value) undefined)))) + ((name . hash-table-walk) + (signature lambda ((hash-table? hash-table) (procedure? proc)) undefined) + (tags deprecated) + (subsigs (proc (lambda (key value) undefined)))) + ((name . hash-table-map!) + (signature + lambda + ((procedure? proc) (comparator? comparator) (hash-table? hash-table)) + undefined) + (subsigs (proc (lambda (key value) *)))) + ((name . hash-table-map->list) + (signature lambda ((procedure? proc) (hash-table? hash-table)) list?) + (subsigs (proc (lambda (key value) *)))) + ((name . hash-table-fold) + (signature lambda ((procedure? proc) seed (hash-table? hash-table)) *) + (tags pure) + (subsigs (proc (lambda (key value state) *)))) + ((name . hash-table-fold) + (signature lambda ((hash-table? hash-table) (procedure? proc) seed) *) + (tags pure deprecated) + (subsigs (proc (lambda (key value state) *)))) + ((name . hash-table-prune!) + (signature lambda ((procedure? proc) (hash-table? hash-table)) undefined) + (subsigs (proc (lambda (key value) boolean?)))) + ((name . hash-table-copy) + (signature lambda ((hash-table? hash-table)) hash-table?) + (tags pure)) + ((name . hash-table-copy) + (signature lambda ((hash-table? hash-table) (boolean? mutable)) hash-table?) + (tags pure)) + ((name . hash-table-empty-copy) + (signature lambda ((hash-table? hash-table)) hash-table?) + (tags pure)) + ((name . hash-table->alist) + (signature lambda ((hash-table? hash-table)) list?)) + ((name . hash-table-union!) + (signature + lambda + ((hash-table? hash-table1) (hash-table? hash-table2)) + hash-table?)) + ((name . hash-table-merge!) + (signature + lambda + ((hash-table? hash-table1) (hash-table? hash-table2)) + hash-table?) + (tags deprecated)) + ((name . hash-table-intersection!) + (signature + lambda + ((hash-table? hash-table1) (hash-table? hash-table2)) + hash-table?)) + ((name . hash-table-difference!) + (signature + lambda + ((hash-table? hash-table1) (hash-table? hash-table2)) + hash-table?)) + ((name . hash-table-xor!) + (signature + lambda + ((hash-table? hash-table1) (hash-table? hash-table2)) + hash-table?)) + ((name . hash) (signature lambda (obj) integer?) (tags deprecated)) + ((name . hash) (signature lambda (obj arg) integer?) (tags deprecated)) + ((name . string-hash) + (signature lambda ((string? str)) integer?) + (tags pure deprecated)) + ((name . string-hash) + (signature lambda ((string? str) arg) integer?) + (tags pure deprecated)) + ((name . string-ci-hash) + (signature lambda ((string? str)) integer?) + (tags pure deprecated)) + ((name . string-ci-hash) + (signature lambda ((string? str) arg) integer?) + (tags pure deprecated)) + ((name . hash-by-identity) + (signature lambda (obj) integer?) + (tags pure deprecated)) + ((name . hash-by-identity) + (signature lambda (obj arg) integer?) + (tags pure deprecated)) + ((name . hash-table-equivalence-function) + (signature lambda ((hash-table? hash-table)) procedure?) + (tags pure deprecated) + (subsigs (return (lambda (a b) boolean?)))) + ((name . hash-table-hash-function) + (signature lambda ((hash-table? hash-table)) procedure?) + (tags pure deprecated) + (subsigs (return (lambda (obj) integer?))))) diff --git a/types/scheme.ideque.scm b/types/scheme.ideque.scm index 7359429..9d08bf5 100644 --- a/types/scheme.ideque.scm +++ b/types/scheme.ideque.scm @@ -1,234 +1,189 @@ -( - - (ideque - (lambda (element ...) ideque?) - (pure)) - - (ideque-tabulate - (lambda ((integer? n) (procedure? proc)) ideque?) - (pure) - ((proc (lambda ((integer? k)) *)))) - - (ideque-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) ideque?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (ideque-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) ideque?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (ideque? - (lambda (x) boolean?) - (pure predicate)) - - (ideque= - (lambda ((procedure? elt=) (ideque? ideque) ...) boolean?) - (pure) - ((elt= (lambda (a b) boolean?)))) - - (ideque-any - (lambda ((procedure? pred) (ideque? ideque)) *) - (pure) - ((pred (lambda (element) *)))) - - (ideque-every - (lambda ((procedure? pred) (ideque? ideque)) *) - (pure) - ((pred (lambda (element) *)))) - - (ideque-front - (lambda ((ideque? ideque)) *) - (pure)) - - (ideque-back - (lambda ((ideque? ideque)) *) - (pure)) - - (ideque-remove-front - (lambda ((ideque? ideque)) ideque?) - (pure)) - - (ideque-remove-back - (lambda ((ideque? ideque)) ideque?) - (pure)) - - (ideque-add-front - (lambda ((ideque? ideque) obj) ideque?) - (pure)) - - (ideque-add-back - (lambda ((ideque? ideque) obj) ideque?) - (pure)) - - (ideque-ref - (lambda ((ideque? ideque) (integer? n)) *) - (pure)) - - (ideque-take - (lambda ((ideque? ideque) (integer? n)) ideque?) - (pure)) - - (ideque-take-right - (lambda ((ideque? ideque) (integer? n)) ideque?) - (pure)) - - (ideque-drop - (lambda ((ideque? ideque) (integer? n)) ideque?) - (pure)) - - (ideque-drop-right - (lambda ((ideque? ideque) (integer? n)) ideque?) - (pure)) - - (ideque-split-at - (lambda ((ideque? ideque) (integer? n)) (values ideque? ideque?)) - (pure)) - - (ideque-length - (lambda ((ideque? ideque)) integer?) - (pure)) - - (ideque-append - (lambda ((ideque? ideque) ...) ideque?) - (pure)) - - (ideque-reverse - (lambda ((ideque? ideque)) ideque?) - (pure)) - - (ideque-count - (lambda ((procedure? pred) (ideque? ideque)) integer?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-zip - (lambda ((ideque? ideque1) (ideque? ideque2) ...) ideque?) - (pure)) - - (ideque-map - (lambda ((procedure? proc) (ideque? ideque)) ideque?) - (pure) - ((proc (lambda (element) *)))) - - (ideque-filter-map - (lambda ((procedure? proc) (ideque? ideque)) ideque?) - (pure) - ((proc (lambda (element) *)))) - - (ideque-for-each - (lambda ((procedure? proc) (ideque? ideque)) undefined) - () - ((proc (lambda (element) undefined)))) - - (ideque-for-each-right - (lambda ((procedure? proc) (ideque? ideque)) undefined) - () - ((proc (lambda (element) undefined)))) - - (ideque-fold - (lambda ((procedure? proc) nil (ideque? ideque)) *) - (pure) - ((proc (lambda (element state) *)))) - - (ideque-fold-right - (lambda ((procedure? proc) nil (ideque? ideque)) *) - (pure) - ((proc (lambda (element state) *)))) - - (ideque-append-map - (lambda ((procedure? proc) (ideque? ideque)) ideque?) - (pure) - ((proc (lambda (element) list?)))) - - (ideque-filter - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-remove - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-partition - (lambda ((procedure? pred) (ideque? ideque)) (values ideque? ideque?)) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-find - (lambda ((procedure? pred) (ideque? ideque)) *) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-find - (lambda ((procedure? pred) (ideque? ideque) (procedure? failure)) *) - (pure) - ((pred (lambda (element) boolean?)) - (failure (lambda () *)))) - - (ideque-find-right - (lambda ((procedure? pred) (ideque? ideque)) *) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-find-right - (lambda ((procedure? pred) (ideque? ideque) (procedure? failure)) *) - (pure) - ((pred (lambda (element) boolean?)) - (failure (lambda () *)))) - - (ideque-take-while - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-take-while-right - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-drop-while - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-drop-while-right - (lambda ((procedure? pred) (ideque? ideque)) ideque?) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-span - (lambda ((procedure? pred) (ideque? ideque)) (values ideque? ideque?)) - (pure) - ((pred (lambda (element) boolean?)))) - - (ideque-break - (lambda ((procedure? pred) (ideque? ideque)) (values ideque? ideque?)) - (pure) - ((pred (lambda (element) boolean?)))) - - (list->ideque - (lambda ((list? list)) ideque?) - (pure)) - - (ideque->list - (lambda ((ideque? ideque)) list?) - (pure)) - - (generator->ideque - (lambda ((procedure? generator)) ideque?) - () - ((generator (lambda () *)))) - - (ideque->generator - (lambda ((ideque? ideque)) procedure?) - () - ((return (lambda () *)))) - - ) +(((name . ideque) (signature lambda (element ...) ideque?) (tags pure)) + ((name . ideque-tabulate) + (signature lambda ((integer? n) (procedure? proc)) ideque?) + (tags pure) + (subsigs (proc (lambda ((integer? k)) *)))) + ((name . ideque-unfold) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + ideque?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . ideque-unfold-right) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + ideque?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . ideque?) (signature lambda (x) boolean?) (tags pure predicate)) + ((name . ideque=) + (signature lambda ((procedure? elt=) (ideque? ideque) ...) boolean?) + (tags pure) + (subsigs (elt= (lambda (a b) boolean?)))) + ((name . ideque-any) + (signature lambda ((procedure? pred) (ideque? ideque)) *) + (tags pure) + (subsigs (pred (lambda (element) *)))) + ((name . ideque-every) + (signature lambda ((procedure? pred) (ideque? ideque)) *) + (tags pure) + (subsigs (pred (lambda (element) *)))) + ((name . ideque-front) (signature lambda ((ideque? ideque)) *) (tags pure)) + ((name . ideque-back) (signature lambda ((ideque? ideque)) *) (tags pure)) + ((name . ideque-remove-front) + (signature lambda ((ideque? ideque)) ideque?) + (tags pure)) + ((name . ideque-remove-back) + (signature lambda ((ideque? ideque)) ideque?) + (tags pure)) + ((name . ideque-add-front) + (signature lambda ((ideque? ideque) obj) ideque?) + (tags pure)) + ((name . ideque-add-back) + (signature lambda ((ideque? ideque) obj) ideque?) + (tags pure)) + ((name . ideque-ref) + (signature lambda ((ideque? ideque) (integer? n)) *) + (tags pure)) + ((name . ideque-take) + (signature lambda ((ideque? ideque) (integer? n)) ideque?) + (tags pure)) + ((name . ideque-take-right) + (signature lambda ((ideque? ideque) (integer? n)) ideque?) + (tags pure)) + ((name . ideque-drop) + (signature lambda ((ideque? ideque) (integer? n)) ideque?) + (tags pure)) + ((name . ideque-drop-right) + (signature lambda ((ideque? ideque) (integer? n)) ideque?) + (tags pure)) + ((name . ideque-split-at) + (signature lambda ((ideque? ideque) (integer? n)) (values ideque? ideque?)) + (tags pure)) + ((name . ideque-length) + (signature lambda ((ideque? ideque)) integer?) + (tags pure)) + ((name . ideque-append) + (signature lambda ((ideque? ideque) ...) ideque?) + (tags pure)) + ((name . ideque-reverse) + (signature lambda ((ideque? ideque)) ideque?) + (tags pure)) + ((name . ideque-count) + (signature lambda ((procedure? pred) (ideque? ideque)) integer?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-zip) + (signature lambda ((ideque? ideque1) (ideque? ideque2) ...) ideque?) + (tags pure)) + ((name . ideque-map) + (signature lambda ((procedure? proc) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (proc (lambda (element) *)))) + ((name . ideque-filter-map) + (signature lambda ((procedure? proc) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (proc (lambda (element) *)))) + ((name . ideque-for-each) + (signature lambda ((procedure? proc) (ideque? ideque)) undefined) + (subsigs (proc (lambda (element) undefined)))) + ((name . ideque-for-each-right) + (signature lambda ((procedure? proc) (ideque? ideque)) undefined) + (subsigs (proc (lambda (element) undefined)))) + ((name . ideque-fold) + (signature lambda ((procedure? proc) nil (ideque? ideque)) *) + (tags pure) + (subsigs (proc (lambda (element state) *)))) + ((name . ideque-fold-right) + (signature lambda ((procedure? proc) nil (ideque? ideque)) *) + (tags pure) + (subsigs (proc (lambda (element state) *)))) + ((name . ideque-append-map) + (signature lambda ((procedure? proc) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (proc (lambda (element) list?)))) + ((name . ideque-filter) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-remove) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-partition) + (signature + lambda + ((procedure? pred) (ideque? ideque)) + (values ideque? ideque?)) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-find) + (signature lambda ((procedure? pred) (ideque? ideque)) *) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-find) + (signature + lambda + ((procedure? pred) (ideque? ideque) (procedure? failure)) + *) + (tags pure) + (subsigs (pred (lambda (element) boolean?)) (failure (lambda () *)))) + ((name . ideque-find-right) + (signature lambda ((procedure? pred) (ideque? ideque)) *) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-find-right) + (signature + lambda + ((procedure? pred) (ideque? ideque) (procedure? failure)) + *) + (tags pure) + (subsigs (pred (lambda (element) boolean?)) (failure (lambda () *)))) + ((name . ideque-take-while) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-take-while-right) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-drop-while) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-drop-while-right) + (signature lambda ((procedure? pred) (ideque? ideque)) ideque?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-span) + (signature + lambda + ((procedure? pred) (ideque? ideque)) + (values ideque? ideque?)) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . ideque-break) + (signature + lambda + ((procedure? pred) (ideque? ideque)) + (values ideque? ideque?)) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . list->ideque) (signature lambda ((list? list)) ideque?) (tags pure)) + ((name . ideque->list) + (signature lambda ((ideque? ideque)) list?) + (tags pure)) + ((name . generator->ideque) + (signature lambda ((procedure? generator)) ideque?) + (subsigs (generator (lambda () *)))) + ((name . ideque->generator) + (signature lambda ((ideque? ideque)) procedure?) + (subsigs (return (lambda () *))))) diff --git a/types/scheme.ilist.scm b/types/scheme.ilist.scm index a0b74cf..e25048a 100644 --- a/types/scheme.ilist.scm +++ b/types/scheme.ilist.scm @@ -1,664 +1,417 @@ -( - (ipair - (lambda (a d) ipair?) - (pure)) - - (ilist - (lambda (object ...) ilist?) - (pure)) - - (xipair - (lambda (d a) ipair?) - (pure)) - - (ipair* - (lambda (elt1 elt2 ...) *)) - - (make-ilist - (lambda ((integer? n)) ilist?)) - - (make-ilist - (lambda ((integer? n) fill) ilist?) - (pure)) - - (ilist-tabulate - (lambda ((integer? n) (procedure? init-proc)) ilist?) - (pure) - ((init-proc (lambda ((integer? i)) *)))) - - (ilist-copy - (lambda ((ilist? dilist)) ilist?) - (pure)) - - (ilist-copy - (lambda ((dotted-ilist? dilist)) dotted-ilist?) - (pure)) - - (iiota - (lambda ((integer? count)) ilist?) - (pure)) - - (iiota - (lambda ((integer? count) (number? start)) ilist?) - (pure)) - - (iiota - (lambda ((integer? count) (number? start) (number? step)) ilist?) - (pure)) - - (proper-ilist? - (lambda (obj) boolean?) - (pure predicate) - () - (ilist?)) - - (ilist? - (lambda (obj) boolean?) - (pure predicate) - () - (ilist?)) - - (dotted-ilist? - (lambda (obj) boolean?) - (pure predicate) - () - (ipair?)) - - (ipair? - (lambda (obj) boolean?) - (pure predicate)) - - (null-ilist? - (lambda ((ilist? lst)) boolean?) - (pure predicate)) - - (not-ipair? - (lambda (obj) boolean?) - (pure predicate)) - - (ilist= - (lambda ((procedure? elt=) (ilist? ilist1) ...) boolean?) - (pure) - ((elt= (lambda (a b) *)))) - - (icaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icar - (lambda ((ipair? ipair)) *) - (pure)) - - (icdar - (lambda ((ipair? ipair)) *) - (pure)) - - (icddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icdr - (lambda ((ipair? ipair)) *) - (pure)) - - (icaaaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icaaadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icaaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icaadar - (lambda ((ipair? ipair)) *) - (pure)) - - (icaaddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icaadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icadaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icadadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icadar - (lambda ((ipair? ipair)) *) - (pure)) - - (icaddar - (lambda ((ipair? ipair)) *) - (pure)) - - (icadddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icaddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icdaaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icdaadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icdaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icdadar - (lambda ((ipair? ipair)) *) - (pure)) - - (icdaddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icdadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icddaar - (lambda ((ipair? ipair)) *) - (pure)) - - (icddadr - (lambda ((ipair? ipair)) *) - (pure)) - - (icddar - (lambda ((ipair? ipair)) *) - (pure)) - - (icdddar - (lambda ((ipair? ipair)) *) - (pure)) - - (icddddr - (lambda ((ipair? ipair)) *) - (pure)) - - (icdddr - (lambda ((ipair? ipair)) *) - (pure)) - - (ilist-ref - (lambda ((ilist? ilist) (integer? i)) *) - (pure)) - - (ifirst - (lambda ((ipair? ipair)) *) - (pure)) - - (isecond - (lambda ((ipair? ipair)) *) - (pure)) - - (ithird - (lambda ((ipair? ipair)) *) - (pure)) - - (ifourth - (lambda ((ipair? ipair)) *) - (pure)) - - (ififth - (lambda ((ipair? ipair)) *) - (pure)) - - (isixth - (lambda ((ipair? ipair)) *) - (pure)) - - (iseventh - (lambda ((ipair? ipair)) *) - (pure)) - - (ieighth - (lambda ((ipair? ipair)) *) - (pure)) - - (ininth - (lambda ((ipair? ipair)) *) - (pure)) - - (itenth - (lambda ((ipair? ipair)) *) - (pure)) - - (icar+cdr - (lambda ((ipair? ipair)) (values * *)) - (pure)) - - (itake - (lambda ((ilist? x) (integer? i)) ilist?) - (pure)) - - (itake - (lambda ((dotted-ilist? x) (integer? i)) ilist?) - (pure)) - - (idrop - (lambda ((ilist? x) (integer? i)) ilist?) - (pure)) - - (idrop - (lambda ((dotted-ilist? x) (integer? i)) *) - (pure)) - - (itake-right - (lambda ((ilist? dilist) (integer? i)) ilist?) - (pure)) - - (itake-right - (lambda ((dotted-ilist? dilist) (integer? i)) *) - (pure)) - - (idrop-right - (lambda ((ilist? dilist) (integer? i)) ilist?) - (pure)) - - (idrop-right - (lambda ((dotted-ilist? dilist) (integer? i)) ilist?) - (pure)) - - (isplit-at - (lambda ((ilist? x) (integer? i)) (values ilist? ilist?)) - (pure)) - - (isplit-at - (lambda ((dotted-ilist? x) (integer? i)) (values ilist? *)) - (pure)) - - (ilast - (lambda ((ilist? ipair)) *) - (pure)) - - (ilast-ipair - (lambda ((ilist? ipair)) ipair?) - (pure)) - - (ilength - (lambda ((ilist? ilist)) integer?) - (pure)) - - (iappend - (lambda ((ilist? ilist) ...) ilist?) - (pure)) - - (iappend - (lambda ((ilist? ilist) ... obj) *) - (pure)) - - (iconcatenate - (lambda ((ilist? ilist-of-ilists)) *) - (pure)) - - (ireverse - (lambda ((ilist? ilist)) ilist?) - (pure)) - - (iappend-reverse - (lambda ((ilist? rev-head) (ilist? tail)) ilist?) - (pure)) - - (iappend-reverse - (lambda ((ilist? rev-head) tail) *) - (pure)) - - (izip - (lambda ((ilist? ilist1) (ilist? ilist2) ...) ilist?) - (pure)) - - (iunzip1 - (lambda ((ilist? ilist)) ilist?) - (pure)) - - (iunzip2 - (lambda ((ilist? ilist)) (values ilist? ilist?)) - (pure)) - - (iunzip3 - (lambda ((ilist? ilist)) (values ilist? ilist? ilist?)) - (pure)) - - (iunzip4 - (lambda ((ilist? ilist)) (values ilist? ilist? ilist? ilist?)) - (pure)) - - (iunzip5 - (lambda ((ilist? ilist)) (values ilist? ilist? ilist? ilist? ilist?)) - (pure)) - - (icount - (lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) integer?) - (pure) - ((pred (lambda (obj ...) *)))) - - (ifold - (lambda ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((kons (lambda (obj1 obj2 ... fold-state) *)))) - - (ifold-right - (lambda ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((kons (lambda (obj1 obj2 ... fold-state) *)))) - - (ipair-fold - (lambda ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((kons (lambda ((ipair? ipair1) (ipair? ipair2) ... fold-state) *)))) - - (ipair-fold-right - (lambda ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((kons (lambda ((ipair? ipair1) (ipair? ipair2) ... fold-state) *)))) - - (ireduce - (lambda ((procedure? f) ridentity (ilist? ilist))*) - (pure) - ((f (lambda (obj fold-state) *)))) - - (ireduce-right - (lambda ((procedure? f) ridentity (ilist? ilist))*) - (pure) - ((f (lambda (obj fold-state) *)))) - - (iunfold - (lambda ((procedure? p) (procedure? f) (procedure? g) seed) ilist?) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)))) - - (iunfold - (lambda ((procedure? p) (procedure? f) (procedure? g) seed (ilist? tail-gen)) *) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)) - (tail-gen (lambda () *)))) - - (iunfold-right - (lambda ((procedure? p) (procedure? f) (procedure? g) seed) ilist?) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)))) - - (iunfold-right - (lambda ((procedure? p) (procedure? f) (procedure? g) seed (ilist? tail-gen)) *) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)) - (tail-gen (lambda () *)))) - - (imap - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) ilist?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (ifor-each - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) undefined) - () - ((proc (lambda (obj1 obj2 ...) undefined)))) - - (iappend-map - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) ilist?) - (pure) - ((proc (lambda (obj1 obj2 ...) ilist?)))) - - (imap-in-order - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) ilist?) - () - ((proc (lambda (obj1 obj2 ...) *)))) - - (ipair-for-each - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) undefined) - () - ((proc (lambda ((ipair? obj1) (ipair? obj2) ...) undefined)))) - - (ifilter-map - (lambda ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) ilist?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (ifilter - (lambda ((procedure? pred) (ilist? ilist)) ilist?) - (pure) - ((pred (lambda (obj) *)))) - - (ipartition - (lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) - (pure) - ((pred (lambda (obj) *)))) - - (iremove - (lambda ((procedure? pred) (ilist? ilist)) ilist?) - (pure) - ((pred (lambda (obj) *)))) - - (ifind - (lambda ((procedure? pred) (ilist? ilist)) *) - (pure) - ((pred (lambda (obj) *)))) - - (ifind-tail - (lambda ((procedure? pred) (ilist? ilist)) (or ipair? #f)) - (pure) - ((pred (lambda (obj) *)))) - - (itake-while - (lambda ((procedure? pred) (ilist? ilist)) ilist?) - (pure) - ((pred (lambda (obj) *)))) - - (idrop-while - (lambda ((procedure? pred) (ilist? ilist)) ilist?) - (pure) - ((pred (lambda (obj) *)))) - - (ispan - (lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) - (pure) - ((pred (lambda (obj) *)))) - - (ibreak - (lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) - (pure) - ((pred (lambda (obj) *)))) - - (iany - (lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (ievery - (lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) *) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (ilist-index - (lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) (or integer? #f)) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (imember - (lambda (obj (ilist? ilist)) (or #f ilist?)) - (pure)) - - (imember - (lambda (obj (ilist? ilist) (procedure? =)) (or #f ilist?)) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (imemq - (lambda (obj (ilist? ilist)) (or #f ilist?)) - (pure)) - - (imemv - (lambda (obj (ilist? ilist)) (or #f ilist?)) - (pure)) - - (idelete - (lambda (obj (ilist? ilist)) ilist?) - (pure)) - - (idelete - (lambda (obj (ilist? ilist) (procedure? =)) ilist?) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (idelete-duplicates - (lambda ((ilist? ilist)) ilist?) - (pure)) - - (idelete-duplicates - (lambda ((ilist? ilist) (procedure? =)) ilist?) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (iassoc - (lambda (obj (ilist? ialist)) (or ilist? #f)) - (pure)) - - (iassoc - (lambda (obj (ilist? ialist) (procedure? =)) (or ipair? #f)) - (pure) - ((= (lambda (a b) *)))) - - (iassq - (lambda (obj (ilist? ialist)) (or ipair? #f)) - (pure)) - - (iassv - (lambda (obj (ilist? ialist)) (or ipair? #f)) - (pure)) - - (ialist-cons - (lambda (key datum (ilist? ialist)) ilist?) - (pure)) - - (ialist-delete - (lambda (key (ilist? ialist)) ilist?) - (pure)) - - (ialist-delete - (lambda (key (ilist? ialist) (procedure? =)) ilist?) - (pure) - ((= (lambda (a b) *)))) - - (replace-icar - (lambda ((ipair? ipair) object) ipair?)) - - (replace-icdr - (lambda ((ipair? ipair) object) ipair?)) - - (pair->ipair - (lambda ((pair? pair)) ipair?) - (pure)) - - (ipair->pair - (lambda ((ipair? ipair)) pair?) - (pure)) - - (list->ilist - (lambda ((list? flist)) ilist?) - (pure)) - - (list->ilist - (lambda ((dotted-list? flist)) dotted-ilist?) - (pure)) - - (ilist->list - (lambda ((ilist? flist)) list?) - (pure)) - - (ilist->list - (lambda ((dotted-ilist? flist)) dotted-list?) - (pure)) - - (tree->itree - (lambda ((pair? pair)) ipair?) - (pure)) - - (tree->itree - (lambda (object) *) - (pure)) - - (itree->tree - (lambda ((ipair? ipair)) pair?) - (pure)) - - (itree->tree - (lambda (object) *) - (pure)) - - (gtree->itree - (lambda ((pair? pair)) ipair?) - (pure)) - - (gtree->itree - (lambda (object) *) - (pure)) - - (gitree->tree - (lambda ((ipair? ipair)) pair?) - (pure)) - - (gitree->tree - (lambda (object) *) - (pure)) - - (iapply - (lambda ((procedure? proc) arg1 ... (ilist? args)) *) - (pure)) - - (ipair-comparator - (value comparator?)) - - (ilist-comparator - (value comparator?)) - - (make-ilist-comparator - (lambda ((comparator? element-comparator)) comparator?) - (pure)) - - (make-improper-ilist-comparator - (lambda ((comparator? element-comparator)) comparator?) - (pure)) - - (make-ipair-comparator - (lambda ((comparator? car-comparator) (comparator? cdr-comparator)) comparator?) - (pure)) - - (make-icar-comparator - (lambda ((comparator? comparator)) comparator?) - (pure)) - - (make-icdr-comparator - (lambda ((comparator? comparator)) comparator?) - (pure)) - - ) +(((name . ipair) (signature lambda (a d) ipair?) (tags pure)) + ((name . ilist) (signature lambda (object ...) ilist?) (tags pure)) + ((name . xipair) (signature lambda (d a) ipair?) (tags pure)) + ((name . ipair*) (signature lambda (elt1 elt2 ...) *)) + ((name . make-ilist) (signature lambda ((integer? n)) ilist?)) + ((name . make-ilist) + (signature lambda ((integer? n) fill) ilist?) + (tags pure)) + ((name . ilist-tabulate) + (signature lambda ((integer? n) (procedure? init-proc)) ilist?) + (tags pure) + (subsigs (init-proc (lambda ((integer? i)) *)))) + ((name . ilist-copy) (signature lambda ((ilist? dilist)) ilist?) (tags pure)) + ((name . ilist-copy) + (signature lambda ((dotted-ilist? dilist)) dotted-ilist?) + (tags pure)) + ((name . iiota) (signature lambda ((integer? count)) ilist?) (tags pure)) + ((name . iiota) + (signature lambda ((integer? count) (number? start)) ilist?) + (tags pure)) + ((name . iiota) + (signature lambda ((integer? count) (number? start) (number? step)) ilist?) + (tags pure)) + ((name . proper-ilist?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes ilist?)) + ((name . ilist?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes ilist?)) + ((name . dotted-ilist?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes ipair?)) + ((name . ipair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . null-ilist?) + (signature lambda ((ilist? lst)) boolean?) + (tags pure predicate)) + ((name . not-ipair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . ilist=) + (signature lambda ((procedure? elt=) (ilist? ilist1) ...) boolean?) + (tags pure) + (subsigs (elt= (lambda (a b) *)))) + ((name . icaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaaaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaaadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaadar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaaddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icadaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icadadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icadar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaddar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icadddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icaddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdaaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdaadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdadar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdaddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icddaar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icddadr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icddar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdddar) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icddddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icdddr) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ilist-ref) + (signature lambda ((ilist? ilist) (integer? i)) *) + (tags pure)) + ((name . ifirst) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . isecond) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ithird) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ifourth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ififth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . isixth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . iseventh) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ieighth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . ininth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . itenth) (signature lambda ((ipair? ipair)) *) (tags pure)) + ((name . icar+cdr) + (signature lambda ((ipair? ipair)) (values * *)) + (tags pure)) + ((name . itake) + (signature lambda ((ilist? x) (integer? i)) ilist?) + (tags pure)) + ((name . itake) + (signature lambda ((dotted-ilist? x) (integer? i)) ilist?) + (tags pure)) + ((name . idrop) + (signature lambda ((ilist? x) (integer? i)) ilist?) + (tags pure)) + ((name . idrop) + (signature lambda ((dotted-ilist? x) (integer? i)) *) + (tags pure)) + ((name . itake-right) + (signature lambda ((ilist? dilist) (integer? i)) ilist?) + (tags pure)) + ((name . itake-right) + (signature lambda ((dotted-ilist? dilist) (integer? i)) *) + (tags pure)) + ((name . idrop-right) + (signature lambda ((ilist? dilist) (integer? i)) ilist?) + (tags pure)) + ((name . idrop-right) + (signature lambda ((dotted-ilist? dilist) (integer? i)) ilist?) + (tags pure)) + ((name . isplit-at) + (signature lambda ((ilist? x) (integer? i)) (values ilist? ilist?)) + (tags pure)) + ((name . isplit-at) + (signature lambda ((dotted-ilist? x) (integer? i)) (values ilist? *)) + (tags pure)) + ((name . ilast) (signature lambda ((ilist? ipair)) *) (tags pure)) + ((name . ilast-ipair) (signature lambda ((ilist? ipair)) ipair?) (tags pure)) + ((name . ilength) (signature lambda ((ilist? ilist)) integer?) (tags pure)) + ((name . iappend) (signature lambda ((ilist? ilist) ...) ilist?) (tags pure)) + ((name . iappend) (signature lambda ((ilist? ilist) ... obj) *) (tags pure)) + ((name . iconcatenate) + (signature lambda ((ilist? ilist-of-ilists)) *) + (tags pure)) + ((name . ireverse) (signature lambda ((ilist? ilist)) ilist?) (tags pure)) + ((name . iappend-reverse) + (signature lambda ((ilist? rev-head) (ilist? tail)) ilist?) + (tags pure)) + ((name . iappend-reverse) + (signature lambda ((ilist? rev-head) tail) *) + (tags pure)) + ((name . izip) + (signature lambda ((ilist? ilist1) (ilist? ilist2) ...) ilist?) + (tags pure)) + ((name . iunzip1) (signature lambda ((ilist? ilist)) ilist?) (tags pure)) + ((name . iunzip2) + (signature lambda ((ilist? ilist)) (values ilist? ilist?)) + (tags pure)) + ((name . iunzip3) + (signature lambda ((ilist? ilist)) (values ilist? ilist? ilist?)) + (tags pure)) + ((name . iunzip4) + (signature lambda ((ilist? ilist)) (values ilist? ilist? ilist? ilist?)) + (tags pure)) + ((name . iunzip5) + (signature + lambda + ((ilist? ilist)) + (values ilist? ilist? ilist? ilist? ilist?)) + (tags pure)) + ((name . icount) + (signature + lambda + ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) + integer?) + (tags pure) + (subsigs (pred (lambda (obj ...) *)))) + ((name . ifold) + (signature + lambda + ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) + *) + (tags pure) + (subsigs (kons (lambda (obj1 obj2 ... fold-state) *)))) + ((name . ifold-right) + (signature + lambda + ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) + *) + (tags pure) + (subsigs (kons (lambda (obj1 obj2 ... fold-state) *)))) + ((name . ipair-fold) + (signature + lambda + ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) + *) + (tags pure) + (subsigs (kons (lambda ((ipair? ipair1) (ipair? ipair2) ... fold-state) *)))) + ((name . ipair-fold-right) + (signature + lambda + ((procedure? kons) knil (ilist? ilist1) (ilist? ilist2) ...) + *) + (tags pure) + (subsigs (kons (lambda ((ipair? ipair1) (ipair? ipair2) ... fold-state) *)))) + ((name . ireduce) + (signature lambda ((procedure? f) ridentity (ilist? ilist)) *) + (tags pure) + (subsigs (f (lambda (obj fold-state) *)))) + ((name . ireduce-right) + (signature lambda ((procedure? f) ridentity (ilist? ilist)) *) + (tags pure) + (subsigs (f (lambda (obj fold-state) *)))) + ((name . iunfold) + (signature lambda ((procedure? p) (procedure? f) (procedure? g) seed) ilist?) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)))) + ((name . iunfold) + (signature + lambda + ((procedure? p) (procedure? f) (procedure? g) seed (ilist? tail-gen)) + *) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)) + (tail-gen (lambda () *)))) + ((name . iunfold-right) + (signature lambda ((procedure? p) (procedure? f) (procedure? g) seed) ilist?) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)))) + ((name . iunfold-right) + (signature + lambda + ((procedure? p) (procedure? f) (procedure? g) seed (ilist? tail-gen)) + *) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)) + (tail-gen (lambda () *)))) + ((name . imap) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + ilist?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . ifor-each) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + undefined) + (subsigs (proc (lambda (obj1 obj2 ...) undefined)))) + ((name . iappend-map) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + ilist?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) ilist?)))) + ((name . imap-in-order) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + ilist?) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . ipair-for-each) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + undefined) + (subsigs (proc (lambda ((ipair? obj1) (ipair? obj2) ...) undefined)))) + ((name . ifilter-map) + (signature + lambda + ((procedure? proc) (ilist? ilist1) (ilist? ilist2) ...) + ilist?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . ifilter) + (signature lambda ((procedure? pred) (ilist? ilist)) ilist?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . ipartition) + (signature lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . iremove) + (signature lambda ((procedure? pred) (ilist? ilist)) ilist?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . ifind) + (signature lambda ((procedure? pred) (ilist? ilist)) *) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . ifind-tail) + (signature lambda ((procedure? pred) (ilist? ilist)) (or ipair? #f)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . itake-while) + (signature lambda ((procedure? pred) (ilist? ilist)) ilist?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . idrop-while) + (signature lambda ((procedure? pred) (ilist? ilist)) ilist?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . ispan) + (signature lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . ibreak) + (signature lambda ((procedure? pred) (ilist? ilist)) (values ilist? ilist?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . iany) + (signature lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) *) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . ievery) + (signature lambda ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) *) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . ilist-index) + (signature + lambda + ((procedure? pred) (ilist? ilist1) (ilist? ilist2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . imember) + (signature lambda (obj (ilist? ilist)) (or #f ilist?)) + (tags pure)) + ((name . imember) + (signature lambda (obj (ilist? ilist) (procedure? =)) (or #f ilist?)) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . imemq) + (signature lambda (obj (ilist? ilist)) (or #f ilist?)) + (tags pure)) + ((name . imemv) + (signature lambda (obj (ilist? ilist)) (or #f ilist?)) + (tags pure)) + ((name . idelete) (signature lambda (obj (ilist? ilist)) ilist?) (tags pure)) + ((name . idelete) + (signature lambda (obj (ilist? ilist) (procedure? =)) ilist?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . idelete-duplicates) + (signature lambda ((ilist? ilist)) ilist?) + (tags pure)) + ((name . idelete-duplicates) + (signature lambda ((ilist? ilist) (procedure? =)) ilist?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . iassoc) + (signature lambda (obj (ilist? ialist)) (or ilist? #f)) + (tags pure)) + ((name . iassoc) + (signature lambda (obj (ilist? ialist) (procedure? =)) (or ipair? #f)) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . iassq) + (signature lambda (obj (ilist? ialist)) (or ipair? #f)) + (tags pure)) + ((name . iassv) + (signature lambda (obj (ilist? ialist)) (or ipair? #f)) + (tags pure)) + ((name . ialist-cons) + (signature lambda (key datum (ilist? ialist)) ilist?) + (tags pure)) + ((name . ialist-delete) + (signature lambda (key (ilist? ialist)) ilist?) + (tags pure)) + ((name . ialist-delete) + (signature lambda (key (ilist? ialist) (procedure? =)) ilist?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . replace-icar) (signature lambda ((ipair? ipair) object) ipair?)) + ((name . replace-icdr) (signature lambda ((ipair? ipair) object) ipair?)) + ((name . pair->ipair) (signature lambda ((pair? pair)) ipair?) (tags pure)) + ((name . ipair->pair) (signature lambda ((ipair? ipair)) pair?) (tags pure)) + ((name . list->ilist) (signature lambda ((list? flist)) ilist?) (tags pure)) + ((name . list->ilist) + (signature lambda ((dotted-list? flist)) dotted-ilist?) + (tags pure)) + ((name . ilist->list) (signature lambda ((ilist? flist)) list?) (tags pure)) + ((name . ilist->list) + (signature lambda ((dotted-ilist? flist)) dotted-list?) + (tags pure)) + ((name . tree->itree) (signature lambda ((pair? pair)) ipair?) (tags pure)) + ((name . tree->itree) (signature lambda (object) *) (tags pure)) + ((name . itree->tree) (signature lambda ((ipair? ipair)) pair?) (tags pure)) + ((name . itree->tree) (signature lambda (object) *) (tags pure)) + ((name . gtree->itree) (signature lambda ((pair? pair)) ipair?) (tags pure)) + ((name . gtree->itree) (signature lambda (object) *) (tags pure)) + ((name . gitree->tree) (signature lambda ((ipair? ipair)) pair?) (tags pure)) + ((name . gitree->tree) (signature lambda (object) *) (tags pure)) + ((name . iapply) + (signature lambda ((procedure? proc) arg1 ... (ilist? args)) *) + (tags pure)) + ((name . ipair-comparator) (signature value comparator?)) + ((name . ilist-comparator) (signature value comparator?)) + ((name . make-ilist-comparator) + (signature lambda ((comparator? element-comparator)) comparator?) + (tags pure)) + ((name . make-improper-ilist-comparator) + (signature lambda ((comparator? element-comparator)) comparator?) + (tags pure)) + ((name . make-ipair-comparator) + (signature + lambda + ((comparator? car-comparator) (comparator? cdr-comparator)) + comparator?) + (tags pure)) + ((name . make-icar-comparator) + (signature lambda ((comparator? comparator)) comparator?) + (tags pure)) + ((name . make-icdr-comparator) + (signature lambda ((comparator? comparator)) comparator?) + (tags pure))) diff --git a/types/scheme.inexact.scm b/types/scheme.inexact.scm index 80a1f30..8a49de9 100644 --- a/types/scheme.inexact.scm +++ b/types/scheme.inexact.scm @@ -1,41 +1,15 @@ -( - (acos - (lambda ((number? z)) number?) - (pure)) - (asin - (lambda ((number? z)) number?) - (pure)) - (atan - (lambda ((number? z)) number?) - (pure)) - (cos - (lambda ((number? z)) number?) - (pure)) - (exp - (lambda ((number? z)) number?) - (pure)) - (finite? - (lambda ((number? z)) boolean?) - (pure)) - (infinite? - (lambda ((number? z)) boolean?) - (pure)) - (log - (lambda ((number? z)) number?) - (pure)) - (log - (lambda ((number? z1) (number? z2)) number?) - (pure)) - (nan? - (lambda ((number? z)) boolean?) - (pure)) - (sin - (lambda ((number? z)) number?) - (pure)) - (sqrt - (lambda ((number? z)) number?) - (pure)) - (tan - (lambda ((number? z)) number?) - (pure)) - ) +(((name . acos) (signature lambda ((number? z)) number?) (tags pure)) + ((name . asin) (signature lambda ((number? z)) number?) (tags pure)) + ((name . atan) (signature lambda ((number? z)) number?) (tags pure)) + ((name . cos) (signature lambda ((number? z)) number?) (tags pure)) + ((name . exp) (signature lambda ((number? z)) number?) (tags pure)) + ((name . finite?) (signature lambda ((number? z)) boolean?) (tags pure)) + ((name . infinite?) (signature lambda ((number? z)) boolean?) (tags pure)) + ((name . log) (signature lambda ((number? z)) number?) (tags pure)) + ((name . log) + (signature lambda ((number? z1) (number? z2)) number?) + (tags pure)) + ((name . nan?) (signature lambda ((number? z)) boolean?) (tags pure)) + ((name . sin) (signature lambda ((number? z)) number?) (tags pure)) + ((name . sqrt) (signature lambda ((number? z)) number?) (tags pure)) + ((name . tan) (signature lambda ((number? z)) number?) (tags pure))) diff --git a/types/scheme.lazy.scm b/types/scheme.lazy.scm index 686407a..832d459 100644 --- a/types/scheme.lazy.scm +++ b/types/scheme.lazy.scm @@ -1,22 +1,5 @@ -( - - (delay - (lambda (expression) promise?) - (syntax)) - - (delay-force - (lambda (expression) promise?) - (syntax)) - - (force - (lambda ((promise? promise)) *)) - - (make-promise - (lambda (obj) promise?) - (pure)) - - (promise? - (lambda (obj) boolean?) - (pure predicate)) - - ) +(((name . delay) (signature syntax-rules () ((_ expression) promise?))) + ((name . delay-force) (signature syntax-rules () ((_ expression) promise?)) (tags)) + ((name . force) (signature lambda ((promise? promise)) *)) + ((name . make-promise) (signature lambda (obj) promise?) (tags pure)) + ((name . promise?) (signature lambda (obj) boolean?) (tags pure predicate))) diff --git a/types/scheme.list-queue.scm b/types/scheme.list-queue.scm index e336f8b..f3a590f 100644 --- a/types/scheme.list-queue.scm +++ b/types/scheme.list-queue.scm @@ -1,126 +1,109 @@ -( - - (make-list-queue - (lambda ((list? list)) list-queue?) - (pure)) - - (make-list-queue - (lambda ((list? list) (pair? last)) list-queue?) - (pure)) - - (list-queue - (lambda (element ...) list-queue?) - (pure)) - - (list-queue - (lambda ((list-queue? list-queue)) list-queue?) - (pure)) - - (list-queue-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) list-queue?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (list-queue-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (list-queue? queue)) list-queue?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (list-queue-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) list-queue?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (list-queue-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (list-queue? queue)) list-queue?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (list-queue? - (lambda (obj) boolean?) - (pure predicate)) - - (list-queue-empty? - (lambda ((list-queue? list-queue)) boolean?) - (pure)) - - (list-queue-front - (lambda ((list-queue? list-queue)) *) - (pure)) - - (list-queue-back - (lambda ((list-queue? list-queue)) *) - (pure)) - - (list-queue-list - (lambda ((list-queue? list-queue)) list?) - (pure)) - - (list-queue-first-last - (lambda ((list-queue? list-queue)) (values list? list?)) - (pure)) - - (list-queue-add-front! - (lambda ((list-queue? list-queue) element) undefined) - ()) - - (list-queue-add-back! - (lambda ((list-queue? list-queue) element) undefined) - ()) - - (list-queue-remove-front! - (lambda ((list-queue? list-queue)) *) - ()) - - (list-queue-remove-back! - (lambda ((list-queue? list-queue)) *) - ()) - - (list-queue-remove-all! - (lambda ((list-queue? list-queue)) list?) - ()) - - (list-queue-set-list! - (lambda ((list-queue? list-queue) (list? list)) undefined) - ()) - - (list-queue-set-list! - (lambda ((list-queue? list-queue) (list? list) (pair? last)) undefined) - ()) - - (list-queue-append - (lambda ((list-queue? list-queue) ...) list-queue?) - (pure)) - - (list-queue-append! - (lambda ((list-queue? list-queue) ...) list-queue?) - ()) - - (list-queue-concatenate - (lambda ((list? list-of-list-queues)) list-queue?) - (pure)) - - (list-queue-map - (lambda ((procedure? proc) (list-queue? list-queue)) list-queue?) - (pure) - ((proc (lambda (element) *)))) - - (list-queue-map! - (lambda ((procedure? proc) (list-queue? list-queue)) undefined) - () - ((proc (lambda (element) *)))) - - (list-queue-for-each - (lambda ((procedure? proc) (list-queue? list-queue)) undefined) - () - ((proc (lambda (element) undefined)))) - - ) +(((name . make-list-queue) + (signature lambda ((list? list)) list-queue?) + (tags pure)) + ((name . make-list-queue) + (signature lambda ((list? list) (pair? last)) list-queue?) + (tags pure)) + ((name . list-queue) (signature lambda (element ...) list-queue?) (tags pure)) + ((name . list-queue) + (signature lambda ((list-queue? list-queue)) list-queue?) + (tags pure)) + ((name . list-queue-unfold) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + list-queue?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . list-queue-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (list-queue? queue)) + list-queue?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . list-queue-unfold-right) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + list-queue?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . list-queue-unfold-right) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (list-queue? queue)) + list-queue?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . list-queue?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . list-queue-empty?) + (signature lambda ((list-queue? list-queue)) boolean?) + (tags pure)) + ((name . list-queue-front) + (signature lambda ((list-queue? list-queue)) *) + (tags pure)) + ((name . list-queue-back) + (signature lambda ((list-queue? list-queue)) *) + (tags pure)) + ((name . list-queue-list) + (signature lambda ((list-queue? list-queue)) list?) + (tags pure)) + ((name . list-queue-first-last) + (signature lambda ((list-queue? list-queue)) (values list? list?)) + (tags pure)) + ((name . list-queue-add-front!) + (signature lambda ((list-queue? list-queue) element) undefined)) + ((name . list-queue-add-back!) + (signature lambda ((list-queue? list-queue) element) undefined)) + ((name . list-queue-remove-front!) + (signature lambda ((list-queue? list-queue)) *)) + ((name . list-queue-remove-back!) + (signature lambda ((list-queue? list-queue)) *)) + ((name . list-queue-remove-all!) + (signature lambda ((list-queue? list-queue)) list?)) + ((name . list-queue-set-list!) + (signature lambda ((list-queue? list-queue) (list? list)) undefined)) + ((name . list-queue-set-list!) + (signature + lambda + ((list-queue? list-queue) (list? list) (pair? last)) + undefined)) + ((name . list-queue-append) + (signature lambda ((list-queue? list-queue) ...) list-queue?) + (tags pure)) + ((name . list-queue-append!) + (signature lambda ((list-queue? list-queue) ...) list-queue?)) + ((name . list-queue-concatenate) + (signature lambda ((list? list-of-list-queues)) list-queue?) + (tags pure)) + ((name . list-queue-map) + (signature lambda ((procedure? proc) (list-queue? list-queue)) list-queue?) + (tags pure) + (subsigs (proc (lambda (element) *)))) + ((name . list-queue-map!) + (signature lambda ((procedure? proc) (list-queue? list-queue)) undefined) + (subsigs (proc (lambda (element) *)))) + ((name . list-queue-for-each) + (signature lambda ((procedure? proc) (list-queue? list-queue)) undefined) + (subsigs (proc (lambda (element) undefined))))) diff --git a/types/scheme.list.scm b/types/scheme.list.scm index 01cbbea..80425c8 100644 --- a/types/scheme.list.scm +++ b/types/scheme.list.scm @@ -1,805 +1,508 @@ -( - (cons - (lambda (a d) pair?) - (pure)) - - (list - (lambda (object ...) list?) - (pure)) - - (xcons - (lambda (d a) pair?) - (pure)) - - (cons* - (lambda (elt1 elt2 ...) *)) - - (make-list - (lambda ((integer? n)) list?)) - - (make-list - (lambda ((integer? n) fill) list?) - (pure)) - - (list-tabulate - (lambda ((integer? n) (procedure? init-proc)) list?) - (pure) - ((init-proc (lambda ((integer? i)) *)))) - - (list-copy - (lambda ((list? flist)) list?) - (pure)) - - (list-copy - (lambda ((dotted-list? flist)) dotted-list?) - (pure)) - - (circular-list - (lambda (elt1 elt2 ...) circular-list?) - (pure)) - - (iota - (lambda ((integer? count)) list?) - (pure)) - - (iota - (lambda ((integer? count) (number? start)) list?) - (pure)) - - (iota - (lambda ((integer? count) (number? start) (number? step)) list?) - (pure)) - - (proper-list? - (lambda (obj) boolean?) - (pure predicate) - ()) - - (circular-list? - (lambda (obj) boolean?) - (pure predicate) - () - (pair?)) - - (dotted-list? - (lambda (obj) boolean?) - (pure predicate) - () - (pair?)) - - (pair? - (lambda (obj) boolean?) - (pure predicate)) - - (null? - (lambda (obj) boolean?) - (pure predicate)) - - (null-list? - (lambda ((list? lst)) boolean?) - (pure predicate)) - - (null-list? - (lambda ((circular-list? lst)) boolean?) - (pure predicate)) - - (not-pair? - (lambda (obj) boolean?) - (pure predicate)) - - (list= - (lambda ((procedure? elt=) (list? list1) ...) boolean?) - (pure) - ((elt= (lambda (a b) *)))) - - (caar - (lambda ((pair? pair)) *) - (pure)) - - (cadr - (lambda ((pair? pair)) *) - (pure)) - - (car - (lambda ((pair? pair)) *) - (pure)) - - (cdar - (lambda ((pair? pair)) *) - (pure)) - - (cddr - (lambda ((pair? pair)) *) - (pure)) - - (cdr - (lambda ((pair? pair)) *) - (pure)) - - (caaaar - (lambda ((pair? pair)) *) - (pure)) - - (caaadr - (lambda ((pair? pair)) *) - (pure)) - - (caaar - (lambda ((pair? pair)) *) - (pure)) - - (caadar - (lambda ((pair? pair)) *) - (pure)) - - (caaddr - (lambda ((pair? pair)) *) - (pure)) - - (caadr - (lambda ((pair? pair)) *) - (pure)) - - (cadaar - (lambda ((pair? pair)) *) - (pure)) - - (cadadr - (lambda ((pair? pair)) *) - (pure)) - - (cadar - (lambda ((pair? pair)) *) - (pure)) - - (caddar - (lambda ((pair? pair)) *) - (pure)) - - (cadddr - (lambda ((pair? pair)) *) - (pure)) - - (caddr - (lambda ((pair? pair)) *) - (pure)) - - (cdaaar - (lambda ((pair? pair)) *) - (pure)) - - (cdaadr - (lambda ((pair? pair)) *) - (pure)) - - (cdaar - (lambda ((pair? pair)) *) - (pure)) - - (cdadar - (lambda ((pair? pair)) *) - (pure)) - - (cdaddr - (lambda ((pair? pair)) *) - (pure)) - - (cdadr - (lambda ((pair? pair)) *) - (pure)) - - (cddaar - (lambda ((pair? pair)) *) - (pure)) - - (cddadr - (lambda ((pair? pair)) *) - (pure)) - - (cddar - (lambda ((pair? pair)) *) - (pure)) - - (cdddar - (lambda ((pair? pair)) *) - (pure)) - - (cddddr - (lambda ((pair? pair)) *) - (pure)) - - (cdddr - (lambda ((pair? pair)) *) - (pure)) - - (list-ref - (lambda ((list? clist) (integer? i)) *) - (pure)) - - (list-ref - (lambda ((circular-list? clist) (integer? i)) *) - (pure)) - - (first - (lambda ((pair? pair)) *) - (pure)) - - (second - (lambda ((pair? pair)) *) - (pure)) - - (third - (lambda ((pair? pair)) *) - (pure)) - - (fourth - (lambda ((pair? pair)) *) - (pure)) - - (fifth - (lambda ((pair? pair)) *) - (pure)) - - (sixth - (lambda ((pair? pair)) *) - (pure)) - - (seventh - (lambda ((pair? pair)) *) - (pure)) - - (eighth - (lambda ((pair? pair)) *) - (pure)) - - (ninth - (lambda ((pair? pair)) *) - (pure)) - - (tenth - (lambda ((pair? pair)) *) - (pure)) - - (car+cdr - (lambda ((pair? pair)) (values * *)) - (pure)) - - (take - (lambda ((list? x) (integer? i)) list?) - (pure)) - - (take - (lambda ((circular-list? x) (integer? i)) list?) - (pure)) - - (take - (lambda ((dotted-list? x) (integer? i)) list?) - (pure)) - - (drop - (lambda ((list? x) (integer? i)) list?) - (pure)) - - (drop - (lambda ((circular-list? x) (integer? i)) circular-list?) - (pure)) - - (drop - (lambda ((dotted-list? x) (integer? i)) *) - (pure)) - - (take-right - (lambda ((list? flist) (integer? i)) list?) - (pure)) - - (take-right - (lambda ((dotted-list? flist) (integer? i)) *) - (pure)) - - (drop-right - (lambda ((list? flist) (integer? i)) list?) - (pure)) - - (drop-right - (lambda ((dotted-list? flist) (integer? i)) list?) - (pure)) - - (take! - (lambda ((list? x) (integer? i)) list?)) - - (take! - (lambda ((circular-list? x) (integer? i)) list?)) - - (take! - (lambda ((dotted-list? x) (integer? i)) list?)) - - (drop-right! - (lambda ((list? flist) (integer? i)) list?)) - - (drop-right! - (lambda ((dotted-list? flist) (integer? i)) list?)) - - (split-at - (lambda ((list? x) (integer? i)) (values list? list?)) - (pure)) - - (split-at - (lambda ((circular-list? x) (integer? i)) (values list? circular-list?)) - (pure)) - - (split-at - (lambda ((dotted-list? x) (integer? i)) (values list? *)) - (pure)) - - (split-at! - (lambda ((list? x) (integer? i)) (values list? list?))) - - (split-at! - (lambda ((circular-list? x) (integer? i)) (values list? circular-list?))) - - (split-at! - (lambda ((dotted-list? x) (integer? i)) (values list? *))) - - (last - (lambda ((list? pair)) *) - (pure)) - - (last-pair - (lambda ((list? pair)) pair?) - (pure)) - - (length - (lambda ((list? list)) integer?) - (pure)) - - (length+ - (lambda ((list? clist)) integer?) - (pure)) - - (length+ - (lambda ((circular-list? clist)) boolean?) - (pure)) - - (append - (lambda ((list? list) ...) list?) - (pure)) - - (append - (lambda ((list? list) ... obj) *) - (pure)) - - (append! - (lambda ((list? list) ...) list?)) - - (append! - (lambda ((list? list) ... obj) *)) - - (concatenate - (lambda ((list? list-of-lists)) *) - (pure)) - - (concatenate! - (lambda ((list? list-of-lists)) *)) - - (reverse - (lambda ((list? list)) list?) - (pure)) - - (reverse! - (lambda ((list? list)) list?)) - - (append-reverse - (lambda ((list? rev-head) (list? tail)) list?) - (pure)) - - (append-reverse - (lambda ((list? rev-head) tail) *) - (pure)) - - (append-reverse! - (lambda ((list? rev-head) (list? tail)) list?)) - - (append-reverse! - (lambda ((list? rev-head) tail) *)) - - (zip - (lambda ((list? clist1) (list? clist2) ...) list?) - (pure)) - - (unzip1 - (lambda ((list? list)) list?) - (pure)) - - (unzip2 - (lambda ((list? list)) (values list? list?)) - (pure)) - - (unzip3 - (lambda ((list? list)) (values list? list? list?)) - (pure)) - - (unzip4 - (lambda ((list? list)) (values list? list? list? list?)) - (pure)) - - (unzip5 - (lambda ((list? list)) (values list? list? list? list? list?)) - (pure)) - - (count - (lambda ((procedure? pred) (list? clist1) (list? clist2) ...) integer?) - (pure) - ((pred (lambda (obj ...) *)))) - - (fold - (lambda ((procedure? kons) knil (list? clist1) (list? clist2) ...) *) - (pure) - ((kons (lambda (obj1 obj2 ... fold-state) *)))) - - (fold-right - (lambda ((procedure? kons) knil (list? clist1) (list? clist2) ...) *) - (pure) - ((kons (lambda (obj1 obj2 ... fold-state) *)))) - - (pair-fold - (lambda ((procedure? kons) knil (list? clist1) (list? clist2) ...) *) - (pure) - ((kons (lambda ((pair? pair1) (pair? pair2) ... fold-state) *)))) - - (pair-fold-right - (lambda ((procedure? kons) knil (list? clist1) (list? clist2) ...) *) - (pure) - ((kons (lambda ((pair? pair1) (pair? pair2) ... fold-state) *)))) - - (reduce - (lambda ((procedure? f) ridentity (list? list))*) - (pure) - ((f (lambda (obj fold-state) *)))) - - (reduce-right - (lambda ((procedure? f) ridentity (list? list))*) - (pure) - ((f (lambda (obj fold-state) *)))) - - (unfold - (lambda ((procedure? p) (procedure? f) (procedure? g) seed) list?) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)))) - - (unfold - (lambda ((procedure? p) (procedure? f) (procedure? g) seed (list? tail-gen)) *) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)) - (tail-gen (lambda () *)))) - - (unfold-right - (lambda ((procedure? p) (procedure? f) (procedure? g) seed) list?) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)))) - - (unfold-right - (lambda ((procedure? p) (procedure? f) (procedure? g) seed (list? tail-gen)) *) - (pure) - ((p (lambda (seed) boolean?)) - (f (lambda (seed) *)) - (g (lambda (seed) *)) - (tail-gen (lambda () *)))) - - (map - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (for-each - (lambda ((procedure? proc) (list? list1) (list? list2) ...) undefined) - () - ((proc (lambda (obj1 obj2 ...) undefined)))) - - (append-map - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - (pure) - ((proc (lambda (obj1 obj2 ...) list?)))) - - (append-map! - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - () - ((proc (lambda (obj1 objs2 ...) list?)))) - - (map! - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - () - ((proc (lambda (obj1 obj2 ...) *)))) - - (map-in-order - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - () - ((proc (lambda (obj1 obj2 ...) *)))) - - (pair-for-each - (lambda ((procedure? proc) (list? list1) (list? list2) ...) undefined) - () - ((proc (lambda ((pair? obj1) (pair? obj2) ...) undefined)))) - - (filter-map - (lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (filter - (lambda ((procedure? pred) (list? list)) list?) - (pure) - ((pred (lambda (obj) *)))) - - (filter! - (lambda ((procedure? pred) (list? list)) list?) - () - ((pred (lambda (obj) *)))) - - (partition - (lambda ((procedure? pred) (list? list)) (values list? list?)) - (pure) - ((pred (lambda (obj) *)))) - - (partition! - (lambda ((procedure? pred) (list? list)) (values list? list?)) - () - ((pred (lambda (obj) *)))) - - (remove - (lambda ((procedure? pred) (list? list)) list?) - (pure) - ((pred (lambda (obj) *)))) - - (remove! - (lambda ((procedure? pred) (list? list)) list?) - () - ((pred (lambda (obj) *)))) - - (find - (lambda ((procedure? pred) (list? list)) *) - (pure) - ((pred (lambda (obj) *)))) - - (find-tail - (lambda ((procedure? pred) (list? list)) (or pair? #f)) - (pure) - ((pred (lambda (obj) *)))) - - (take-while - (lambda ((procedure? pred) (list? list)) list?) - (pure) - ((pred (lambda (obj) *)))) - - (take-while! - (lambda ((procedure? pred) (list? list)) list?) - () - ((pred (lambda (obj) *)))) - - (drop-while - (lambda ((procedure? pred) (list? list)) list?) - (pure) - ((pred (lambda (obj) *)))) - - (drop-while - (lambda ((procedure? pred) (circular-list? list)) circular-list?) - (pure) - ((pred (lambda (obj) *)))) - - (span - (lambda ((procedure? pred) (list? list)) (values list? list?)) - (pure) - ((pred (lambda (obj) *)))) - - (span - (lambda ((procedure? pred) (circular-list? list)) (values list? circular-list?)) - (pure) - ((pred (lambda (obj) *)))) - - (span! - (lambda ((procedure? pred) (list? list)) (values list? list?)) - () - ((pred (lambda (obj) *)))) - - (break - (lambda ((procedure? pred) (list? list)) (values list? list?)) - (pure) - ((pred (lambda (obj) *)))) - - (break - (lambda ((procedure? pred) (circular-list? list)) (values list? circular-list?)) - (pure) - ((pred (lambda (obj) *)))) - - (break! - (lambda ((procedure? pred) (list? list)) (values list? list?)) - () - ((pred (lambda (obj) *)))) - - (any - (lambda ((procedure? pred) (list? clist1) (list? clist2) ...) *) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (every - (lambda ((procedure? pred) (list? clist1) (list? clist2) ...) *) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (list-index - (lambda ((procedure? pred) (list? clist1) (list? clist2) ...) (or integer? #f)) - (pure) - ((pred (lambda (obj1 obj2 ...) *)))) - - (member - (lambda (obj (list? list)) (or #f list?)) - (pure)) - - (member - (lambda (obj (list? list) (procedure? =)) (or #f list?)) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (memq - (lambda (obj (list? list)) (or #f list?)) - (pure)) - - (memv - (lambda (obj (list? list)) (or 3f list?)) - (pure)) - - (delete - (lambda (obj (list? list)) list?) - (pure)) - - (delete - (lambda (obj (list? list) (procedure? =)) list?) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (delete! - (lambda (obj (list? list)) list?) - ()) - - (delete! - (lambda (obj (list? list) (procedure? =)) list?) - () - ((= (lambda (obj1 obj2) *)))) - - (delete-duplicates - (lambda ((list? list)) list?) - (pure)) - - (delete-duplicates - (lambda ((list? list) (procedure? =)) list?) - (pure) - ((= (lambda (obj1 obj2) *)))) - - (delete-duplicates! - (lambda ((list? list)) list?) - ()) - - (delete-duplicates! - (lambda ((list? list) (procedure? =)) list?) - () - ((= (lambda (obj1 obj2) *)))) - - (assoc - (lambda (obj (list? alist)) (or list? #f)) - (pure)) - - (assoc - (lambda (obj (list? alist) (procedure? =)) (or pair? #f)) - (pure) - ((= (lambda (a b) *)))) - - (assq - (lambda (obj (list? alist)) (or pair? #f)) - (pure)) - - (assv - (lambda (obj (list? alist)) (or pair? #f)) - (pure)) - - (alist-cons - (lambda (key datum (list? alist)) list?) - (pure)) - - (alist-copy - (lambda ((list? alist)) list?) - (pure)) - - (alist-delete - (lambda (key (list? alist)) list?) - (pure)) - - (alist-delete - (lambda (key (list? alist) (procedure? =)) list?) - (pure) - ((= (lambda (a b) *)))) - - (alist-delete! - (lambda (key (list? alist)) list?)) - - (alist-delete! - (lambda (key (list? alist) (procedure? =)) list?) - () - ((= (lambda (a b) *)))) - - (lset<= - (lambda ((procedure? =) (list? list1) ...) boolean?) - (pure) - ((= (lambda (a b) *)))) - - (lset= - (lambda ((procedure? =) (list? list1) (list? list2) ...) boolean?) - (pure) - ((= (lambda (a b) *)))) - - (lset-adjoin - (lambda ((procedure? =) (list? list) elt1 ...) list?) - (pure) - ((= (lambda (a b) *)))) - - (lset-union - (lambda ((procedure? =) (list? list1) ...) list?) - (pure) - ((= (lambda (a b) *)))) - - (lset-union! - (lambda ((procedure? =) (list? list1) ...) list?) - () - ((= (lambda (a b) *)))) - - (lset-intersection - (lambda ((procedure? =) (list? list1) (list? list2) ...) list?) - (pure) - ((= (lambda (a b) *)))) - - (lset-intersection! - (lambda ((procedure? =) (list? list1) (list? list2) ...) list?) - () - ((= (lambda (a b) *)))) - - (lset-difference - (lambda ((procedure? =) (list? list1) (list? list2) ...) list?) - (pure) - ((= (lambda (a b) *)))) - - (lset-difference! - (lambda ((procedure? =) (list? list1) (list? list2) ...) list?) - () - ((= (lambda (a b) *)))) - - (lset-xor - (lambda ((procedure? =) (list? list1) ...) list?) - (pure) - ((= (lambda (a b) *)))) - - (lset-xor! - (lambda ((procedure? =) (list? list1) ...) list?) - () - ((= (lambda (a b) *)))) - - (lset-diff+intersection - (lambda ((procedure? =) (list? list1) (list? list2) ...) (values list? list?)) - (pure) - ((= (lambda (a b) *)))) - - (lset-diff+intersection! - (lambda ((procedure? =) (list? list1) (list? list2) ...) (values list? list?)) - () - ((= (lambda (a b) *)))) - - (set-car! - (lambda ((pair? pair) object) undefined)) - - (set-cdr! - (lambda ((pair? pair) object) undefined)) - - ) +(((name . cons) (signature lambda (a d) pair?) (tags pure)) + ((name . list) (signature lambda (object ...) list?) (tags pure)) + ((name . xcons) (signature lambda (d a) pair?) (tags pure)) + ((name . cons*) (signature lambda (elt1 elt2 ...) *)) + ((name . make-list) (signature lambda ((integer? n)) list?)) + ((name . make-list) (signature lambda ((integer? n) fill) list?) (tags pure)) + ((name . list-tabulate) + (signature lambda ((integer? n) (procedure? init-proc)) list?) + (tags pure) + (subsigs (init-proc (lambda ((integer? i)) *)))) + ((name . list-copy) (signature lambda ((list? flist)) list?) (tags pure)) + ((name . list-copy) + (signature lambda ((dotted-list? flist)) dotted-list?) + (tags pure)) + ((name . circular-list) + (signature lambda (elt1 elt2 ...) circular-list?) + (tags pure)) + ((name . iota) (signature lambda ((integer? count)) list?) (tags pure)) + ((name . iota) + (signature lambda ((integer? count) (number? start)) list?) + (tags pure)) + ((name . iota) + (signature lambda ((integer? count) (number? start) (number? step)) list?) + (tags pure)) + ((name . proper-list?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs)) + ((name . circular-list?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes pair?)) + ((name . dotted-list?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes pair?)) + ((name . pair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . null?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . null-list?) + (signature lambda ((list? lst)) boolean?) + (tags pure predicate)) + ((name . null-list?) + (signature lambda ((circular-list? lst)) boolean?) + (tags pure predicate)) + ((name . not-pair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . list=) + (signature lambda ((procedure? elt=) (list? list1) ...) boolean?) + (tags pure) + (subsigs (elt= (lambda (a b) *)))) + ((name . caar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . car) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caaddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cadddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . caddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdadar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdaddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddaar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddadr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdddar) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cddddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . cdddr) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . list-ref) + (signature lambda ((list? clist) (integer? i)) *) + (tags pure)) + ((name . list-ref) + (signature lambda ((circular-list? clist) (integer? i)) *) + (tags pure)) + ((name . first) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . second) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . third) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . fourth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . fifth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . sixth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . seventh) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . eighth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . ninth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . tenth) (signature lambda ((pair? pair)) *) (tags pure)) + ((name . car+cdr) (signature lambda ((pair? pair)) (values * *)) (tags pure)) + ((name . take) (signature lambda ((list? x) (integer? i)) list?) (tags pure)) + ((name . take) + (signature lambda ((circular-list? x) (integer? i)) list?) + (tags pure)) + ((name . take) + (signature lambda ((dotted-list? x) (integer? i)) list?) + (tags pure)) + ((name . drop) (signature lambda ((list? x) (integer? i)) list?) (tags pure)) + ((name . drop) + (signature lambda ((circular-list? x) (integer? i)) circular-list?) + (tags pure)) + ((name . drop) + (signature lambda ((dotted-list? x) (integer? i)) *) + (tags pure)) + ((name . take-right) + (signature lambda ((list? flist) (integer? i)) list?) + (tags pure)) + ((name . take-right) + (signature lambda ((dotted-list? flist) (integer? i)) *) + (tags pure)) + ((name . drop-right) + (signature lambda ((list? flist) (integer? i)) list?) + (tags pure)) + ((name . drop-right) + (signature lambda ((dotted-list? flist) (integer? i)) list?) + (tags pure)) + ((name . take!) (signature lambda ((list? x) (integer? i)) list?)) + ((name . take!) (signature lambda ((circular-list? x) (integer? i)) list?)) + ((name . take!) (signature lambda ((dotted-list? x) (integer? i)) list?)) + ((name . drop-right!) (signature lambda ((list? flist) (integer? i)) list?)) + ((name . drop-right!) + (signature lambda ((dotted-list? flist) (integer? i)) list?)) + ((name . split-at) + (signature lambda ((list? x) (integer? i)) (values list? list?)) + (tags pure)) + ((name . split-at) + (signature + lambda + ((circular-list? x) (integer? i)) + (values list? circular-list?)) + (tags pure)) + ((name . split-at) + (signature lambda ((dotted-list? x) (integer? i)) (values list? *)) + (tags pure)) + ((name . split-at!) + (signature lambda ((list? x) (integer? i)) (values list? list?))) + ((name . split-at!) + (signature + lambda + ((circular-list? x) (integer? i)) + (values list? circular-list?))) + ((name . split-at!) + (signature lambda ((dotted-list? x) (integer? i)) (values list? *))) + ((name . last) (signature lambda ((list? pair)) *) (tags pure)) + ((name . last-pair) (signature lambda ((list? pair)) pair?) (tags pure)) + ((name . length) (signature lambda ((list? list)) integer?) (tags pure)) + ((name . length+) (signature lambda ((list? clist)) integer?) (tags pure)) + ((name . length+) + (signature lambda ((circular-list? clist)) boolean?) + (tags pure)) + ((name . append) (signature lambda ((list? list) ...) list?) (tags pure)) + ((name . append) (signature lambda ((list? list) ... obj) *) (tags pure)) + ((name . append!) (signature lambda ((list? list) ...) list?)) + ((name . append!) (signature lambda ((list? list) ... obj) *)) + ((name . concatenate) + (signature lambda ((list? list-of-lists)) *) + (tags pure)) + ((name . concatenate!) (signature lambda ((list? list-of-lists)) *)) + ((name . reverse) (signature lambda ((list? list)) list?) (tags pure)) + ((name . reverse!) (signature lambda ((list? list)) list?)) + ((name . append-reverse) + (signature lambda ((list? rev-head) (list? tail)) list?) + (tags pure)) + ((name . append-reverse) + (signature lambda ((list? rev-head) tail) *) + (tags pure)) + ((name . append-reverse!) + (signature lambda ((list? rev-head) (list? tail)) list?)) + ((name . append-reverse!) (signature lambda ((list? rev-head) tail) *)) + ((name . zip) + (signature lambda ((list? clist1) (list? clist2) ...) list?) + (tags pure)) + ((name . unzip1) (signature lambda ((list? list)) list?) (tags pure)) + ((name . unzip2) + (signature lambda ((list? list)) (values list? list?)) + (tags pure)) + ((name . unzip3) + (signature lambda ((list? list)) (values list? list? list?)) + (tags pure)) + ((name . unzip4) + (signature lambda ((list? list)) (values list? list? list? list?)) + (tags pure)) + ((name . unzip5) + (signature lambda ((list? list)) (values list? list? list? list? list?)) + (tags pure)) + ((name . count) + (signature + lambda + ((procedure? pred) (list? clist1) (list? clist2) ...) + integer?) + (tags pure) + (subsigs (pred (lambda (obj ...) *)))) + ((name . fold) + (signature + lambda + ((procedure? kons) knil (list? clist1) (list? clist2) ...) + *) + (tags pure) + (subsigs (kons (lambda (obj1 obj2 ... fold-state) *)))) + ((name . fold-right) + (signature + lambda + ((procedure? kons) knil (list? clist1) (list? clist2) ...) + *) + (tags pure) + (subsigs (kons (lambda (obj1 obj2 ... fold-state) *)))) + ((name . pair-fold) + (signature + lambda + ((procedure? kons) knil (list? clist1) (list? clist2) ...) + *) + (tags pure) + (subsigs (kons (lambda ((pair? pair1) (pair? pair2) ... fold-state) *)))) + ((name . pair-fold-right) + (signature + lambda + ((procedure? kons) knil (list? clist1) (list? clist2) ...) + *) + (tags pure) + (subsigs (kons (lambda ((pair? pair1) (pair? pair2) ... fold-state) *)))) + ((name . reduce) + (signature lambda ((procedure? f) ridentity (list? list)) *) + (tags pure) + (subsigs (f (lambda (obj fold-state) *)))) + ((name . reduce-right) + (signature lambda ((procedure? f) ridentity (list? list)) *) + (tags pure) + (subsigs (f (lambda (obj fold-state) *)))) + ((name . unfold) + (signature lambda ((procedure? p) (procedure? f) (procedure? g) seed) list?) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)))) + ((name . unfold) + (signature + lambda + ((procedure? p) (procedure? f) (procedure? g) seed (list? tail-gen)) + *) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)) + (tail-gen (lambda () *)))) + ((name . unfold-right) + (signature lambda ((procedure? p) (procedure? f) (procedure? g) seed) list?) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)))) + ((name . unfold-right) + (signature + lambda + ((procedure? p) (procedure? f) (procedure? g) seed (list? tail-gen)) + *) + (tags pure) + (subsigs + (p (lambda (seed) boolean?)) + (f (lambda (seed) *)) + (g (lambda (seed) *)) + (tail-gen (lambda () *)))) + ((name . map) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . for-each) + (signature + lambda + ((procedure? proc) (list? list1) (list? list2) ...) + undefined) + (subsigs (proc (lambda (obj1 obj2 ...) undefined)))) + ((name . append-map) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) list?)))) + ((name . append-map!) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (subsigs (proc (lambda (obj1 objs2 ...) list?)))) + ((name . map!) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . map-in-order) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . pair-for-each) + (signature + lambda + ((procedure? proc) (list? list1) (list? list2) ...) + undefined) + (subsigs (proc (lambda ((pair? obj1) (pair? obj2) ...) undefined)))) + ((name . filter-map) + (signature lambda ((procedure? proc) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . filter) + (signature lambda ((procedure? pred) (list? list)) list?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . filter!) + (signature lambda ((procedure? pred) (list? list)) list?) + (subsigs (pred (lambda (obj) *)))) + ((name . partition) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . partition!) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (subsigs (pred (lambda (obj) *)))) + ((name . remove) + (signature lambda ((procedure? pred) (list? list)) list?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . remove!) + (signature lambda ((procedure? pred) (list? list)) list?) + (subsigs (pred (lambda (obj) *)))) + ((name . find) + (signature lambda ((procedure? pred) (list? list)) *) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . find-tail) + (signature lambda ((procedure? pred) (list? list)) (or pair? #f)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . take-while) + (signature lambda ((procedure? pred) (list? list)) list?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . take-while!) + (signature lambda ((procedure? pred) (list? list)) list?) + (subsigs (pred (lambda (obj) *)))) + ((name . drop-while) + (signature lambda ((procedure? pred) (list? list)) list?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . drop-while) + (signature lambda ((procedure? pred) (circular-list? list)) circular-list?) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . span) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . span) + (signature + lambda + ((procedure? pred) (circular-list? list)) + (values list? circular-list?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . span!) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (subsigs (pred (lambda (obj) *)))) + ((name . break) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . break) + (signature + lambda + ((procedure? pred) (circular-list? list)) + (values list? circular-list?)) + (tags pure) + (subsigs (pred (lambda (obj) *)))) + ((name . break!) + (signature lambda ((procedure? pred) (list? list)) (values list? list?)) + (subsigs (pred (lambda (obj) *)))) + ((name . any) + (signature lambda ((procedure? pred) (list? clist1) (list? clist2) ...) *) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . every) + (signature lambda ((procedure? pred) (list? clist1) (list? clist2) ...) *) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . list-index) + (signature + lambda + ((procedure? pred) (list? clist1) (list? clist2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred (lambda (obj1 obj2 ...) *)))) + ((name . member) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . member) + (signature lambda (obj (list? list) (procedure? =)) (or #f list?)) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . memq) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . memv) + (signature lambda (obj (list? list)) (or #f list?)) + (tags pure)) + ((name . delete) (signature lambda (obj (list? list)) list?) (tags pure)) + ((name . delete) + (signature lambda (obj (list? list) (procedure? =)) list?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . delete!) (signature lambda (obj (list? list)) list?)) + ((name . delete!) + (signature lambda (obj (list? list) (procedure? =)) list?) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . delete-duplicates) + (signature lambda ((list? list)) list?) + (tags pure)) + ((name . delete-duplicates) + (signature lambda ((list? list) (procedure? =)) list?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . delete-duplicates!) (signature lambda ((list? list)) list?)) + ((name . delete-duplicates!) + (signature lambda ((list? list) (procedure? =)) list?) + (subsigs (= (lambda (obj1 obj2) *)))) + ((name . assoc) + (signature lambda (obj (list? alist)) (or list? #f)) + (tags pure)) + ((name . assoc) + (signature lambda (obj (list? alist) (procedure? =)) (or pair? #f)) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . assq) + (signature lambda (obj (list? alist)) (or pair? #f)) + (tags pure)) + ((name . assv) + (signature lambda (obj (list? alist)) (or pair? #f)) + (tags pure)) + ((name . alist-cons) + (signature lambda (key datum (list? alist)) list?) + (tags pure)) + ((name . alist-copy) (signature lambda ((list? alist)) list?) (tags pure)) + ((name . alist-delete) + (signature lambda (key (list? alist)) list?) + (tags pure)) + ((name . alist-delete) + (signature lambda (key (list? alist) (procedure? =)) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . alist-delete!) (signature lambda (key (list? alist)) list?)) + ((name . alist-delete!) + (signature lambda (key (list? alist) (procedure? =)) list?) + (subsigs (= (lambda (a b) *)))) + ((name . lset<=) + (signature lambda ((procedure? =) (list? list1) ...) boolean?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset=) + (signature lambda ((procedure? =) (list? list1) (list? list2) ...) boolean?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-adjoin) + (signature lambda ((procedure? =) (list? list) elt1 ...) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-union) + (signature lambda ((procedure? =) (list? list1) ...) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-union!) + (signature lambda ((procedure? =) (list? list1) ...) list?) + (subsigs (= (lambda (a b) *)))) + ((name . lset-intersection) + (signature lambda ((procedure? =) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-intersection!) + (signature lambda ((procedure? =) (list? list1) (list? list2) ...) list?) + (subsigs (= (lambda (a b) *)))) + ((name . lset-difference) + (signature lambda ((procedure? =) (list? list1) (list? list2) ...) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-difference!) + (signature lambda ((procedure? =) (list? list1) (list? list2) ...) list?) + (subsigs (= (lambda (a b) *)))) + ((name . lset-xor) + (signature lambda ((procedure? =) (list? list1) ...) list?) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-xor!) + (signature lambda ((procedure? =) (list? list1) ...) list?) + (subsigs (= (lambda (a b) *)))) + ((name . lset-diff+intersection) + (signature + lambda + ((procedure? =) (list? list1) (list? list2) ...) + (values list? list?)) + (tags pure) + (subsigs (= (lambda (a b) *)))) + ((name . lset-diff+intersection!) + (signature + lambda + ((procedure? =) (list? list1) (list? list2) ...) + (values list? list?)) + (subsigs (= (lambda (a b) *)))) + ((name . set-car!) (signature lambda ((pair? pair) object) undefined)) + ((name . set-cdr!) (signature lambda ((pair? pair) object) undefined))) diff --git a/types/scheme.load.scm b/types/scheme.load.scm index 9d943f2..b24ccd8 100644 --- a/types/scheme.load.scm +++ b/types/scheme.load.scm @@ -1,7 +1,3 @@ -( - (load - (lambda ((string? filename)) undefined)) - - (load - (lambda ((string? filename) environment-specifier) undefined)) - ) +(((name . load) (signature lambda ((string? filename)) undefined)) + ((name . load) + (signature lambda ((string? filename) environment-specifier) undefined))) diff --git a/types/scheme.lseq.scm b/types/scheme.lseq.scm index 67f93be..9f759b1 100644 --- a/types/scheme.lseq.scm +++ b/types/scheme.lseq.scm @@ -1,140 +1,93 @@ -( - - (generator->lseq - (lambda ((procedure? generator)) lseq?) - () - ((generator (lambda () *)))) - - (lseq? - (lambda (x) boolean?) - (pure predicate) - () - (list? dotted-list?)) - - (lseq=? - (lambda ((procedure? elt=?) (lseq? lseq1) (lseq? lseq2)) boolean?) - (pure) - ((elt=? (lambda (a b) boolean?)))) - - (lseq-car - (lambda ((lseq? lseq)) *) - (pure)) - - (lseq-first - (lambda ((lseq? lseq)) *) - (pure)) - - (lseq-cdr - (lambda ((lseq? lseq)) lseq?) - (pure)) - - (lseq-rest - (lambda ((lseq? lseq)) lseq?) - (pure)) - - (lseq-ref - (lambda ((lseq? lseq) (integer? i)) *) - (pure)) - - (lseq-take - (lambda ((lseq? lseq) (integer? i)) lseq?) - (pure)) - - (lseq-drop - (lambda ((lseq? lseq) (integer? i)) lseq?) - (pure)) - - (lseq-realize - (lambda ((lseq? lseq)) list?) - (pure)) - - (lseq->generator - (lambda ((lseq? lseq)) procedure?) - () - ((return (lambda () *)))) - - (lseq-length - (lambda ((lseq? lseq)) integer?) - (pure)) - - (lseq-append - (lambda ((lseq? lseq) ...) lseq?) - (pure)) - - (lseq-zip - (lambda ((lseq? lseq1) (lseq? lseq2) ...) lseq?) - (pure)) - - (lseq-map - (lambda ((procedure? proc) (lseq? lseq1) (lseq? lseq2) ...) lseq?) - (pure) - ((proc (lambda (value1 value2 ...) *)))) - - (lseq-for-each - (lambda ((procedure? proc) (lseq? lseq1) (lseq? lseq2) ...) *) - () - ((proc (lambda (value1 value2 ...) *)))) - - (lseq-filter - (lambda ((procedure? pred) (lseq? lseq)) lseq?) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-remove - (lambda ((procedure? pred) (lseq? lseq)) lseq?) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-find - (lambda ((procedure? pred) (lseq? lseq)) *) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-find-tail - (lambda ((procedure? pred) (lseq? lseq)) (or #f lseq?)) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-take-while - (lambda ((procedure? pred) (lseq? lseq)) lseq?) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-drop-while - (lambda ((procedure? pred) (lseq? lseq)) lseq?) - (pure) - ((pred (lambda (element) boolean?)))) - - (lseq-any - (lambda ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) *) - (pure) - ((pred (lambda (element) *)))) - - (lseq-every - (lambda ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) *) - (pure) - ((pred (lambda (element) *)))) - - (lseq-index - (lambda ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) (or integer? #f)) - (pure) - ((pred (lambda (element) *)))) - - (lseq-member - (lambda (x (lseq? lseq)) (or #f lseq?)) - (pure)) - - (lseq-member - (lambda (x (lseq? lseq) (procedure? =)) (or #f lseq?)) - (pure) - ((= (lambda (a b) boolean?)))) - - (lseq-memq - (lambda (x (lseq? lseq)) (or #f lseq?)) - (pure)) - - (lseq-memv - (lambda (x (lseq? lseq)) (or #f lseq?)) - (pure)) - - ) +(((name . generator->lseq) + (signature lambda ((procedure? generator)) lseq?) + (subsigs (generator (lambda () *)))) + ((name . lseq?) + (signature lambda (x) boolean?) + (tags pure predicate) + (subsigs) + (supertypes list? dotted-list?)) + ((name . lseq=?) + (signature lambda ((procedure? elt=?) (lseq? lseq1) (lseq? lseq2)) boolean?) + (tags pure) + (subsigs (elt=? (lambda (a b) boolean?)))) + ((name . lseq-car) (signature lambda ((lseq? lseq)) *) (tags pure)) + ((name . lseq-first) (signature lambda ((lseq? lseq)) *) (tags pure)) + ((name . lseq-cdr) (signature lambda ((lseq? lseq)) lseq?) (tags pure)) + ((name . lseq-rest) (signature lambda ((lseq? lseq)) lseq?) (tags pure)) + ((name . lseq-ref) + (signature lambda ((lseq? lseq) (integer? i)) *) + (tags pure)) + ((name . lseq-take) + (signature lambda ((lseq? lseq) (integer? i)) lseq?) + (tags pure)) + ((name . lseq-drop) + (signature lambda ((lseq? lseq) (integer? i)) lseq?) + (tags pure)) + ((name . lseq-realize) (signature lambda ((lseq? lseq)) list?) (tags pure)) + ((name . lseq->generator) + (signature lambda ((lseq? lseq)) procedure?) + (subsigs (return (lambda () *)))) + ((name . lseq-length) (signature lambda ((lseq? lseq)) integer?) (tags pure)) + ((name . lseq-append) (signature lambda ((lseq? lseq) ...) lseq?) (tags pure)) + ((name . lseq-zip) + (signature lambda ((lseq? lseq1) (lseq? lseq2) ...) lseq?) + (tags pure)) + ((name . lseq-map) + (signature lambda ((procedure? proc) (lseq? lseq1) (lseq? lseq2) ...) lseq?) + (tags pure) + (subsigs (proc (lambda (value1 value2 ...) *)))) + ((name . lseq-for-each) + (signature lambda ((procedure? proc) (lseq? lseq1) (lseq? lseq2) ...) *) + (subsigs (proc (lambda (value1 value2 ...) *)))) + ((name . lseq-filter) + (signature lambda ((procedure? pred) (lseq? lseq)) lseq?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-remove) + (signature lambda ((procedure? pred) (lseq? lseq)) lseq?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-find) + (signature lambda ((procedure? pred) (lseq? lseq)) *) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-find-tail) + (signature lambda ((procedure? pred) (lseq? lseq)) (or #f lseq?)) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-take-while) + (signature lambda ((procedure? pred) (lseq? lseq)) lseq?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-drop-while) + (signature lambda ((procedure? pred) (lseq? lseq)) lseq?) + (tags pure) + (subsigs (pred (lambda (element) boolean?)))) + ((name . lseq-any) + (signature lambda ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) *) + (tags pure) + (subsigs (pred (lambda (element) *)))) + ((name . lseq-every) + (signature lambda ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) *) + (tags pure) + (subsigs (pred (lambda (element) *)))) + ((name . lseq-index) + (signature + lambda + ((procedure? pred) (lseq? lseq1) (lseq? lseq2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred (lambda (element) *)))) + ((name . lseq-member) + (signature lambda (x (lseq? lseq)) (or #f lseq?)) + (tags pure)) + ((name . lseq-member) + (signature lambda (x (lseq? lseq) (procedure? =)) (or #f lseq?)) + (tags pure) + (subsigs (= (lambda (a b) boolean?)))) + ((name . lseq-memq) + (signature lambda (x (lseq? lseq)) (or #f lseq?)) + (tags pure)) + ((name . lseq-memv) + (signature lambda (x (lseq? lseq)) (or #f lseq?)) + (tags pure))) diff --git a/types/scheme.mapping.hash.scm b/types/scheme.mapping.hash.scm index be0f39e..acc84dd 100644 --- a/types/scheme.mapping.hash.scm +++ b/types/scheme.mapping.hash.scm @@ -1,342 +1,329 @@ -( - - (hashmap - (lambda ((comparator? comparator) arg ...) hashmap?) - (pure)) - - (hashmap-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (comparator? comparator)) hashmap?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (values * *))) - (successor (lambda (seed) *)))) - - (hashmap? - (lambda (obj) boolean?) - (pure predicate)) - - (hashmap-contains? - (lambda ((hashmap? hashmap) key) boolean?) - (pure)) - - (hashmap-empty? - (lambda ((hashmap? hashmap)) boolean?) - (pure)) - - (hashmap-disjoint? - (lambda ((hashmap? hashmap1) (hashmap? hashmap2)) boolean?) - (pure)) - - (hashmap-ref - (lambda ((hashmap? hashmap) key) *) - (pure)) - - (hashmap-ref - (lambda ((hashmap? hashmap) key (procedure? failure)) *) - (pure) - ((failure (lambda () *)))) - - (hashmap-ref - (lambda ((hashmap? hashmap) key (procedure? failure) (procedure? success)) *) - (pure) - ((failure (lambda () *)) - (success (lambda (value) *)))) - - (hashmap-ref/default - (lambda ((hashmap? hashmap) key default) *) - (pure)) - - (hashmap-key-comparator - (lambda ((hashmap? hashmap)) comparator?) - (pure)) - - (hashmap-adjoin - (lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) - (pure)) - - (hashmap-adjoin! - (lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) - ()) - - (hashmap-set - (lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) - (pure)) - - (hashmap-set! - (lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) - ()) - - (hashmap-replace - (lambda ((hashmap? hashmap) key value) hashmap?) - (pure)) - - (hashmap-replace! - (lambda ((hashmap? hashmap) key value) hashmap?) - ()) - - (hashmap-delete - (lambda ((hashmap? hashmap) key ...) hashmap?) - (pure)) - - (hashmap-delete! - (lambda ((hashmap? hashmap) key ...) hashmap?) - (pure)) - - (hashmap-delete-all - (lambda ((hashmap? hashmap) (list? keys)) hashmap?) - (pure)) - - (hashmap-delete-all! - (lambda ((hashmap? hashmap) (list? keys)) hashmap?) - ()) - - (hashmap-intern - (lambda ((hashmap? hashmap) key (procedure? failure)) (values hashmap? *)) - (pure) - ((failure (lambda () *)))) - - (hashmap-intern! - (lambda ((hashmap? hashmap) key (procedure? failure)) (values hashmap? *)) - () - ((failure (lambda () *)))) - - (hashmap-update - (lambda ((hashmap? hashmap) key (procedure? updater)) hashmap?) - (pure) - ((updater (lambda (value) *)))) - - (hashmap-update - (lambda ((hashmap? hashmap) key (procedure? updater) (procedure? failure)) hashmap?) - (pure) - ((updater (lambda (value) *)) - (failure (lambda () *)))) - - (hashmap-update - (lambda ((hashmap? hashmap) key (procedure? updater) (procedure? failure) (procedure? success)) hashmap?) - (pure) - ((updater (lambda (value) *)) - (failure (lambda () *)) - (success (lambda (value) *)))) - - (hashmap-update! - (lambda ((hashmap? hashmap) key (procedure? updater)) hashmap?) - () - ((updater (lambda (value) *)))) - - (hashmap-update! - (lambda ((hashmap? hashmap) key (procedure? updater) (procedure? failure)) hashmap?) - () - ((updater (lambda (value) *)) - (failure (lambda () *)))) - - (hashmap-update! - (lambda ((hashmap? hashmap) key (procedure? updater) (procedure? failure) (procedure? success)) hashmap?) - () - ((updater (lambda (value) *)) - (failure (lambda () *)) - (success (lambda (value) *)))) - - (hashmap-update/default - (lambda ((hashmap? hashmap) key (procedure? updater) default) hashmap?) - (pure) - ((updater (lambda (value) *)))) - - (hashmap-update!/default - (lambda ((hashmap? hashmap) key (procedure? updater) default) hashmap?) - () - ((updater (lambda (value) *)))) - - (hashmap-pop - (lambda ((hashmap? hashmap)) (values hashmap? * *)) - (pure)) - - (hashmap-pop - (lambda ((hashmap? hashmap) (procedure? failure)) (values hashmap? * *)) - (pure) - ((failure (lambda () (values hashmap? * *))))) - - (hashmap-pop! - (lambda ((hashmap? hashmap)) (values hashmap? * *)) - ()) - - (hashmap-pop! - (lambda ((hashmap? hashmap) (procedure? failure)) (values hashmap? * *)) - () - ((failure (lambda () (values hashmap? * *))))) - - (hashmap-search - (lambda ((hashmap? hashmap) key (procedure? failure) (procedure? success)) (values hashmap? *)) - (pure) - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (value obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (key value (procedure? update) (procedure? remove)) *)) - (update (lambda (new-key new-value obj) *)) - (remove (lambda (obj) *)))) - - (hashmap-search! - (lambda ((hashmap? hashmap) key (procedure? failure) (procedure? success)) (values hashmap? *)) - () - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (value obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (key value (procedure? update) (procedure? remove)) *)) - (update (lambda (new-key new-value obj) *)) - (remove (lambda (obj) *)))) - - (hashmap-size - (lambda ((hashmap? hashmap)) integer?) - (pure)) - - (hashmap-find - (lambda ((procedure? predicate) (hashmap? hashmap) (procedure? failure)) (values * *)) - (pure) - ((predicate (lambda (key value) boolean?)) - (failure (lambda () *)))) - - (hashmap-count - (lambda ((procedure? predicate) (hashmap? hashmap)) integer?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-any? - (lambda ((procedure? predicate) (hashmap? hashmap)) boolean?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-every? - (lambda ((procedure? predicate) (hashmap? hashmap)) boolean?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-keys - (lambda ((hashmap? hashmap)) list?) - (pure)) - - (hashmap-values - (lambda ((hashmap? hashmap)) list?) - (pure)) - - (hashmap-entries - (lambda ((hashmap? hashmap)) (values list? list?)) - (pure)) - - (hashmap-map - (lambda ((procedure? proc) (comparator? comparator) (hashmap? hashmap)) hashmap?) - (pure) - ((proc (lambda (key value) (values * *))))) - - (hashmap-for-each - (lambda ((procedure? proc) (comparator? comparator) (hashmap? hashmap)) undefined) - () - ((proc (lambda (key value) undefined)))) - - (hashmap-fold - (lambda ((procedure? proc) nil (hashmap? hashmap)) *) - (pure) - ((proc (lambda (key value state) *)))) - - (hashmap-map->list - (lambda ((procedure? proc) (hashmap? hashmap)) list?) - (pure) - ((proc (lambda (key value) *)))) - - (hashmap-filter - (lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-filter! - (lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) - () - ((predicate (lambda (key value) boolean?)))) - - (hashmap-remove - (lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-remove! - (lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) - () - ((predicate (lambda (key value) boolean?)))) - - (hashmap-partition - (lambda ((procedure? predicate) (hashmap? hashmap)) (values hashmap? hashmap?)) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (hashmap-partition! - (lambda ((procedure? predicate) (hashmap? hashmap)) (values hashmap? hashmap?)) - () - ((predicate (lambda (key value) boolean?)))) - - (hashmap-copy - (lambda ((hashmap? hashmap)) hashmap?) - (pure)) - - (hashmap->alist - (lambda ((hashmap? hashmap)) list?) - (pure)) - - (alist->hashmap - (lambda ((comparator? comparator) (list? alist)) hashmap?) - (pure)) - - (alist->hashmap! - (lambda ((hashmap? hashmap) (list? alist)) hashmap?) - ()) - - (hashmap=? - (lambda ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) boolean?) - (pure)) - - (hashmap? - (lambda ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) boolean?) - (pure)) - - (hashmap<=? - (lambda ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) boolean?) - (pure)) - - (hashmap>=? - (lambda ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) boolean?) - (pure)) - - (hashmap-union - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - (pure)) - - (hashmap-intersection - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - (pure)) - - (hashmap-difference - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - (pure)) - - (hashmap-xor - (lambda ((hashmap? hashmap1) (hashmap? hashmap2)) hashmap?) - (pure)) - - (hashmap-union! - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - ()) - - (hashmap-intersection! - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - ()) - - (hashmap-difference! - (lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) - ()) - - (hashmap-xor! - (lambda ((hashmap? hashmap1) (hashmap? hashmap2)) hashmap?) - ()) - - ) +(((name . hashmap) + (signature lambda ((comparator? comparator) arg ...) hashmap?) + (tags pure)) + ((name . hashmap-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (comparator? comparator)) + hashmap?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (values * *))) + (successor (lambda (seed) *)))) + ((name . hashmap?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . hashmap-contains?) + (signature lambda ((hashmap? hashmap) key) boolean?) + (tags pure)) + ((name . hashmap-empty?) + (signature lambda ((hashmap? hashmap)) boolean?) + (tags pure)) + ((name . hashmap-disjoint?) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2)) boolean?) + (tags pure)) + ((name . hashmap-ref) + (signature lambda ((hashmap? hashmap) key) *) + (tags pure)) + ((name . hashmap-ref) + (signature lambda ((hashmap? hashmap) key (procedure? failure)) *) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . hashmap-ref) + (signature + lambda + ((hashmap? hashmap) key (procedure? failure) (procedure? success)) + *) + (tags pure) + (subsigs (failure (lambda () *)) (success (lambda (value) *)))) + ((name . hashmap-ref/default) + (signature lambda ((hashmap? hashmap) key default) *) + (tags pure)) + ((name . hashmap-key-comparator) + (signature lambda ((hashmap? hashmap)) comparator?) + (tags pure)) + ((name . hashmap-adjoin) + (signature lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) + (tags pure)) + ((name . hashmap-adjoin!) + (signature lambda ((hashmap? hashmap) key1 value1 ...) hashmap?)) + ((name . hashmap-set) + (signature lambda ((hashmap? hashmap) key1 value1 ...) hashmap?) + (tags pure)) + ((name . hashmap-set!) + (signature lambda ((hashmap? hashmap) key1 value1 ...) hashmap?)) + ((name . hashmap-replace) + (signature lambda ((hashmap? hashmap) key value) hashmap?) + (tags pure)) + ((name . hashmap-replace!) + (signature lambda ((hashmap? hashmap) key value) hashmap?)) + ((name . hashmap-delete) + (signature lambda ((hashmap? hashmap) key ...) hashmap?) + (tags pure)) + ((name . hashmap-delete!) + (signature lambda ((hashmap? hashmap) key ...) hashmap?) + (tags pure)) + ((name . hashmap-delete-all) + (signature lambda ((hashmap? hashmap) (list? keys)) hashmap?) + (tags pure)) + ((name . hashmap-delete-all!) + (signature lambda ((hashmap? hashmap) (list? keys)) hashmap?)) + ((name . hashmap-intern) + (signature + lambda + ((hashmap? hashmap) key (procedure? failure)) + (values hashmap? *)) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . hashmap-intern!) + (signature + lambda + ((hashmap? hashmap) key (procedure? failure)) + (values hashmap? *)) + (subsigs (failure (lambda () *)))) + ((name . hashmap-update) + (signature lambda ((hashmap? hashmap) key (procedure? updater)) hashmap?) + (tags pure) + (subsigs (updater (lambda (value) *)))) + ((name . hashmap-update) + (signature + lambda + ((hashmap? hashmap) key (procedure? updater) (procedure? failure)) + hashmap?) + (tags pure) + (subsigs (updater (lambda (value) *)) (failure (lambda () *)))) + ((name . hashmap-update) + (signature + lambda + ((hashmap? hashmap) + key + (procedure? updater) + (procedure? failure) + (procedure? success)) + hashmap?) + (tags pure) + (subsigs + (updater (lambda (value) *)) + (failure (lambda () *)) + (success (lambda (value) *)))) + ((name . hashmap-update!) + (signature lambda ((hashmap? hashmap) key (procedure? updater)) hashmap?) + (subsigs (updater (lambda (value) *)))) + ((name . hashmap-update!) + (signature + lambda + ((hashmap? hashmap) key (procedure? updater) (procedure? failure)) + hashmap?) + (subsigs (updater (lambda (value) *)) (failure (lambda () *)))) + ((name . hashmap-update!) + (signature + lambda + ((hashmap? hashmap) + key + (procedure? updater) + (procedure? failure) + (procedure? success)) + hashmap?) + (subsigs + (updater (lambda (value) *)) + (failure (lambda () *)) + (success (lambda (value) *)))) + ((name . hashmap-update/default) + (signature + lambda + ((hashmap? hashmap) key (procedure? updater) default) + hashmap?) + (tags pure) + (subsigs (updater (lambda (value) *)))) + ((name . hashmap-update!/default) + (signature + lambda + ((hashmap? hashmap) key (procedure? updater) default) + hashmap?) + (subsigs (updater (lambda (value) *)))) + ((name . hashmap-pop) + (signature lambda ((hashmap? hashmap)) (values hashmap? * *)) + (tags pure)) + ((name . hashmap-pop) + (signature + lambda + ((hashmap? hashmap) (procedure? failure)) + (values hashmap? * *)) + (tags pure) + (subsigs (failure (lambda () (values hashmap? * *))))) + ((name . hashmap-pop!) + (signature lambda ((hashmap? hashmap)) (values hashmap? * *))) + ((name . hashmap-pop!) + (signature + lambda + ((hashmap? hashmap) (procedure? failure)) + (values hashmap? * *)) + (subsigs (failure (lambda () (values hashmap? * *))))) + ((name . hashmap-search) + (signature + lambda + ((hashmap? hashmap) key (procedure? failure) (procedure? success)) + (values hashmap? *)) + (tags pure) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (value obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (key value (procedure? update) (procedure? remove)) *)) + (update (lambda (new-key new-value obj) *)) + (remove (lambda (obj) *)))) + ((name . hashmap-search!) + (signature + lambda + ((hashmap? hashmap) key (procedure? failure) (procedure? success)) + (values hashmap? *)) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (value obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (key value (procedure? update) (procedure? remove)) *)) + (update (lambda (new-key new-value obj) *)) + (remove (lambda (obj) *)))) + ((name . hashmap-size) + (signature lambda ((hashmap? hashmap)) integer?) + (tags pure)) + ((name . hashmap-find) + (signature + lambda + ((procedure? predicate) (hashmap? hashmap) (procedure? failure)) + (values * *)) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)) (failure (lambda () *)))) + ((name . hashmap-count) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) integer?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-any?) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) boolean?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-every?) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) boolean?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-keys) + (signature lambda ((hashmap? hashmap)) list?) + (tags pure)) + ((name . hashmap-values) + (signature lambda ((hashmap? hashmap)) list?) + (tags pure)) + ((name . hashmap-entries) + (signature lambda ((hashmap? hashmap)) (values list? list?)) + (tags pure)) + ((name . hashmap-map) + (signature + lambda + ((procedure? proc) (comparator? comparator) (hashmap? hashmap)) + hashmap?) + (tags pure) + (subsigs (proc (lambda (key value) (values * *))))) + ((name . hashmap-for-each) + (signature + lambda + ((procedure? proc) (comparator? comparator) (hashmap? hashmap)) + undefined) + (subsigs (proc (lambda (key value) undefined)))) + ((name . hashmap-fold) + (signature lambda ((procedure? proc) nil (hashmap? hashmap)) *) + (tags pure) + (subsigs (proc (lambda (key value state) *)))) + ((name . hashmap-map->list) + (signature lambda ((procedure? proc) (hashmap? hashmap)) list?) + (tags pure) + (subsigs (proc (lambda (key value) *)))) + ((name . hashmap-filter) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-filter!) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-remove) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-remove!) + (signature lambda ((procedure? predicate) (hashmap? hashmap)) hashmap?) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-partition) + (signature + lambda + ((procedure? predicate) (hashmap? hashmap)) + (values hashmap? hashmap?)) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-partition!) + (signature + lambda + ((procedure? predicate) (hashmap? hashmap)) + (values hashmap? hashmap?)) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . hashmap-copy) + (signature lambda ((hashmap? hashmap)) hashmap?) + (tags pure)) + ((name . hashmap->alist) + (signature lambda ((hashmap? hashmap)) list?) + (tags pure)) + ((name . alist->hashmap) + (signature lambda ((comparator? comparator) (list? alist)) hashmap?) + (tags pure)) + ((name . alist->hashmap!) + (signature lambda ((hashmap? hashmap) (list? alist)) hashmap?)) + ((name . hashmap=?) + (signature + lambda + ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) + boolean?) + (tags pure)) + ((name . hashmap?) + (signature + lambda + ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) + boolean?) + (tags pure)) + ((name . hashmap<=?) + (signature + lambda + ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) + boolean?) + (tags pure)) + ((name . hashmap>=?) + (signature + lambda + ((comparator? comparator) (hashmap? hashmap1) (hashmap? hashmap2) ...) + boolean?) + (tags pure)) + ((name . hashmap-union) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) + (tags pure)) + ((name . hashmap-intersection) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) + (tags pure)) + ((name . hashmap-difference) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?) + (tags pure)) + ((name . hashmap-xor) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2)) hashmap?) + (tags pure)) + ((name . hashmap-union!) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?)) + ((name . hashmap-intersection!) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?)) + ((name . hashmap-difference!) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2) ...) hashmap?)) + ((name . hashmap-xor!) + (signature lambda ((hashmap? hashmap1) (hashmap? hashmap2)) hashmap?))) diff --git a/types/scheme.mapping.scm b/types/scheme.mapping.scm index 8a0503b..9f18157 100644 --- a/types/scheme.mapping.scm +++ b/types/scheme.mapping.scm @@ -1,476 +1,446 @@ -( - - (mapping - (lambda ((comparator? comparator) arg ...) mapping?) - (pure)) - - (mapping-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (comparator? comparator)) mapping?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (values * *))) - (successor (lambda (seed) *)))) - - (mapping? - (lambda (obj) boolean?) - (pure predicate)) - - (mapping-contains? - (lambda ((mapping? mapping) key) boolean?) - (pure)) - - (mapping-empty? - (lambda ((mapping? mapping)) boolean?) - (pure)) - - (mapping-disjoint? - (lambda ((mapping? mapping1) (mapping? mapping2)) boolean?) - (pure)) - - (mapping-ref - (lambda ((mapping? mapping) key) *) - (pure)) - - (mapping-ref - (lambda ((mapping? mapping) key (procedure? failure)) *) - (pure) - ((failure (lambda () *)))) - - (mapping-ref - (lambda ((mapping? mapping) key (procedure? failure) (procedure? success)) *) - (pure) - ((failure (lambda () *)) - (success (lambda (value) *)))) - - (mapping-ref/default - (lambda ((mapping? mapping) key default) *) - (pure)) - - (mapping-key-comparator - (lambda ((mapping? mapping)) comparator?) - (pure)) - - (mapping-adjoin - (lambda ((mapping? mapping) key1 value1 ...) mapping?) - (pure)) - - (mapping-adjoin! - (lambda ((mapping? mapping) key1 value1 ...) mapping?) - ()) - - (mapping-set - (lambda ((mapping? mapping) key1 value1 ...) mapping?) - (pure)) - - (mapping-set! - (lambda ((mapping? mapping) key1 value1 ...) mapping?) - ()) - - (mapping-replace - (lambda ((mapping? mapping) key value) mapping?) - (pure)) - - (mapping-replace! - (lambda ((mapping? mapping) key value) mapping?) - ()) - - (mapping-delete - (lambda ((mapping? mapping) key ...) mapping?) - (pure)) - - (mapping-delete! - (lambda ((mapping? mapping) key ...) mapping?) - (pure)) - - (mapping-delete-all - (lambda ((mapping? mapping) (list? keys)) mapping?) - (pure)) - - (mapping-delete-all! - (lambda ((mapping? mapping) (list? keys)) mapping?) - ()) - - (mapping-intern - (lambda ((mapping? mapping) key (procedure? failure)) (values mapping? *)) - (pure) - ((failure (lambda () *)))) - - (mapping-intern! - (lambda ((mapping? mapping) key (procedure? failure)) (values mapping? *)) - () - ((failure (lambda () *)))) - - (mapping-update - (lambda ((mapping? mapping) key (procedure? updater)) mapping?) - (pure) - ((updater (lambda (value) *)))) - - (mapping-update - (lambda ((mapping? mapping) key (procedure? updater) (procedure? failure)) mapping?) - (pure) - ((updater (lambda (value) *)) - (failure (lambda () *)))) - - (mapping-update - (lambda ((mapping? mapping) key (procedure? updater) (procedure? failure) (procedure? success)) mapping?) - (pure) - ((updater (lambda (value) *)) - (failure (lambda () *)) - (success (lambda (value) *)))) - - (mapping-update! - (lambda ((mapping? mapping) key (procedure? updater)) mapping?) - () - ((updater (lambda (value) *)))) - - (mapping-update! - (lambda ((mapping? mapping) key (procedure? updater) (procedure? failure)) mapping?) - () - ((updater (lambda (value) *)) - (failure (lambda () *)))) - - (mapping-update! - (lambda ((mapping? mapping) key (procedure? updater) (procedure? failure) (procedure? success)) mapping?) - () - ((updater (lambda (value) *)) - (failure (lambda () *)) - (success (lambda (value) *)))) - - (mapping-update/default - (lambda ((mapping? mapping) key (procedure? updater) default) mapping?) - (pure) - ((updater (lambda (value) *)))) - - (mapping-update!/default - (lambda ((mapping? mapping) key (procedure? updater) default) mapping?) - () - ((updater (lambda (value) *)))) - - (mapping-pop - (lambda ((mapping? mapping)) (values mapping? * *)) - (pure)) - - (mapping-pop - (lambda ((mapping? mapping) (procedure? failure)) (values mapping? * *)) - (pure) - ((failure (lambda () (values mapping? * *))))) - - (mapping-pop! - (lambda ((mapping? mapping)) (values mapping? * *)) - ()) - - (mapping-pop! - (lambda ((mapping? mapping) (procedure? failure)) (values mapping? * *)) - () - ((failure (lambda () (values mapping? * *))))) - - (mapping-search - (lambda ((mapping? mapping) key (procedure? failure) (procedure? success)) (values mapping? *)) - (pure) - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (value obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (key value (procedure? update) (procedure? remove)) *)) - (update (lambda (new-key new-value obj) *)) - (remove (lambda (obj) *)))) - - (mapping-search! - (lambda ((mapping? mapping) key (procedure? failure) (procedure? success)) (values mapping? *)) - () - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (value obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (key value (procedure? update) (procedure? remove)) *)) - (update (lambda (new-key new-value obj) *)) - (remove (lambda (obj) *)))) - - (mapping-size - (lambda ((mapping? mapping)) integer?) - (pure)) - - (mapping-find - (lambda ((procedure? predicate) (mapping? mapping) (procedure? failure)) (values * *)) - (pure) - ((predicate (lambda (key value) boolean?)) - (failure (lambda () *)))) - - (mapping-count - (lambda ((procedure? predicate) (mapping? mapping)) integer?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-any? - (lambda ((procedure? predicate) (mapping? mapping)) boolean?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-every? - (lambda ((procedure? predicate) (mapping? mapping)) boolean?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-keys - (lambda ((mapping? mapping)) list?) - (pure)) - - (mapping-values - (lambda ((mapping? mapping)) list?) - (pure)) - - (mapping-entries - (lambda ((mapping? mapping)) (values list? list?)) - (pure)) - - (mapping-map - (lambda ((procedure? proc) (comparator? comparator) (mapping? mapping)) mapping?) - (pure) - ((proc (lambda (key value) (values * *))))) - - (mapping-for-each - (lambda ((procedure? proc) (comparator? comparator) (mapping? mapping)) undefined) - () - ((proc (lambda (key value) undefined)))) - - (mapping-fold - (lambda ((procedure? proc) nil (mapping? mapping)) *) - (pure) - ((proc (lambda (key value state) *)))) - - (mapping-map->list - (lambda ((procedure? proc) (mapping? mapping)) list?) - (pure) - ((proc (lambda (key value) *)))) - - (mapping-filter - (lambda ((procedure? predicate) (mapping? mapping)) mapping?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-filter! - (lambda ((procedure? predicate) (mapping? mapping)) mapping?) - () - ((predicate (lambda (key value) boolean?)))) - - (mapping-remove - (lambda ((procedure? predicate) (mapping? mapping)) mapping?) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-remove! - (lambda ((procedure? predicate) (mapping? mapping)) mapping?) - () - ((predicate (lambda (key value) boolean?)))) - - (mapping-partition - (lambda ((procedure? predicate) (mapping? mapping)) (values mapping? mapping?)) - (pure) - ((predicate (lambda (key value) boolean?)))) - - (mapping-partition! - (lambda ((procedure? predicate) (mapping? mapping)) (values mapping? mapping?)) - () - ((predicate (lambda (key value) boolean?)))) - - (mapping-copy - (lambda ((mapping? mapping)) mapping?) - (pure)) - - (mapping->alist - (lambda ((mapping? mapping)) list?) - (pure)) - - (alist->mapping - (lambda ((comparator? comparator) (list? alist)) mapping?) - (pure)) - - (alist->mapping! - (lambda ((mapping? mapping) (list? alist)) mapping?) - ()) - - (mapping=? - (lambda ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) boolean?) - (pure)) - - (mapping? - (lambda ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) boolean?) - (pure)) - - (mapping<=? - (lambda ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) boolean?) - (pure)) - - (mapping>=? - (lambda ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) boolean?) - (pure)) - - (mapping-union - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - (pure)) - - (mapping-intersection - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - (pure)) - - (mapping-difference - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - (pure)) - - (mapping-xor - (lambda ((mapping? mapping1) (mapping? mapping2)) mapping?) - (pure)) - - (mapping-union! - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - ()) - - (mapping-intersection! - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - ()) - - (mapping-difference! - (lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) - ()) - - (mapping-xor! - (lambda ((mapping? mapping1) (mapping? mapping2)) mapping?) - ()) - - (mapping/ordered - (lambda ((comparator? comparator) arg ...) mapping?) - (pure)) - - (mapping-unfold/ordered - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (comparator? comparator)) mapping?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (values * *))) - (successor (lambda (seed) *)))) - - (alist->mapping/ordered - (lambda ((comparator? comparator) (list? alist)) mapping?) - (pure)) - - (alist->mapping/ordered! - (lambda ((mapping? mapping) (list? alist)) mapping?) - ()) - - (mapping-min-key - (lambda ((mapping? mapping)) *) - (pure)) - - (mapping-max-key - (lambda ((mapping? mapping)) *) - (pure)) - - (mapping-min-value - (lambda ((mapping? mapping)) *) - (pure)) - - (mapping-max-value - (lambda ((mapping? mapping)) *) - (pure)) - - (mapping-min-entry - (lambda ((mapping? mapping)) (values * *)) - (pure)) - - (mapping-max-entry - (lambda ((mapping? mapping)) (values * *)) - (pure)) - - (mapping-key-predecessor - (lambda ((mapping? mapping) obj (procedure? failure)) *) - (pure) - ((failure (lambda () *)))) - - (mapping-key-successor - (lambda ((mapping? mapping) obj (procedure? failure)) *) - (pure) - ((failure (lambda () *)))) - - (mapping-range= - (lambda ((mapping? mapping) obj) mapping?) - (pure)) - - (mapping-range< - (lambda ((mapping? mapping) obj) mapping?) - (pure)) - - (mapping-range> - (lambda ((mapping? mapping) obj) mapping?) - (pure)) - - (mapping-range<= - (lambda ((mapping? mapping) obj) mapping?) - (pure)) - - (mapping-range>= - (lambda ((mapping? mapping) obj) mapping?) - (pure)) - - (mapping-range=! - (lambda ((mapping? mapping) obj) mapping?) - ()) - - (mapping-range! - (lambda ((mapping? mapping) obj) mapping?) - ()) - - (mapping-range<=! - (lambda ((mapping? mapping) obj) mapping?) - ()) - - (mapping-range>=! - (lambda ((mapping? mapping) obj) mapping?) - ()) - - (mapping-split - (lambda ((mapping? mapping) obj) (values mapping? mapping? mapping? mapping? mapping?)) - (pure)) - - (mapping-split! - (lambda ((mapping? mapping) obj) (values mapping? mapping? mapping? mapping? mapping?)) - ()) - - (mapping-catenate - (lambda ((mapping? mapping1) key value (mapping? mapping2)) mapping?) - (pure)) - - (mapping-catenate! - (lambda ((mapping? mapping1) key value (mapping? mapping2)) mapping?) - ()) - - (mapping-map/monotone - (lambda ((procedure? proc) (comparator? comparator) (mapping? mapping)) mapping?) - (pure) - ((proc (lambda (key value) (values * *))))) - - (mapping-map/monotone! - (lambda ((procedure? proc) (comparator? comparator) (mapping? mapping)) mapping?) - () - ((proc (lambda (key value) (values * *))))) - - (mapping-fold/reverse - (lambda ((procedure? proc) nil (mapping? mapping)) *) - (pure) - ((proc (lambda (key value state) *)))) - - (comparator? - (lambda (obj) boolean?) - (pure predicate)) - - (make-mapping-comparator - (lambda ((comparator? comparator)) comparator?) - (pure)) - - (mapping-comparator (value comparator?)) - - ) +(((name . mapping) + (signature lambda ((comparator? comparator) arg ...) mapping?) + (tags pure)) + ((name . mapping-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (comparator? comparator)) + mapping?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (values * *))) + (successor (lambda (seed) *)))) + ((name . mapping?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . mapping-contains?) + (signature lambda ((mapping? mapping) key) boolean?) + (tags pure)) + ((name . mapping-empty?) + (signature lambda ((mapping? mapping)) boolean?) + (tags pure)) + ((name . mapping-disjoint?) + (signature lambda ((mapping? mapping1) (mapping? mapping2)) boolean?) + (tags pure)) + ((name . mapping-ref) + (signature lambda ((mapping? mapping) key) *) + (tags pure)) + ((name . mapping-ref) + (signature lambda ((mapping? mapping) key (procedure? failure)) *) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . mapping-ref) + (signature + lambda + ((mapping? mapping) key (procedure? failure) (procedure? success)) + *) + (tags pure) + (subsigs (failure (lambda () *)) (success (lambda (value) *)))) + ((name . mapping-ref/default) + (signature lambda ((mapping? mapping) key default) *) + (tags pure)) + ((name . mapping-key-comparator) + (signature lambda ((mapping? mapping)) comparator?) + (tags pure)) + ((name . mapping-adjoin) + (signature lambda ((mapping? mapping) key1 value1 ...) mapping?) + (tags pure)) + ((name . mapping-adjoin!) + (signature lambda ((mapping? mapping) key1 value1 ...) mapping?)) + ((name . mapping-set) + (signature lambda ((mapping? mapping) key1 value1 ...) mapping?) + (tags pure)) + ((name . mapping-set!) + (signature lambda ((mapping? mapping) key1 value1 ...) mapping?)) + ((name . mapping-replace) + (signature lambda ((mapping? mapping) key value) mapping?) + (tags pure)) + ((name . mapping-replace!) + (signature lambda ((mapping? mapping) key value) mapping?)) + ((name . mapping-delete) + (signature lambda ((mapping? mapping) key ...) mapping?) + (tags pure)) + ((name . mapping-delete!) + (signature lambda ((mapping? mapping) key ...) mapping?) + (tags pure)) + ((name . mapping-delete-all) + (signature lambda ((mapping? mapping) (list? keys)) mapping?) + (tags pure)) + ((name . mapping-delete-all!) + (signature lambda ((mapping? mapping) (list? keys)) mapping?)) + ((name . mapping-intern) + (signature + lambda + ((mapping? mapping) key (procedure? failure)) + (values mapping? *)) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . mapping-intern!) + (signature + lambda + ((mapping? mapping) key (procedure? failure)) + (values mapping? *)) + (subsigs (failure (lambda () *)))) + ((name . mapping-update) + (signature lambda ((mapping? mapping) key (procedure? updater)) mapping?) + (tags pure) + (subsigs (updater (lambda (value) *)))) + ((name . mapping-update) + (signature + lambda + ((mapping? mapping) key (procedure? updater) (procedure? failure)) + mapping?) + (tags pure) + (subsigs (updater (lambda (value) *)) (failure (lambda () *)))) + ((name . mapping-update) + (signature + lambda + ((mapping? mapping) + key + (procedure? updater) + (procedure? failure) + (procedure? success)) + mapping?) + (tags pure) + (subsigs + (updater (lambda (value) *)) + (failure (lambda () *)) + (success (lambda (value) *)))) + ((name . mapping-update!) + (signature lambda ((mapping? mapping) key (procedure? updater)) mapping?) + (subsigs (updater (lambda (value) *)))) + ((name . mapping-update!) + (signature + lambda + ((mapping? mapping) key (procedure? updater) (procedure? failure)) + mapping?) + (subsigs (updater (lambda (value) *)) (failure (lambda () *)))) + ((name . mapping-update!) + (signature + lambda + ((mapping? mapping) + key + (procedure? updater) + (procedure? failure) + (procedure? success)) + mapping?) + (subsigs + (updater (lambda (value) *)) + (failure (lambda () *)) + (success (lambda (value) *)))) + ((name . mapping-update/default) + (signature + lambda + ((mapping? mapping) key (procedure? updater) default) + mapping?) + (tags pure) + (subsigs (updater (lambda (value) *)))) + ((name . mapping-update!/default) + (signature + lambda + ((mapping? mapping) key (procedure? updater) default) + mapping?) + (subsigs (updater (lambda (value) *)))) + ((name . mapping-pop) + (signature lambda ((mapping? mapping)) (values mapping? * *)) + (tags pure)) + ((name . mapping-pop) + (signature + lambda + ((mapping? mapping) (procedure? failure)) + (values mapping? * *)) + (tags pure) + (subsigs (failure (lambda () (values mapping? * *))))) + ((name . mapping-pop!) + (signature lambda ((mapping? mapping)) (values mapping? * *))) + ((name . mapping-pop!) + (signature + lambda + ((mapping? mapping) (procedure? failure)) + (values mapping? * *)) + (subsigs (failure (lambda () (values mapping? * *))))) + ((name . mapping-search) + (signature + lambda + ((mapping? mapping) key (procedure? failure) (procedure? success)) + (values mapping? *)) + (tags pure) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (value obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (key value (procedure? update) (procedure? remove)) *)) + (update (lambda (new-key new-value obj) *)) + (remove (lambda (obj) *)))) + ((name . mapping-search!) + (signature + lambda + ((mapping? mapping) key (procedure? failure) (procedure? success)) + (values mapping? *)) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (value obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (key value (procedure? update) (procedure? remove)) *)) + (update (lambda (new-key new-value obj) *)) + (remove (lambda (obj) *)))) + ((name . mapping-size) + (signature lambda ((mapping? mapping)) integer?) + (tags pure)) + ((name . mapping-find) + (signature + lambda + ((procedure? predicate) (mapping? mapping) (procedure? failure)) + (values * *)) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)) (failure (lambda () *)))) + ((name . mapping-count) + (signature lambda ((procedure? predicate) (mapping? mapping)) integer?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-any?) + (signature lambda ((procedure? predicate) (mapping? mapping)) boolean?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-every?) + (signature lambda ((procedure? predicate) (mapping? mapping)) boolean?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-keys) + (signature lambda ((mapping? mapping)) list?) + (tags pure)) + ((name . mapping-values) + (signature lambda ((mapping? mapping)) list?) + (tags pure)) + ((name . mapping-entries) + (signature lambda ((mapping? mapping)) (values list? list?)) + (tags pure)) + ((name . mapping-map) + (signature + lambda + ((procedure? proc) (comparator? comparator) (mapping? mapping)) + mapping?) + (tags pure) + (subsigs (proc (lambda (key value) (values * *))))) + ((name . mapping-for-each) + (signature + lambda + ((procedure? proc) (comparator? comparator) (mapping? mapping)) + undefined) + (subsigs (proc (lambda (key value) undefined)))) + ((name . mapping-fold) + (signature lambda ((procedure? proc) nil (mapping? mapping)) *) + (tags pure) + (subsigs (proc (lambda (key value state) *)))) + ((name . mapping-map->list) + (signature lambda ((procedure? proc) (mapping? mapping)) list?) + (tags pure) + (subsigs (proc (lambda (key value) *)))) + ((name . mapping-filter) + (signature lambda ((procedure? predicate) (mapping? mapping)) mapping?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-filter!) + (signature lambda ((procedure? predicate) (mapping? mapping)) mapping?) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-remove) + (signature lambda ((procedure? predicate) (mapping? mapping)) mapping?) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-remove!) + (signature lambda ((procedure? predicate) (mapping? mapping)) mapping?) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-partition) + (signature + lambda + ((procedure? predicate) (mapping? mapping)) + (values mapping? mapping?)) + (tags pure) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-partition!) + (signature + lambda + ((procedure? predicate) (mapping? mapping)) + (values mapping? mapping?)) + (subsigs (predicate (lambda (key value) boolean?)))) + ((name . mapping-copy) + (signature lambda ((mapping? mapping)) mapping?) + (tags pure)) + ((name . mapping->alist) + (signature lambda ((mapping? mapping)) list?) + (tags pure)) + ((name . alist->mapping) + (signature lambda ((comparator? comparator) (list? alist)) mapping?) + (tags pure)) + ((name . alist->mapping!) + (signature lambda ((mapping? mapping) (list? alist)) mapping?)) + ((name . mapping=?) + (signature + lambda + ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) + boolean?) + (tags pure)) + ((name . mapping?) + (signature + lambda + ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) + boolean?) + (tags pure)) + ((name . mapping<=?) + (signature + lambda + ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) + boolean?) + (tags pure)) + ((name . mapping>=?) + (signature + lambda + ((comparator? comparator) (mapping? mapping1) (mapping? mapping2) ...) + boolean?) + (tags pure)) + ((name . mapping-union) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) + (tags pure)) + ((name . mapping-intersection) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) + (tags pure)) + ((name . mapping-difference) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?) + (tags pure)) + ((name . mapping-xor) + (signature lambda ((mapping? mapping1) (mapping? mapping2)) mapping?) + (tags pure)) + ((name . mapping-union!) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?)) + ((name . mapping-intersection!) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?)) + ((name . mapping-difference!) + (signature lambda ((mapping? mapping1) (mapping? mapping2) ...) mapping?)) + ((name . mapping-xor!) + (signature lambda ((mapping? mapping1) (mapping? mapping2)) mapping?)) + ((name . mapping/ordered) + (signature lambda ((comparator? comparator) arg ...) mapping?) + (tags pure)) + ((name . mapping-unfold/ordered) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (comparator? comparator)) + mapping?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (values * *))) + (successor (lambda (seed) *)))) + ((name . alist->mapping/ordered) + (signature lambda ((comparator? comparator) (list? alist)) mapping?) + (tags pure)) + ((name . alist->mapping/ordered!) + (signature lambda ((mapping? mapping) (list? alist)) mapping?)) + ((name . mapping-min-key) + (signature lambda ((mapping? mapping)) *) + (tags pure)) + ((name . mapping-max-key) + (signature lambda ((mapping? mapping)) *) + (tags pure)) + ((name . mapping-min-value) + (signature lambda ((mapping? mapping)) *) + (tags pure)) + ((name . mapping-max-value) + (signature lambda ((mapping? mapping)) *) + (tags pure)) + ((name . mapping-min-entry) + (signature lambda ((mapping? mapping)) (values * *)) + (tags pure)) + ((name . mapping-max-entry) + (signature lambda ((mapping? mapping)) (values * *)) + (tags pure)) + ((name . mapping-key-predecessor) + (signature lambda ((mapping? mapping) obj (procedure? failure)) *) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . mapping-key-successor) + (signature lambda ((mapping? mapping) obj (procedure? failure)) *) + (tags pure) + (subsigs (failure (lambda () *)))) + ((name . mapping-range=) + (signature lambda ((mapping? mapping) obj) mapping?) + (tags pure)) + ((name . mapping-range<) + (signature lambda ((mapping? mapping) obj) mapping?) + (tags pure)) + ((name . mapping-range>) + (signature lambda ((mapping? mapping) obj) mapping?) + (tags pure)) + ((name . mapping-range<=) + (signature lambda ((mapping? mapping) obj) mapping?) + (tags pure)) + ((name . mapping-range>=) + (signature lambda ((mapping? mapping) obj) mapping?) + (tags pure)) + ((name . mapping-range=!) + (signature lambda ((mapping? mapping) obj) mapping?)) + ((name . mapping-range!) + (signature lambda ((mapping? mapping) obj) mapping?)) + ((name . mapping-range<=!) + (signature lambda ((mapping? mapping) obj) mapping?)) + ((name . mapping-range>=!) + (signature lambda ((mapping? mapping) obj) mapping?)) + ((name . mapping-split) + (signature + lambda + ((mapping? mapping) obj) + (values mapping? mapping? mapping? mapping? mapping?)) + (tags pure)) + ((name . mapping-split!) + (signature + lambda + ((mapping? mapping) obj) + (values mapping? mapping? mapping? mapping? mapping?))) + ((name . mapping-catenate) + (signature + lambda + ((mapping? mapping1) key value (mapping? mapping2)) + mapping?) + (tags pure)) + ((name . mapping-catenate!) + (signature + lambda + ((mapping? mapping1) key value (mapping? mapping2)) + mapping?)) + ((name . mapping-map/monotone) + (signature + lambda + ((procedure? proc) (comparator? comparator) (mapping? mapping)) + mapping?) + (tags pure) + (subsigs (proc (lambda (key value) (values * *))))) + ((name . mapping-map/monotone!) + (signature + lambda + ((procedure? proc) (comparator? comparator) (mapping? mapping)) + mapping?) + (subsigs (proc (lambda (key value) (values * *))))) + ((name . mapping-fold/reverse) + (signature lambda ((procedure? proc) nil (mapping? mapping)) *) + (tags pure) + (subsigs (proc (lambda (key value state) *)))) + ((name . comparator?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . make-mapping-comparator) + (signature lambda ((comparator? comparator)) comparator?) + (tags pure)) + ((name . mapping-comparator) (signature value comparator?))) diff --git a/types/scheme.process-context.scm b/types/scheme.process-context.scm index bfa5095..2b2c822 100644 --- a/types/scheme.process-context.scm +++ b/types/scheme.process-context.scm @@ -1,25 +1,9 @@ -( - (command-line - (lambda () list?) - (pure)) - - (emergency-exit - (lambda () undefined)) - - (emergency-exit - (lambda (obj) undefined)) - - (exit - (lambda () undefined)) - - (exit - (lambda (obj) undefined)) - - (get-environment-variable - (lambda ((string? name)) (or string? #f)) - (pure)) - - (get-environment-variables - (lambda () list?) - (pure)) - ) +(((name . command-line) (signature lambda () list?) (tags pure)) + ((name . emergency-exit) (signature lambda () undefined)) + ((name . emergency-exit) (signature lambda (obj) undefined)) + ((name . exit) (signature lambda () undefined)) + ((name . exit) (signature lambda (obj) undefined)) + ((name . get-environment-variable) + (signature lambda ((string? name)) (or string? #f)) + (tags pure)) + ((name . get-environment-variables) (signature lambda () list?) (tags pure))) diff --git a/types/scheme.read.scm b/types/scheme.read.scm index 2c85233..79b01ad 100644 --- a/types/scheme.read.scm +++ b/types/scheme.read.scm @@ -1,9 +1,2 @@ -( - (read - (lambda () *) - (parameterized)) - - (read - (lambda ((input-port? port)) *)) - - ) +(((name . read) (signature lambda () *) (tags parameterized)) + ((name . read) (signature lambda ((input-port? port)) *))) diff --git a/types/scheme.repl.scm b/types/scheme.repl.scm index 2d258aa..f8fd8ad 100644 --- a/types/scheme.repl.scm +++ b/types/scheme.repl.scm @@ -1,4 +1 @@ -( - (interaction-environment - (lambda () *)) - ) +(((name . interaction-environment) (signature lambda () *))) diff --git a/types/scheme.rlist.scm b/types/scheme.rlist.scm index b6d65ee..5ef1b93 100644 --- a/types/scheme.rlist.scm +++ b/types/scheme.rlist.scm @@ -1,219 +1,83 @@ -( - - (rquote - (syntax-rules () - ((_ datum)))) - - (requal? - (lambda (obj1 obj2) boolean?) - (pure)) - - (rpair? - (lambda (obj) boolean?) - (pure predicate)) - - (rcons - (lambda (obj1 obj2) rpair?) - (pure)) - - (rcar - (lambda ((rpair? pair)) *) - (pure)) - - (rcdr - (lambda ((rpair? pair)) *) - (pure)) - - (rcaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcdar - (lambda ((rpair? pair)) *) - (pure)) - - (rcddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcaaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcaadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcadar - (lambda ((rpair? pair)) *) - (pure)) - - (rcaddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcdaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcdadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcddar - (lambda ((rpair? pair)) *) - (pure)) - - (rcdddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcaaaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcaaadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcaadar - (lambda ((rpair? pair)) *) - (pure)) - - (rcaaddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcadaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcadadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcaddar - (lambda ((rpair? pair)) *) - (pure)) - - (rcadddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcdaaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcdaadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcdadar - (lambda ((rpair? pair)) *) - (pure)) - - (rcdaddr - (lambda ((rpair? pair)) *) - (pure)) - - (rcddaar - (lambda ((rpair? pair)) *) - (pure)) - - (rcddadr - (lambda ((rpair? pair)) *) - (pure)) - - (rcdddar - (lambda ((rpair? pair)) *) - (pure)) - - (rcddddr - (lambda ((rpair? pair)) *) - (pure)) - - (rnull? - (lambda (obj) boolean?) - (pure)) - - (rlist? - (lambda (obj) boolean?) - (pure predicate) - () - (rpair?)) - - (rlist - (lambda (obj ...) rlist?) - (pure)) - - (make-rlist - (lambda ((integer? k)) rlist?)) - - (make-rlist - (lambda ((integer? k) obj) rlist?) - (pure)) - - (rlength - (lambda ((rlist? list)) integer?) - (pure)) - - (rlength<=? - (lambda (obj (integer? k)) boolean?) - (pure)) - - (rappend - (lambda ((rlist? list) ...) rlist?) - (pure)) - - (rappend - (lambda ((rlist? list) ... obj) *) - (pure)) - - (rreverse - (lambda ((rlist? list)) rlist?) - (pure)) - - (rlist-tail - (lambda ((rlist? list) (integer? k)) rlist?) - (pure)) - - (rlist-tail - (lambda (obj (integer? k)) *) - (pure)) - - (rlist-ref - (lambda ((rpair? pair) (integer? k)) *) - (pure)) - - (rlist-set - (lambda ((rpair? pair) (integer? k) obj) rpair?) - (pure)) - - (rlist-ref/update - (lambda ((rpair? pair) (integer? k) (procedure? proc)) (values * rpair?)) - (pure) - ((proc (lambda (obj) *)))) - - (rmap - (lambda ((procedure? proc) (rlist? list1) (rlist? list2) ...) rlist?) - (pure) - ((proc (lambda (obj1 obj2 ...) *)))) - - (rfor-each - (lambda ((procedure? proc) (rlist? list1) (rlist? list2) ...) undefined) - (pure) - ((proc (lambda (obj1 obj2 ...) undefined)))) - - (rlist->list - (lambda ((rlist? rlist)) list?) - (pure)) - - (list->rlist - (lambda ((list? list)) rlist?) - (pure)) - - ) +(((name . rquote) (signature syntax-rules () ((_ datum)))) + ((name . requal?) (signature lambda (obj1 obj2) boolean?) (tags pure)) + ((name . rpair?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . rcons) (signature lambda (obj1 obj2) rpair?) (tags pure)) + ((name . rcar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcadar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcddar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaaaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaaadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaadar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaaddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcadaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcadadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcaddar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcadddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdaaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdaadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdadar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdaddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcddaar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcddadr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcdddar) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rcddddr) (signature lambda ((rpair? pair)) *) (tags pure)) + ((name . rnull?) (signature lambda (obj) boolean?) (tags pure)) + ((name . rlist?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes rpair?)) + ((name . rlist) (signature lambda (obj ...) rlist?) (tags pure)) + ((name . make-rlist) (signature lambda ((integer? k)) rlist?)) + ((name . make-rlist) (signature lambda ((integer? k) obj) rlist?) (tags pure)) + ((name . rlength) (signature lambda ((rlist? list)) integer?) (tags pure)) + ((name . rlength<=?) + (signature lambda (obj (integer? k)) boolean?) + (tags pure)) + ((name . rappend) (signature lambda ((rlist? list) ...) rlist?) (tags pure)) + ((name . rappend) (signature lambda ((rlist? list) ... obj) *) (tags pure)) + ((name . rreverse) (signature lambda ((rlist? list)) rlist?) (tags pure)) + ((name . rlist-tail) + (signature lambda ((rlist? list) (integer? k)) rlist?) + (tags pure)) + ((name . rlist-tail) (signature lambda (obj (integer? k)) *) (tags pure)) + ((name . rlist-ref) + (signature lambda ((rpair? pair) (integer? k)) *) + (tags pure)) + ((name . rlist-set) + (signature lambda ((rpair? pair) (integer? k) obj) rpair?) + (tags pure)) + ((name . rlist-ref/update) + (signature + lambda + ((rpair? pair) (integer? k) (procedure? proc)) + (values * rpair?)) + (tags pure) + (subsigs (proc (lambda (obj) *)))) + ((name . rmap) + (signature + lambda + ((procedure? proc) (rlist? list1) (rlist? list2) ...) + rlist?) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) *)))) + ((name . rfor-each) + (signature + lambda + ((procedure? proc) (rlist? list1) (rlist? list2) ...) + undefined) + (tags pure) + (subsigs (proc (lambda (obj1 obj2 ...) undefined)))) + ((name . rlist->list) (signature lambda ((rlist? rlist)) list?) (tags pure)) + ((name . list->rlist) (signature lambda ((list? list)) rlist?) (tags pure))) diff --git a/types/scheme.set.scm b/types/scheme.set.scm index 82e3246..81e05f3 100644 --- a/types/scheme.set.scm +++ b/types/scheme.set.scm @@ -1,505 +1,328 @@ -( - - (set - (lambda ((comparator? comparator) element ...) set?) - (pure)) - - (set-unfold - (lambda ((comparator? comparator) (procedure? stop?) (procedure? mapper) (procedure? successor) seed) set?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (set? - (lambda (obj) boolean?) - (pure predicate)) - - (set-contains? - (lambda ((set? set) element) boolean?) - (pure)) - - (set-empty? - (lambda ((set? set)) boolean?) - (pure)) - - (set-disjoint? - (lambda ((set? set1) (set? set2)) boolean?) - (pure)) - - (set-member - (lambda ((set? set) element default) *) - (pure)) - - (set-element-comparator - (lambda ((set? set)) comparator?) - (pure)) - - (set-adjoin - (lambda ((set? set) element ...) set?) - (pure)) - - (set-adjoin! - (lambda ((set? set) element ...) set?) - ()) - - (set-replace - (lambda ((set? set) element) set?) - (pure)) - - (set-replace! - (lambda ((set? set) element) set?) - ()) - - (set-delete - (lambda ((set? set) element ...) set?) - (pure)) - - (set-delete! - (lambda ((set? set) element ...) set?) - ()) - - (set-delete-all - (lambda ((set? set) (list? elements)) set?) - (pure)) - - (set-delete-all! - (lambda ((set? set) (list? elements)) set?) - ()) - - (set-search! - (lambda ((set? set) element (procedure? failure) (procedure? success)) (values set? *)) - () - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (element (procedure? update) (procedure? remove)) *)) - (update (lambda (new-element obj) *)) - (remove (lambda (obj) *)))) - - (set-size - (lambda ((set? set)) integer?) - (pure)) - - (set-find - (lambda ((procedure? predicate) (set? set) (procedure? failure)) *) - (pure) - ((predicate (lambda (obj) boolean?)) - (failure (lambda () *)))) - - (set-count - (lambda ((procedure? predicate) (set? set)) integer?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (set-any? - (lambda ((procedure? predicate) (set? set)) boolean?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (set-every? - (lambda ((procedure? predicate) (set? set)) boolean?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (set-map - (lambda ((comparator? comparator) (procedure? proc) (set? set)) *) - (pure) - ((proc (lambda (obj) *)))) - - (set-for-each - (lambda ((procedure? proc) (set? set)) undefined) - () - ((proc (lambda (obj) undefined)))) - - (set-fold - (lambda ((procedure? proc) nil (set? set)) *) - (pure) - ((proc (lambda (obj state) *)))) - - (set-filter - (lambda ((procedure? predicate) (set? set)) set?) - (pure) - ((predicate (lambda (obj) *)))) - - (set-filter! - (lambda ((procedure? predicate) (set? set)) set?) - () - ((predicate (lambda (obj) *)))) - - (set-remove - (lambda ((procedure? predicate) (set? set)) set?) - (pure) - ((predicate (lambda (obj) *)))) - - (set-remove! - (lambda ((procedure? predicate) (set? set)) set?) - () - ((predicate (lambda (obj) *)))) - - (set-partition - (lambda ((procedure? predicate) (set? set)) (values set? set?)) - (pure) - ((predicate (lambda (obj) *)))) - - (set-partition! - (lambda ((procedure? predicate) (set? set)) (values set? set?)) - () - ((predicate (lambda (obj) *)))) - - (set-copy - (lambda ((set? set)) set?) - (pure)) - - (set->list - (lambda ((set? set)) list?) - ()) - - (list->set - (lambda ((comparator? comparator) (list? list)) set?) - (pure)) - - (list->set! - (lambda ((set? set) (list? list)) set?) - ()) - - (set=? - (lambda ((set? set1) (set? set2) ...) boolean?) - (pure)) - - (set? - (lambda ((set? set1) (set? set2) ...) boolean?) - (pure)) - - (set<=? - (lambda ((set? set1) (set? set2) ...) boolean?) - (pure)) - - (set>=? - (lambda ((set? set1) (set? set2) ...) boolean?) - (pure)) - - (set-union - (lambda ((set? set1) (set? set2) ...) set?) - (pure)) - - (set-intersection - (lambda ((set? set1) (set? set2) ...) set?) - (pure)) - - (set-difference - (lambda ((set? set1) (set? set2) ...) set?) - (pure)) - - (set-xor - (lambda ((set? set1) (set? set2)) set?) - (pure)) - - (set-union! - (lambda ((set? set1) (set? set2) ...) set?) - ()) - - (set-intersection! - (lambda ((set? set1) (set? set2) ...) set?) - ()) - - (set-difference! - (lambda ((set? set1) (set? set2) ...) set?) - ()) - - (set-xor! - (lambda ((set? set1) (set? set2)) set?) - ()) - - ;;;;; - - - (bag - (lambda ((comparator? comparator) element ...) bag?) - (pure)) - - (bag-unfold - (lambda ((comparator? comparator) (procedure? stop?) (procedure? mapper) (procedure? successor) seed) bag?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) *)) - (successor (lambda (seed) *)))) - - (bag? - (lambda (obj) boolean?) - (pure predicate)) - - (bag-contains? - (lambda ((bag? bag) element) boolean?) - (pure)) - - (bag-empty? - (lambda ((bag? bag)) boolean?) - (pure)) - - (bag-disjoint? - (lambda ((bag? bag1) (bag? bag2)) boolean?) - (pure)) - - (bag-member - (lambda ((bag? bag) element default) *) - (pure)) - - (bag-element-comparator - (lambda ((bag? bag)) comparator?) - (pure)) - - (bag-adjoin - (lambda ((bag? bag) element ...) bag?) - (pure)) - - (bag-adjoin! - (lambda ((bag? bag) element ...) bag?) - ()) - - (bag-replace - (lambda ((bag? bag) element) bag?) - (pure)) - - (bag-replace! - (lambda ((bag? bag) element) bag?) - ()) - - (bag-delete - (lambda ((bag? bag) element ...) bag?) - (pure)) - - (bag-delete! - (lambda ((bag? bag) element ...) bag?) - ()) - - (bag-delete-all - (lambda ((bag? bag) (list? elements)) bag?) - (pure)) - - (bag-delete-all! - (lambda ((bag? bag) (list? elements)) bag?) - ()) - - (bag-search! - (lambda ((bag? bag) element (procedure? failure) (procedure? success)) (values bag? *)) - () - ((failure (lambda ((procedure? insert) (procedure? ignore)) *)) - (insert (lambda (obj) *)) - (ignore (lambda (obj) *)) - (success (lambda (element (procedure? update) (procedure? remove)) *)) - (update (lambda (new-element obj) *)) - (remove (lambda (obj) *)))) - - (bag-size - (lambda ((bag? bag)) integer?) - (pure)) - - (bag-find - (lambda ((procedure? predicate) (bag? bag) (procedure? failure)) *) - (pure) - ((predicate (lambda (obj) boolean?)) - (failure (lambda () *)))) - - (bag-count - (lambda ((procedure? predicate) (bag? bag)) integer?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (bag-any? - (lambda ((procedure? predicate) (bag? bag)) boolean?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (bag-every? - (lambda ((procedure? predicate) (bag? bag)) boolean?) - (pure) - ((predicate (lambda (obj) boolean?)))) - - (bag-map - (lambda ((comparator? comparator) (procedure? proc) (bag? bag)) *) - (pure) - ((proc (lambda (obj) *)))) - - (bag-for-each - (lambda ((procedure? proc) (bag? bag)) undefined) - () - ((proc (lambda (obj) undefined)))) - - (bag-fold - (lambda ((procedure? proc) nil (bag? bag)) *) - (pure) - ((proc (lambda (obj state) *)))) - - (bag-filter - (lambda ((procedure? predicate) (bag? bag)) bag?) - (pure) - ((predicate (lambda (obj) *)))) - - (bag-filter! - (lambda ((procedure? predicate) (bag? bag)) bag?) - () - ((predicate (lambda (obj) *)))) - - (bag-remove - (lambda ((procedure? predicate) (bag? bag)) bag?) - (pure) - ((predicate (lambda (obj) *)))) - - (bag-remove! - (lambda ((procedure? predicate) (bag? bag)) bag?) - () - ((predicate (lambda (obj) *)))) - - (bag-partition - (lambda ((procedure? predicate) (bag? bag)) (values bag? bag?)) - (pure) - ((predicate (lambda (obj) *)))) - - (bag-partition! - (lambda ((procedure? predicate) (bag? bag)) (values bag? bag?)) - () - ((predicate (lambda (obj) *)))) - - (bag-copy - (lambda ((bag? bag)) bag?) - (pure)) - - (bag->list - (lambda ((bag? bag)) list?) - ()) - - (list->bag - (lambda ((comparator? comparator) (list? list)) bag?) - (pure)) - - (list->bag! - (lambda ((bag? bag) (list? list)) bag?) - ()) - - (bag=? - (lambda ((bag? bag1) (bag? bag2) ...) boolean?) - (pure)) - - (bag? - (lambda ((bag? bag1) (bag? bag2) ...) boolean?) - (pure)) - - (bag<=? - (lambda ((bag? bag1) (bag? bag2) ...) boolean?) - (pure)) - - (bag>=? - (lambda ((bag? bag1) (bag? bag2) ...) boolean?) - (pure)) - - (bag-union - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - (pure)) - - (bag-intersection - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - (pure)) - - (bag-difference - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - (pure)) - - (bag-xor - (lambda ((bag? bag1) (bag? bag2)) bag?) - (pure)) - - (bag-union! - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - ()) - - (bag-intersection! - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - ()) - - (bag-difference! - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - ()) - - (bag-xor! - (lambda ((bag? bag1) (bag? bag2)) bag?) - ()) - - ;;;;;;;;;; - - (bag-sum - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - (pure)) - - (bag-sum! - (lambda ((bag? bag1) (bag? bag2) ...) bag?) - ()) - - (bag-product - (lambda ((integer? n) (bag? bag)) bag?) - (pure)) - - (bag-product! - (lambda ((integer? n) (bag? bag)) bag?) - ()) - - (bag-unique-size - (lambda ((bag? bag)) integer?) - (pure)) - - (bag-element-count - (lambda ((bag? bag) element) integer?) - (pure)) - - (bag-for-each-unique - (lambda ((procedure? proc) (bag? bag)) undefined) - () - ((proc (lambda (obj) undefined)))) - - (bag-fold-unique - (lambda ((procedure? proc) nil (bag? bag)) *) - (pure) - ((proc (lambda (obj state) *)))) - - (bag-increment! - (lambda ((bag? bag) element count) bag?) - ()) - - (bag-decrement! - (lambda ((bag? bag) element count) bag?) - ()) - - (bag->set - (lambda ((bag? bag)) set?) - (pure)) - - (set->bag - (lambda ((set? set)) bag?) - (pure)) - - (set->bag! - (lambda ((set? set)) bag?) - ()) - - (bag->alist - (lambda ((bag? bag)) list?)) - - (alist->bag - (lambda ((comparator? comparator) (list? alist)) bag?) - (pure)) - - (set-comparator - (value comparator?)) - - (bag-comparator - (value comparator?)) - - ) +(((name . set) + (signature lambda ((comparator? comparator) element ...) set?) + (tags pure)) + ((name . set-unfold) + (signature + lambda + ((comparator? comparator) + (procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed) + set?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . set?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . set-contains?) + (signature lambda ((set? set) element) boolean?) + (tags pure)) + ((name . set-empty?) (signature lambda ((set? set)) boolean?) (tags pure)) + ((name . set-disjoint?) + (signature lambda ((set? set1) (set? set2)) boolean?) + (tags pure)) + ((name . set-member) + (signature lambda ((set? set) element default) *) + (tags pure)) + ((name . set-element-comparator) + (signature lambda ((set? set)) comparator?) + (tags pure)) + ((name . set-adjoin) + (signature lambda ((set? set) element ...) set?) + (tags pure)) + ((name . set-adjoin!) (signature lambda ((set? set) element ...) set?)) + ((name . set-replace) + (signature lambda ((set? set) element) set?) + (tags pure)) + ((name . set-replace!) (signature lambda ((set? set) element) set?)) + ((name . set-delete) + (signature lambda ((set? set) element ...) set?) + (tags pure)) + ((name . set-delete!) (signature lambda ((set? set) element ...) set?)) + ((name . set-delete-all) + (signature lambda ((set? set) (list? elements)) set?) + (tags pure)) + ((name . set-delete-all!) + (signature lambda ((set? set) (list? elements)) set?)) + ((name . set-search!) + (signature + lambda + ((set? set) element (procedure? failure) (procedure? success)) + (values set? *)) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (element (procedure? update) (procedure? remove)) *)) + (update (lambda (new-element obj) *)) + (remove (lambda (obj) *)))) + ((name . set-size) (signature lambda ((set? set)) integer?) (tags pure)) + ((name . set-find) + (signature lambda ((procedure? predicate) (set? set) (procedure? failure)) *) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)) (failure (lambda () *)))) + ((name . set-count) + (signature lambda ((procedure? predicate) (set? set)) integer?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . set-any?) + (signature lambda ((procedure? predicate) (set? set)) boolean?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . set-every?) + (signature lambda ((procedure? predicate) (set? set)) boolean?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . set-map) + (signature lambda ((comparator? comparator) (procedure? proc) (set? set)) *) + (tags pure) + (subsigs (proc (lambda (obj) *)))) + ((name . set-for-each) + (signature lambda ((procedure? proc) (set? set)) undefined) + (subsigs (proc (lambda (obj) undefined)))) + ((name . set-fold) + (signature lambda ((procedure? proc) nil (set? set)) *) + (tags pure) + (subsigs (proc (lambda (obj state) *)))) + ((name . set-filter) + (signature lambda ((procedure? predicate) (set? set)) set?) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-filter!) + (signature lambda ((procedure? predicate) (set? set)) set?) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-remove) + (signature lambda ((procedure? predicate) (set? set)) set?) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-remove!) + (signature lambda ((procedure? predicate) (set? set)) set?) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-partition) + (signature lambda ((procedure? predicate) (set? set)) (values set? set?)) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-partition!) + (signature lambda ((procedure? predicate) (set? set)) (values set? set?)) + (subsigs (predicate (lambda (obj) *)))) + ((name . set-copy) (signature lambda ((set? set)) set?) (tags pure)) + ((name . set->list) (signature lambda ((set? set)) list?)) + ((name . list->set) + (signature lambda ((comparator? comparator) (list? list)) set?) + (tags pure)) + ((name . list->set!) (signature lambda ((set? set) (list? list)) set?)) + ((name . set=?) + (signature lambda ((set? set1) (set? set2) ...) boolean?) + (tags pure)) + ((name . set?) + (signature lambda ((set? set1) (set? set2) ...) boolean?) + (tags pure)) + ((name . set<=?) + (signature lambda ((set? set1) (set? set2) ...) boolean?) + (tags pure)) + ((name . set>=?) + (signature lambda ((set? set1) (set? set2) ...) boolean?) + (tags pure)) + ((name . set-union) + (signature lambda ((set? set1) (set? set2) ...) set?) + (tags pure)) + ((name . set-intersection) + (signature lambda ((set? set1) (set? set2) ...) set?) + (tags pure)) + ((name . set-difference) + (signature lambda ((set? set1) (set? set2) ...) set?) + (tags pure)) + ((name . set-xor) + (signature lambda ((set? set1) (set? set2)) set?) + (tags pure)) + ((name . set-union!) (signature lambda ((set? set1) (set? set2) ...) set?)) + ((name . set-intersection!) + (signature lambda ((set? set1) (set? set2) ...) set?)) + ((name . set-difference!) + (signature lambda ((set? set1) (set? set2) ...) set?)) + ((name . set-xor!) (signature lambda ((set? set1) (set? set2)) set?)) + ((name . bag) + (signature lambda ((comparator? comparator) element ...) bag?) + (tags pure)) + ((name . bag-unfold) + (signature + lambda + ((comparator? comparator) + (procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed) + bag?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) *)) + (successor (lambda (seed) *)))) + ((name . bag?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . bag-contains?) + (signature lambda ((bag? bag) element) boolean?) + (tags pure)) + ((name . bag-empty?) (signature lambda ((bag? bag)) boolean?) (tags pure)) + ((name . bag-disjoint?) + (signature lambda ((bag? bag1) (bag? bag2)) boolean?) + (tags pure)) + ((name . bag-member) + (signature lambda ((bag? bag) element default) *) + (tags pure)) + ((name . bag-element-comparator) + (signature lambda ((bag? bag)) comparator?) + (tags pure)) + ((name . bag-adjoin) + (signature lambda ((bag? bag) element ...) bag?) + (tags pure)) + ((name . bag-adjoin!) (signature lambda ((bag? bag) element ...) bag?)) + ((name . bag-replace) + (signature lambda ((bag? bag) element) bag?) + (tags pure)) + ((name . bag-replace!) (signature lambda ((bag? bag) element) bag?)) + ((name . bag-delete) + (signature lambda ((bag? bag) element ...) bag?) + (tags pure)) + ((name . bag-delete!) (signature lambda ((bag? bag) element ...) bag?)) + ((name . bag-delete-all) + (signature lambda ((bag? bag) (list? elements)) bag?) + (tags pure)) + ((name . bag-delete-all!) + (signature lambda ((bag? bag) (list? elements)) bag?)) + ((name . bag-search!) + (signature + lambda + ((bag? bag) element (procedure? failure) (procedure? success)) + (values bag? *)) + (subsigs + (failure (lambda ((procedure? insert) (procedure? ignore)) *)) + (insert (lambda (obj) *)) + (ignore (lambda (obj) *)) + (success (lambda (element (procedure? update) (procedure? remove)) *)) + (update (lambda (new-element obj) *)) + (remove (lambda (obj) *)))) + ((name . bag-size) (signature lambda ((bag? bag)) integer?) (tags pure)) + ((name . bag-find) + (signature lambda ((procedure? predicate) (bag? bag) (procedure? failure)) *) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)) (failure (lambda () *)))) + ((name . bag-count) + (signature lambda ((procedure? predicate) (bag? bag)) integer?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . bag-any?) + (signature lambda ((procedure? predicate) (bag? bag)) boolean?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . bag-every?) + (signature lambda ((procedure? predicate) (bag? bag)) boolean?) + (tags pure) + (subsigs (predicate (lambda (obj) boolean?)))) + ((name . bag-map) + (signature lambda ((comparator? comparator) (procedure? proc) (bag? bag)) *) + (tags pure) + (subsigs (proc (lambda (obj) *)))) + ((name . bag-for-each) + (signature lambda ((procedure? proc) (bag? bag)) undefined) + (subsigs (proc (lambda (obj) undefined)))) + ((name . bag-fold) + (signature lambda ((procedure? proc) nil (bag? bag)) *) + (tags pure) + (subsigs (proc (lambda (obj state) *)))) + ((name . bag-filter) + (signature lambda ((procedure? predicate) (bag? bag)) bag?) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-filter!) + (signature lambda ((procedure? predicate) (bag? bag)) bag?) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-remove) + (signature lambda ((procedure? predicate) (bag? bag)) bag?) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-remove!) + (signature lambda ((procedure? predicate) (bag? bag)) bag?) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-partition) + (signature lambda ((procedure? predicate) (bag? bag)) (values bag? bag?)) + (tags pure) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-partition!) + (signature lambda ((procedure? predicate) (bag? bag)) (values bag? bag?)) + (subsigs (predicate (lambda (obj) *)))) + ((name . bag-copy) (signature lambda ((bag? bag)) bag?) (tags pure)) + ((name . bag->list) (signature lambda ((bag? bag)) list?)) + ((name . list->bag) + (signature lambda ((comparator? comparator) (list? list)) bag?) + (tags pure)) + ((name . list->bag!) (signature lambda ((bag? bag) (list? list)) bag?)) + ((name . bag=?) + (signature lambda ((bag? bag1) (bag? bag2) ...) boolean?) + (tags pure)) + ((name . bag?) + (signature lambda ((bag? bag1) (bag? bag2) ...) boolean?) + (tags pure)) + ((name . bag<=?) + (signature lambda ((bag? bag1) (bag? bag2) ...) boolean?) + (tags pure)) + ((name . bag>=?) + (signature lambda ((bag? bag1) (bag? bag2) ...) boolean?) + (tags pure)) + ((name . bag-union) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?) + (tags pure)) + ((name . bag-intersection) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?) + (tags pure)) + ((name . bag-difference) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?) + (tags pure)) + ((name . bag-xor) + (signature lambda ((bag? bag1) (bag? bag2)) bag?) + (tags pure)) + ((name . bag-union!) (signature lambda ((bag? bag1) (bag? bag2) ...) bag?)) + ((name . bag-intersection!) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?)) + ((name . bag-difference!) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?)) + ((name . bag-xor!) (signature lambda ((bag? bag1) (bag? bag2)) bag?)) + ((name . bag-sum) + (signature lambda ((bag? bag1) (bag? bag2) ...) bag?) + (tags pure)) + ((name . bag-sum!) (signature lambda ((bag? bag1) (bag? bag2) ...) bag?)) + ((name . bag-product) + (signature lambda ((integer? n) (bag? bag)) bag?) + (tags pure)) + ((name . bag-product!) (signature lambda ((integer? n) (bag? bag)) bag?)) + ((name . bag-unique-size) + (signature lambda ((bag? bag)) integer?) + (tags pure)) + ((name . bag-element-count) + (signature lambda ((bag? bag) element) integer?) + (tags pure)) + ((name . bag-for-each-unique) + (signature lambda ((procedure? proc) (bag? bag)) undefined) + (subsigs (proc (lambda (obj) undefined)))) + ((name . bag-fold-unique) + (signature lambda ((procedure? proc) nil (bag? bag)) *) + (tags pure) + (subsigs (proc (lambda (obj state) *)))) + ((name . bag-increment!) (signature lambda ((bag? bag) element count) bag?)) + ((name . bag-decrement!) (signature lambda ((bag? bag) element count) bag?)) + ((name . bag->set) (signature lambda ((bag? bag)) set?) (tags pure)) + ((name . set->bag) (signature lambda ((set? set)) bag?) (tags pure)) + ((name . set->bag!) (signature lambda ((set? set)) bag?)) + ((name . bag->alist) (signature lambda ((bag? bag)) list?)) + ((name . alist->bag) + (signature lambda ((comparator? comparator) (list? alist)) bag?) + (tags pure)) + ((name . set-comparator) (signature value comparator?)) + ((name . bag-comparator) (signature value comparator?))) diff --git a/types/scheme.show.scm b/types/scheme.show.scm index 6c6cc9c..d00ac99 100644 --- a/types/scheme.show.scm +++ b/types/scheme.show.scm @@ -1,399 +1,405 @@ -( - - (show - (lambda ((#f port) (formatter fmt) ...) string?) - (pure)) - - (show - (lambda (((or output-port? boolean?) port) (formatter fmt) ...) undefined) - ()) - - (displayed - (lambda (obj) formatter) - (pure)) - - (written - (lambda (obj) formatter) - (pure)) - - (written-simply - (lambda (obj) formatter) - (pure)) - - (pretty - (lambda (obj) formatter) - (pure)) - - (pretty-simply - (lambda (obj) formatter) - (pure)) - - (escaped - (lambda ((string? str)) formatter) - (pure)) - - (escaped - (lambda ((string? str) (char? quote-ch)) formatter) - (pure)) - - (escaped - (lambda ((string? str) (char? quote-ch) (char? esc-ch)) formatter) - (pure)) - - (escaped - (lambda ((string? str) (char? quote-ch) (char? esc-ch) (procedure? renamer)) formatter) - (pure) - ((renamer (lambda (char? c) char?)))) - - (maybe-escaped - (lambda ((string? str) (procedure? pred)) formatter) - (pure) - ((pred (lambda (char? c) boolean?)))) - - (maybe-escaped - (lambda ((string? str) (procedure? pred) (char? quote-ch)) formatter) - (pure) - ((pred (lambda (char? c) boolean?)))) - - (maybe-escaped - (lambda ((string? str) (procedure? pred) (char? quote-ch) (char? esc-ch)) formatter) - (pure) - ((pred (lambda (char? c) boolean?)))) - - (maybe-escaped - (lambda ((string? str) (procedure? pred) (char? quote-ch) (char? esc-ch) (procedure? renamer)) formatter) - (pure) - ((pred (lambda (char? c) boolean?)) - (renamer (lambda (char? c) char?)))) - - (numeric - (lambda ((number? num)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix) (integer? precision)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma) (char? comma-sep)) formatter) - (pure)) - - (numeric - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma) (char? comma-sep) (char? decimal-sep)) formatter) - (pure)) - - (numeric/comma - (lambda ((number? num)) formatter) - (pure)) - - (numeric/comma - (lambda ((number? num) (integer? radix)) formatter) - (pure)) - - (numeric/comma - (lambda ((number? num) (integer? radix) (integer? precision)) formatter) - (pure)) - - (numeric/comma - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign)) formatter) - (pure)) - - (numeric/si - (lambda ((number? num)) formatter) - (pure)) - - (numeric/si - (lambda ((number? num) (integer? base)) formatter) - (pure)) - - (numeric/si - (lambda ((number? num) (integer? base) (string? separator)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix) (integer? precision)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma) (char? comma-sep)) formatter) - (pure)) - - (numeric/fitted - (lambda ((number? num) (integer? radix) (integer? precision) ((or boolean? pair?) sign) (integer? comma) (char? comma-sep) (char? decimal-sep)) formatter) - (pure)) - - (nl (value formatter)) - - (fl (value formatter)) - - (space-to - (lambda ((integer? column)) formatter) - (pure)) - - (tab-to - (lambda () formatter) - (pure)) - - (tab-to - (lambda ((integer? tab-width)) formatter) - (pure)) - - (nothing (value formatter)) - - (each - (lambda ((formatter fmt) ...) formatter) - (pure)) - - (each-in-list - (lambda ((list? list-of-fmts)) formatter) - (pure)) - - (joined - (lambda ((procedure? mapper) (list? list)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined - (lambda ((procedure? mapper) (list? list) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined/prefix - (lambda ((procedure? mapper) (list? list)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined/prefix - (lambda ((procedure? mapper) (list? list) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined/suffix - (lambda ((procedure? mapper) (list? list)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined/suffix - (lambda ((procedure? mapper) (list? list) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda (element) formatter)))) - - (joined/last - (lambda ((procedure? mapper) (procedure? last-mapper) (list? list)) formatter) - (pure) - ((mapper (lambda (element) formatter)) - (last-mapper (lambda (element) formatter)))) - - (joined/last - (lambda ((procedure? mapper) (procedure? last-mapper) (list? list) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda (element) formatter)) - (last-mapper (lambda (element) formatter)))) - - (joined/dot - (lambda ((procedure? mapper) (procedure? dot-mapper) ((or list? dotted-list?) list)) formatter) - (pure) - ((mapper (lambda (element) formatter)) - (dot-mapper (lambda (tail) formatter)))) - - (joined/dot - (lambda ((procedure? mapper) (procedure? dot-mapper) ((or list? dotted-list?) list) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda (element) formatter)) - (dot-mapper (lambda (tail) formatter)))) - - (joined/range - (lambda ((procedure? mapper) (integer? start)) formatter) - (pure) - ((mapper (lambda ((integer? value)) formatter)))) - - (joined/range - (lambda ((procedure? mapper) (integer? start) ((or integer? #f) end)) formatter) - (pure) - ((mapper (lambda ((integer? value)) formatter)))) - - (joined/range - (lambda ((procedure? mapper) (integer? start) ((or integer? #f) end) ((or string? formatter) separator)) formatter) - (pure) - ((mapper (lambda ((integer? value)) formatter)))) - - (padded - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (padded/right - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (padded/both - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (trimmed - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (trimmed/right - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (trimmed/both - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (trimmed/lazy - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (fitted - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (fitted/right - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (fitted/both - (lambda ((integer? width) (formatter fmt) ...) formatter) - (pure)) - - (columnar - (lambda (((or formatter string? symbol? number?) column) ...) formatter) - (pure)) - - (tabular - (lambda (((or formatter string? symbol? number?) column) ...) formatter) - (pure)) - - (wrapped - (lambda ((formatter fmt) ...) formatter) - (pure)) - - (wrapped/list - (lambda ((list? list-of-strings) ...) formatter) - (pure)) - - (wrapped/char - (lambda ((formatter fmt) ...) formatter) - (pure)) - - (justified - (lambda ((formatter fmt) ...) formatter) - (pure)) - - (from-file - (lambda ((string? pathname)) formatter)) - - (line-numbers - (lambda () formatter) - (pure)) - - (line-numbers - (lambda ((integer? start)) formatter) - (pure)) - - (as-red - (lambda ((formatter fmt) ...) formatter)) - - (as-blue - (lambda ((formatter fmt) ...) formatter)) - - (as-green - (lambda ((formatter fmt) ...) formatter)) - - (as-cyan - (lambda ((formatter fmt) ...) formatter)) - - (as-yellow - (lambda ((formatter fmt) ...) formatter)) - - (as-magenta - (lambda ((formatter fmt) ...) formatter)) - - (as-white - (lambda ((formatter fmt) ...) formatter)) - - (as-black - (lambda ((formatter fmt) ...) formatter)) - - (as-bold - (lambda ((formatter fmt) ...) formatter)) - - (as-underline - (lambda ((formatter fmt) ...) formatter)) - - (as-unicode - (lambda ((formatter fmt) ...) formatter)) - - (unicode-terminal-width - (lambda ((string? str)) integer?) - (pure)) - - (fn - (syntax-rules () - ((_ (binding ...) expr ... fmt))) - () - ((binding (id state-var) - id))) - - (with - (syntax-rules () - ((_ ((state-var value) ...) fmt ...)))) - - (with! - (syntax-rules () - ((_ (state-var value) ...)))) - - (forked - (lambda ((formatter fmt1) (formatter fmt2)) formatter) - (pure)) - - (call-with-output - (lambda ((formatter fmt) (procedure? mapper)) formatter) - (pure) - ((mapper (lambda ((string? result-string)) formatter)))) - - (port (value formatter-variable)) - (row (value formatter-variable)) - (col (value formatter-variable)) - (width (value formatter-variable)) - (output (value formatter-variable)) - (writer (value formatter-variable)) - (string-width (value formatter-variable)) - (pad-char (value formatter-variable)) - (ellipsis (value formatter-variable)) - (radix (value formatter-variable)) - (precision (value formatter-variable)) - (decimal-sep (value formatter-variable)) - (decimal-align (value formatter-variable)) - (word-separator? (value formatter-variable)) - - ) +(((name . show) + (signature lambda ((#f port) (formatter fmt) ...) string?) + (tags pure)) + ((name . show) + (signature + lambda + (((or output-port? boolean?) port) (formatter fmt) ...) + undefined)) + ((name . displayed) (signature lambda (obj) formatter) (tags pure)) + ((name . written) (signature lambda (obj) formatter) (tags pure)) + ((name . written-simply) (signature lambda (obj) formatter) (tags pure)) + ((name . pretty) (signature lambda (obj) formatter) (tags pure)) + ((name . pretty-simply) (signature lambda (obj) formatter) (tags pure)) + ((name . escaped) (signature lambda ((string? str)) formatter) (tags pure)) + ((name . escaped) + (signature lambda ((string? str) (char? quote-ch)) formatter) + (tags pure)) + ((name . escaped) + (signature lambda ((string? str) (char? quote-ch) (char? esc-ch)) formatter) + (tags pure)) + ((name . escaped) + (signature + lambda + ((string? str) (char? quote-ch) (char? esc-ch) (procedure? renamer)) + formatter) + (tags pure) + (subsigs (renamer (lambda (char? c) char?)))) + ((name . maybe-escaped) + (signature lambda ((string? str) (procedure? pred)) formatter) + (tags pure) + (subsigs (pred (lambda (char? c) boolean?)))) + ((name . maybe-escaped) + (signature + lambda + ((string? str) (procedure? pred) (char? quote-ch)) + formatter) + (tags pure) + (subsigs (pred (lambda (char? c) boolean?)))) + ((name . maybe-escaped) + (signature + lambda + ((string? str) (procedure? pred) (char? quote-ch) (char? esc-ch)) + formatter) + (tags pure) + (subsigs (pred (lambda (char? c) boolean?)))) + ((name . maybe-escaped) + (signature + lambda + ((string? str) + (procedure? pred) + (char? quote-ch) + (char? esc-ch) + (procedure? renamer)) + formatter) + (tags pure) + (subsigs + (pred (lambda (char? c) boolean?)) + (renamer (lambda (char? c) char?)))) + ((name . numeric) (signature lambda ((number? num)) formatter) (tags pure)) + ((name . numeric) + (signature lambda ((number? num) (integer? radix)) formatter) + (tags pure)) + ((name . numeric) + (signature + lambda + ((number? num) (integer? radix) (integer? precision)) + formatter) + (tags pure)) + ((name . numeric) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign)) + formatter) + (tags pure)) + ((name . numeric) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma)) + formatter) + (tags pure)) + ((name . numeric) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma) + (char? comma-sep)) + formatter) + (tags pure)) + ((name . numeric) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma) + (char? comma-sep) + (char? decimal-sep)) + formatter) + (tags pure)) + ((name . numeric/comma) + (signature lambda ((number? num)) formatter) + (tags pure)) + ((name . numeric/comma) + (signature lambda ((number? num) (integer? radix)) formatter) + (tags pure)) + ((name . numeric/comma) + (signature + lambda + ((number? num) (integer? radix) (integer? precision)) + formatter) + (tags pure)) + ((name . numeric/comma) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign)) + formatter) + (tags pure)) + ((name . numeric/si) (signature lambda ((number? num)) formatter) (tags pure)) + ((name . numeric/si) + (signature lambda ((number? num) (integer? base)) formatter) + (tags pure)) + ((name . numeric/si) + (signature + lambda + ((number? num) (integer? base) (string? separator)) + formatter) + (tags pure)) + ((name . numeric/fitted) + (signature lambda ((number? num)) formatter) + (tags pure)) + ((name . numeric/fitted) + (signature lambda ((number? num) (integer? radix)) formatter) + (tags pure)) + ((name . numeric/fitted) + (signature + lambda + ((number? num) (integer? radix) (integer? precision)) + formatter) + (tags pure)) + ((name . numeric/fitted) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign)) + formatter) + (tags pure)) + ((name . numeric/fitted) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma)) + formatter) + (tags pure)) + ((name . numeric/fitted) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma) + (char? comma-sep)) + formatter) + (tags pure)) + ((name . numeric/fitted) + (signature + lambda + ((number? num) + (integer? radix) + (integer? precision) + ((or boolean? pair?) sign) + (integer? comma) + (char? comma-sep) + (char? decimal-sep)) + formatter) + (tags pure)) + ((name . nl) (signature value formatter)) + ((name . fl) (signature value formatter)) + ((name . space-to) + (signature lambda ((integer? column)) formatter) + (tags pure)) + ((name . tab-to) (signature lambda () formatter) (tags pure)) + ((name . tab-to) + (signature lambda ((integer? tab-width)) formatter) + (tags pure)) + ((name . nothing) (signature value formatter)) + ((name . each) (signature lambda ((formatter fmt) ...) formatter) (tags pure)) + ((name . each-in-list) + (signature lambda ((list? list-of-fmts)) formatter) + (tags pure)) + ((name . joined) + (signature lambda ((procedure? mapper) (list? list)) formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined) + (signature + lambda + ((procedure? mapper) (list? list) ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined/prefix) + (signature lambda ((procedure? mapper) (list? list)) formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined/prefix) + (signature + lambda + ((procedure? mapper) (list? list) ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined/suffix) + (signature lambda ((procedure? mapper) (list? list)) formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined/suffix) + (signature + lambda + ((procedure? mapper) (list? list) ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs (mapper (lambda (element) formatter)))) + ((name . joined/last) + (signature + lambda + ((procedure? mapper) (procedure? last-mapper) (list? list)) + formatter) + (tags pure) + (subsigs + (mapper (lambda (element) formatter)) + (last-mapper (lambda (element) formatter)))) + ((name . joined/last) + (signature + lambda + ((procedure? mapper) + (procedure? last-mapper) + (list? list) + ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs + (mapper (lambda (element) formatter)) + (last-mapper (lambda (element) formatter)))) + ((name . joined/dot) + (signature + lambda + ((procedure? mapper) (procedure? dot-mapper) ((or list? dotted-list?) list)) + formatter) + (tags pure) + (subsigs + (mapper (lambda (element) formatter)) + (dot-mapper (lambda (tail) formatter)))) + ((name . joined/dot) + (signature + lambda + ((procedure? mapper) + (procedure? dot-mapper) + ((or list? dotted-list?) list) + ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs + (mapper (lambda (element) formatter)) + (dot-mapper (lambda (tail) formatter)))) + ((name . joined/range) + (signature lambda ((procedure? mapper) (integer? start)) formatter) + (tags pure) + (subsigs (mapper (lambda ((integer? value)) formatter)))) + ((name . joined/range) + (signature + lambda + ((procedure? mapper) (integer? start) ((or integer? #f) end)) + formatter) + (tags pure) + (subsigs (mapper (lambda ((integer? value)) formatter)))) + ((name . joined/range) + (signature + lambda + ((procedure? mapper) + (integer? start) + ((or integer? #f) end) + ((or string? formatter) separator)) + formatter) + (tags pure) + (subsigs (mapper (lambda ((integer? value)) formatter)))) + ((name . padded) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . padded/right) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . padded/both) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . trimmed) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . trimmed/right) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . trimmed/both) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . trimmed/lazy) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . fitted) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . fitted/right) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . fitted/both) + (signature lambda ((integer? width) (formatter fmt) ...) formatter) + (tags pure)) + ((name . columnar) + (signature + lambda + (((or formatter string? symbol? number?) column) ...) + formatter) + (tags pure)) + ((name . tabular) + (signature + lambda + (((or formatter string? symbol? number?) column) ...) + formatter) + (tags pure)) + ((name . wrapped) + (signature lambda ((formatter fmt) ...) formatter) + (tags pure)) + ((name . wrapped/list) + (signature lambda ((list? list-of-strings) ...) formatter) + (tags pure)) + ((name . wrapped/char) + (signature lambda ((formatter fmt) ...) formatter) + (tags pure)) + ((name . justified) + (signature lambda ((formatter fmt) ...) formatter) + (tags pure)) + ((name . from-file) (signature lambda ((string? pathname)) formatter)) + ((name . line-numbers) (signature lambda () formatter) (tags pure)) + ((name . line-numbers) + (signature lambda ((integer? start)) formatter) + (tags pure)) + ((name . as-red) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-blue) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-green) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-cyan) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-yellow) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-magenta) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-white) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-black) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-bold) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-underline) (signature lambda ((formatter fmt) ...) formatter)) + ((name . as-unicode) (signature lambda ((formatter fmt) ...) formatter)) + ((name . unicode-terminal-width) + (signature lambda ((string? str)) integer?) + (tags pure)) + ((name . fn) + (signature syntax-rules () ((_ (binding ...) expr ... fmt))) + (subsigs (binding (id state-var) id))) + ((name . with) + (signature syntax-rules () ((_ ((state-var value) ...) fmt ...)))) + ((name . with!) (signature syntax-rules () ((_ (state-var value) ...)))) + ((name . forked) + (signature lambda ((formatter fmt1) (formatter fmt2)) formatter) + (tags pure)) + ((name . call-with-output) + (signature lambda ((formatter fmt) (procedure? mapper)) formatter) + (tags pure) + (subsigs (mapper (lambda ((string? result-string)) formatter)))) + ((name . port) (signature value formatter-variable)) + ((name . row) (signature value formatter-variable)) + ((name . col) (signature value formatter-variable)) + ((name . width) (signature value formatter-variable)) + ((name . output) (signature value formatter-variable)) + ((name . writer) (signature value formatter-variable)) + ((name . string-width) (signature value formatter-variable)) + ((name . pad-char) (signature value formatter-variable)) + ((name . ellipsis) (signature value formatter-variable)) + ((name . radix) (signature value formatter-variable)) + ((name . precision) (signature value formatter-variable)) + ((name . decimal-sep) (signature value formatter-variable)) + ((name . decimal-align) (signature value formatter-variable)) + ((name . word-separator?) (signature value formatter-variable))) diff --git a/types/scheme.sort.scm b/types/scheme.sort.scm index 23d04ca..4bd1c90 100644 --- a/types/scheme.sort.scm +++ b/types/scheme.sort.scm @@ -1,255 +1,253 @@ -( - - (list-sorted? - (lambda ((procedure? <) (list? lis)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sorted? - (lambda ((procedure? <) (vector? v)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sorted? - (lambda ((procedure? <) (vector? v) (integer? start)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sorted? - (lambda ((procedure? <) (vector? v) (integer? start) (integer? end)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (list-sort - (lambda ((procedure? <) (list? lis)) list?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (list-stable-sort - (lambda ((procedure? <) (list? lis)) list?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (list-sort! - (lambda ((procedure? <) (list? lis)) list?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (list-stable-sort! - (lambda ((procedure? <) (list? lis)) list?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort - (lambda ((procedure? <) (vector? v)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort - (lambda ((procedure? <) (vector? v) (integer? start)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort - (lambda ((procedure? <) (vector? v) (integer? start) (integer? end)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort - (lambda ((procedure? <) (vector? v)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort - (lambda ((procedure? <) (vector? v) (integer? start)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort - (lambda ((procedure? <) (vector? v) (integer? start) (integer? end)) boolean?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort! - (lambda ((procedure? <) (vector? v)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort! - (lambda ((procedure? <) (vector? v) (integer? start)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-sort! - (lambda ((procedure? <) (vector? v) (integer? start) (integer? end)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort! - (lambda ((procedure? <) (vector? v)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort! - (lambda ((procedure? <) (vector? v) (integer? start)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-stable-sort! - (lambda ((procedure? <) (vector? v) (integer? start) (integer? end)) boolean?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (list-merge - (lambda ((procedure? <) (list? lis1) (list? lis2)) list?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (list-merge! - (lambda ((procedure? <) (list? lis1) (list? lis2)) list?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge - (lambda ((procedure? <) (vector? v1) (vector? v2)) vector?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1)) vector?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1)) vector?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1) (integer? start2)) vector?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) vector?) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge! - (lambda ((procedure? <) (vector? v1) (vector? v2)) vector?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge! - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1)) vector?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge! - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1)) vector?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge! - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1) (integer? start2)) vector?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-merge! - (lambda ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) vector?) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (list-delete-neighbor-dups - (lambda ((procedure? =) (list? lis)) list?) - (pure) - ((= (lambda (obj1 obj2) boolean?)))) - - (list-delete-neighbor-dups! - (lambda ((procedure? =) (list? lis)) list?) - () - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups - (lambda ((procedure? =) (vector? v)) vector?) - (pure) - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups - (lambda ((procedure? =) (vector? v) (integer? start)) vector?) - (pure) - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups - (lambda ((procedure? =) (vector? v) (integer? start) (integer? end)) vector?) - (pure) - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups! - (lambda ((procedure? =) (vector? v)) vector?) - () - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups! - (lambda ((procedure? =) (vector? v) (integer? start)) vector?) - () - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-delete-neighbor-dups! - (lambda ((procedure? =) (vector? v) (integer? start) (integer? end)) vector?) - () - ((= (lambda (obj1 obj2) boolean?)))) - - (vector-find-median - (lambda ((procedure? <) (vector? v) knil) *) - (pure) - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-find-median - (lambda ((procedure? <) (vector? v) knil (procedure? mean)) *) - (pure) - ((< (lambda (obj1 obj2) boolean?)) - (mean (lambda (obj1 obj2) *)))) - - (vector-find-median! - (lambda ((procedure? <) (vector? v) knil) *) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-find-median! - (lambda ((procedure? <) (vector? v) knil (procedure? mean)) *) - () - ((< (lambda (obj1 obj2) boolean?)) - (mean (lambda (obj1 obj2) *)))) - - (vector-select! - (lambda ((procedure? <) (vector? v) (integer? k)) *) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-select! - (lambda ((procedure? <) (vector? v) (integer? k) (integer? start)) *) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-select! - (lambda ((procedure? <) (vector? v) (integer? k) (integer? start) (integer? end)) *) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-separate! - (lambda ((procedure? <) (vector? v) (integer? k)) undefined) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-separate! - (lambda ((procedure? <) (vector? v) (integer? k) (integer? start)) undefined) - () - ((< (lambda (obj1 obj2) boolean?)))) - - (vector-separate! - (lambda ((procedure? <) (vector? v) (integer? k) (integer? start) (integer? end)) undefined) - () - ((< (lambda (obj1 obj2) boolean?)))) - - ) +(((name . list-sorted?) + (signature lambda ((procedure? <) (list? lis)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sorted?) + (signature lambda ((procedure? <) (vector? v)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sorted?) + (signature lambda ((procedure? <) (vector? v) (integer? start)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sorted?) + (signature + lambda + ((procedure? <) (vector? v) (integer? start) (integer? end)) + boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-sort) + (signature lambda ((procedure? <) (list? lis)) list?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-stable-sort) + (signature lambda ((procedure? <) (list? lis)) list?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-sort!) + (signature lambda ((procedure? <) (list? lis)) list?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-stable-sort!) + (signature lambda ((procedure? <) (list? lis)) list?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort) + (signature lambda ((procedure? <) (vector? v)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort) + (signature lambda ((procedure? <) (vector? v) (integer? start)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort) + (signature + lambda + ((procedure? <) (vector? v) (integer? start) (integer? end)) + boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort) + (signature lambda ((procedure? <) (vector? v)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort) + (signature lambda ((procedure? <) (vector? v) (integer? start)) boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort) + (signature + lambda + ((procedure? <) (vector? v) (integer? start) (integer? end)) + boolean?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort!) + (signature lambda ((procedure? <) (vector? v)) boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort!) + (signature lambda ((procedure? <) (vector? v) (integer? start)) boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-sort!) + (signature + lambda + ((procedure? <) (vector? v) (integer? start) (integer? end)) + boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort!) + (signature lambda ((procedure? <) (vector? v)) boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort!) + (signature lambda ((procedure? <) (vector? v) (integer? start)) boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-stable-sort!) + (signature + lambda + ((procedure? <) (vector? v) (integer? start) (integer? end)) + boolean?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-merge) + (signature lambda ((procedure? <) (list? lis1) (list? lis2)) list?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-merge!) + (signature lambda ((procedure? <) (list? lis1) (list? lis2)) list?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge) + (signature lambda ((procedure? <) (vector? v1) (vector? v2)) vector?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge) + (signature + lambda + ((procedure? <) (vector? v1) (vector? v2) (integer? start1)) + vector?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge) + (signature + lambda + ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1)) + vector?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge) + (signature + lambda + ((procedure? <) + (vector? v1) + (vector? v2) + (integer? start1) + (integer? end1) + (integer? start2)) + vector?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge) + (signature + lambda + ((procedure? <) + (vector? v1) + (vector? v2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + vector?) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge!) + (signature lambda ((procedure? <) (vector? v1) (vector? v2)) vector?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge!) + (signature + lambda + ((procedure? <) (vector? v1) (vector? v2) (integer? start1)) + vector?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge!) + (signature + lambda + ((procedure? <) (vector? v1) (vector? v2) (integer? start1) (integer? end1)) + vector?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge!) + (signature + lambda + ((procedure? <) + (vector? v1) + (vector? v2) + (integer? start1) + (integer? end1) + (integer? start2)) + vector?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-merge!) + (signature + lambda + ((procedure? <) + (vector? v1) + (vector? v2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + vector?) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . list-delete-neighbor-dups) + (signature lambda ((procedure? =) (list? lis)) list?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . list-delete-neighbor-dups!) + (signature lambda ((procedure? =) (list? lis)) list?) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups) + (signature lambda ((procedure? =) (vector? v)) vector?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups) + (signature lambda ((procedure? =) (vector? v) (integer? start)) vector?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups) + (signature + lambda + ((procedure? =) (vector? v) (integer? start) (integer? end)) + vector?) + (tags pure) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups!) + (signature lambda ((procedure? =) (vector? v)) vector?) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups!) + (signature lambda ((procedure? =) (vector? v) (integer? start)) vector?) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-delete-neighbor-dups!) + (signature + lambda + ((procedure? =) (vector? v) (integer? start) (integer? end)) + vector?) + (subsigs (= (lambda (obj1 obj2) boolean?)))) + ((name . vector-find-median) + (signature lambda ((procedure? <) (vector? v) knil) *) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-find-median) + (signature lambda ((procedure? <) (vector? v) knil (procedure? mean)) *) + (tags pure) + (subsigs (< (lambda (obj1 obj2) boolean?)) (mean (lambda (obj1 obj2) *)))) + ((name . vector-find-median!) + (signature lambda ((procedure? <) (vector? v) knil) *) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-find-median!) + (signature lambda ((procedure? <) (vector? v) knil (procedure? mean)) *) + (subsigs (< (lambda (obj1 obj2) boolean?)) (mean (lambda (obj1 obj2) *)))) + ((name . vector-select!) + (signature lambda ((procedure? <) (vector? v) (integer? k)) *) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-select!) + (signature + lambda + ((procedure? <) (vector? v) (integer? k) (integer? start)) + *) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-select!) + (signature + lambda + ((procedure? <) (vector? v) (integer? k) (integer? start) (integer? end)) + *) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-separate!) + (signature lambda ((procedure? <) (vector? v) (integer? k)) undefined) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-separate!) + (signature + lambda + ((procedure? <) (vector? v) (integer? k) (integer? start)) + undefined) + (subsigs (< (lambda (obj1 obj2) boolean?)))) + ((name . vector-separate!) + (signature + lambda + ((procedure? <) (vector? v) (integer? k) (integer? start) (integer? end)) + undefined) + (subsigs (< (lambda (obj1 obj2) boolean?))))) diff --git a/types/scheme.stream.scm b/types/scheme.stream.scm index d7e0621..c3c732b 100644 --- a/types/scheme.stream.scm +++ b/types/scheme.stream.scm @@ -1,200 +1,134 @@ -( - - (stream-null - (value stream-null?) - ()) - - (stream-cons - (lambda (obj (stream? stream)) stream-pair?) - (pure syntax)) - - (stream? - (lambda (obj) boolean?) - (pure predicate)) - - (stream-null? - (lambda (obj) boolean?) - (pure predicate) +(((name . stream-null) (signature value stream-null?)) + ((name . stream-cons) + (signature syntax-rules () ((_ obj stream) stream-pair?)) + (tags pure) + (syntax-param-signatures (stream stream?))) + ((name . stream?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . stream-null?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes stream?)) + ((name . stream-pair?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes stream?)) + ((name . stream-car) (signature lambda ((stream-pair? stream)) *) (tags pure)) + ((name . stream-cdr) + (signature lambda ((stream-pair? stream)) stream?) + (tags pure)) + ((name . stream-lambda) + (signature syntax-rules () ((_ formals body))) + (subsigs + (formals + (variable1 ...) + variable + (variable1 ... variable_n . variable_n+1)))) + ((name . define-stream) + (signature + syntax-rules () - (stream?)) - - (stream-pair? - (lambda (obj) boolean?) - (pure predicate) - () - (stream?)) - - (stream-car - (lambda ((stream-pair? stream)) *) - (pure)) - - (stream-cdr - (lambda ((stream-pair? stream)) stream?) - (pure)) - - (stream-lambda - (syntax-rules () - ((_ formals body))) - () - ((formals (variable1 ...) - variable - (variable1 ... variable_n . variable_n+1)))) - - (define-stream - (syntax-rules () - ((_ (variable parameter1 ...) body)) - ((_ (variable parameter1 ... . parameter) body))) - ()) - - (list->stream - (lambda ((list? list-of-objects)) stream?) - (pure)) - - (port->stream - (lambda () stream?) - (parameterized)) - - (port->stream - (lambda ((input-port? port)) stream?)) - - (stream - (lambda (object ...) stream?) - (pure syntax)) - - (stream->list - (lambda ((stream? stream)) list?) - (pure)) - - (stream->list - (lambda ((integer? n) (stream? stream)) list?) - (pure)) - - (stream-append - (lambda ((stream? stream) ...) stream?) - (pure)) - - (stream-concat - (lambda ((stream? stream-of-streams)) stream?) - (pure)) - - (stream-constant - (lambda (object ...) stream?) - (pure)) - - (stream-drop - (lambda ((integer? n) (stream? stream)) stream?) - (pure)) - - (stream-drop-while - (lambda ((procedure? pred?) (stream? stream)) stream?) - (pure) - ((pred? (lambda (obj) boolean?)))) - - (stream-filter - (lambda ((procedure? pred?) (stream? stream)) stream?) - (pure) - ((pred? (lambda (obj) boolean?)))) - - (stream-fold - (lambda ((procedure? proc) base (stream? stream)) *) - (pure) - ((proc (lambda (base element) *)))) - - (stream-for-each - (lambda ((procedure? proc) (stream? stream1) ...) undefined) - () - ((proc (lambda (element1 ...) undefined)))) - - (stream-from - (lambda ((number? from)) stream?) - (pure)) - - (stream-from - (lambda ((number? from) (number? step)) stream?) - (pure)) - - (stream-iterate - (lambda ((procedure? proc) base) stream?) - (pure) - ((proc (lambda (element) *)))) - - (stream-length - (lambda ((stream? stream)) integer?) - (pure)) - - (stream-let - (syntax-rules () - ((_ tag ((var expr) ...) body)))) - - (stream-map - (lambda ((procedure? proc) (stream? stream1) ...) stream?) - () - ((proc (lambda (element1 ...) *)))) - - (stream-match - (syntax-rules (_) - ((_ stream clause ...))) - () - ((clause () - (pat0 pat1 ...) - (pat0 pat1 ... . pat_rest) - pat) - (pat identifier - _))) - - (stream-of - (syntax-rules (in is) - ((_ expr clause ...))) - () - ((clause (var in stream-expr) - (var is expr) - (pred? expr) - ))) - - (stream-range - (lambda ((real? first) (real? past)) stream?) - (pure)) - - (stream-range - (lambda ((real? first) (real? past) (real? step)) stream?) - (pure)) - - (stream-ref - (lambda ((stream? stream) (integer? n)) *) - (pure)) - - (stream-reverse - (lambda ((stream? stream)) stream?) - (pure)) - - (stream-scan - (lambda ((procedure? proc) base (stream? stream)) stream?) - (pure) - ((proc (lambda (base element) *)))) - - (stream-take - (lambda ((integer? n) (stream? stream)) stream?) - (pure)) - - (stream-take-while - (lambda ((procedure? pred?) (stream? stream)) stream?) - (pure) - ((pred? (lambda (obj) boolean?)))) - - (stream-unfold - (lambda ((procedure? map) (procedure? pred?) (procedure? gen) base) stream?) - (pure) - ((map (lambda (base) *)) - (pred? (lambda (base) boolean?)) - (gen (lambda (base) *)))) - - (stream-unfolds - (lambda ((procedure? proc) seed) (values stream? ...)) - (pure) - ((proc (lambda (seed) (values (or list? #f) * ...))))) - - (stream-zip - (lambda ((stream? stream) ...) stream?) - (pure)) - - ) + ((_ (variable parameter1 ...) body)) + ((_ (variable parameter1 ... . parameter) body)))) + ((name . list->stream) + (signature lambda ((list? list-of-objects)) stream?) + (tags pure)) + ((name . port->stream) (signature lambda () stream?) (tags parameterized)) + ((name . port->stream) (signature lambda ((input-port? port)) stream?)) + ((name . stream) (signature syntax-rules () ((_ object ...) stream?)) (tags pure)) + ((name . stream->list) + (signature lambda ((stream? stream)) list?) + (tags pure)) + ((name . stream->list) + (signature lambda ((integer? n) (stream? stream)) list?) + (tags pure)) + ((name . stream-append) + (signature lambda ((stream? stream) ...) stream?) + (tags pure)) + ((name . stream-concat) + (signature lambda ((stream? stream-of-streams)) stream?) + (tags pure)) + ((name . stream-constant) (signature lambda (object ...) stream?) (tags pure)) + ((name . stream-drop) + (signature lambda ((integer? n) (stream? stream)) stream?) + (tags pure)) + ((name . stream-drop-while) + (signature lambda ((procedure? pred?) (stream? stream)) stream?) + (tags pure) + (subsigs (pred? (lambda (obj) boolean?)))) + ((name . stream-filter) + (signature lambda ((procedure? pred?) (stream? stream)) stream?) + (tags pure) + (subsigs (pred? (lambda (obj) boolean?)))) + ((name . stream-fold) + (signature lambda ((procedure? proc) base (stream? stream)) *) + (tags pure) + (subsigs (proc (lambda (base element) *)))) + ((name . stream-for-each) + (signature lambda ((procedure? proc) (stream? stream1) ...) undefined) + (subsigs (proc (lambda (element1 ...) undefined)))) + ((name . stream-from) (signature lambda ((number? from)) stream?) (tags pure)) + ((name . stream-from) + (signature lambda ((number? from) (number? step)) stream?) + (tags pure)) + ((name . stream-iterate) + (signature lambda ((procedure? proc) base) stream?) + (tags pure) + (subsigs (proc (lambda (element) *)))) + ((name . stream-length) + (signature lambda ((stream? stream)) integer?) + (tags pure)) + ((name . stream-let) + (signature syntax-rules () ((_ tag ((var expr) ...) body)))) + ((name . stream-map) + (signature lambda ((procedure? proc) (stream? stream1) ...) stream?) + (subsigs (proc (lambda (element1 ...) *)))) + ((name . stream-match) + (signature syntax-rules (_) ((_ stream clause ...))) + (subsigs + (clause () (pat0 pat1 ...) (pat0 pat1 ... . pat_rest) pat) + (pat identifier _))) + ((name . stream-of) + (signature syntax-rules (in is) ((_ expr clause ...))) + (subsigs (clause (var in stream-expr) (var is expr) (pred? expr)))) + ((name . stream-range) + (signature lambda ((real? first) (real? past)) stream?) + (tags pure)) + ((name . stream-range) + (signature lambda ((real? first) (real? past) (real? step)) stream?) + (tags pure)) + ((name . stream-ref) + (signature lambda ((stream? stream) (integer? n)) *) + (tags pure)) + ((name . stream-reverse) + (signature lambda ((stream? stream)) stream?) + (tags pure)) + ((name . stream-scan) + (signature lambda ((procedure? proc) base (stream? stream)) stream?) + (tags pure) + (subsigs (proc (lambda (base element) *)))) + ((name . stream-take) + (signature lambda ((integer? n) (stream? stream)) stream?) + (tags pure)) + ((name . stream-take-while) + (signature lambda ((procedure? pred?) (stream? stream)) stream?) + (tags pure) + (subsigs (pred? (lambda (obj) boolean?)))) + ((name . stream-unfold) + (signature + lambda + ((procedure? map) (procedure? pred?) (procedure? gen) base) + stream?) + (tags pure) + (subsigs + (map (lambda (base) *)) + (pred? (lambda (base) boolean?)) + (gen (lambda (base) *)))) + ((name . stream-unfolds) + (signature lambda ((procedure? proc) seed) (values stream? ...)) + (tags pure) + (subsigs (proc (lambda (seed) (values (or list? #f) * ...))))) + ((name . stream-zip) + (signature lambda ((stream? stream) ...) stream?) + (tags pure))) diff --git a/types/scheme.text.scm b/types/scheme.text.scm index 165cbcb..b88b4cc 100644 --- a/types/scheme.text.scm +++ b/types/scheme.text.scm @@ -1,848 +1,1040 @@ -( - - (text? - (lambda (obj) boolean?) - (pure predicate) - () - (textual?)) - - (textual? - (lambda (obj) boolean?) - (pure predicate)) - - (textual-null? - (lambda ((textual? textual)) boolean?) - (pure)) - - (textual-every - (lambda ((procedure? pred) (textual? textual)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (textual-every - (lambda ((procedure? pred) (textual? textual) (integer? start)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (textual-every - (lambda ((procedure? pred) (textual? textual) (integer? start) (integer? end)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (textual-any - (lambda ((procedure? pred) (textual? textual)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (textual-any - (lambda ((procedure? pred) (textual? textual) (integer? start)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (textual-any - (lambda ((procedure? pred) (textual? textual) (integer? start) (integer? end)) *) - (pure) - ((pred (lambda ((char? char)) *)))) - - (make-text - (lambda ((integer? len) (char? char)) text?) - (pure)) - - (text - (lambda ((char? char) ...) text?) - (pure)) - - (text-tabulate - (lambda ((procedure? proc) (integer? len)) text?) - (pure) - ((proc (lambda ((integer? k)) char?)))) - - (text-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)))) - - (text-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (textual? base)) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)))) - - (text-unfold - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (textual? base) (procedure? make-final)) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)) - (make-final (lambda (seed) (or char? string? text?))))) - - (text-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)))) - - (text-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (textual? base)) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)))) - - (text-unfold-right - (lambda ((procedure? stop?) (procedure? mapper) (procedure? successor) seed (textual? base) (procedure? make-final)) text?) - (pure) - ((stop? (lambda (seed) boolean?)) - (mapper (lambda (seed) (or char? string? text?))) - (success (lambda (seed) *)) - (make-final (lambda (seed) (or char? string? text?))))) - - (textual->text - (lambda ((textual? textual)) text?) - (pure)) - - (textual->string - (lambda ((textual? textual)) string?) - (pure)) - - (textual->string - (lambda ((textual? textual) (integer? start)) string?) - (pure)) - - (textual->string - (lambda ((textual? textual) (integer? start) (integer? end)) string?) - (pure)) - - (textual->vector - (lambda ((textual? textual)) vector?) - (pure)) - - (textual->vector - (lambda ((textual? textual) (integer? start)) vector?) - (pure)) - - (textual->vector - (lambda ((textual? textual) (integer? start) (integer? end)) vector?) - (pure)) - - (textual->list - (lambda ((textual? textual)) list?) - (pure)) - - (textual->list - (lambda ((textual? textual) (integer? start)) list?) - (pure)) - - (textual->list - (lambda ((textual? textual) (integer? start) (integer? end)) list?) - (pure)) - - (string->text - (lambda ((string? string)) text?) - (pure)) - - (string->text - (lambda ((string? string) (integer? start)) text?) - (pure)) - - (string->text - (lambda ((string? string) (integer? start) (integer? end)) text?) - (pure)) - - (vector->text - (lambda ((vector? vector)) text?) - (pure)) - - (vector->text - (lambda ((vector? vector) (integer? start)) text?) - (pure)) - - (vector->text - (lambda ((vector? vector) (integer? start) (integer? end)) text?) - (pure)) - - (list->text - (lambda ((list? list)) text?) - (pure)) - - (list->text - (lambda ((list? list) (integer? start)) text?) - (pure)) - - (list->text - (lambda ((list? list) (integer? start) (integer? end)) text?) - (pure)) - - (reverse-list->text - (lambda ((list? char-list)) text?) - (pure)) - - (textual->utf8 - (lambda ((textual? textual)) bytevector?) - (pure)) - - (textual->utf8 - (lambda ((textual? textual) (integer? start)) bytevector?) - (pure)) - - (textual->utf8 - (lambda ((textual? textual) (integer? start) (integer? end)) bytevector?) - (pure)) - - (utf8->text - (lambda ((bytevector? bytevector)) text?) - (pure)) - - (utf8->text - (lambda ((bytevector? bytevector) (integer? start)) text?) - (pure)) - - (utf8->text - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) text?) - (pure)) - - (textual->utf16 - (lambda ((textual? textual)) bytevector?) - (pure)) - - (textual->utf16 - (lambda ((textual? textual) (integer? start)) bytevector?) - (pure)) - - (textual->utf16 - (lambda ((textual? textual) (integer? start) (integer? end)) bytevector?) - (pure)) - - (utf16->text - (lambda ((bytevector? bytevector)) text?) - (pure)) - - (utf16->text - (lambda ((bytevector? bytevector) (integer? start)) text?) - (pure)) - - (utf16->text - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) text?) - (pure)) - - (textual->utf16be - (lambda ((textual? textual)) bytevector?) - (pure)) - - (textual->utf16be - (lambda ((textual? textual) (integer? start)) bytevector?) - (pure)) - - (textual->utf16be - (lambda ((textual? textual) (integer? start) (integer? end)) bytevector?) - (pure)) - - (utf16be->text - (lambda ((bytevector? bytevector)) text?) - (pure)) - - (utf16be->text - (lambda ((bytevector? bytevector) (integer? start)) text?) - (pure)) - - (utf16be->text - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) text?) - (pure)) - - (textual->utf16le - (lambda ((textual? textual)) bytevector?) - (pure)) - - (textual->utf16le - (lambda ((textual? textual) (integer? start)) bytevector?) - (pure)) - - (textual->utf16le - (lambda ((textual? textual) (integer? start) (integer? end)) bytevector?) - (pure)) - - (utf16le->text - (lambda ((bytevector? bytevector)) text?) - (pure)) - - (utf16le->text - (lambda ((bytevector? bytevector) (integer? start)) text?) - (pure)) - - (utf16le->text - (lambda ((bytevector? bytevector) (integer? start) (integer? end)) text?) - (pure)) - - (text-length - (lambda ((text? text)) integer?) - (pure)) - - (text-ref - (lambda ((text? text) (integer? idx)) char?) - (pure)) - - (textual-length - (lambda ((textual? textual)) integer?) - (pure)) - - (textual-ref - (lambda ((textual? text) (integer? idx)) char?) - (pure)) - - (subtext - (lambda ((text? text) (integer? start) (integer? end)) text?) - (pure)) - - (subtextual - (lambda ((textual? text) (integer? start) (integer? end)) text?) - (pure)) - - (textual-copy - (lambda ((textual? textual)) text?) - (pure)) - - (textual-copy - (lambda ((textual? textual) (integer? start)) text?) - (pure)) - - (textual-copy - (lambda ((textual? textual) (integer? start) (integer? end)) text?) - (pure)) - - (textual-take - (lambda ((textual? textual) (integer? nchars)) text?) - (pure)) - - (textual-drop - (lambda ((textual? textual) (integer? nchars)) text?) - (pure)) - - (textual-take-right - (lambda ((textual? textual) (integer? nchars)) text?) - (pure)) - - (textual-drop-right - (lambda ((textual? textual) (integer? nchars)) text?) - (pure)) - - (textual-pad - (lambda ((textual? textual) (integer? len)) text?) - (pure)) - - (textual-pad - (lambda ((textual? textual) (integer? len) (char? char)) text?) - (pure)) - - (textual-pad - (lambda ((textual? textual) (integer? len) (char? char) (integer? start)) text?) - (pure)) - - (textual-pad - (lambda ((textual? textual) (integer? len) (char? char) (integer? start) (integer? end)) text?) - (pure)) - - (textual-pad-right - (lambda ((textual? textual) (integer? len)) text?) - (pure)) - - (textual-pad-right - (lambda ((textual? textual) (integer? len) (char? char)) text?) - (pure)) - - (textual-pad-right - (lambda ((textual? textual) (integer? len) (char? char) (integer? start)) text?) - (pure)) - - (textual-pad-right - (lambda ((textual? textual) (integer? len) (char? char) (integer? start) (integer? end)) text?) - (pure)) - - (textual-trim - (lambda ((textual? textual)) text?) - (pure)) - - (textual-trim - (lambda ((textual? textual) (procedure? pred)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim - (lambda ((textual? textual) (procedure? pred) (integer? start)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-right - (lambda ((textual? textual)) text?) - (pure)) - - (textual-trim-right - (lambda ((textual? textual) (procedure? pred)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-right - (lambda ((textual? textual) (procedure? pred) (integer? start)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-right - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-both - (lambda ((textual? textual)) text?) - (pure)) - - (textual-trim-both - (lambda ((textual? textual) (procedure? pred)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-both - (lambda ((textual? textual) (procedure? pred) (integer? start)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-trim-both - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-replace - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) text?) - (pure)) - - (textual-replace - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) text?) - (pure)) - - (textual-replace - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) text?) - (pure)) - - (textual=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual<=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual>=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual-ci=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual-ci? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual-ci<=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual-ci>=? - (lambda ((textual? textual1) (textual? textual2) (textual? textual3) ...) boolean?) - (pure)) - - (textual-prefix-length - (lambda ((textual? textual1) (textual? textual2)) integer?) - (pure)) - - (textual-prefix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) integer?) - (pure)) - - (textual-prefix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) integer?) - (pure)) - - (textual-prefix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) integer?) - (pure)) - - (textual-prefix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) integer?) - (pure)) - - (textual-suffix-length - (lambda ((textual? textual1) (textual? textual2)) integer?) - (pure)) - - (textual-suffix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) integer?) - (pure)) - - (textual-suffix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) integer?) - (pure)) - - (textual-suffix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) integer?) - (pure)) - - (textual-suffix-length - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) integer?) - (pure)) - - (textual-prefix? - (lambda ((textual? textual1) (textual? textual2)) boolean?) - (pure)) - - (textual-prefix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) boolean?) - (pure)) - - (textual-prefix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) boolean?) - (pure)) - - (textual-prefix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) boolean?) - (pure)) - - (textual-prefix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) boolean?) - (pure)) - - (textual-suffix? - (lambda ((textual? textual1) (textual? textual2)) boolean?) - (pure)) - - (textual-suffix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) boolean?) - (pure)) - - (textual-suffix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) boolean?) - (pure)) - - (textual-suffix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) boolean?) - (pure)) - - (textual-suffix? - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) boolean?) - (pure)) - - (textual-index - (lambda ((textual? textual) (procedure? pred)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-index - (lambda ((textual? textual) (procedure? pred) (integer? start)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-index - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-index-right - (lambda ((textual? textual) (procedure? pred)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-index-right - (lambda ((textual? textual) (procedure? pred) (integer? start)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-index-right - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip - (lambda ((textual? textual) (procedure? pred)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip - (lambda ((textual? textual) (procedure? pred) (integer? start)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip-right - (lambda ((textual? textual) (procedure? pred)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip-right - (lambda ((textual? textual) (procedure? pred) (integer? start)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-skip-right - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) (or #f integer?)) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-contains - (lambda ((textual? textual1) (textual? textual2)) (or #f integer?)) - (pure)) - - (textual-contains - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) (or #f integer?)) - (pure)) - - (textual-contains - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) (or #f integer?)) - (pure)) - - (textual-contains - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) (or #f integer?)) - (pure)) - - (textual-contains - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) (or #f integer?)) - (pure)) - - (textual-contains-right - (lambda ((textual? textual1) (textual? textual2)) (or #f integer?)) - (pure)) - - (textual-contains-right - (lambda ((textual? textual1) (textual? textual2) (integer? start1)) (or #f integer?)) - (pure)) - - (textual-contains-right - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) (or #f integer?)) - (pure)) - - (textual-contains-right - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2)) (or #f integer?)) - (pure)) - - (textual-contains-right - (lambda ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1) (integer? start2) (integer? end2)) (or #f integer?)) - (pure)) - - (textual-upcase - (lambda ((textual? textual)) text?) - (pure)) - - (textual-downcase - (lambda ((textual? textual)) text?) - (pure)) - - (textual-foldcase - (lambda ((textual? textual)) text?) - (pure)) - - (textual-titlecase - (lambda ((textual? textual)) text?) - (pure)) - - (textual-append - (lambda ((textual? textual) ...) text?) - (pure)) - - (textual-concatenate - (lambda ((list? textual-list)) text?) - (pure)) - - (textual-concatenate-reverse - (lambda ((list? textual-list)) text?) - (pure)) - - (textual-concatenate-reverse - (lambda ((list? textual-list) (textual? final-textual)) text?) - (pure)) - - (textual-concatenate-reverse - (lambda ((list? textual-list) (textual? final-textual) (integer? end)) text?) - (pure)) - - (textual-join - (lambda ((list? textual-list)) text?) - (pure)) - - (textual-join - (lambda ((list? textual-list) (textual? delimiter)) text?) - (pure)) - - (textual-join - (lambda ((list? textual-list) (textual? delimiter) (symbol? grammar)) text?) - (pure)) - - (textual-fold - (lambda ((procedure? kons) knil (textual? textual)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-fold - (lambda ((procedure? kons) knil (textual? textual) (integer? start)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-fold - (lambda ((procedure? kons) knil (textual? textual) (integer? start) (integer? end)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-fold-right - (lambda ((procedure? kons) knil (textual? textual)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-fold-right - (lambda ((procedure? kons) knil (textual? textual) (integer? start)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-fold-right - (lambda ((procedure? kons) knil (textual? textual) (integer? start) (integer? end)) *) - (pure) - ((kons (lambda ((char? char) state) *)))) - - (textual-map - (lambda ((procedure? proc) (textual? textual1) (textual? textual2) ...) text?) - (pure) - ((proc (lambda ((char? char1) (char? char2) ...) (or textual? char?))))) - - (textual-for-each - (lambda ((procedure? proc) (textual? textual1) (textual? textual2) ...) undefined) - () - ((proc (lambda ((char? char1) (char? char2) ...) undefined)))) - - (textual-map-index - (lambda ((procedure? proc) (textual? textual)) text?) - (pure) - ((proc (lambda ((char? char)) (or textual? char?))))) - - (textual-map-index - (lambda ((procedure? proc) (textual? textual) (integer? start)) text?) - (pure) - ((proc (lambda ((char? char)) (or textual? char?))))) - - (textual-map-index - (lambda ((procedure? proc) (textual? textual) (integer? start) (integer? end)) text?) - (pure) - ((proc (lambda ((char? char)) (or textual? char?))))) - - (textual-for-each-index - (lambda ((procedure? proc) (textual? textual)) undefined) - () - ((proc (lambda ((char? char)) undefined)))) - - (textual-for-each-index - (lambda ((procedure? proc) (textual? textual) (integer? start)) undefined) - () - ((proc (lambda ((char? char)) undefined)))) - - (textual-for-each-index - (lambda ((procedure? proc) (textual? textual) (integer? start) (integer? end)) undefined) - () - ((proc (lambda ((char? char)) undefined)))) - - (textual-count - (lambda ((textual? textual) (procedure? pred)) integer?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-count - (lambda ((textual? textual) (procedure? pred) (integer? start)) integer?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-count - (lambda ((textual? textual) (procedure? pred) (integer? start) (integer? end)) integer?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-filter - (lambda ((procedure? pred) (textual? textual)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-filter - (lambda ((procedure? pred) (textual? textual) (integer? start)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-filter - (lambda ((procedure? pred) (textual? textual) (integer? start) (integer? end)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-remove - (lambda ((procedure? pred) (textual? textual)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-remove - (lambda ((procedure? pred) (textual? textual) (integer? start)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-remove - (lambda ((procedure? pred) (textual? textual) (integer? start) (integer? end)) text?) - (pure) - ((pred (lambda ((char? char)) boolean?)))) - - (textual-replicate - (lambda ((textual? textual) (integer? from) (integer? to)) text?) - (pure)) - - (textual-replicate - (lambda ((textual? textual) (integer? from) (integer? to) (integer? start)) text?) - (pure)) - - (textual-replicate - (lambda ((textual? textual) (integer? from) (integer? to) (integer? start) (integer? end)) text?) - (pure)) - - (textual-split - (lambda ((textual? textual) (textual? delimiter)) list?) - (pure)) - - (textual-split - (lambda ((textual? textual) (textual? delimiter) (symbol? grammar)) list?) - (pure)) - - (textual-split - (lambda ((textual? textual) (textual? delimiter) (symbol? grammar) (integer? limit)) list?) - (pure)) - - (textual-split - (lambda ((textual? textual) (textual? delimiter) (symbol? grammar) (integer? limit) (integer? start)) list?) - (pure)) - - (textual-split - (lambda ((textual? textual) (textual? delimiter) (symbol? grammar) (integer? limit) (integer? start) (integer? end)) list?) - (pure)) - - ) +(((name . text?) + (signature lambda (obj) boolean?) + (tags pure predicate) + (subsigs) + (supertypes textual?)) + ((name . textual?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . textual-null?) + (signature lambda ((textual? textual)) boolean?) + (tags pure)) + ((name . textual-every) + (signature lambda ((procedure? pred) (textual? textual)) *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . textual-every) + (signature lambda ((procedure? pred) (textual? textual) (integer? start)) *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . textual-every) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start) (integer? end)) + *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . textual-any) + (signature lambda ((procedure? pred) (textual? textual)) *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . textual-any) + (signature lambda ((procedure? pred) (textual? textual) (integer? start)) *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . textual-any) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start) (integer? end)) + *) + (tags pure) + (subsigs (pred (lambda ((char? char)) *)))) + ((name . make-text) + (signature lambda ((integer? len) (char? char)) text?) + (tags pure)) + ((name . text) (signature lambda ((char? char) ...) text?) (tags pure)) + ((name . text-tabulate) + (signature lambda ((procedure? proc) (integer? len)) text?) + (tags pure) + (subsigs (proc (lambda ((integer? k)) char?)))) + ((name . text-unfold) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)))) + ((name . text-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (textual? base)) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)))) + ((name . text-unfold) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (textual? base) + (procedure? make-final)) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)) + (make-final (lambda (seed) (or char? string? text?))))) + ((name . text-unfold-right) + (signature + lambda + ((procedure? stop?) (procedure? mapper) (procedure? successor) seed) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)))) + ((name . text-unfold-right) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (textual? base)) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)))) + ((name . text-unfold-right) + (signature + lambda + ((procedure? stop?) + (procedure? mapper) + (procedure? successor) + seed + (textual? base) + (procedure? make-final)) + text?) + (tags pure) + (subsigs + (stop? (lambda (seed) boolean?)) + (mapper (lambda (seed) (or char? string? text?))) + (success (lambda (seed) *)) + (make-final (lambda (seed) (or char? string? text?))))) + ((name . textual->text) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual->string) + (signature lambda ((textual? textual)) string?) + (tags pure)) + ((name . textual->string) + (signature lambda ((textual? textual) (integer? start)) string?) + (tags pure)) + ((name . textual->string) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + string?) + (tags pure)) + ((name . textual->vector) + (signature lambda ((textual? textual)) vector?) + (tags pure)) + ((name . textual->vector) + (signature lambda ((textual? textual) (integer? start)) vector?) + (tags pure)) + ((name . textual->vector) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + vector?) + (tags pure)) + ((name . textual->list) + (signature lambda ((textual? textual)) list?) + (tags pure)) + ((name . textual->list) + (signature lambda ((textual? textual) (integer? start)) list?) + (tags pure)) + ((name . textual->list) + (signature lambda ((textual? textual) (integer? start) (integer? end)) list?) + (tags pure)) + ((name . string->text) + (signature lambda ((string? string)) text?) + (tags pure)) + ((name . string->text) + (signature lambda ((string? string) (integer? start)) text?) + (tags pure)) + ((name . string->text) + (signature lambda ((string? string) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . vector->text) + (signature lambda ((vector? vector)) text?) + (tags pure)) + ((name . vector->text) + (signature lambda ((vector? vector) (integer? start)) text?) + (tags pure)) + ((name . vector->text) + (signature lambda ((vector? vector) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . list->text) (signature lambda ((list? list)) text?) (tags pure)) + ((name . list->text) + (signature lambda ((list? list) (integer? start)) text?) + (tags pure)) + ((name . list->text) + (signature lambda ((list? list) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . reverse-list->text) + (signature lambda ((list? char-list)) text?) + (tags pure)) + ((name . textual->utf8) + (signature lambda ((textual? textual)) bytevector?) + (tags pure)) + ((name . textual->utf8) + (signature lambda ((textual? textual) (integer? start)) bytevector?) + (tags pure)) + ((name . textual->utf8) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . utf8->text) + (signature lambda ((bytevector? bytevector)) text?) + (tags pure)) + ((name . utf8->text) + (signature lambda ((bytevector? bytevector) (integer? start)) text?) + (tags pure)) + ((name . utf8->text) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + text?) + (tags pure)) + ((name . textual->utf16) + (signature lambda ((textual? textual)) bytevector?) + (tags pure)) + ((name . textual->utf16) + (signature lambda ((textual? textual) (integer? start)) bytevector?) + (tags pure)) + ((name . textual->utf16) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . utf16->text) + (signature lambda ((bytevector? bytevector)) text?) + (tags pure)) + ((name . utf16->text) + (signature lambda ((bytevector? bytevector) (integer? start)) text?) + (tags pure)) + ((name . utf16->text) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + text?) + (tags pure)) + ((name . textual->utf16be) + (signature lambda ((textual? textual)) bytevector?) + (tags pure)) + ((name . textual->utf16be) + (signature lambda ((textual? textual) (integer? start)) bytevector?) + (tags pure)) + ((name . textual->utf16be) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . utf16be->text) + (signature lambda ((bytevector? bytevector)) text?) + (tags pure)) + ((name . utf16be->text) + (signature lambda ((bytevector? bytevector) (integer? start)) text?) + (tags pure)) + ((name . utf16be->text) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + text?) + (tags pure)) + ((name . textual->utf16le) + (signature lambda ((textual? textual)) bytevector?) + (tags pure)) + ((name . textual->utf16le) + (signature lambda ((textual? textual) (integer? start)) bytevector?) + (tags pure)) + ((name . textual->utf16le) + (signature + lambda + ((textual? textual) (integer? start) (integer? end)) + bytevector?) + (tags pure)) + ((name . utf16le->text) + (signature lambda ((bytevector? bytevector)) text?) + (tags pure)) + ((name . utf16le->text) + (signature lambda ((bytevector? bytevector) (integer? start)) text?) + (tags pure)) + ((name . utf16le->text) + (signature + lambda + ((bytevector? bytevector) (integer? start) (integer? end)) + text?) + (tags pure)) + ((name . text-length) (signature lambda ((text? text)) integer?) (tags pure)) + ((name . text-ref) + (signature lambda ((text? text) (integer? idx)) char?) + (tags pure)) + ((name . textual-length) + (signature lambda ((textual? textual)) integer?) + (tags pure)) + ((name . textual-ref) + (signature lambda ((textual? text) (integer? idx)) char?) + (tags pure)) + ((name . subtext) + (signature lambda ((text? text) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . subtextual) + (signature lambda ((textual? text) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . textual-copy) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-copy) + (signature lambda ((textual? textual) (integer? start)) text?) + (tags pure)) + ((name . textual-copy) + (signature lambda ((textual? textual) (integer? start) (integer? end)) text?) + (tags pure)) + ((name . textual-take) + (signature lambda ((textual? textual) (integer? nchars)) text?) + (tags pure)) + ((name . textual-drop) + (signature lambda ((textual? textual) (integer? nchars)) text?) + (tags pure)) + ((name . textual-take-right) + (signature lambda ((textual? textual) (integer? nchars)) text?) + (tags pure)) + ((name . textual-drop-right) + (signature lambda ((textual? textual) (integer? nchars)) text?) + (tags pure)) + ((name . textual-pad) + (signature lambda ((textual? textual) (integer? len)) text?) + (tags pure)) + ((name . textual-pad) + (signature lambda ((textual? textual) (integer? len) (char? char)) text?) + (tags pure)) + ((name . textual-pad) + (signature + lambda + ((textual? textual) (integer? len) (char? char) (integer? start)) + text?) + (tags pure)) + ((name . textual-pad) + (signature + lambda + ((textual? textual) + (integer? len) + (char? char) + (integer? start) + (integer? end)) + text?) + (tags pure)) + ((name . textual-pad-right) + (signature lambda ((textual? textual) (integer? len)) text?) + (tags pure)) + ((name . textual-pad-right) + (signature lambda ((textual? textual) (integer? len) (char? char)) text?) + (tags pure)) + ((name . textual-pad-right) + (signature + lambda + ((textual? textual) (integer? len) (char? char) (integer? start)) + text?) + (tags pure)) + ((name . textual-pad-right) + (signature + lambda + ((textual? textual) + (integer? len) + (char? char) + (integer? start) + (integer? end)) + text?) + (tags pure)) + ((name . textual-trim) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-trim) + (signature lambda ((textual? textual) (procedure? pred)) text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-right) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-trim-right) + (signature lambda ((textual? textual) (procedure? pred)) text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-both) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-trim-both) + (signature lambda ((textual? textual) (procedure? pred)) text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-both) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-trim-both) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-replace) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + text?) + (tags pure)) + ((name . textual-replace) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + text?) + (tags pure)) + ((name . textual-replace) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + text?) + (tags pure)) + ((name . textual=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual<=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual>=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual-ci=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual-ci?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual-ci<=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual-ci>=?) + (signature + lambda + ((textual? textual1) (textual? textual2) (textual? textual3) ...) + boolean?) + (tags pure)) + ((name . textual-prefix-length) + (signature lambda ((textual? textual1) (textual? textual2)) integer?) + (tags pure)) + ((name . textual-prefix-length) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + integer?) + (tags pure)) + ((name . textual-prefix-length) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + integer?) + (tags pure)) + ((name . textual-prefix-length) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + integer?) + (tags pure)) + ((name . textual-prefix-length) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + integer?) + (tags pure)) + ((name . textual-suffix-length) + (signature lambda ((textual? textual1) (textual? textual2)) integer?) + (tags pure)) + ((name . textual-suffix-length) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + integer?) + (tags pure)) + ((name . textual-suffix-length) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + integer?) + (tags pure)) + ((name . textual-suffix-length) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + integer?) + (tags pure)) + ((name . textual-suffix-length) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + integer?) + (tags pure)) + ((name . textual-prefix?) + (signature lambda ((textual? textual1) (textual? textual2)) boolean?) + (tags pure)) + ((name . textual-prefix?) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + boolean?) + (tags pure)) + ((name . textual-prefix?) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + boolean?) + (tags pure)) + ((name . textual-prefix?) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + boolean?) + (tags pure)) + ((name . textual-prefix?) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + boolean?) + (tags pure)) + ((name . textual-suffix?) + (signature lambda ((textual? textual1) (textual? textual2)) boolean?) + (tags pure)) + ((name . textual-suffix?) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + boolean?) + (tags pure)) + ((name . textual-suffix?) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + boolean?) + (tags pure)) + ((name . textual-suffix?) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + boolean?) + (tags pure)) + ((name . textual-suffix?) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + boolean?) + (tags pure)) + ((name . textual-index) + (signature lambda ((textual? textual) (procedure? pred)) (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-index) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-index) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-index-right) + (signature lambda ((textual? textual) (procedure? pred)) (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-index-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-index-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip) + (signature lambda ((textual? textual) (procedure? pred)) (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip-right) + (signature lambda ((textual? textual) (procedure? pred)) (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-skip-right) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + (or #f integer?)) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-contains) + (signature lambda ((textual? textual1) (textual? textual2)) (or #f integer?)) + (tags pure)) + ((name . textual-contains) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains-right) + (signature lambda ((textual? textual1) (textual? textual2)) (or #f integer?)) + (tags pure)) + ((name . textual-contains-right) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains-right) + (signature + lambda + ((textual? textual1) (textual? textual2) (integer? start1) (integer? end1)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains-right) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2)) + (or #f integer?)) + (tags pure)) + ((name . textual-contains-right) + (signature + lambda + ((textual? textual1) + (textual? textual2) + (integer? start1) + (integer? end1) + (integer? start2) + (integer? end2)) + (or #f integer?)) + (tags pure)) + ((name . textual-upcase) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-downcase) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-foldcase) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-titlecase) + (signature lambda ((textual? textual)) text?) + (tags pure)) + ((name . textual-append) + (signature lambda ((textual? textual) ...) text?) + (tags pure)) + ((name . textual-concatenate) + (signature lambda ((list? textual-list)) text?) + (tags pure)) + ((name . textual-concatenate-reverse) + (signature lambda ((list? textual-list)) text?) + (tags pure)) + ((name . textual-concatenate-reverse) + (signature lambda ((list? textual-list) (textual? final-textual)) text?) + (tags pure)) + ((name . textual-concatenate-reverse) + (signature + lambda + ((list? textual-list) (textual? final-textual) (integer? end)) + text?) + (tags pure)) + ((name . textual-join) + (signature lambda ((list? textual-list)) text?) + (tags pure)) + ((name . textual-join) + (signature lambda ((list? textual-list) (textual? delimiter)) text?) + (tags pure)) + ((name . textual-join) + (signature + lambda + ((list? textual-list) (textual? delimiter) (symbol? grammar)) + text?) + (tags pure)) + ((name . textual-fold) + (signature lambda ((procedure? kons) knil (textual? textual)) *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-fold) + (signature + lambda + ((procedure? kons) knil (textual? textual) (integer? start)) + *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-fold) + (signature + lambda + ((procedure? kons) knil (textual? textual) (integer? start) (integer? end)) + *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-fold-right) + (signature lambda ((procedure? kons) knil (textual? textual)) *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-fold-right) + (signature + lambda + ((procedure? kons) knil (textual? textual) (integer? start)) + *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-fold-right) + (signature + lambda + ((procedure? kons) knil (textual? textual) (integer? start) (integer? end)) + *) + (tags pure) + (subsigs (kons (lambda ((char? char) state) *)))) + ((name . textual-map) + (signature + lambda + ((procedure? proc) (textual? textual1) (textual? textual2) ...) + text?) + (tags pure) + (subsigs + (proc (lambda ((char? char1) (char? char2) ...) (or textual? char?))))) + ((name . textual-for-each) + (signature + lambda + ((procedure? proc) (textual? textual1) (textual? textual2) ...) + undefined) + (subsigs (proc (lambda ((char? char1) (char? char2) ...) undefined)))) + ((name . textual-map-index) + (signature lambda ((procedure? proc) (textual? textual)) text?) + (tags pure) + (subsigs (proc (lambda ((char? char)) (or textual? char?))))) + ((name . textual-map-index) + (signature + lambda + ((procedure? proc) (textual? textual) (integer? start)) + text?) + (tags pure) + (subsigs (proc (lambda ((char? char)) (or textual? char?))))) + ((name . textual-map-index) + (signature + lambda + ((procedure? proc) (textual? textual) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (proc (lambda ((char? char)) (or textual? char?))))) + ((name . textual-for-each-index) + (signature lambda ((procedure? proc) (textual? textual)) undefined) + (subsigs (proc (lambda ((char? char)) undefined)))) + ((name . textual-for-each-index) + (signature + lambda + ((procedure? proc) (textual? textual) (integer? start)) + undefined) + (subsigs (proc (lambda ((char? char)) undefined)))) + ((name . textual-for-each-index) + (signature + lambda + ((procedure? proc) (textual? textual) (integer? start) (integer? end)) + undefined) + (subsigs (proc (lambda ((char? char)) undefined)))) + ((name . textual-count) + (signature lambda ((textual? textual) (procedure? pred)) integer?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-count) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start)) + integer?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-count) + (signature + lambda + ((textual? textual) (procedure? pred) (integer? start) (integer? end)) + integer?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-filter) + (signature lambda ((procedure? pred) (textual? textual)) text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-filter) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-filter) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-remove) + (signature lambda ((procedure? pred) (textual? textual)) text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-remove) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-remove) + (signature + lambda + ((procedure? pred) (textual? textual) (integer? start) (integer? end)) + text?) + (tags pure) + (subsigs (pred (lambda ((char? char)) boolean?)))) + ((name . textual-replicate) + (signature lambda ((textual? textual) (integer? from) (integer? to)) text?) + (tags pure)) + ((name . textual-replicate) + (signature + lambda + ((textual? textual) (integer? from) (integer? to) (integer? start)) + text?) + (tags pure)) + ((name . textual-replicate) + (signature + lambda + ((textual? textual) + (integer? from) + (integer? to) + (integer? start) + (integer? end)) + text?) + (tags pure)) + ((name . textual-split) + (signature lambda ((textual? textual) (textual? delimiter)) list?) + (tags pure)) + ((name . textual-split) + (signature + lambda + ((textual? textual) (textual? delimiter) (symbol? grammar)) + list?) + (tags pure)) + ((name . textual-split) + (signature + lambda + ((textual? textual) (textual? delimiter) (symbol? grammar) (integer? limit)) + list?) + (tags pure)) + ((name . textual-split) + (signature + lambda + ((textual? textual) + (textual? delimiter) + (symbol? grammar) + (integer? limit) + (integer? start)) + list?) + (tags pure)) + ((name . textual-split) + (signature + lambda + ((textual? textual) + (textual? delimiter) + (symbol? grammar) + (integer? limit) + (integer? start) + (integer? end)) + list?) + (tags pure))) diff --git a/types/scheme.time.scm b/types/scheme.time.scm index d632206..40d6776 100644 --- a/types/scheme.time.scm +++ b/types/scheme.time.scm @@ -1,10 +1,3 @@ -( - (current-jiffy - (lambda () integer?)) - - (current-second - (lambda () real?)) - - (jiffies-per-second - (lambda () integer?)) - ) +(((name . current-jiffy) (signature lambda () integer?)) + ((name . current-second) (signature lambda () real?)) + ((name . jiffies-per-second) (signature lambda () integer?))) diff --git a/types/scheme.vector.scm b/types/scheme.vector.scm index c287309..5a6bf2e 100644 --- a/types/scheme.vector.scm +++ b/types/scheme.vector.scm @@ -1,279 +1,260 @@ -( - - (make-vector - (lambda ((integer? k)) vector?) - ()) - - (make-vector - (lambda ((integer? k) fill) vector?) - (pure)) - - (vector - (lambda (obj ...) vector?) - (pure)) - - (vector-unfold - (lambda ((procedure? f) (integer? length) initial-seed ...) vector?) - (pure) - ((f (lambda ((integer? index) seed ...) (values * * ...))))) - - (vector-unfold-right - (lambda ((procedure? f) (integer? length) initial-seed ...) vector?) - (pure) - ((f (lambda ((integer? index) seed ...) (values * * ...))))) - - (vector-copy - (lambda ((vector? vector)) vector?) - (pure)) - - (vector-copy - (lambda ((vector? vector) (integer? start)) vector?) - (pure)) - - (vector-copy - (lambda ((vector? vector) (integer? start) (integer? end)) vector?) - (pure)) - - (vector-reverse-copy - (lambda ((vector? vector)) vector?) - (pure)) - - (vector-reverse-copy - (lambda ((vector? vector) (integer? start)) vector?) - (pure)) - - (vector-reverse-copy - (lambda ((vector? vector) (integer? start) (integer? end)) vector?) - (pure)) - - (vector-append - (lambda ((vector? vector) ...) vector?) - (pure)) - - (vector-concatenate - (lambda ((list? list-of-vectors) ...) vector?) - (pure)) - - (vector-append-subvectors - (lambda ((vector? vec1) (integer? start1) (integer? end1) ...) vector?) - (pure)) - - (vector? - (lambda (obj) boolean?) - (pure predicate)) - - (vector-empty? - (lambda ((vector? vec)) boolean?) - (pure)) - - (vector= - (lambda ((procedure? elt=?) (vector? vec) ...) boolean?) - (pure) - ((elt=? (lambda (a b) boolean?)))) - - (vector-ref - (lambda ((vector? vector) (integer? k)) *) - (pure)) - - (vector-length - (lambda ((vector? vector)) integer?) - (pure)) - - (vector-fold - (lambda ((procedure? kons) knil (vector? vec1) (vector? vec2) ...) *) - (pure) - ((kons (lambda (state obj1 obj2 ...) *)))) - - (vector-fold-right - (lambda ((procedure? kons) knil (vector? vec1) (vector? vec2) ...) *) - (pure) - ((kons (lambda (state obj1 obj2 ...) *)))) - - (vector-map - (lambda ((procedure? proc) (vector? vector1) (vector? vector2) ...) vector?) - (pure) - ((proc (lambda (obj ...) *)))) - - (vector-map! - (lambda ((procedure? proc) (vector? vector1) (vector? vector2) ...) undefined) - () - ((proc (lambda (obj ...) *)))) - - (vector-for-each - (lambda ((procedure? proc) (vector? vector1) (vector? vector2) ...) undefined) - () - ((proc (lambda (obj ...) undefined)))) - - (vector-count - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) integer?) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-cumulate - (lambda ((procedure? f) knil (vector? vec)) vector?) - (pure) - ((f (lambda (obj1 obj2) *)))) - - (vector-index - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) (or integer? #f)) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-index-right - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) (or integer? #f)) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-skip - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) (or integer? #f)) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-skip-right - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) (or integer? #f)) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-binary-search - (lambda ((vector? vec) value (procedure? cmp)) (or integer? #f)) - (pure) - ((cmp (lambda (a b) integer?)))) - - (vector-any - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) *) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-every - (lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) *) - (pure) - ((pred? (lambda (obj1 obj2 ...) *)))) - - (vector-partition - (lambda ((procedure? pred?) (vector? vec) ) (values vector? integer?)) - (pure) - ((pred? (lambda (obj) boolean?)))) - - (vector-set! - (lambda ((vector? vector) (integer? k) obj) undefined) - ()) - - (vector-swap! - (lambda ((vector? vector) (integer? i) (integer? j)) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill (integer? start)) undefined) - ()) - - (vector-fill! - (lambda ((vector? vector) fill (integer? start) (integer? end)) undefined) - ()) - - (vector-reverse! - (lambda ((vector? vector)) undefined) - ()) - - (vector-reverse! - (lambda ((vector? vector) (integer? start)) undefined) - ()) - - (vector-reverse! - (lambda ((vector? vector) (integer? start) (integer? end)) undefined) - ()) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from)) undefined) - ()) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start)) undefined) - ()) - - (vector-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) undefined) - ()) - - (vector-reverse-copy! - (lambda ((vector? to) (integer? at) (vector? from)) undefined) - ()) - - (vector-reverse-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start)) undefined) - ()) - - (vector-reverse-copy! - (lambda ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) undefined) - ()) - - (vector-unfold! - (lambda ((procedure? f) (vector? vec) (integer? start) (integer? end) initial-seed ...) undefined) - () - ((f (lambda ((integer? index) seed ...) (values * * ...))))) - - (vector-unfold-right! - (lambda ((procedure? f) (vector? vec) (integer? start) (integer? end) initial-seed ...) undefined) - () - ((f (lambda ((integer? index) seed ...) (values * * ...))))) - - (vector->list - (lambda ((vector? vector)) list?) - (pure)) - - (vector->list - (lambda ((vector? vector) (integer? start)) list?) - (pure)) - - (vector->list - (lambda ((vector? vector) (integer? start) (integer? end)) list?) - (pure)) - - (reverse-vector->list - (lambda ((vector? vector)) list?) - (pure)) - - (reverse-vector->list - (lambda ((vector? vector) (integer? start)) list?) - (pure)) - - (reverse-vector->list - (lambda ((vector? vector) (integer? start) (integer? end)) list?) - (pure)) - - (list->vector - (lambda ((list? list)) vector?) - (pure)) - - (reverse-list->vector - (lambda ((list? list)) vector?) - (pure)) - - (string->vector - (lambda ((string? string)) vector?) - (pure)) - - (string->vector - (lambda ((string? string) (integer? start)) vector?) - (pure)) - - (string->vector - (lambda ((string? string) (integer? start) (integer? end)) vector?) - (pure)) - - (vector->string - (lambda ((vector? vector)) string?) - (pure)) - - (vector->string - (lambda ((vector? vector) (integer? start)) string?) - (pure)) - - (vector->string - (lambda ((vector? vector) (integer? start) (integer? end)) string?) - (pure)) - - ) +(((name . make-vector) (signature lambda ((integer? k)) vector?)) + ((name . make-vector) + (signature lambda ((integer? k) fill) vector?) + (tags pure)) + ((name . vector) (signature lambda (obj ...) vector?) (tags pure)) + ((name . vector-unfold) + (signature + lambda + ((procedure? f) (integer? length) initial-seed ...) + vector?) + (tags pure) + (subsigs (f (lambda ((integer? index) seed ...) (values * * ...))))) + ((name . vector-unfold-right) + (signature + lambda + ((procedure? f) (integer? length) initial-seed ...) + vector?) + (tags pure) + (subsigs (f (lambda ((integer? index) seed ...) (values * * ...))))) + ((name . vector-copy) + (signature lambda ((vector? vector)) vector?) + (tags pure)) + ((name . vector-copy) + (signature lambda ((vector? vector) (integer? start)) vector?) + (tags pure)) + ((name . vector-copy) + (signature lambda ((vector? vector) (integer? start) (integer? end)) vector?) + (tags pure)) + ((name . vector-reverse-copy) + (signature lambda ((vector? vector)) vector?) + (tags pure)) + ((name . vector-reverse-copy) + (signature lambda ((vector? vector) (integer? start)) vector?) + (tags pure)) + ((name . vector-reverse-copy) + (signature lambda ((vector? vector) (integer? start) (integer? end)) vector?) + (tags pure)) + ((name . vector-append) + (signature lambda ((vector? vector) ...) vector?) + (tags pure)) + ((name . vector-concatenate) + (signature lambda ((list? list-of-vectors) ...) vector?) + (tags pure)) + ((name . vector-append-subvectors) + (signature + lambda + ((vector? vec1) (integer? start1) (integer? end1) ...) + vector?) + (tags pure)) + ((name . vector?) (signature lambda (obj) boolean?) (tags pure predicate)) + ((name . vector-empty?) + (signature lambda ((vector? vec)) boolean?) + (tags pure)) + ((name . vector=) + (signature lambda ((procedure? elt=?) (vector? vec) ...) boolean?) + (tags pure) + (subsigs (elt=? (lambda (a b) boolean?)))) + ((name . vector-ref) + (signature lambda ((vector? vector) (integer? k)) *) + (tags pure)) + ((name . vector-length) + (signature lambda ((vector? vector)) integer?) + (tags pure)) + ((name . vector-fold) + (signature + lambda + ((procedure? kons) knil (vector? vec1) (vector? vec2) ...) + *) + (tags pure) + (subsigs (kons (lambda (state obj1 obj2 ...) *)))) + ((name . vector-fold-right) + (signature + lambda + ((procedure? kons) knil (vector? vec1) (vector? vec2) ...) + *) + (tags pure) + (subsigs (kons (lambda (state obj1 obj2 ...) *)))) + ((name . vector-map) + (signature + lambda + ((procedure? proc) (vector? vector1) (vector? vector2) ...) + vector?) + (tags pure) + (subsigs (proc (lambda (obj ...) *)))) + ((name . vector-map!) + (signature + lambda + ((procedure? proc) (vector? vector1) (vector? vector2) ...) + undefined) + (subsigs (proc (lambda (obj ...) *)))) + ((name . vector-for-each) + (signature + lambda + ((procedure? proc) (vector? vector1) (vector? vector2) ...) + undefined) + (subsigs (proc (lambda (obj ...) undefined)))) + ((name . vector-count) + (signature + lambda + ((procedure? pred?) (vector? vec1) (vector? vec2) ...) + integer?) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-cumulate) + (signature lambda ((procedure? f) knil (vector? vec)) vector?) + (tags pure) + (subsigs (f (lambda (obj1 obj2) *)))) + ((name . vector-index) + (signature + lambda + ((procedure? pred?) (vector? vec1) (vector? vec2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-index-right) + (signature + lambda + ((procedure? pred?) (vector? vec1) (vector? vec2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-skip) + (signature + lambda + ((procedure? pred?) (vector? vec1) (vector? vec2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-skip-right) + (signature + lambda + ((procedure? pred?) (vector? vec1) (vector? vec2) ...) + (or integer? #f)) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-binary-search) + (signature lambda ((vector? vec) value (procedure? cmp)) (or integer? #f)) + (tags pure) + (subsigs (cmp (lambda (a b) integer?)))) + ((name . vector-any) + (signature lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) *) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-every) + (signature lambda ((procedure? pred?) (vector? vec1) (vector? vec2) ...) *) + (tags pure) + (subsigs (pred? (lambda (obj1 obj2 ...) *)))) + ((name . vector-partition) + (signature + lambda + ((procedure? pred?) (vector? vec)) + (values vector? integer?)) + (tags pure) + (subsigs (pred? (lambda (obj) boolean?)))) + ((name . vector-set!) + (signature lambda ((vector? vector) (integer? k) obj) undefined)) + ((name . vector-swap!) + (signature lambda ((vector? vector) (integer? i) (integer? j)) undefined)) + ((name . vector-fill!) (signature lambda ((vector? vector) fill) undefined)) + ((name . vector-fill!) + (signature lambda ((vector? vector) fill (integer? start)) undefined)) + ((name . vector-fill!) + (signature + lambda + ((vector? vector) fill (integer? start) (integer? end)) + undefined)) + ((name . vector-reverse!) (signature lambda ((vector? vector)) undefined)) + ((name . vector-reverse!) + (signature lambda ((vector? vector) (integer? start)) undefined)) + ((name . vector-reverse!) + (signature + lambda + ((vector? vector) (integer? start) (integer? end)) + undefined)) + ((name . vector-copy!) + (signature lambda ((vector? to) (integer? at) (vector? from)) undefined)) + ((name . vector-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start)) + undefined)) + ((name . vector-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) + undefined)) + ((name . vector-reverse-copy!) + (signature lambda ((vector? to) (integer? at) (vector? from)) undefined)) + ((name . vector-reverse-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start)) + undefined)) + ((name . vector-reverse-copy!) + (signature + lambda + ((vector? to) (integer? at) (vector? from) (integer? start) (integer? end)) + undefined)) + ((name . vector-unfold!) + (signature + lambda + ((procedure? f) + (vector? vec) + (integer? start) + (integer? end) + initial-seed + ...) + undefined) + (subsigs (f (lambda ((integer? index) seed ...) (values * * ...))))) + ((name . vector-unfold-right!) + (signature + lambda + ((procedure? f) + (vector? vec) + (integer? start) + (integer? end) + initial-seed + ...) + undefined) + (subsigs (f (lambda ((integer? index) seed ...) (values * * ...))))) + ((name . vector->list) + (signature lambda ((vector? vector)) list?) + (tags pure)) + ((name . vector->list) + (signature lambda ((vector? vector) (integer? start)) list?) + (tags pure)) + ((name . vector->list) + (signature lambda ((vector? vector) (integer? start) (integer? end)) list?) + (tags pure)) + ((name . reverse-vector->list) + (signature lambda ((vector? vector)) list?) + (tags pure)) + ((name . reverse-vector->list) + (signature lambda ((vector? vector) (integer? start)) list?) + (tags pure)) + ((name . reverse-vector->list) + (signature lambda ((vector? vector) (integer? start) (integer? end)) list?) + (tags pure)) + ((name . list->vector) (signature lambda ((list? list)) vector?) (tags pure)) + ((name . reverse-list->vector) + (signature lambda ((list? list)) vector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string)) vector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string) (integer? start)) vector?) + (tags pure)) + ((name . string->vector) + (signature lambda ((string? string) (integer? start) (integer? end)) vector?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector)) string?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector) (integer? start)) string?) + (tags pure)) + ((name . vector->string) + (signature lambda ((vector? vector) (integer? start) (integer? end)) string?) + (tags pure))) diff --git a/types/scheme.write.scm b/types/scheme.write.scm index 180c3c7..4dd789d 100644 --- a/types/scheme.write.scm +++ b/types/scheme.write.scm @@ -1,30 +1,13 @@ -( - (display - (lambda (obj) undefined) - (parameterized)) - - (display - (lambda (obj (output-port? port)) undefined)) - - (write - (lambda (obj) undefined) - (parameterized)) - - (write - (lambda (obj (output-port? port)) undefined)) - - (write-shared - (lambda (obj) undefined) - (parameterized)) - - (write-shared - (lambda (obj (output-port? port)) undefined)) - - (write-simple - (lambda (obj) undefined) - (parameterized)) - - (write-simple - (lambda (obj (output-port? port)) undefined)) - - ) +(((name . display) (signature lambda (obj) undefined) (tags parameterized)) + ((name . display) (signature lambda (obj (output-port? port)) undefined)) + ((name . write) (signature lambda (obj) undefined) (tags parameterized)) + ((name . write) (signature lambda (obj (output-port? port)) undefined)) + ((name . write-shared) + (signature lambda (obj) undefined) + (tags parameterized)) + ((name . write-shared) (signature lambda (obj (output-port? port)) undefined)) + ((name . write-simple) + (signature lambda (obj) undefined) + (tags parameterized)) + ((name . write-simple) + (signature lambda (obj (output-port? port)) undefined)))