'From Squeak3.2alpha of 8 October 2001 [latest update: #4418] on 9 October 2001 at 10:57:26 pm'! "Change Set: ComSwiki inline links Date: 9 October 2001 Author: "! Object subclass: #SwikiPageIDAndNameModel instanceVariableNames: 'remaining request text alias pageEntry refId book page result ' classVariableNames: '' poolDictionaries: '' category: 'Swiki-Formatting'! Object subclass: #SwikiRequest instanceVariableNames: 'book page address security settings inlinePageRequests ' classVariableNames: '' poolDictionaries: '' category: 'Swiki-Structure'! !IdFormatter class methodsFor: 'instance creation' stamp: 'dsp 10/9/2001 21:58'! heading: formatter | instance | instance _ self new. instance idBlock: [:text | (text beginsWith: '!!!!') ifTrue: [(text beginsWith: '!!!!!!') ifTrue: ['!!!!!!'] ifFalse: ['!!!!']] ifFalse: ['!!']]. instance startBlock: [:id | '']. instance endBlock: [:id | '', String cr]. instance transitionBlock: [:idOld :idNew | '', String cr, '']. instance formatter: [:text :request :response :shelf :book :page | (book editTagForText: text page: page), (formatter format: text request: request response: response shelf: shelf book: book page: page)]. ^instance! ! !IdFormatter class methodsFor: 'instance creation' stamp: 'dsp 10/9/2001 21:57'! list: formatter | instance match return | instance _ self new. instance idBlock: [:text | return _ 1. [(text size >= return) and: [((text at: return) = $-) or: [(text at: return) = $#]]] whileTrue: [return _ return + 1]. text copyFrom: 1 to: (return-1)]. instance startBlock: [:id | return _ ''. id do: [:char | (char = $-) ifTrue: [return _ return, '

', String cr]]. return]. instance endBlock: [:id | return _ ''. id do: [:char | (char = $-) ifTrue: [return _ '

', String cr, return] ifFalse: [return _ '', String cr, return]]. return]. instance transitionBlock: [:idOld :idNew | return _ ''. match _ 1. [((idOld size >= match) and: [idNew size >= match]) and: [(idOld at: match) = (idNew at: match)]] whileTrue: [match _ match + 1]. (idOld size > (match - 1)) ifTrue: [(idOld copyFrom: match to: idOld size) do: [:char | (char = $-) ifTrue: [return _ '', String cr, return] ifFalse: [return _ '', String cr, return]]]. (idNew size > (match - 1)) ifTrue: [(idNew copyFrom: match to: idNew size) do: [:char | (char = $-) ifTrue: [return _ return, '

