Changeset 35745 in project


Ignore:
Timestamp:
07/05/18 04:24:45 (3 months ago)
Author:
kon
Message:

don't show option options as optional, mv to better mod, fix types, comments, fix srfi-132 ref

Location:
release/4/apropos/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos-srfi-db.scm

    r35743 r35745  
    22;;;; Kon Lovett, Jul '18
    33
     4;; Issues
     5;;
     6;; - alist or record
     7;;
     8;; - atom & list for multi-valued; author, keyword, ref
     9;;
     10;; - have db in file
     11
    412(module apropos-srfi-db
    513
     
    1119;;
    1220
     21(define-type alist (list-of pair))
     22
     23;;
     24
     25;   srfi - # , title , status , date
     26; author - # , fullname
     27;keyword - # , name
     28;    ref - # , #
     29#;
     30(define (create-sqlite-db #!optional (pn "apropos-srfi.db"))
     31  (void) )
     32
     33(: srfi-info-list (-> alist))
     34;
    1335(define (srfi-info-list)
    1436  +srfis+ )
     
    147169  ((SRFI . 130) (title . "Cursor-based string library") (author . ("John Cowan")) (status . final) (date . "2016/5/28") (keyword . ("Data Structure")) (ref . (13)))
    148170  ((SRFI . 131) (title . "ERR5RS Record Syntax (reduced)") (author . ("John Cowan" "Will Clinger")) (status . final) (date . "2016/2/13") (keyword . ("Data Structure")) (ref . (150)))
    149   ((SRFI . 132) (title . "Sort Libraries") (author . ("John Cowan (based on SRFI 32 by Olin Shivers)")) (status . final) (date . "2016/4/20") (keyword . ("Algorithm")) (ref . ()))
    150   ((SRFI . 133) (title . "Vector Library (R7RS-compatible)") (author . ("John Cowan (based on SRFI 43 by Taylor Campbell)")) (status . final) (date . "2016/3/20") (keyword . ("Data Structure")) (ref . (43)))
     171  ((SRFI . 132) (title . "Sort Libraries") (author . ("John Cowan" "based on SRFI 32 by Olin Shivers")) (status . final) (date . "2016/4/20") (keyword . ("Algorithm")) (ref . (32)))
     172  ((SRFI . 133) (title . "Vector Library (R7RS-compatible)") (author . ("John Cowan" "based on SRFI 43 by Taylor Campbell")) (status . final) (date . "2016/3/20") (keyword . ("Data Structure")) (ref . (43)))
    151173  ((SRFI . 134) (title . "Immutable Deques") (author . ("Kevin Wortman" "John Cowan")) (status . final) (date . "2016/7/1") (keyword . ("Data Structure")) (ref . ()))
    152174  ((SRFI . 135) (title . "Immutable Texts") (author . ("William D Clinger")) (status . final) (date . "2016/9/6") (keyword . ("Data Structure")) (ref . (118 130 140 152)))
  • release/4/apropos/trunk/apropos-srfi.scm

    r35743 r35745  
    99;;
    1010;; - atom & list for multi-valued; author, keyword, ref
    11 ;;
    12 ;; - have db in file
    1311
    1412(module apropos-srfi
     
    3028;;
    3129
    32 #; ;UNUSED
     30(define-type alist (list-of pair))
     31
     32;;
     33
     34#| ;UNUSED
     35(: sort-alist (alist #!optional procedure --> alist))
     36;
    3337(define (sort-alist xs #!optional (p? <))
    3438  (sort xs (lambda (a b) (p? (car a) (car b)))) )
     39|#
    3540
     41(: index-alist (hash-table * alist #!optional procedure -> hash-table))
     42;
    3643(define (index-alist idx key xs #!optional (eql? eq?))
    3744  (for-each
     
    4451    xs)
    4552  idx )
    46 
    47 ;;
    48 
    49 ;   srfi - # , title , status , date
    50 ; author - # , fullname
    51 ;keyword - # , name
    52 ;    ref - # , #
    53 #;
    54 (define (create-db-sqlite #!optional (pn "apropos-srfi.db"))
    55   (void) )
    5653
    5754;;
     
    7067  +srfi-srfis+ )
    7168
    72 (: srfi-info (fixnum --> (list-of pair)))
     69(: srfi-info (fixnum --> alist))
    7370;
    7471(define (srfi-info n)
    7572  (hash-table-ref/default +srfis-index-srfi+ n #f) )
    7673
    77 (: srfi-alist (#!optional (or boolean (list-of fixnum)) --> (list-of (pair fixnum (list-of pair)))))
     74(: srfi-alist (#!optional (or boolean (list-of fixnum)) --> (list-of (pair fixnum alist))))
    7875;
    7976(define (srfi-alist #!optional (wanted #t))
  • release/4/apropos/trunk/apropos.scm

    r35743 r35745  
    143143;rmvd ", raw, base [#]"
    144144(define CSI-HELP-BODY
    145   "Apropos of PATT with ARG from ?, mac, split [nam|mod|#f], qual, ci, sort [nam|mod|typ|#f]")
     145  "Apropos of PATT with ARG from ?, mac, qual, ci, sort nam|mod|typ|#f, split nam|mod|#f")
    146146
    147147(define CSI-HELP (string-append CSI-HELP-HEAD CSI-HELP-BODY))
     
    168168 ci | case-insensitive
    169169                   Pattern has no capitals
    170  sort [name | module | type | #f]
     170 sort name | module | type | #f
    171171                   Order items; optional when last argument
    172  split [name | module | #f]
     172 split name | module | #f
    173173                   Pattern match component; optional when last argument
    174174                   (also see the '(_ . _) pattern)
Note: See TracChangeset for help on using the changeset viewer.