Changeset 15447 in project


Ignore:
Timestamp:
08/13/09 20:49:31 (10 years ago)
Author:
sjamaan
Message:

Implement (code) definition parsers

Location:
release/4/wiki-parse
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/wiki-parse/test.wiki

    r15364 r15447  
    99
    1010Function definition. [[http://example.com/foo|More information]] here.
     11
     12<macro>(macro-name ARG ...)</macro>
     13
     14Macro definition.
     15
     16<procedure>(proc ARG ...)</procedure>
     17
     18Procedure definition.
     19
     20<constant>PI</constant>
     21
     22Constant definition.
     23
     24<parameter>(whatever [value])</parameter>
     25
     26Parameter definition.
    1127
    1228=== Second section
  • release/4/wiki-parse/wiki-parse.scm

    r15364 r15447  
    130130        (wiki-small-rx
    131131         (irregex "<small>([^<]+)</small>"))
     132        (wiki-procedure-rx
     133         (irregex "<procedure>([^<]+)</procedure>"))
     134        (wiki-constant-rx
     135         (irregex "<constant>([^<]+)</constant>"))
     136        (wiki-parameter-rx
     137         (irregex "<parameter>([^<]+)</parameter>"))
     138        (wiki-macro-rx
     139         (irregex "<macro>([^<]+)</macro>"))
    132140        (wiki-type-rx
    133141         (irregex "\\{\\{([^\\}]+)\\}\\}"))
     
    180188                    wiki-row-rx
    181189                    (string-append "\n" (irregex-match-substring m 2)))))))
     190         (,wiki-procedure-rx
     191          ,(lambda (m) (list 'definition 'procedure
     192                             (irregex-match-substring m 1))))
     193         (,wiki-constant-rx
     194          ,(lambda (m) (list 'definition 'constant
     195                             (irregex-match-substring m 1))))
     196         (,wiki-macro-rx
     197          ,(lambda (m) (list 'definition 'macro
     198                             (irregex-match-substring m 1))))
     199         (,wiki-parameter-rx
     200          ,(lambda (m) (list 'definition 'parameter
     201                             (irregex-match-substring m 1))))
    182202         (,wiki-type-rx
    183203          ,(lambda (m)
Note: See TracChangeset for help on using the changeset viewer.