43 lines
705 B
Smalltalk
43 lines
705 B
Smalltalk
|
Class {
|
||
|
|
#name : #WikiTextGrammar,
|
||
|
|
#superclass : #PP2CompositeNode,
|
||
|
|
#instVars : [
|
||
|
|
'document',
|
||
|
|
'link',
|
||
|
|
'linkOpen',
|
||
|
|
'linkContent',
|
||
|
|
'linkClose'
|
||
|
|
],
|
||
|
|
#category : #'TiddlyWiki-Model'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> document [
|
||
|
|
^ link islandInSea star
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> link [
|
||
|
|
^ linkOpen, linkContent, linkClose ==> #second
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> linkClose [
|
||
|
|
^ ']]' asPParser
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> linkContent [
|
||
|
|
^ #any asPParser starLazy flatten
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> linkOpen [
|
||
|
|
^ '[[' asPParser
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
WikiTextGrammar >> start [
|
||
|
|
^ document
|
||
|
|
]
|