|(lexer [trigger action-expr] )|
Produces a function that takes an input-port, matches the re’s against the buffer, and returns the result of executing the corresponding action-expr.
The implementation of syntax-color/scheme-lexer contains a lexer for the scheme language. In addition, files in the "examples" sub-directory of the "parser-tools" collection contain simpler example lexers.
An re is matched as follows:
string – matches the sequence of characters in string.
character – matches a literal character.
(repetition lo hi re) – matches re repeated between lo and hi times, inclusive; hi can be +inf.0 for unbounded repetitions.
(union re ) – matches if any of the sub-expressions match
(intersection re ) – matches if all of the res match.
(complement re) – matches anything that re does not.
(concatenation re ) – matches each re in succession.
(char-range char char) – matches any character between the two (inclusive); a single character string can be used as a char.
(char-complement re) – matches any character not matched by re. The sub-expression must be a set of characters re.
(id datum ) – expands the lexer macro named id; macros are defined via define-lex-trans.
Note that both (concatenation) and "" match the empty string, (union) matches nothing, (intersection) matches any string, and (char-complement (union)) matches any single character.
The regular expression language is not designed to be used directly, but rather as a basis for a user-friendly notation written with regular expression macros. For example, parser-tools/lex-sre supplies operators from Olin Shivers’s SREs, and parser-tools/lex-plt-v200 supplies (deprecated) operators from the previous version of this library. Since those libraries provide operators whose names match other Scheme bindings, such as * and +, they normally must be imported using a prefix:
Since negation is not a common operator on regular expressions, here are a few examples, using : prefixed SRE syntax:
Matches all strings except the string "1", including "11", "111", "0", "01", "", and so on.
(complement (:* "1"))
Matches all strings that are not sequences of "1", including "0", "00", "11110", "0111", "11001010" and so on.
(:& (:: any-string "111" any-string) (complement (:or (:: any-string "01") (:+ "1"))))
Matches all strings that have 3 consecutive ones, but not those that end in "01" and not those that are ones only. These include "1110", "0001000111" and "0111" but not "", "11", "11101", "111" and "11111".
Matches Java/C block comments. "/**/", "/******/", "/*////*/", "/*asg4*/" and so on. It does not match "/**/*/", "/* */ */" and so on. (:: any-string "*/" any-string) matches any string that has a "*/" in is, so (complement (:: any-string "*/" any-string)) matches any string without a "*/" in it.
Matches any string that starts with "/*" and and ends with "*/", including "/* */ */ */". (complement "*/") matches any string except "*/". This includes "*" and "/" separately. Thus (:* (complement "*/")) matches "*/" by first matching "*" and then matching "/". Any other string is matched directly by (complement "*/"). In other words, (:* (complement "xx")) = any-string. It is usually not correct to place a :* around a complement.
The following binding have special meaning inside of a lexer action:
lexeme – the matched string.
input-port – the input-port being processed (this is useful for matching input with multiple lexers).
(return-without-pos x) is a function (continuation) that immediately returns the value of x from the lexer. This useful in a src-pos lexer to prevent the lexer from adding source information. For example:
(define get-token (lexer-src-pos ((comment) (get-token input-port)) ))
would wrap the source location information for the comment around the value of the recursive call. Using ((comment) (return-without-pos (get-token input-port))) will cause the value of the recursive call to be returned without wrapping position around it.
The lexer raises an exception (exn:read) if none of the regular expressions match the input. Hint: If (any-char custom-error-behavior) is the last rule, then there will always be a match, and custom-error-behavior is executed to handle the error situation as desired, only consuming the first character from the input buffer.
In addition to returning characters, input ports can return eof-objects. Custom input ports can also return a special-comment value to indicate a non-textual comment, or return another arbitrary value (a special). The non-re trigger forms handle these cases:
The (special-comment) rule is matched when the input port returns a special-comment structure. If no special-comment rule is present, the lexer automatically tries to return the next token from the input port.
The (special) rule is matched when the input port returns a value other than a character, eof-object, or special-comment structure. If no (special) rule is present, the lexer returns (void).
End-of-files, specials, special-comments and special-errors can never be part of a lexeme with surrounding characters.
Since the lexer gets its source information from the port, use port-count-lines! to enable the tracking of line and column information. Otherwise, the line and column information will return #f.
When peeking from the input port raises an exception (such as by an embedded XML editor with malformed syntax), the exception can be raised before all tokens preceding the exception have been returned.
Each time the scheme code for a lexer is compiled (e.g. when a ".ss" file containing a lexer form is loaded), the lexer generator is run. To avoid this overhead place the lexer into a module and compile the module to a ".zo" bytecode file.
|(lexer-src-pos (trigger action-expr) )|
Use of these names outside of a lexer action is a syntax error.
|(struct position (offset line col))|
|offset : exact-positive-integer?|
|line : exact-positive-integer?|
|col : exact-nonnegative-integer?|
Instances of position are bound to start-pos and end-pos. The offset field contains the offset of the character in the input. The line field contains the line number of the character. The col field contains the offset in the current line.
|(struct position-token (token start-pos end-pos))|
|token : any/c|
|start-pos : position?|
|end-pos : position?|
Lexers created with src-pos-lexers return instances of position-token.
|(file-path) → any/c|
|(file-path source) → void?|
|source : any/c|
A parameter that the the lexer uses as the source location if it raises a exn:fail:rad error. Setting this parameter allows DrScheme, for example, to open the file containing the error.
A lexer macro that matches any character in string.
A lexer abbreviation that matches any character.
A lexer abbreviation that matches any string.
A lexer abbreviation that matches no string.
|(define-lex-abbrev id re)|
Defines a lexer abbreviation by associating a regular expression to be used in place of the id in other regular expression. The definition of name has the same scoping properties as a other syntactic binding (e.g., it can be exported from a module).
|(define-lex-abbrevs (id re) )|
|(define-lex-trans id trans-expr)|
Defines a lexer macro, where trans-expr produces a transformer procedure that takes one argument. When (id datum ) appears as a regular expression, it is replaced with the result of applying the transformer to the expression.
|(* re )|
Repetition of re sequence 0 or more times.
|(+ re )|
Repetition of re sequence 1 or more times.
|(? re )|
Zero or one occurrence of re sequence.
|(= n re )|
Exactly n occurrences of re sequence, where n must be a literal exact, non-negative number.
|(>= n re )|
At least n occurrences of re sequence, where n must be a literal exact, non-negative number.
|(** n m re )|
Between n and m (inclusive) occurrences of re sequence, where n must be a literal exact, non-negative number, and m must be literally either #f, +inf.0, or an exact, non-negative number; a #f value for m is the same as +inf.0.
|(or re )|
Same as (union re ).
Both forms concatenate the res.
|(& re )|
Intersects the res.
|(- re )|
The set difference of the res.
|(~ re )|
Character-set complement, which each re must match exactly one character.
|(/ char-or-string )|
Character ranges, matching characters between successive pairs of characters.
A lexer macro that matches an empty sequence.
|(~ re )|
The same as (complement re ).
Each action-expr in a lexer form can produce any kind of value, but for many purposes, producing a token value is useful. Tokens are usually necessary for inter-operating with a parser generated by parser-tools/parser, but tokens not be the right choice when using lexer in other situations.
|(define-tokens group-id (token-id ))|
Binds group-id to the group of tokens being defined. For each token-id, a function token-token-id is created that takes any value and puts it in a token record specific to token-id. The token value is inspected using token-id and token-value.
A token cannot be named error, since error it has special use in the parser.
|(define-empty-tokens group-id (token-id ))|
|(token-name t) → symbol?|
|t : (or/c token? symbol?)|
Returns the name of a token that is represented either by a symbol or a token structure.
|(token-value t) → any/c|
|t : (or/c token? symbol?)|
Returns the value of a token that is represented either by a symbol or a token structure, returning #f for a symbol token.
|(token? v) → boolean?|
|v : any/c|
Returns #t if val is a token structure, #f otherwise.