Changeset 35436 in project


Ignore:
Timestamp:
04/26/18 00:59:10 (6 months ago)
Author:
kon
Message:

expand help

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

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos.scm

    r35434 r35436  
    128128(define (qualified-symbol? sym)
    129129  (and sym (##sys#qualified-symbol? sym)) )
     130
     131;; Constants
     132
     133;rmvd ", raw, base [#]"
     134(define-constant CSI-HELP-BODY
     135  "Apropos of PATT with ARG from ?, mac, split [nam|mod|#f], qual, ci, sort [nam|mod|typ|#f]")
     136
     137(define-constant CSI-HELP
     138  (string-append ",a PATT ARG..." (make-string 4 #\space) CSI-HELP-BODY))
     139
     140(define-constant HELP-TEXT
     141#<<EOS
     142Pattern:
     143
     144 The Pattern PATT is a symbol, string, sre (see irregex), or quoted. Symbols &
     145 strings are interpreted as a substring match. The quoted object is described
     146 below.
     147
     148 Use "?" to list symbols containing a `?`.
     149
     150 The form '(PATT . _) is a synonym for `PATT split module`; '(_ . PATT) is
     151 `PATT split name`.
     152
     153 Otherwise use the form '... to force interpretation of `...` as an irregex.
     154
     155Arguments:
     156
     157 macros            Include macro bound symbols
     158 qualified         Include "qualified" symbols
     159 ci | case-insensitive
     160                   Pattern has no capitals
     161 sort [name | module | type | #f]
     162                   Order items; optional when last argument
     163 split [name | module | #f]
     164                   Pattern match component; optional when last argument
     165                   (also see the '(_ . _) pattern)
     166 all               Means `ci qual mac`
     167 krl               Means `all sort mod`
     168 base              For number valued pattern
     169 raw               No listing symbol interpretation (i.e. x123 ~> x)
     170EOS
     171)
    130172
    131173;; Types
     
    10401082        (error-sort-key loc "unknown sort key" arg) ) ) ) )
    10411083
    1042 ;rmvd ", raw, base [#]"
    1043 (define *csi-apropos-help*
    1044   ",a PATT ARG...    Apropos of PATT with ARG from mac, split [nam|mod|#f], qual, ci, sort [nam|mod|typ|#f] Or ?")
    1045 
    1046 (define *apropos-help* #<<EOS
    1047 Pattern:
    1048 
    1049  PATT is a symbol, string, or sre. Something that can be interpreted as
    1050  regular-expression.
    1051 
    1052  Use a PATT of "?" to list symbols containing a #\?.
    1053 
    1054  A PATT of the form '(SUB-PATT . _) is interpreted as SUB-PATT split module.
    1055 
    1056  A PATT of the form '(_ . SUB-PATT) is interpreted as SUB-PATT split name.
    1057 
    1058  A PATT of the form '... will be interpreted as an irregex; excepting split
    1059  pattern as above.
    1060 
    1061 Arguments:
    1062 
    1063  macros            Include macro bound symbols
    1064  qualified         Include "qualified" symbols
    1065  ci | case-insensitive
    1066                    Pattern has no capitals
    1067  sort [name | module | type | #f]
    1068                    Order items (optional when last argument)
    1069  split [name | module | #f]
    1070                    Pattern match component (optional when last argument)
    1071  all               Means "ci qual mac""
    1072  krl               Means "all sort mod""
    1073  base              For number valued pattern
    1074  raw               No symbol interpretation
    1075 EOS
    1076 )
    1077 
    10781084(define (display-apropos-help)
    1079   (print *csi-apropos-help*)
     1085  (print CSI-HELP)
    10801086  (print)
    1081   (print *apropos-help*) )
     1087  (print HELP-TEXT) )
    10821088
    10831089(define (parse-csi-apropos-arguments iargs)
     
    11731179
    11741180(when (feature? csi:)
    1175   (toplevel-command 'a csi-apropos-command *csi-apropos-help*) )
     1181  (toplevel-command 'a csi-apropos-command CSI-HELP) )
    11761182
    11771183) ;module apropos
  • release/4/apropos/trunk/apropos.setup

    r35138 r35436  
    1 ;;;; apropos.setup  -*- Hen -*-
     1;;;; apropos.setup
    22
    33(use setup-helper-mod)
     
    99  (exit 1) )
    1010
    11 (setup-shared-extension-module 'apropos (extension-version "2.7.1")
     11(setup-shared-extension-module 'apropos (extension-version "2.7.2")
    1212  #:types? #t
    1313  #:inline? #t
    1414  #:compile-options '(
    15     -fixnum-arithmetic
    1615    -O3 -d1
    1716    -no-procedure-checks))
Note: See TracChangeset for help on using the changeset viewer.