', (book editTagForText: text page: page), (formatter format: text request: request response: response shelf: shelf book: book page: page), String cr]. ^instance! ! !IdFormatter class methodsFor: 'instance creation' stamp: 'dsp 10/9/2001 21:57'! table: formatter | instance return | instance _ self new. instance idBlock: [:text | '|']. instance startBlock: [:id | '', String cr, '']. instance endBlock: [:id | '', String cr, '
', String cr]. instance transitionBlock: [:idOld :idNew | '', String cr, '']. instance formatter: [:text :request :response :shelf :book :page | |cols| return _ ''. cols _ (text findTokens: '|'). 1 to: cols size do: [:i| |token| token _ cols at: i. return _ return, ''. i = 1 ifTrue:[return _ return, (book editTagForText: text page: page)]. return _ return, (formatter format: token request: request response: response shelf: shelf book: book page: page), '']. return]. ^instance! ! !IdFormatter class methodsFor: 'instance creation' stamp: 'dsp 10/9/2001 21:57'! text: formatter | instance | instance _ self new. instance idBlock: [:text | '']. instance startBlock: [:id | '']. instance endBlock: [:id | '']. instance transitionBlock: [:idOld :idNew | '']. instance formatter: [:text :request :response :shelf :book :page | (book editTagForText: text page: page), (formatter format: text request: request response: response shelf: shelf book: book page: page), '
', String cr]. ^instance! ! !PageFormatter methodsFor: 'functionality' stamp: 'dsp 10/9/2001 22:08'! addChangeLinks self addAction: [:text :request :response :shelf :book :page | '*', ((request pageIDAndNameModelForBook: book page: page text: text) changeLinks), '*'] from: '*' to: '*'. self addAction: [:text :request :response :shelf :book :page | '*-', ((request pageIDAndNameModelForBook: book page: page text: text) changeLinks), '-*'] from: '*-' to: '-*'.! ! !PageFormatter methodsFor: 'functionality' stamp: 'dsp 10/9/2001 22:31'! addInternalLinks self addAction: [:text :request :response :shelf :book :page | self internalLinks: text request: request response: response shelf: shelf book: book page: page] from: '*' to: '*'. self addAction: [:text :request :response :shelf :book :page | request formatForInline: text shelf: shelf book: book page: page] from: '*-' to: '-*'. self addMappingFrom: '&*' to: '*'! ! !PageFormatter methodsFor: 'functionality' stamp: 'dsp 10/9/2001 22:10'! addReverseLinks self addAction: [:text :request :response :shelf :book :page | '*', ((request pageIDAndNameModelForBook: book page: page text: text) reverseLinks), '*'] from: '*' to: '*'. self addAction: [:text :request :response :shelf :book :page | '*+', text, '+*'] from: '*+' to: '+*'. self addAction: [:text :request :response :shelf :book :page | '*-', ((request pageIDAndNameModelForBook: book page: page text: text) reverseLinks), '-*'] from: '*-' to: '-*'. self addMappingFrom: '&*' to: '&*'! ! !PageFormatter methodsFor: 'functionality' stamp: 'dsp 10/9/2001 22:11'! addUpdateLinks self addAction: [:text :request :response :shelf :book :page | '*', ((request pageIDAndNameModelForBook: book page: page text: text) updateLinks), '*'] from: '*' to: '*'. self addAction: [:text :request :response :shelf :book :page | '*+', text, '+*'] from: '*+' to: '+*'. self addAction: [:text :request :response :shelf :book :page | '*-', ((request pageIDAndNameModelForBook: book page: page text: text) updateLinks), '-*'] from: '*-' to: '-*'. self addMappingFrom: '&*' to: '&*'. ! ! !SwikiBook methodsFor: 'utility' stamp: 'dsp 10/9/2001 22:56'! editTagForText: atext page: apage atext size < 1 ifTrue:[^'']. ^''! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 18:35'! addRef (page settings at: 'referenceCache' ifAbsentPut: [OrderedCollection new]) addIfNotPresent: refId! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:22'! changeLinks self common ifTrue:[^self changeLinksResult: (alias, remaining)]. "Transform digit to title" ((pageEntry isAllDigits) and: [pageEntry ~= '']) ifTrue: [(book pages size) >= (pageEntry asNumber) ifTrue: [^self changeLinksResult: (alias, (book pages at: pageEntry asNumber) name, remaining)]]. ^self changeLinksResult: (alias, pageEntry, remaining)! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 18:17'! changeLinksResult: aResult ^TextFormatter encodeToXmlCrlf: aResult! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:18'! checkForPageEntry "Transform title to digit" ^(book hasPageNamed: pageEntry) ifTrue: [refId _ (book pageNamed: pageEntry) id. self addRef. result _ alias , refId asString , remaining. true] ifFalse:[false] ! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:21'! common remaining _ request cleanLink: text copy. "alias" (remaining includes: $>) ifTrue: [alias _ (remaining copyUpTo: $>), '>'. ((alias size) = (remaining size)) ifTrue: [remaining _ ''] ifFalse: [remaining _ remaining copyFrom: (alias size + 1) to: (remaining size)]] ifFalse: [alias _ '']. "e-mail address" (NuSwikiPage isTextAnEmailAddress: remaining) ifTrue: [result _ text. ^true]. "URL address" (NuSwikiPage hasAProtocol: remaining) ifTrue: [result _ text. ^true]. "Get pageEntry" (remaining includes: $@) ifTrue: [pageEntry _ remaining copyUpTo: $@. remaining _ remaining copyFrom: (pageEntry size + 1) to: (remaining size)] ifFalse: [pageEntry _ remaining. remaining _ '']. ^false! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:20'! commonReturn ^self checkForPageEntry ifTrue:[result] ifFalse:[ "Not an identified page" text]! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 19:01'! request: arequest book: abook page: apage text: atext request _ arequest. book _ abook. page _ apage. text _ atext! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:21'! reverseLinks self common ifTrue:[^result]. "No page entry" (pageEntry = '') ifTrue: [^text]. "Check for digit" (pageEntry isAllDigits) ifTrue: [ refId _ pageEntry asNumber. (book pages size >= refId) ifTrue: [self addRef]. ^alias, pageEntry, remaining]. ^self commonReturn! ! !SwikiPageIDAndNameModel methodsFor: 'services' stamp: 'dsp 10/9/2001 21:21'! updateLinks self common ifTrue:[^result]. "Digit already" pageEntry isAllDigits ifTrue: [^text ]. ^self commonReturn! ! !SwikiPageIDAndNameModel class methodsFor: 'instance creation' stamp: 'dsp 10/9/2001 21:05'! request: arequest book: abook page: apage text: atext ^(self new) request: arequest book: abook page: apage text: atext; yourself! ! !SwikiRequest methodsFor: 'accessing' stamp: 'dsp 10/9/2001 17:34'! inlinePageRequests inlinePageRequests ifNil:[inlinePageRequests _ OrderedCollection new]. ^inlinePageRequests! ! !SwikiRequest methodsFor: 'services' stamp: 'dsp 10/9/2001 22:17'! formatForInline: text shelf: shelf book: abook page: aPage | pageNumber pageName | pageNumber _ (pageName _ (self pageIDAndNameModelForBook: abook page: aPage text: text) updateLinks) asInteger. text isAllDigits ifFalse:[ self settingsAt: 'pageEntry' put: pageName. ^abook formatPageTemplate: 'newLink' request: self response: nil shelf: shelf page: aPage]. (self inlinePageRequests includes: pageNumber) ifTrue:[^'Recursed Inline Pages']. self inlinePageRequests add: pageNumber. ^[|thePage| thePage _ abook pages at: pageNumber ifAbsent: [nil]. thePage isNil ifTrue:['Inline page not found: ', text] ifFalse:[thePage showFormatRequest: self response: nil shelf: shelf book: abook]] ensure:[self inlinePageRequests remove: pageNumber]! ! !SwikiRequest methodsFor: 'services' stamp: 'dsp 10/9/2001 22:16'! pageIDAndNameModelForBook: abook page: apage text: atext ^SwikiPageIDAndNameModel request: self book: abook page: apage text: atext! ! !HttpSwikiRequest methodsFor: 'accessing' stamp: 'dsp 10/9/2001 16:45'! cleanLink: aString | tok ref i | tok _ aString findTokens: '/'. tok size < 3 ifTrue:[^aString]. ref _ self raw referer findTokens: '/'. (aString beginsWith: ('http:/', ref third)) ifTrue:[^tok third]. (aString beginsWith: ('HTTP:/', ref third)) ifTrue:[^tok third]. i _ 1. [(tok size >= i) and:[(tok at: i) = (ref at: i)]] whileTrue:[i _ i +1]. i _ i -1. i = 3 ifTrue:[^tok fourth]."swiki" i = 2 ifTrue:[^tok first, '/', tok third,'/', tok fourth]."server" ^aString! ! PageFormatter removeSelector: #changeLinks:request:response:shelf:book:page:! PageFormatter removeSelector: #reverseLinks:request:response:shelf:book:page:! PageFormatter removeSelector: #updateLinks:request:response:shelf:book:page:!