r64558 MediaWiki - Code Review archive

Repository:MediaWiki
Revision:< r64557‎ | r64558 | r64559 >
Date:10:13, 3 April 2010
Author:happy-melon
Status:ok
Tags:
Comment:
Revert r64478 - April Fool's is well over.
Modified paths:
  • /trunk/phase3/includes/AutoLoader.php (modified) (history)
  • /trunk/phase3/includes/parser/LOLParser.php (deleted) (history)
  • /trunk/phase3/includes/parser/Parser.lol (deleted) (history)

Diff [purge]

Index: trunk/phase3/includes/parser/Parser.lol
——@@ -1,5282 +0,0 @@
2 - DO NOT WANT
3 - NOT WANT @defgroup Parser Parser
4 - NOT WANT
5 - NOT WANT @file
6 - NOT WANT @ingroup Parser
7 - NOT WANT File for Parser and related classes
8 - WANT
9 -
10 -
11 - DO NOT WANT
12 - NOT WANT PHP Parser - Processes wiki markup (which uses a more user-friendly
13 - NOT WANT syntax, such as "[[link]]" for making links), and provides a one-way
14 - NOT WANT transformation of that wiki markup it into XHTML output / markup
15 - NOT WANT (which in turn the browser understands, and can display).
16 - NOT WANT
17 - NOT WANT <pre>
18 - NOT WANT There are five main entry points into the Parser class:
19 - NOT WANT parse()
20 - NOT WANT produces HTML output
21 - NOT WANT preSaveTransform().
22 - NOT WANT produces altered wiki markup.
23 - NOT WANT preprocess()
24 - NOT WANT removes HTML comments and expands templates
25 - NOT WANT cleanSig()
26 - NOT WANT Cleans a signature before saving it to preferences
27 - NOT WANT extractSections()
28 - NOT WANT Extracts sections from an article for section editing
29 - NOT WANT getPreloadText()
30 - NOT WANT Removes <noinclude> sections, and <includeonly> tags.
31 - NOT WANT
32 - NOT WANT Globals used:
33 - NOT WANT objects: $wgLang, $wgContLang
34 - NOT WANT
35 - NOT WANT NOT $wgArticle, $wgUser or $wgTitle. Keep them away!
36 - NOT WANT
37 - NOT WANT settings:
38 - NOT WANT $wgUseTex*, $wgUseDynamicDates*, $wgInterwikiMagic*,
39 - NOT WANT $wgNamespacesWithSubpages, $wgAllowExternalImages*,
40 - NOT WANT $wgLocaltimezone, $wgAllowSpecialInclusion*,
41 - NOT WANT $wgMaxArticleSize*
42 - NOT WANT
43 - NOT WANT * only within ParserOptions
44 - NOT WANT </pre>
45 - NOT WANT
46 - NOT WANT @ingroup Parser
47 - WANT
48 - IM IN UR SPECIAL Parser
49 - DO NOT WANT
50 - NOT WANT Update this version number when the ParserOutput format
51 - NOT WANT changes in an incompatible way, so the parser cache
52 - NOT WANT can automatically discard old data.
53 - WANT
54 - I ALWAYZ HAS VERSION IZ '1.6.4';
55 -
56 - BTW Flags for Parser::setFunctionHook
57 - BTW Also available as global constants from Defines.php
58 - I ALWAYZ HAS SFH_NO_HASH IZ 1;
59 - I ALWAYZ HAS SFH_OBJECT_ARGS IZ 2;
60 -
61 - BTW Constants needed for external link processing
62 - BTW Everything except bracket, space, or control characters
63 - I ALWAYZ HAS EXT_LINK_URL_CLASS IZ '[^][<>"\\x00-\\x20\\x7F]';
64 - I ALWAYZ HAS EXT_IMAGE_REGEX IZ '/^(http:\/\/|https:\/\/)([^][<>"\\x00-\\x20\\x7F]+)
65 - \\/([A-Za-z0-9_.,~%\\-+&;#*?!=()@\\x80-\\xFF]+)\\.((?i)gif|png|jpg|jpeg)$/Sx';
66 -
67 - BTW State constants for the definition list colon extraction
68 - I ALWAYZ HAS COLON_STATE_TEXT IZ 0;
69 - I ALWAYZ HAS COLON_STATE_TAG IZ 1;
70 - I ALWAYZ HAS COLON_STATE_TAGSTART IZ 2;
71 - I ALWAYZ HAS COLON_STATE_CLOSETAG IZ 3;
72 - I ALWAYZ HAS COLON_STATE_TAGSLASH IZ 4;
73 - I ALWAYZ HAS COLON_STATE_COMMENT IZ 5;
74 - I ALWAYZ HAS COLON_STATE_COMMENTDASH IZ 6;
75 - I ALWAYZ HAS COLON_STATE_COMMENTDASHDASH IZ 7;
76 -
77 - BTW Flags for preprocessToDom
78 - I ALWAYZ HAS PTD_FOR_INCLUSION IZ 1;
79 -
80 - BTW Allowed values for $this->mOutputType
81 - BTW Parameter to startExternalParse().
82 - I ALWAYZ HAS OT_HTML IZ 1; # like parse()
83 - I ALWAYZ HAS OT_WIKI IZ 2; # like preSaveTransform()
84 - I ALWAYZ HAS OT_PREPROCESS IZ 3; # like preprocess()
85 - I ALWAYZ HAS OT_MSG IZ 3;
86 - I ALWAYZ HAS OT_PLAIN IZ 4; # like extractSections() - portions of the original are returned unchanged.
87 -
88 - BTW Marker Suffix needs to be accessible staticly.
89 - I ALWAYZ HAS MARKER_SUFFIX IZ "-QINU\x7f";
90 -
91 - BTW Persistent:
92 - I HAS UR $mTagHooks, $mTransparentTagHooks, $mFunctionHooks, $mFunctionSynonyms, $mVariables
93 - I HAS UR $mSubstWords, $mImageParams, $mImageParamsMagicArray, $mStripList, $mMarkerIndex
94 - I HAS UR $mPreprocessor, $mExtLinkBracketedRegex, $mUrlProtocols, $mDefaultStripList
95 - I HAS UR $mVarCache, $mConf, $mFunctionTagHooks
96 -
97 -
98 - BTW Cleared with clearState():
99 - I HAS UR $mOutput, $mAutonumber, $mDTopen, $mStripState
100 - I HAS UR $mIncludeCount, $mArgStack, $mLastSection, $mInPre
101 - I HAS UR $mLinkHolders, $mLinkID
102 - I HAS UR $mIncludeSizes, $mPPNodeCount, $mDefaultSort
103 - I HAS UR $mTplExpandCache # empty-frame expansion cache
104 - I HAS UR $mTplRedirCache, $mTplDomCache, $mHeadings, $mDoubleUnderscores
105 - I HAS UR $mExpensiveFunctionCount # number of expensive parser function calls
106 -
107 - BTW Temporary
108 - BTW These are variables reset at least once per parse regardless of $clearState
109 - I HAS UR $mOptions # ParserOptions object
110 - I HAS UR $mTitle # Title context, used for self-link rendering and similar things
111 - I HAS UR $mOutputType # Output type, one of the OT_xxx constants
112 - I HAS UR $ot # Shortcut alias, see setOutputType()
113 - I HAS UR $mRevisionId # ID to display in {{REVISIONID}} tags
114 - I HAS UR $mRevisionTimestamp # The timestamp of the specified revision ID
115 - I HAS UR $mRevIdForTs # The revision ID which was used to fetch the timestamp
116 -
117 - DO NOT WANT
118 - NOT WANT Constructor
119 - NOT WANT
120 - NOT WANT @public
121 - WANT
122 - SO IM LIKE __construct WITH UR $conf = array()
123 - UR SPECIAL mConf IZ $conf;
124 - UR SPECIAL mTagHooks IZ EMPTY;
125 - UR SPECIAL mTransparentTagHooks IZ EMPTY;
126 - UR SPECIAL mFunctionHooks IZ EMPTY;
127 - UR SPECIAL mFunctionTagHooks IZ EMPTY;
128 - UR SPECIAL mFunctionSynonyms IZ BUCKET 0 => array(), 1 => array() );
129 - UR SPECIAL mDefaultStripList IZ $this->mStripList = array();
130 - UR SPECIAL mUrlProtocols IZ wfUrlProtocols();
131 - UR SPECIAL mExtLinkBracketedRegex IZ '/\[(\b(' . wfUrlProtocols() . ')'.
132 - '[^][<>"\\x00-\\x20\\x7F]+) *([^\]\\x0a\\x0d]*?)\]/S';
133 - UR SPECIAL mVarCache IZ EMPTY;
134 - IZ isset( $conf['preprocessorClass'] )
135 - UR SPECIAL mPreprocessorClass IZ $conf['preprocessorClass'];
136 - ORLY extension_loaded( 'domxml' )
137 - BTW PECL extension that conflicts with the core DOM extension (bug 13770)
138 - IM ON UR wfDebug DOING "Warning: you have the obsolete domxml extension for PHP. Please remove it!\n"
139 - UR SPECIAL mPreprocessorClass IZ 'Preprocessor_Hash';
140 - ORLY extension_loaded( 'dom' )
141 - UR SPECIAL mPreprocessorClass IZ 'Preprocessor_DOM';
142 - NOWAI
143 - UR SPECIAL mPreprocessorClass IZ 'Preprocessor_Hash';
144 - KTHX
145 - UR SPECIAL mMarkerIndex IZ 0;
146 - UR SPECIAL mFirstCall IZ true;
147 - KTHX
148 -
149 - DO NOT WANT
150 - NOT WANT Reduce memory usage to reduce the impact of circular references
151 - WANT
152 - SO IM LIKE __destruct
153 - IZ isset( $this->mLinkHolders )
154 - IM ON UR SPECIAL mLinkHolders->__destruct
155 - KTHX
156 - IM IN UR this ITZA name => $value
157 - IM ON UR unset DOING $this->$name
158 - KTHX
159 - KTHX
160 -
161 - DO NOT WANT
162 - NOT WANT Do various kinds of initialisation on the first call of the parser
163 - WANT
164 - SO IM LIKE firstCallInit
165 - IZ !$this->mFirstCall
166 - return;
167 - KTHX
168 - UR SPECIAL mFirstCall IZ false;
169 -
170 - IM ON UR wfProfileIn DOING __METHOD__
171 -
172 - CoreParserFunctions::register( $this );
173 - CoreTagHooks::register( $this );
174 - IM ON UR SPECIAL initialiseVariables
175 -
176 - IM ON UR wfRunHooks DOING 'ParserFirstCallInit', array( &$this )
177 - IM ON UR wfProfileOut DOING __METHOD__
178 - KTHX
179 -
180 - DO NOT WANT
181 - NOT WANT Clear Parser state
182 - NOT WANT
183 - NOT WANT @private
184 - WANT
185 - SO IM LIKE clearState
186 - IM ON UR wfProfileIn DOING __METHOD__
187 - IZ $this->mFirstCall
188 - IM ON UR SPECIAL firstCallInit
189 - KTHX
190 - UR SPECIAL mOutput IZ new ParserOutput;
191 - UR SPECIAL mAutonumber IZ 0;
192 - UR SPECIAL mLastSection IZ '';
193 - UR SPECIAL mDTopen IZ false;
194 - UR SPECIAL mIncludeCount IZ EMPTY;
195 - UR SPECIAL mStripState IZ new StripState;
196 - UR SPECIAL mArgStack IZ false;
197 - UR SPECIAL mInPre IZ false;
198 - UR SPECIAL mLinkHolders IZ new LinkHolderArray( $this );
199 - UR SPECIAL mLinkID IZ 0;
200 - UR SPECIAL mRevisionTimestamp IZ $this->mRevisionId = null;
201 - UR SPECIAL mVarCache IZ EMPTY;
202 -
203 - DO NOT WANT
204 - NOT WANT Prefix for temporary replacement strings for the multipass parser.
205 - NOT WANT \x07 should never appear in input as it's disallowed in XML.
206 - NOT WANT Using it at the front also gives us a little extra robustness
207 - NOT WANT since it shouldn't match when butted up against identifier-like
208 - NOT WANT string constructs.
209 - NOT WANT
210 - NOT WANT Must not consist of all title characters, or else it will change
211 - NOT WANT the behaviour of <nowiki> in a link.
212 - WANT
213 - BTW $this->mUniqPrefix = "\x07UNIQ" . Parser::getRandomString();
214 - BTW Changed to \x7f to allow XML double-parsing -- TS
215 - UR SPECIAL mUniqPrefix IZ "\x7fUNIQ" . self::getRandomString();
216 -
217 -
218 - BTW Clear these on every parse, bug 4549
219 - UR SPECIAL mTplExpandCache IZ $this->mTplRedirCache = $this->mTplDomCache = array();
220 -
221 - UR SPECIAL mShowToc IZ true;
222 - UR SPECIAL mForceTocPosition IZ false;
223 - UR SPECIAL mIncludeSizes IZ BUCKET
224 - 'post-expand' => 0,
225 - 'arg' => 0,
226 - BUCKET
227 - UR SPECIAL mPPNodeCount IZ 0;
228 - UR SPECIAL mDefaultSort IZ false;
229 - UR SPECIAL mHeadings IZ EMPTY;
230 - UR SPECIAL mDoubleUnderscores IZ EMPTY;
231 - UR SPECIAL mExpensiveFunctionCount IZ 0;
232 -
233 - BTW Fix cloning
234 - IZ isset( $this->mPreprocessor ) && $this->mPreprocessor->parser !== $this
235 - UR SPECIAL mPreprocessor IZ null;
236 - KTHX
237 -
238 - IM ON UR wfRunHooks DOING 'ParserClearState', array( &$this )
239 - IM ON UR wfProfileOut DOING __METHOD__
240 - KTHX
241 -
242 - SO IM LIKE setOutputType WITH UR $ot
243 - UR SPECIAL mOutputType IZ $ot;
244 - BTW Shortcut alias
245 - UR SPECIAL ot IZ BUCKET
246 - 'html' => $ot == self::OT_HTML,
247 - 'wiki' => $ot == self::OT_WIKI,
248 - 'pre' => $ot == self::OT_PREPROCESS,
249 - 'plain' => $ot == self::OT_PLAIN,
250 - BUCKET
251 - KTHX
252 -
253 - DO NOT WANT
254 - NOT WANT Set the context title
255 - WANT
256 - SO IM LIKE setTitle WITH UR $t
257 - IZ !$t || $t instanceof FakeTitle
258 - I HAS t IZ Title::newFromText( 'NO TITLE' )
259 - KTHX
260 -
261 - IZ strval( $t->getFragment() ) !== ''
262 - BTW Strip the fragment to avoid various odd effects
263 - UR SPECIAL mTitle IZ clone $t;
264 - IM ON UR SPECIAL mTitle->setFragment DOING ''
265 - NOWAI
266 - UR SPECIAL mTitle IZ $t;
267 - KTHX
268 - KTHX
269 -
270 - DO NOT WANT
271 - NOT WANT Accessor for mUniqPrefix.
272 - NOT WANT
273 - NOT WANT @public
274 - WANT
275 - SO IM LIKE uniqPrefix
276 - IZ !isset( $this->mUniqPrefix )
277 - BTW @todo Fixme: this is probably *horribly wrong*
278 - BTW LanguageConverter seems to want $wgParser's uniqPrefix, however
279 - BTW if this is called for a parser cache hit, the parser may not
280 - BTW have ever been initialized in the first place.
281 - BTW Not really sure what the heck is supposed to be going on here.
282 - I FOUND MAH ''
283 - BTW throw new MWException( "Accessing uninitialized mUniqPrefix" );
284 - KTHX
285 - I FOUND MAH $this->mUniqPrefix
286 - KTHX
287 -
288 - DO NOT WANT
289 - NOT WANT Convert wikitext to HTML
290 - NOT WANT Do not call this function recursively.
291 - NOT WANT
292 - NOT WANT @param $text String: text we want to parse
293 - NOT WANT @param $title A title object
294 - NOT WANT @param $options ParserOptions
295 - NOT WANT @param $linestart boolean
296 - NOT WANT @param $clearState boolean
297 - NOT WANT @param $revid Int: number to pass in {{REVISIONID}}
298 - NOT WANT @return ParserOutput a ParserOutput
299 - WANT
300 - SO IM LIKE parse WITH UR $text, Title $title, ParserOptions $options, $linestart = true, $clearState = true, $revid = null
301 - DO NOT WANT
302 - NOT WANT First pass--just handle <nowiki> sections, pass the rest off
303 - NOT WANT to internalParse() which does all the real work.
304 - WANT
305 -
306 - I HAS UR $wgUseTidy, $wgAlwaysUseTidy, $wgContLang, $wgDisableLangConversion ON UR INTERNETS
307 - I HAS fname IZ __METHOD__.'-' . wfGetCaller()
308 - IM ON UR wfProfileIn DOING __METHOD__
309 - IM ON UR wfProfileIn DOING $fname
310 -
311 - IZ $clearState
312 - IM ON UR SPECIAL clearState
313 - KTHX
314 -
315 - UR SPECIAL mOptions IZ $options;
316 - IM ON UR SPECIAL setTitle DOING $title # Page title has to be set for the pre-processor
317 -
318 - I HAS oldRevisionId IZ $this->mRevisionId
319 - I HAS oldRevisionTimestamp IZ $this->mRevisionTimestamp
320 - IZ $revid !== null
321 - UR SPECIAL mRevisionId IZ $revid;
322 - UR SPECIAL mRevisionTimestamp IZ null;
323 - KTHX
324 - IM ON UR SPECIAL setOutputType DOING self::OT_HTML
325 - IM ON UR wfRunHooks DOING 'ParserBeforeStrip', array( &$this, &$text, &$this->mStripState )
326 - BTW No more strip!
327 - IM ON UR wfRunHooks DOING 'ParserAfterStrip', array( &$this, &$text, &$this->mStripState )
328 - I HAS text IZ $this->internalParse( $text )
329 -
330 - I HAS text IZ $this->mStripState->unstripGeneral( $text )
331 -
332 - BTW Clean up special characters, only run once, next-to-last before doBlockLevels
333 - I HAS fixtags IZ BUCKET
334 - BTW french spaces, last one Guillemet-left
335 - BTW only if there is something before the space
336 - '/(.) (?=\\?|:|;|!|%|\\302\\273)/' => '\\1&nbsp;\\2',
337 - BTW french spaces, Guillemet-right
338 - '/(\\302\\253) /' => '\\1&nbsp;',
339 - '/&nbsp;(!\s*important)/' => ' \\1', # Beware of CSS magic word !important, bug #11874.
340 - BUCKET
341 - I HAS text IZ preg_replace( array_keys( $fixtags ), array_values( $fixtags ), $text )
342 -
343 - I HAS text IZ $this->doBlockLevels( $text, $linestart )
344 -
345 - IM ON UR SPECIAL replaceLinkHolders DOING $text
346 -
347 - BTW The position of the convert() call should not be changed. it
348 - BTW assumes that the links are all replaced and the only thing left
349 - BTW is the <nowiki> mark.
350 - if ( !( $wgDisableLangConversion
351 - || isset( $this->mDoubleUnderscores['nocontentconvert'] )
352 - || $this->mTitle->isTalkPage()
353 - || $this->mTitle->isConversionTable() ) ) {
354 - I HAS text IZ $wgContLang->convert( $text )
355 - KTHX
356 -
357 - BTW A title may have been set in a conversion rule.
358 - BTW Note that if a user tries to set a title in a conversion
359 - BTW rule but content conversion was not done, then the parser
360 - BTW won't pick it up. This is probably expected behavior.
361 - IZ $wgContLang->getConvRuleTitle()
362 - IM ON UR SPECIAL mOutput->setTitleText DOING $wgContLang->getConvRuleTitle()
363 - KTHX
364 -
365 - I HAS text IZ $this->mStripState->unstripNoWiki( $text )
366 -
367 - IM ON UR wfRunHooks DOING 'ParserBeforeTidy', array( &$this, &$text )
368 -
369 -//!JF Move to its own function
370 -
371 - I HAS uniq_prefix IZ $this->mUniqPrefix
372 - I HAS matches IZ EMPTY
373 - I HAS elements IZ array_keys( $this->mTransparentTagHooks )
374 - I HAS text IZ self::extractTagsAndParams( $elements, $text, $matches, $uniq_prefix )
375 -
376 - IM IN UR matches ITZA marker => $data
377 - list( $element, $content, $params, $tag ) = $data;
378 - I HAS tagName IZ strtolower( $element )
379 - IZ isset( $this->mTransparentTagHooks[$tagName] )
380 - I HAS output IZ call_user_func_array( $this->mTransparentTagHooks[$tagName], array( $content, $params, $this ) )
381 - NOWAI
382 - I HAS output IZ $tag
383 - KTHX
384 - IM ON UR SPECIAL mStripState->general->setPair DOING $marker, $output
385 - KTHX
386 - I HAS text IZ $this->mStripState->unstripGeneral( $text )
387 -
388 - I HAS text IZ Sanitizer::normalizeCharReferences( $text )
389 -
390 - IZ ( $wgUseTidy && $this->mOptions->mTidy ) || $wgAlwaysUseTidy
391 - I HAS text IZ MWTidy::tidy( $text )
392 - NOWAI
393 - BTW attempt to sanitize at least some nesting problems
394 - BTW (bug #2702 and quite a few others)
395 - I HAS tidyregs IZ BUCKET
396 - BTW ''Something [http://www.cool.com cool''] -->
397 - BTW <i>Something</i><a href="http://www.cool.com"..><i>cool></i></a>
398 - '/(<([bi])>)(<([bi])>)?([^<]*)(<\/?a[^<]*>)([^<]*)(<\/\\4>)?(<\/\\2>)/' =>
399 - '\\1\\3\\5\\8\\9\\6\\1\\3\\7\\8\\9',
400 - BTW fix up an anchor inside another anchor, only
401 - BTW at least for a single single nested link (bug 3695)
402 - '/(<a[^>]+>)([^<]*)(<a[^>]+>[^<]*)<\/a>(.*)<\/a>/' =>
403 - '\\1\\2</a>\\3</a>\\1\\4</a>',
404 - BTW fix div inside inline elements- doBlockLevels won't wrap a line which
405 - BTW contains a div, so fix it up here; replace
406 - BTW div with escaped text
407 - '/(<([aib]) [^>]+>)([^<]*)(<div([^>]*)>)(.*)(<\/div>)([^<]*)(<\/\\2>)/' =>
408 - '\\1\\3&lt;div\\5&gt;\\6&lt;/div&gt;\\8\\9',
409 - BTW remove empty italic or bold tag pairs, some
410 - BTW introduced by rules above
411 - '/<([bi])><\/\\1>/' => '',
412 - BUCKET
413 -
414 - text IZ preg_replace(
415 - array_keys( $tidyregs ),
416 - array_values( $tidyregs ),
417 - $text );
418 - KTHX
419 - I HAS UR $wgExpensiveParserFunctionLimit ON UR INTERNETS
420 - IZ $this->mExpensiveFunctionCount > $wgExpensiveParserFunctionLimit
421 - IM ON UR SPECIAL limitationWarn DOING 'expensive-parserfunction', $this->mExpensiveFunctionCount, $wgExpensiveParserFunctionLimit
422 - KTHX
423 -
424 - IM ON UR wfRunHooks DOING 'ParserAfterTidy', array( &$this, &$text )
425 -
426 - BTW Information on include size limits, for the benefit of users who try to skirt them
427 - IZ $this->mOptions->getEnableLimitReport()
428 - I HAS max IZ $this->mOptions->getMaxIncludeSize()
429 - I HAS PFreport IZ "Expensive parser function count: {$this->mExpensiveFunctionCount}/$wgExpensiveParserFunctionLimit\n"
430 - $limitReport =
431 - "NewPP limit report\n" .
432 - "Preprocessor node count: {$this->mPPNodeCount}/{$this->mOptions->mMaxPPNodeCount}\n" .
433 - "Post-expand include size: {$this->mIncludeSizes['post-expand']}/$max bytes\n" .
434 - "Template argument size: {$this->mIncludeSizes['arg']}/$max bytes\n".
435 - I HAS PFreport
436 - IM ON UR wfRunHooks DOING 'ParserLimitReport', array( $this, &$limitReport )
437 - text HAS MOAR "\n<!-- \n$limitReport-->\n";
438 - KTHX
439 - IM ON UR SPECIAL mOutput->setText DOING $text
440 -
441 - UR SPECIAL mRevisionId IZ $oldRevisionId;
442 - UR SPECIAL mRevisionTimestamp IZ $oldRevisionTimestamp;
443 - IM ON UR wfProfileOut DOING $fname
444 - IM ON UR wfProfileOut DOING __METHOD__
445 -
446 - I FOUND MAH $this->mOutput
447 - KTHX
448 -
449 - DO NOT WANT
450 - NOT WANT Recursive parser entry point that can be called from an extension tag
451 - NOT WANT hook.
452 - NOT WANT
453 - NOT WANT If $frame is not provided, then template variables (e.g., {{{1}}}) within $text are not expanded
454 - NOT WANT
455 - NOT WANT @param $text String: text extension wants to have parsed
456 - NOT WANT @param PPFrame $frame: The frame to use for expanding any template variables
457 - WANT
458 - SO IM LIKE recursiveTagParse WITH UR $text, $frame=false
459 - IM ON UR wfProfileIn DOING __METHOD__
460 - IM ON UR wfRunHooks DOING 'ParserBeforeStrip', array( &$this, &$text, &$this->mStripState )
461 - IM ON UR wfRunHooks DOING 'ParserAfterStrip', array( &$this, &$text, &$this->mStripState )
462 - I HAS text IZ $this->internalParse( $text, false, $frame )
463 - IM ON UR wfProfileOut DOING __METHOD__
464 - I FOUND MAH $text
465 - KTHX
466 -
467 - DO NOT WANT
468 - NOT WANT Expand templates and variables in the text, producing valid, static wikitext.
469 - NOT WANT Also removes comments.
470 - WANT
471 - SO IM LIKE preprocess WITH UR $text, $title, $options, $revid = null
472 - IM ON UR wfProfileIn DOING __METHOD__
473 - IM ON UR SPECIAL clearState
474 - IM ON UR SPECIAL setOutputType DOING self::OT_PREPROCESS
475 - UR SPECIAL mOptions IZ $options;
476 - IM ON UR SPECIAL setTitle DOING $title
477 - IZ $revid !== null
478 - UR SPECIAL mRevisionId IZ $revid;
479 - KTHX
480 - IM ON UR wfRunHooks DOING 'ParserBeforeStrip', array( &$this, &$text, &$this->mStripState )
481 - IM ON UR wfRunHooks DOING 'ParserAfterStrip', array( &$this, &$text, &$this->mStripState )
482 - I HAS text IZ $this->replaceVariables( $text )
483 - I HAS text IZ $this->mStripState->unstripBoth( $text )
484 - IM ON UR wfProfileOut DOING __METHOD__
485 - I FOUND MAH $text
486 - KTHX
487 -
488 - DO NOT WANT
489 - NOT WANT Process the wikitext for the ?preload= feature. (bug 5210)
490 - NOT WANT
491 - NOT WANT <noinclude>, <includeonly> etc. are parsed as for template transclusion,
492 - NOT WANT comments, templates, arguments, tags hooks and parser functions are untouched.
493 - WANT
494 - SO IM LIKE getPreloadText WITH UR $text, $title, $options
495 - BTW Parser (re)initialisation
496 - IM ON UR SPECIAL clearState
497 - IM ON UR SPECIAL setOutputType DOING self::OT_PLAIN
498 - UR SPECIAL mOptions IZ $options;
499 - IM ON UR SPECIAL setTitle DOING $title
500 -
501 - I HAS flags IZ PPFrame::NO_ARGS | PPFrame::NO_TEMPLATES
502 - I HAS dom IZ $this->preprocessToDom( $text, self::PTD_FOR_INCLUSION )
503 - I FOUND MAH $this->getPreprocessor()->newFrame()->expand( $dom, $flags )
504 - KTHX
505 -
506 - DO NOT WANT
507 - NOT WANT Get a random string
508 - NOT WANT
509 - NOT WANT @private
510 - NOT WANT @static
511 - WANT
512 - SO IM LIKE getRandomString
513 - I FOUND MAH dechex( mt_rand( 0, 0x7fffffff ) ) . dechex( mt_rand( 0, 0x7fffffff ) )
514 - KTHX
515 -
516 - function &getTitle() { return $this->mTitle; }
517 - SO IM LIKE getOptions TESTING UR return $this->mOptions;
518 - SO IM LIKE getRevisionId TESTING UR return $this->mRevisionId;
519 - SO IM LIKE getOutput TESTING UR return $this->mOutput;
520 - SO IM LIKE nextLinkID TESTING UR return $this->mLinkID++;
521 -
522 - SO IM LIKE getFunctionLang
523 - I HAS UR $wgLang, $wgContLang ON UR INTERNETS
524 -
525 - I HAS target IZ $this->mOptions->getTargetLanguage()
526 - IZ $target !== null
527 - I FOUND MAH $target
528 - NOWAI
529 - I FOUND MAH $this->mOptions->getInterfaceMessage() ? $wgLang : $wgContLang
530 - KTHX
531 - KTHX
532 -
533 - DO NOT WANT
534 - NOT WANT Get a preprocessor object
535 - WANT
536 - SO IM LIKE getPreprocessor
537 - IZ !isset( $this->mPreprocessor )
538 - I HAS class IZ $this->mPreprocessorClass
539 - UR SPECIAL mPreprocessor IZ new $class( $this );
540 - KTHX
541 - I FOUND MAH $this->mPreprocessor
542 - KTHX
543 -
544 - DO NOT WANT
545 - NOT WANT Replaces all occurrences of HTML-style comments and the given tags
546 - NOT WANT in the text with a random marker and returns the next text. The output
547 - NOT WANT parameter $matches will be an associative array filled with data in
548 - NOT WANT the form:
549 - NOT WANT 'UNIQ-xxxxx' => array(
550 - NOT WANT 'element',
551 - NOT WANT 'tag content',
552 - NOT WANT array( 'param' => 'x' ),
553 - NOT WANT '<element param="x">tag content</element>' ) )
554 - NOT WANT
555 - NOT WANT @param $elements list of element names. Comments are always extracted.
556 - NOT WANT @param $text Source text string.
557 - NOT WANT @param $uniq_prefix
558 - NOT WANT
559 - NOT WANT @public
560 - NOT WANT @static
561 - WANT
562 - SO IM LIKE extractTagsAndParams WITH UR $elements, $text, &$matches, $uniq_prefix = ''
563 - static $n = 1;
564 - I HAS stripped IZ ''
565 - I HAS matches IZ EMPTY
566 -
567 - I HAS taglist IZ implode( '|', $elements )
568 - I HAS start IZ "/<($taglist)(\\s+[^>]*?|\\s*?)(\/?" . ">)|<(!--)/i"
569 -
570 - STEALIN UR $text != ''
571 - I HAS p IZ preg_split( $start, $text, 2, PREG_SPLIT_DELIM_CAPTURE )
572 - stripped HAS MOAR $p[0];
573 - IZ count( $p ) < 5
574 - break;
575 - KTHX
576 - IZ count( $p ) > 5
577 - BTW comment
578 - I HAS element IZ $p[4]
579 - I HAS attributes IZ ''
580 - I HAS close IZ ''
581 - I HAS inside IZ $p[5]
582 - NOWAI
583 - BTW tag
584 - I HAS element IZ $p[1]
585 - I HAS attributes IZ $p[2]
586 - I HAS close IZ $p[3]
587 - I HAS inside IZ $p[4]
588 - KTHX
589 -
590 - I HAS marker IZ "$uniq_prefix-$element-" . sprintf( '%08X', $n++ ) . self::MARKER_SUFFIX
591 - stripped HAS MOAR $marker;
592 -
593 - IZ $close === '/>'
594 - BTW Empty element tag, <tag />
595 - I HAS content
596 - I HAS text IZ $inside
597 - I HAS tail
598 - NOWAI
599 - IZ $element === '!--'
600 - I HAS end IZ '/(-->)/'
601 - NOWAI
602 - I HAS end IZ "/(<\\/$element\\s*>)/i"
603 - KTHX
604 - I HAS q IZ preg_split( $end, $inside, 2, PREG_SPLIT_DELIM_CAPTURE )
605 - I HAS content IZ $q[0]
606 - IZ count( $q ) < 3
607 - BTW No end tag -- let it run out to the end of the text.
608 - I HAS tail IZ ''
609 - I HAS text IZ ''
610 - NOWAI
611 - I HAS tail IZ $q[1]
612 - I HAS text IZ $q[2]
613 - KTHX
614 - KTHX
615 -
616 - $matches[$marker] = array( $element,
617 - $content,
618 - Sanitizer::decodeTagAttributes( $attributes ),
619 - "<$element$attributes$close$content$tail" );
620 - KTHX
621 - I FOUND MAH $stripped
622 - KTHX
623 -
624 - DO NOT WANT
625 - NOT WANT Get a list of strippable XML-like elements
626 - WANT
627 - SO IM LIKE getStripList
628 - I FOUND MAH $this->mStripList
629 - KTHX
630 -
631 - DO NOT WANT
632 - NOT WANT @deprecated use replaceVariables
633 - WANT
634 - SO IM LIKE strip WITH UR $text, $state, $stripcomments = false , $dontstrip = array()
635 - I FOUND MAH $text
636 - KTHX
637 -
638 - DO NOT WANT
639 - NOT WANT Restores pre, math, and other extensions removed by strip()
640 - NOT WANT
641 - NOT WANT always call unstripNoWiki() after this one
642 - NOT WANT @private
643 - NOT WANT @deprecated use $this->mStripState->unstrip()
644 - WANT
645 - SO IM LIKE unstrip WITH UR $text, $state
646 - I FOUND MAH $state->unstripGeneral( $text )
647 - KTHX
648 -
649 - DO NOT WANT
650 - NOT WANT Always call this after unstrip() to preserve the order
651 - NOT WANT
652 - NOT WANT @private
653 - NOT WANT @deprecated use $this->mStripState->unstrip()
654 - WANT
655 - SO IM LIKE unstripNoWiki WITH UR $text, $state
656 - I FOUND MAH $state->unstripNoWiki( $text )
657 - KTHX
658 -
659 - DO NOT WANT
660 - NOT WANT @deprecated use $this->mStripState->unstripBoth()
661 - WANT
662 - SO IM LIKE unstripForHTML WITH UR $text
663 - I FOUND MAH $this->mStripState->unstripBoth( $text )
664 - KTHX
665 -
666 - DO NOT WANT
667 - NOT WANT Add an item to the strip state
668 - NOT WANT Returns the unique tag which must be inserted into the stripped text
669 - NOT WANT The tag will be replaced with the original text in unstrip()
670 - NOT WANT
671 - NOT WANT @private
672 - WANT
673 - SO IM LIKE insertStripItem WITH UR $text
674 - I HAS rnd IZ "{$this->mUniqPrefix}-item-{$this->mMarkerIndex}-" . self::MARKER_SUFFIX
675 - $this->mMarkerIndex++;
676 - IM ON UR SPECIAL mStripState->general->setPair DOING $rnd, $text
677 - I FOUND MAH $rnd
678 - KTHX
679 -
680 - DO NOT WANT
681 - NOT WANT Interface with html tidy
682 - NOT WANT @deprecated Use MWTidy::tidy()
683 - WANT
684 - SO IM ALWAYS LIKE tidy WITH UR $text
685 - IM ON UR wfDeprecated DOING __METHOD__
686 - I FOUND MAH MWTidy::tidy( $text )
687 - KTHX
688 -
689 - DO NOT WANT
690 - NOT WANT parse the wiki syntax used to render tables
691 - NOT WANT
692 - NOT WANT @private
693 - WANT
694 - SO IM LIKE doTableStuff WITH UR $text
695 - IM ON UR wfProfileIn DOING __METHOD__
696 -
697 - I HAS lines IZ StringUtils::explode( "\n", $text )
698 - I HAS out IZ ''
699 - I HAS td_history IZ EMPTY # Is currently a td tag open?
700 - I HAS last_tag_history IZ EMPTY # Save history of last lag activated (td, th or caption)
701 - I HAS tr_history IZ EMPTY # Is currently a tr tag open?
702 - I HAS tr_attributes IZ EMPTY # history of tr attributes
703 - I HAS has_opened_tr IZ EMPTY # Did this table open a <tr> element?
704 - I HAS indent_level IZ 0 # indent level of the table
705 -
706 - IM IN UR lines ITZA outLine
707 - I HAS line IZ trim( $outLine )
708 -
709 - IZ $line == '' # empty line, go to next line
710 - out HAS MOAR $outLine."\n";
711 - continue;
712 - KTHX
713 - I HAS first_character IZ $line[0]
714 - I HAS matches IZ EMPTY
715 -
716 - IZ preg_match( '/^(:*)\{\|(.*)$/', $line , $matches )
717 - BTW First check if we are starting a new table
718 - I HAS indent_level IZ strlen( $matches[1] )
719 -
720 - I HAS attributes IZ $this->mStripState->unstripBoth( $matches[2] )
721 - I HAS attributes IZ Sanitizer::fixTagAttributes( $attributes , 'table' )
722 -
723 - I HAS outLine IZ str_repeat( '<dl><dd>' , $indent_level ) . "<table{$attributes}>"
724 - IM ON UR array_push DOING $td_history , false
725 - IM ON UR array_push DOING $last_tag_history , ''
726 - IM ON UR array_push DOING $tr_history , false
727 - IM ON UR array_push DOING $tr_attributes , ''
728 - IM ON UR array_push DOING $has_opened_tr , false
729 - ORLY count( $td_history ) == 0
730 - BTW Don't do any of the following
731 - out HAS MOAR $outLine."\n";
732 - continue;
733 - ORLY substr( $line , 0 , 2 ) === '|}'
734 - BTW We are ending a table
735 - I HAS line IZ '</table>' . substr( $line , 2 )
736 - I HAS last_tag IZ array_pop( $last_tag_history )
737 -
738 - IZ !array_pop( $has_opened_tr )
739 - I HAS line IZ "<tr><td></td></tr>{$line}"
740 - KTHX
741 -
742 - IZ array_pop( $tr_history )
743 - I HAS line IZ "</tr>{$line}"
744 - KTHX
745 -
746 - IZ array_pop( $td_history )
747 - I HAS line IZ "</{$last_tag}>{$line}"
748 - KTHX
749 - IM ON UR array_pop DOING $tr_attributes
750 - I HAS outLine IZ $line . str_repeat( '</dd></dl>' , $indent_level )
751 - ORLY substr( $line , 0 , 2 ) === '|-'
752 - BTW Now we have a table row
753 - I HAS line IZ preg_replace( '#^\|-+#', '', $line )
754 -
755 - BTW Whats after the tag is now only attributes
756 - I HAS attributes IZ $this->mStripState->unstripBoth( $line )
757 - I HAS attributes IZ Sanitizer::fixTagAttributes( $attributes, 'tr' )
758 - IM ON UR array_pop DOING $tr_attributes
759 - IM ON UR array_push DOING $tr_attributes, $attributes
760 -
761 - I HAS line IZ ''
762 - I HAS last_tag IZ array_pop( $last_tag_history )
763 - IM ON UR array_pop DOING $has_opened_tr
764 - IM ON UR array_push DOING $has_opened_tr , true
765 -
766 - IZ array_pop( $tr_history )
767 - I HAS line IZ '</tr>'
768 - KTHX
769 -
770 - IZ array_pop( $td_history )
771 - I HAS line IZ "</{$last_tag}>{$line}"
772 - KTHX
773 -
774 - I HAS outLine IZ $line
775 - IM ON UR array_push DOING $tr_history , false
776 - IM ON UR array_push DOING $td_history , false
777 - IM ON UR array_push DOING $last_tag_history , ''
778 - ORLY $first_character === '|' || $first_character === '!' || substr( $line , 0 , 2 ) === '|+'
779 - BTW This might be cell elements, td, th or captions
780 - IZ substr( $line , 0 , 2 ) === '|+'
781 - I HAS first_character IZ '+'
782 - I HAS line IZ substr( $line , 1 )
783 - KTHX
784 -
785 - I HAS line IZ substr( $line , 1 )
786 -
787 - IZ $first_character === '!'
788 - I HAS line IZ str_replace( '!!' , '||' , $line )
789 - KTHX
790 -
791 - BTW Split up multiple cells on the same line.
792 - BTW FIXME : This can result in improper nesting of tags processed
793 - BTW by earlier parser steps, but should avoid splitting up eg
794 - BTW attribute values containing literal "||".
795 - I HAS cells IZ StringUtils::explodeMarkup( '||' , $line )
796 -
797 - I HAS outLine IZ ''
798 -
799 - BTW Loop through each table cell
800 - IM IN UR cells ITZA cell
801 - I HAS previous IZ ''
802 - IZ $first_character !== '+'
803 - I HAS tr_after IZ array_pop( $tr_attributes )
804 - IZ !array_pop( $tr_history )
805 - I HAS previous IZ "<tr{$tr_after}>\n"
806 - KTHX
807 - IM ON UR array_push DOING $tr_history , true
808 - IM ON UR array_push DOING $tr_attributes , ''
809 - IM ON UR array_pop DOING $has_opened_tr
810 - IM ON UR array_push DOING $has_opened_tr , true
811 - KTHX
812 -
813 - I HAS last_tag IZ array_pop( $last_tag_history )
814 -
815 - IZ array_pop( $td_history )
816 - I HAS previous IZ "</{$last_tag}>{$previous}"
817 - KTHX
818 -
819 - IZ $first_character === '|'
820 - I HAS last_tag IZ 'td'
821 - ORLY $first_character === '!'
822 - I HAS last_tag IZ 'th'
823 - ORLY $first_character === '+'
824 - I HAS last_tag IZ 'caption'
825 - NOWAI
826 - I HAS last_tag IZ ''
827 - KTHX
828 -
829 - IM ON UR array_push DOING $last_tag_history , $last_tag
830 -
831 - BTW A cell could contain both parameters and data
832 - I HAS cell_data IZ explode( '|' , $cell , 2 )
833 -
834 - BTW Bug 553: Note that a '|' inside an invalid link should not
835 - BTW be mistaken as delimiting cell parameters
836 - IZ strpos( $cell_data[0], '[[' ) !== false
837 - I HAS cell IZ "{$previous}<{$last_tag}>{$cell}"
838 - ORLY count( $cell_data ) == 1
839 - I HAS cell IZ "{$previous}<{$last_tag}>{$cell_data[0]}"
840 - NOWAI
841 - I HAS attributes IZ $this->mStripState->unstripBoth( $cell_data[0] )
842 - I HAS attributes IZ Sanitizer::fixTagAttributes( $attributes , $last_tag )
843 - I HAS cell IZ "{$previous}<{$last_tag}{$attributes}>{$cell_data[1]}"
844 - KTHX
845 -
846 - outLine HAS MOAR $cell;
847 - IM ON UR array_push DOING $td_history , true
848 - KTHX
849 - KTHX
850 - out HAS MOAR $outLine . "\n";
851 - KTHX
852 -
853 - BTW Closing open td, tr && table
854 - STEALIN UR count( $td_history ) > 0
855 - IZ array_pop( $td_history )
856 - out HAS MOAR "</td>\n";
857 - KTHX
858 - IZ array_pop( $tr_history )
859 - out HAS MOAR "</tr>\n";
860 - KTHX
861 - IZ !array_pop( $has_opened_tr )
862 - out HAS MOAR "<tr><td></td></tr>\n" ;
863 - KTHX
864 -
865 - out HAS MOAR "</table>\n";
866 - KTHX
867 -
868 - BTW Remove trailing line-ending (b/c)
869 - IZ substr( $out, -1 ) === "\n"
870 - I HAS out IZ substr( $out, 0, -1 )
871 - KTHX
872 -
873 - BTW special case: don't return empty table
874 - IZ $out === "<table>\n<tr><td></td></tr>\n</table>"
875 - I HAS out IZ ''
876 - KTHX
877 -
878 - IM ON UR wfProfileOut DOING __METHOD__
879 -
880 - I FOUND MAH $out
881 - KTHX
882 -
883 - DO NOT WANT
884 - NOT WANT Helper function for parse() that transforms wiki markup into
885 - NOT WANT HTML. Only called for $mOutputType == self::OT_HTML.
886 - NOT WANT
887 - NOT WANT @private
888 - WANT
889 - SO IM LIKE internalParse WITH UR $text, $isMain = true, $frame=false
890 - IM ON UR wfProfileIn DOING __METHOD__
891 -
892 - I HAS origText IZ $text
893 -
894 - BTW Hook to suspend the parser in this state
895 - IZ !wfRunHooks( 'ParserBeforeInternalParse', array( &$this, &$text, &$this->mStripState ) )
896 - IM ON UR wfProfileOut DOING __METHOD__
897 - I FOUND MAH $text
898 - KTHX
899 -
900 - BTW if $frame is provided, then use $frame for replacing any variables
901 - IZ $frame
902 - BTW use frame depth to infer how include/noinclude tags should be handled
903 - BTW depth=0 means this is the top-level document; otherwise it's an included document
904 - IZ !$frame->depth
905 - I HAS flag IZ 0
906 - NOWAI
907 - I HAS flag IZ Parser::PTD_FOR_INCLUSION
908 - I HAS dom IZ $this->preprocessToDom( $text, $flag )
909 - I HAS text IZ $frame->expand( $dom )
910 - KTHX
911 - NOWAI
912 - BTW if $frame is not provided, then use old-style replaceVariables
913 - I HAS text IZ $this->replaceVariables( $text )
914 - KTHX
915 -
916 - I HAS text IZ Sanitizer::removeHTMLtags( $text, array( &$this, 'attributeStripCallback' ), false, array_keys( $this->mTransparentTagHooks ) )
917 - IM ON UR wfRunHooks DOING 'InternalParseBeforeLinks', array( &$this, &$text, &$this->mStripState )
918 -
919 - BTW Tables need to come after variable replacement for things to work
920 - BTW properly; putting them before other transformations should keep
921 - BTW exciting things like link expansions from showing up in surprising
922 - BTW places.
923 - I HAS text IZ $this->doTableStuff( $text )
924 -
925 - I HAS text IZ preg_replace( '/(^|\n)-----*/', '\\1<hr />', $text )
926 -
927 - I HAS text IZ $this->doDoubleUnderscore( $text )
928 -
929 - I HAS text IZ $this->doHeadings( $text )
930 - IZ $this->mOptions->getUseDynamicDates()
931 - I HAS df IZ DateFormatter::getInstance()
932 - I HAS text IZ $df->reformat( $this->mOptions->getDateFormat(), $text )
933 - KTHX
934 - I HAS text IZ $this->doAllQuotes( $text )
935 - I HAS text IZ $this->replaceInternalLinks( $text )
936 - I HAS text IZ $this->replaceExternalLinks( $text )
937 -
938 - BTW replaceInternalLinks may sometimes leave behind
939 - BTW absolute URLs, which have to be masked to hide them from replaceExternalLinks
940 - I HAS text IZ str_replace( $this->mUniqPrefix.'NOPARSE', '', $text )
941 -
942 - I HAS text IZ $this->doMagicLinks( $text )
943 - I HAS text IZ $this->formatHeadings( $text, $origText, $isMain )
944 -
945 - IM ON UR wfProfileOut DOING __METHOD__
946 - I FOUND MAH $text
947 - KTHX
948 -
949 - DO NOT WANT
950 - NOT WANT Replace special strings like "ISBN xxx" and "RFC xxx" with
951 - NOT WANT magic external links.
952 - NOT WANT
953 - NOT WANT DML
954 - NOT WANT @private
955 - WANT
956 - SO IM LIKE doMagicLinks WITH UR $text
957 - IM ON UR wfProfileIn DOING __METHOD__
958 - I HAS prots IZ $this->mUrlProtocols
959 - I HAS urlChar IZ self::EXT_LINK_URL_CLASS
960 - text IZ preg_replace_callback(
961 - '!(?: # Start cases
962 - (<a[ \t\r\n>].*?</a>) | # m[1]: Skip link text
963 - (<.*?>) | # m[2]: Skip stuff inside HTML elements' . "
964 - (\\b(?:$prots)$urlChar+) | # m[3]: Free external links" . '
965 - (?:RFC|PMID)\s+([0-9]+) | # m[4]: RFC or PMID, capture number
966 - ISBN\s+(\b # m[5]: ISBN, capture number
967 - (?: 97[89] [\ \-]? )? # optional 13-digit ISBN prefix
968 - (?: [0-9] [\ \-]? ){9} # 9 digits with opt. delimiters
969 - [0-9Xx] # check digit
970 - \b)
971 - )!x', array( &$this, 'magicLinkCallback' ), $text );
972 - IM ON UR wfProfileOut DOING __METHOD__
973 - I FOUND MAH $text
974 - KTHX
975 -
976 - SO IM LIKE magicLinkCallback WITH UR $m
977 - IZ isset( $m[1] ) && $m[1] !== ''
978 - BTW Skip anchor
979 - I FOUND MAH $m[0]
980 - ORLY isset( $m[2] ) && $m[2] !== ''
981 - BTW Skip HTML element
982 - I FOUND MAH $m[0]
983 - ORLY isset( $m[3] ) && $m[3] !== ''
984 - BTW Free external link
985 - I FOUND MAH $this->makeFreeExternalLink( $m[0] )
986 - ORLY isset( $m[4] ) && $m[4] !== ''
987 - BTW RFC or PMID
988 - I HAS CssClass IZ ''
989 - IZ substr( $m[0], 0, 3 ) === 'RFC'
990 - I HAS keyword IZ 'RFC'
991 - I HAS urlmsg IZ 'rfcurl'
992 - I HAS CssClass IZ 'mw-magiclink-rfc'
993 - I HAS id IZ $m[4]
994 - ORLY substr( $m[0], 0, 4 ) === 'PMID'
995 - I HAS keyword IZ 'PMID'
996 - I HAS urlmsg IZ 'pubmedurl'
997 - I HAS CssClass IZ 'mw-magiclink-pmid'
998 - I HAS id IZ $m[4]
999 - NOWAI
1000 - throw new MWException( __METHOD__.': unrecognised match type "' .
1001 - IM ON UR substr DOING $m[0], 0, 20 ) . '"'
1002 - KTHX
1003 - I HAS url IZ wfMsg( $urlmsg, $id)
1004 - I HAS sk IZ $this->mOptions->getSkin()
1005 - I HAS la IZ $sk->getExternalLinkAttributes( "external $CssClass" )
1006 - I FOUND MAH "<a href=\"{$url}\"{$la}>{$keyword} {$id}</a>"
1007 - ORLY isset( $m[5] ) && $m[5] !== ''
1008 - BTW ISBN
1009 - I HAS isbn IZ $m[5]
1010 - num IZ strtr( $isbn, array(
1011 - '-' => '',
1012 - ' ' => '',
1013 - 'x' => 'X',
1014 - ));
1015 - I HAS titleObj IZ SpecialPage::getTitleFor( 'Booksources', $num )
1016 - return'<a href="' .
1017 - $titleObj->escapeLocalUrl() .
1018 - "\" class=\"internal mw-magiclink-isbn\">ISBN $isbn</a>";
1019 - NOWAI
1020 - I FOUND MAH $m[0]
1021 - KTHX
1022 - KTHX
1023 -
1024 - DO NOT WANT
1025 - NOT WANT Make a free external link, given a user-supplied URL
1026 - NOT WANT @return HTML
1027 - NOT WANT @private
1028 - WANT
1029 - SO IM LIKE makeFreeExternalLink WITH UR $url
1030 - I HAS UR $wgContLang ON UR INTERNETS
1031 - IM ON UR wfProfileIn DOING __METHOD__
1032 -
1033 - I HAS sk IZ $this->mOptions->getSkin()
1034 - I HAS trail IZ ''
1035 -
1036 - BTW The characters '<' and '>' (which were escaped by
1037 - BTW removeHTMLtags()) should not be included in
1038 - BTW URLs, per RFC 2396.
1039 - I HAS m2 IZ EMPTY
1040 - IZ preg_match( '/&(lt|gt);/', $url, $m2, PREG_OFFSET_CAPTURE )
1041 - I HAS trail IZ substr( $url, $m2[0][1] ) . $trail
1042 - I HAS url IZ substr( $url, 0, $m2[0][1] )
1043 - KTHX
1044 -
1045 - BTW Move trailing punctuation to $trail
1046 - I HAS sep IZ ',;\.:!?'
1047 - BTW If there is no left bracket, then consider right brackets fair game too
1048 - IZ strpos( $url, '(' ) === false
1049 - sep HAS MOAR ')';
1050 - KTHX
1051 -
1052 - I HAS numSepChars IZ strspn( strrev( $url ), $sep )
1053 - IZ $numSepChars
1054 - I HAS trail IZ substr( $url, -$numSepChars ) . $trail
1055 - I HAS url IZ substr( $url, 0, -$numSepChars )
1056 - KTHX
1057 -
1058 - I HAS url IZ Sanitizer::cleanUrl( $url )
1059 -
1060 - BTW Is this an external image?
1061 - I HAS text IZ $this->maybeMakeExternalImage( $url )
1062 - IZ $text === false
1063 - BTW Not an image, make a link
1064 - text IZ $sk->makeExternalLink( $url, $wgContLang->markNoConversion($url), true, 'free',
1065 - IM ON UR SPECIAL getExternalLinkAttribs DOING $url )
1066 - BTW Register it in the output object...
1067 - BTW Replace unnecessary URL escape codes with their equivalent characters
1068 - I HAS pasteurized IZ self::replaceUnusualEscapes( $url )
1069 - IM ON UR SPECIAL mOutput->addExternalLink DOING $pasteurized
1070 - KTHX
1071 - IM ON UR wfProfileOut DOING __METHOD__
1072 - I FOUND MAH $text . $trail
1073 - KTHX
1074 -
1075 -
1076 - DO NOT WANT
1077 - NOT WANT Parse headers and return html
1078 - NOT WANT
1079 - NOT WANT @private
1080 - WANT
1081 - SO IM LIKE doHeadings WITH UR $text
1082 - IM ON UR wfProfileIn DOING __METHOD__
1083 - for ( $i = 6; $i >= 1; --$i ) {
1084 - I HAS h IZ str_repeat( '=', $i )
1085 - text IZ preg_replace( "/^$h(.+)$h\\s*$/m",
1086 - "<h$i>\\1</h$i>", $text );
1087 - KTHX
1088 - IM ON UR wfProfileOut DOING __METHOD__
1089 - I FOUND MAH $text
1090 - KTHX
1091 -
1092 - DO NOT WANT
1093 - NOT WANT Replace single quotes with HTML markup
1094 - NOT WANT @private
1095 - NOT WANT @return string the altered text
1096 - WANT
1097 - SO IM LIKE doAllQuotes WITH UR $text
1098 - IM ON UR wfProfileIn DOING __METHOD__
1099 - I HAS outtext IZ ''
1100 - I HAS lines IZ StringUtils::explode( "\n", $text )
1101 - IM IN UR lines ITZA line
1102 - outtext HAS MOAR $this->doQuotes( $line ) . "\n";
1103 - KTHX
1104 - I HAS outtext IZ substr( $outtext, 0,-1 )
1105 - IM ON UR wfProfileOut DOING __METHOD__
1106 - I FOUND MAH $outtext
1107 - KTHX
1108 -
1109 - DO NOT WANT
1110 - NOT WANT Helper function for doAllQuotes()
1111 - WANT
1112 - SO IM LIKE doQuotes WITH UR $text
1113 - I HAS arr IZ preg_split( "/(''+)/", $text, -1, PREG_SPLIT_DELIM_CAPTURE )
1114 - IZ count( $arr ) == 1
1115 - I FOUND MAH $text
1116 - NOWAI
1117 - BTW First, do some preliminary work. This may shift some apostrophes from
1118 - BTW being mark-up to being text. It also counts the number of occurrences
1119 - BTW of bold and italics mark-ups.
1120 - I HAS i IZ 0
1121 - I HAS numbold IZ 0
1122 - I HAS numitalics IZ 0
1123 - IM IN UR arr ITZA r
1124 - IZ ( $i % 2 ) == 1
1125 - BTW If there are ever four apostrophes, assume the first is supposed to
1126 - BTW be text, and the remaining three constitute mark-up for bold text.
1127 - IZ strlen( $arr[$i] ) == 4
1128 - $arr[$i-1] .= "'";
1129 - $arr[$i] = "'''";
1130 - ORLY strlen( $arr[$i] ) > 5
1131 - BTW If there are more than 5 apostrophes in a row, assume they're all
1132 - BTW text except for the last 5.
1133 - $arr[$i-1] .= str_repeat( "'", strlen( $arr[$i] ) - 5 );
1134 - $arr[$i] = "'''''";
1135 - KTHX
1136 - BTW Count the number of occurrences of bold and italics mark-ups.
1137 - BTW We are not counting sequences of five apostrophes.
1138 - IZ strlen( $arr[$i] ) == 2
1139 - $numitalics++;
1140 - ORLY strlen( $arr[$i] ) == 3
1141 - $numbold++;
1142 - ORLY strlen( $arr[$i] ) == 5
1143 - $numitalics++;
1144 - $numbold++;
1145 - KTHX
1146 - KTHX
1147 - $i++;
1148 - KTHX
1149 -
1150 - BTW If there is an odd number of both bold and italics, it is likely
1151 - BTW that one of the bold ones was meant to be an apostrophe followed
1152 - BTW by italics. Which one we cannot know for certain, but it is more
1153 - BTW likely to be one that has a single-letter word before it.
1154 - IZ ( $numbold % 2 == 1 ) && ( $numitalics % 2 == 1 )
1155 - I HAS i IZ 0
1156 - I HAS firstsingleletterword IZ -1
1157 - I HAS firstmultiletterword IZ -1
1158 - I HAS firstspace IZ -1
1159 - IM IN UR arr ITZA r
1160 - IZ ( $i % 2 == 1 ) and ( strlen( $r ) == 3 )
1161 - I HAS x1 IZ substr( $arr[$i-1], -1 )
1162 - I HAS x2 IZ substr( $arr[$i-1], -2, 1 )
1163 - IZ $x1 === ' '
1164 - IZ $firstspace == -1
1165 - I HAS firstspace IZ $i
1166 - KTHX
1167 - KTHX elseif ( $x2 === ' ') {
1168 - IZ $firstsingleletterword == -1
1169 - I HAS firstsingleletterword IZ $i
1170 - KTHX
1171 - NOWAI
1172 - IZ $firstmultiletterword == -1
1173 - I HAS firstmultiletterword IZ $i
1174 - KTHX
1175 - KTHX
1176 - KTHX
1177 - $i++;
1178 - KTHX
1179 -
1180 - BTW If there is a single-letter word, use it!
1181 - IZ $firstsingleletterword > -1
1182 - $arr[$firstsingleletterword] = "''";
1183 - $arr[$firstsingleletterword-1] .= "'";
1184 - ORLY $firstmultiletterword > -1
1185 - BTW If not, but there's a multi-letter word, use that one.
1186 - $arr[$firstmultiletterword] = "''";
1187 - $arr[$firstmultiletterword-1] .= "'";
1188 - ORLY $firstspace > -1
1189 - BTW ... otherwise use the first one that has neither.
1190 - BTW (notice that it is possible for all three to be -1 if, for example,
1191 - BTW there is only one pentuple-apostrophe in the line)
1192 - $arr[$firstspace] = "''";
1193 - $arr[$firstspace-1] .= "'";
1194 - KTHX
1195 - KTHX
1196 -
1197 - BTW Now let's actually convert our apostrophic mush to HTML!
1198 - I HAS output IZ ''
1199 - I HAS buffer IZ ''
1200 - I HAS state IZ ''
1201 - I HAS i IZ 0
1202 - IM IN UR arr ITZA r
1203 - IZ ( $i % 2 ) == 0
1204 - IZ $state === 'both'
1205 - buffer HAS MOAR $r;
1206 - NOWAI
1207 - output HAS MOAR $r;
1208 - KTHX
1209 - NOWAI
1210 - IZ strlen( $r ) == 2
1211 - IZ $state === 'i'
1212 - output HAS MOAR '</i>'; $state = '';
1213 - ORLY $state === 'bi'
1214 - output HAS MOAR '</i>'; $state = 'b';
1215 - ORLY $state === 'ib'
1216 - output HAS MOAR '</b></i><b>'; $state = 'b';
1217 - ORLY $state === 'both'
1218 - output HAS MOAR '<b><i>'.$buffer.'</i>'; $state = 'b';
1219 - NOWAI # $state can be 'b' or ''
1220 - output HAS MOAR '<i>'; $state .= 'i';
1221 - KTHX
1222 - ORLY strlen( $r ) == 3
1223 - IZ $state === 'b'
1224 - output HAS MOAR '</b>'; $state = '';
1225 - ORLY $state === 'bi'
1226 - output HAS MOAR '</i></b><i>'; $state = 'i';
1227 - ORLY $state === 'ib'
1228 - output HAS MOAR '</b>'; $state = 'i';
1229 - ORLY $state === 'both'
1230 - output HAS MOAR '<i><b>'.$buffer.'</b>'; $state = 'i';
1231 - NOWAI # $state can be 'i' or ''
1232 - output HAS MOAR '<b>'; $state .= 'b';
1233 - KTHX
1234 - ORLY strlen( $r ) == 5
1235 - IZ $state === 'b'
1236 - output HAS MOAR '</b><i>'; $state = 'i';
1237 - ORLY $state === 'i'
1238 - output HAS MOAR '</i><b>'; $state = 'b';
1239 - ORLY $state === 'bi'
1240 - output HAS MOAR '</i></b>'; $state = '';
1241 - ORLY $state === 'ib'
1242 - output HAS MOAR '</b></i>'; $state = '';
1243 - ORLY $state === 'both'
1244 - output HAS MOAR '<i><b>'.$buffer.'</b></i>'; $state = '';
1245 - NOWAI # ($state == '')
1246 - I HAS buffer IZ ''; $state = 'both'
1247 - KTHX
1248 - KTHX
1249 - KTHX
1250 - $i++;
1251 - KTHX
1252 - BTW Now close all remaining tags. Notice that the order is important.
1253 - IZ $state === 'b' || $state === 'ib'
1254 - output HAS MOAR '</b>';
1255 - KTHX
1256 - IZ $state === 'i' || $state === 'bi' || $state === 'ib'
1257 - output HAS MOAR '</i>';
1258 - KTHX
1259 - IZ $state === 'bi'
1260 - output HAS MOAR '</b>';
1261 - KTHX
1262 - BTW There might be lonely ''''', so make sure we have a buffer
1263 - IZ $state === 'both' && $buffer
1264 - output HAS MOAR '<b><i>'.$buffer.'</i></b>';
1265 - KTHX
1266 - I FOUND MAH $output
1267 - KTHX
1268 - KTHX
1269 -
1270 - DO NOT WANT
1271 - NOT WANT Replace external links (REL)
1272 - NOT WANT
1273 - NOT WANT Note: this is all very hackish and the order of execution matters a lot.
1274 - NOT WANT Make sure to run maintenance/parserTests.php if you change this code.
1275 - NOT WANT
1276 - NOT WANT @private
1277 - WANT
1278 - SO IM LIKE replaceExternalLinks WITH UR $text
1279 - I HAS UR $wgContLang ON UR INTERNETS
1280 - IM ON UR wfProfileIn DOING __METHOD__
1281 -
1282 - I HAS sk IZ $this->mOptions->getSkin()
1283 -
1284 - I HAS bits IZ preg_split( $this->mExtLinkBracketedRegex, $text, -1, PREG_SPLIT_DELIM_CAPTURE )
1285 - I HAS s IZ array_shift( $bits )
1286 -
1287 - I HAS i IZ 0
1288 - STEALIN UR $i<count( $bits )
1289 - I HAS url IZ $bits[$i++]
1290 - I HAS protocol IZ $bits[$i++]
1291 - I HAS text IZ $bits[$i++]
1292 - I HAS trail IZ $bits[$i++]
1293 -
1294 - BTW The characters '<' and '>' (which were escaped by
1295 - BTW removeHTMLtags()) should not be included in
1296 - BTW URLs, per RFC 2396.
1297 - I HAS m2 IZ EMPTY
1298 - IZ preg_match( '/&(lt|gt);/', $url, $m2, PREG_OFFSET_CAPTURE )
1299 - I HAS text IZ substr( $url, $m2[0][1] ) . ' ' . $text
1300 - I HAS url IZ substr( $url, 0, $m2[0][1] )
1301 - KTHX
1302 -
1303 - BTW If the link text is an image URL, replace it with an <img> tag
1304 - BTW This happened by accident in the original parser, but some people used it extensively
1305 - I HAS img IZ $this->maybeMakeExternalImage( $text )
1306 - IZ $img !== false
1307 - I HAS text IZ $img
1308 - KTHX
1309 -
1310 - I HAS dtrail IZ ''
1311 -
1312 - BTW Set linktype for CSS - if URL==text, link is essentially free
1313 - I HAS linktype IZ ( $text === $url ) ? 'free' : 'text'
1314 -
1315 - BTW No link text, e.g. [http://domain.tld/some.link]
1316 - IZ $text == ''
1317 - BTW Autonumber if allowed. See bug #5918
1318 - IZ strpos( wfUrlProtocols(), substr( $protocol, 0, strpos( $protocol, ':' ) ) ) !== false
1319 - I HAS langObj IZ $this->getFunctionLang()
1320 - I HAS text IZ '[' . $langObj->formatNum( ++$this->mAutonumber ) . ']'
1321 - I HAS linktype IZ 'autonumber'
1322 - NOWAI
1323 - BTW Otherwise just use the URL
1324 - I HAS text IZ htmlspecialchars( $url )
1325 - I HAS linktype IZ 'free'
1326 - KTHX
1327 - NOWAI
1328 - BTW Have link text, e.g. [http://domain.tld/some.link text]s
1329 - BTW Check for trail
1330 - IM ON UR list DOING $dtrail, $trail ) = Linker::splitTrail( $trail
1331 - KTHX
1332 -
1333 - I HAS text IZ $wgContLang->markNoConversion( $text )
1334 -
1335 - I HAS url IZ Sanitizer::cleanUrl( $url )
1336 -
1337 - BTW Use the encoded URL
1338 - BTW This means that users can paste URLs directly into the text
1339 - BTW Funny characters like &ouml; aren't valid in URLs anyway
1340 - BTW This was changed in August 2004
1341 - s HAS MOAR $sk->makeExternalLink( $url, $text, false, $linktype,
1342 - $this->getExternalLinkAttribs( $url ) ) . $dtrail . $trail;
1343 -
1344 - BTW Register link in the output object.
1345 - BTW Replace unnecessary URL escape codes with the referenced character
1346 - BTW This prevents spammers from hiding links from the filters
1347 - I HAS pasteurized IZ self::replaceUnusualEscapes( $url )
1348 - IM ON UR SPECIAL mOutput->addExternalLink DOING $pasteurized
1349 - KTHX
1350 -
1351 - IM ON UR wfProfileOut DOING __METHOD__
1352 - I FOUND MAH $s
1353 - KTHX
1354 -
1355 - DO NOT WANT
1356 - NOT WANT Get an associative array of additional HTML attributes appropriate for a
1357 - NOT WANT particular external link. This currently may include rel => nofollow
1358 - NOT WANT (depending on configuration, namespace, and the URL's domain) and/or a
1359 - NOT WANT target attribute (depending on configuration).
1360 - NOT WANT
1361 - NOT WANT @param string $url Optional URL, to extract the domain from for rel =>
1362 - NOT WANT nofollow if appropriate
1363 - NOT WANT @return array Associative array of HTML attributes
1364 - WANT
1365 - SO IM LIKE getExternalLinkAttribs WITH UR $url = false
1366 - I HAS attribs IZ EMPTY
1367 - I HAS UR $wgNoFollowLinks, $wgNoFollowNsExceptions ON UR INTERNETS
1368 - I HAS ns IZ $this->mTitle->getNamespace()
1369 - IZ $wgNoFollowLinks && !in_array( $ns, $wgNoFollowNsExceptions )
1370 - $attribs['rel'] = 'nofollow';
1371 -
1372 - I HAS UR $wgNoFollowDomainExceptions ON UR INTERNETS
1373 - IZ $wgNoFollowDomainExceptions
1374 - I HAS bits IZ wfParseUrl( $url )
1375 - IZ is_array( $bits ) && isset( $bits['host'] )
1376 - IM IN UR wgNoFollowDomainExceptions ITZA domain
1377 - IZ substr( $bits['host'], -strlen( $domain ) ) == $domain
1378 - IM ON UR unset DOING $attribs['rel']
1379 - break;
1380 - KTHX
1381 - KTHX
1382 - KTHX
1383 - KTHX
1384 - KTHX
1385 - IZ $this->mOptions->getExternalLinkTarget()
1386 - $attribs['target'] = $this->mOptions->getExternalLinkTarget();
1387 - KTHX
1388 - I FOUND MAH $attribs
1389 - KTHX
1390 -
1391 -
1392 - DO NOT WANT
1393 - NOT WANT Replace unusual URL escape codes with their equivalent characters
1394 - NOT WANT @param string
1395 - NOT WANT @return string
1396 - NOT WANT @static
1397 - NOT WANT @todo This can merge genuinely required bits in the path or query string,
1398 - NOT WANT breaking legit URLs. A proper fix would treat the various parts of
1399 - NOT WANT the URL differently; as a workaround, just use the output for
1400 - NOT WANT statistical records, not for actual linking/output.
1401 - WANT
1402 - SO IM ALWAYS LIKE replaceUnusualEscapes WITH UR $url
1403 - return preg_replace_callback( '/%[0-9A-Fa-f]{2}/',
1404 - IM ON UR array DOING __CLASS__, 'replaceUnusualEscapesCallback' ), $url
1405 - KTHX
1406 -
1407 - DO NOT WANT
1408 - NOT WANT Callback function used in replaceUnusualEscapes().
1409 - NOT WANT Replaces unusual URL escape codes with their equivalent character
1410 - NOT WANT @static
1411 - NOT WANT @private
1412 - WANT
1413 - SO IM ALWAYS LIKE replaceUnusualEscapesCallback WITH UR $matches
1414 - I HAS char IZ urldecode( $matches[0] )
1415 - I HAS ord IZ ord( $char )
1416 - BTW Is it an unsafe or HTTP reserved character according to RFC 1738?
1417 - IZ $ord > 32 && $ord < 127 && strpos( '<>"#{}|\^~[]`;/?', $char ) === false
1418 - BTW No, shouldn't be escaped
1419 - I FOUND MAH $char
1420 - NOWAI
1421 - BTW Yes, leave it escaped
1422 - I FOUND MAH $matches[0]
1423 - KTHX
1424 - KTHX
1425 -
1426 - DO NOT WANT
1427 - NOT WANT make an image if it's allowed, either through the global
1428 - NOT WANT option, through the exception, or through the on-wiki whitelist
1429 - NOT WANT @private
1430 - WANT
1431 - SO IM LIKE maybeMakeExternalImage WITH UR $url
1432 - I HAS sk IZ $this->mOptions->getSkin()
1433 - I HAS imagesfrom IZ $this->mOptions->getAllowExternalImagesFrom()
1434 - I HAS imagesexception IZ !empty( $imagesfrom )
1435 - I HAS text IZ false
1436 - BTW $imagesfrom could be either a single string or an array of strings, parse out the latter
1437 - IZ $imagesexception && is_array( $imagesfrom )
1438 - I HAS imagematch IZ false
1439 - IM IN UR imagesfrom ITZA match
1440 - IZ strpos( $url, $match ) === 0
1441 - I HAS imagematch IZ true
1442 - break;
1443 - KTHX
1444 - KTHX
1445 - ORLY $imagesexception
1446 - I HAS imagematch IZ ( strpos( $url, $imagesfrom ) === 0 )
1447 - NOWAI
1448 - I HAS imagematch IZ false
1449 - KTHX
1450 - if ( $this->mOptions->getAllowExternalImages()
1451 - || ( $imagesexception && $imagematch ) ) {
1452 - IZ preg_match( self::EXT_IMAGE_REGEX, $url )
1453 - BTW Image found
1454 - I HAS text IZ $sk->makeExternalImage( $url )
1455 - KTHX
1456 - KTHX
1457 - if ( !$text && $this->mOptions->getEnableImageWhitelist()
1458 - && preg_match( self::EXT_IMAGE_REGEX, $url ) ) {
1459 - I HAS whitelist IZ explode( "\n", wfMsgForContent( 'external_image_whitelist' ) )
1460 - IM IN UR whitelist ITZA entry
1461 - BTW Sanitize the regex fragment, make it case-insensitive, ignore blank entries/comments
1462 - IZ strpos( $entry, '#' ) === 0 || $entry === ''
1463 - continue;
1464 - KTHX
1465 - IZ preg_match( '/' . str_replace( '/', '\\/', $entry ) . '/i', $url )
1466 - BTW Image matches a whitelist entry
1467 - I HAS text IZ $sk->makeExternalImage( $url )
1468 - break;
1469 - KTHX
1470 - KTHX
1471 - KTHX
1472 - I FOUND MAH $text
1473 - KTHX
1474 -
1475 - DO NOT WANT
1476 - NOT WANT Process [[ ]] wikilinks
1477 - NOT WANT @return processed text
1478 - NOT WANT
1479 - NOT WANT @private
1480 - WANT
1481 - SO IM LIKE replaceInternalLinks WITH UR $s
1482 - IM ON UR SPECIAL mLinkHolders->merge DOING $this->replaceInternalLinks2( $s )
1483 - I FOUND MAH $s
1484 - KTHX
1485 -
1486 - DO NOT WANT
1487 - NOT WANT Process [[ ]] wikilinks (RIL)
1488 - NOT WANT @return LinkHolderArray
1489 - NOT WANT
1490 - NOT WANT @private
1491 - WANT
1492 - SO IM LIKE replaceInternalLinks2 WITH UR &$s
1493 - I HAS UR $wgContLang ON UR INTERNETS
1494 -
1495 - IM ON UR wfProfileIn DOING __METHOD__
1496 -
1497 - IM ON UR wfProfileIn DOING __METHOD__.'-setup'
1498 - static $tc = FALSE, $e1, $e1_img;
1499 - BTW the % is needed to support urlencoded titles as well
1500 - IZ !$tc
1501 - I HAS tc IZ Title::legalChars() . '#%'
1502 - BTW Match a link having the form [[namespace:link|alternate]]trail
1503 - I HAS e1 IZ "/^([{$tc}]+)(?:\\|(.+?))?]](.*)\$/sD"
1504 - BTW Match cases where there is no "]]", which might still be images
1505 - I HAS e1_img IZ "/^([{$tc}]+)\\|(.*)\$/sD"
1506 - KTHX
1507 -
1508 - I HAS sk IZ $this->mOptions->getSkin()
1509 - I HAS holders IZ new LinkHolderArray( $this )
1510 -
1511 - BTW split the entire text string on occurences of [[
1512 - I HAS a IZ StringUtils::explode( '[[', ' ' . $s )
1513 - BTW get the first element (all text up to first [[), and remove the space we added
1514 - I HAS s IZ $a->current()
1515 - $a->next();
1516 - I HAS line IZ $a->current() # Workaround for broken ArrayIterator::next() that returns "void"
1517 - I HAS s IZ substr( $s, 1 )
1518 -
1519 - I HAS useLinkPrefixExtension IZ $wgContLang->linkPrefixExtension()
1520 - I HAS e2
1521 - IZ $useLinkPrefixExtension
1522 - BTW Match the end of a line for a word that's not followed by whitespace,
1523 - BTW e.g. in the case of 'The Arab al[[Razi]]', 'al' will be matched
1524 - I HAS e2 IZ wfMsgForContent( 'linkprefix' )
1525 - KTHX
1526 -
1527 - IZ is_null( $this->mTitle )
1528 - IM ON UR wfProfileOut DOING __METHOD__.'-setup'
1529 - IM ON UR wfProfileOut DOING __METHOD__
1530 - throw new MWException( __METHOD__.": \$this->mTitle is null\n" );
1531 - KTHX
1532 - I HAS nottalk IZ !$this->mTitle->isTalkPage()
1533 -
1534 - IZ $useLinkPrefixExtension
1535 - I HAS m IZ EMPTY
1536 - IZ preg_match( $e2, $s, $m )
1537 - I HAS first_prefix IZ $m[2]
1538 - NOWAI
1539 - I HAS first_prefix IZ false
1540 - KTHX
1541 - NOWAI
1542 - I HAS prefix IZ ''
1543 - KTHX
1544 -
1545 - IZ $wgContLang->hasVariants()
1546 - I HAS selflink IZ $wgContLang->convertLinkToAllVariants( $this->mTitle->getPrefixedText() )
1547 - NOWAI
1548 - I HAS selflink IZ BUCKET $this->mTitle->getPrefixedText() );
1549 - KTHX
1550 - I HAS useSubpages IZ $this->areSubpagesAllowed()
1551 - IM ON UR wfProfileOut DOING __METHOD__.'-setup'
1552 -
1553 - BTW Loop for each link
1554 - for ( ; $line !== false && $line !== null ; $a->next(), $line = $a->current() ) {
1555 - BTW Check for excessive memory usage
1556 - IZ $holders->isBig()
1557 - BTW Too big
1558 - BTW Do the existence check, replace the link holders and clear the array
1559 - $holders->replace( $s );
1560 - $holders->clear();
1561 - KTHX
1562 -
1563 - IZ $useLinkPrefixExtension
1564 - IM ON UR wfProfileIn DOING __METHOD__.'-prefixhandling'
1565 - IZ preg_match( $e2, $s, $m )
1566 - I HAS prefix IZ $m[2]
1567 - I HAS s IZ $m[1]
1568 - NOWAI
1569 - $prefix='';
1570 - KTHX
1571 - BTW first link
1572 - IZ $first_prefix
1573 - I HAS prefix IZ $first_prefix
1574 - I HAS first_prefix IZ false
1575 - KTHX
1576 - IM ON UR wfProfileOut DOING __METHOD__.'-prefixhandling'
1577 - KTHX
1578 -
1579 - I HAS might_be_img IZ false
1580 -
1581 - IM ON UR wfProfileIn DOING __METHOD__."-e1"
1582 - IZ preg_match( $e1, $line, $m ) # page with normal text or alt
1583 - I HAS text IZ $m[2]
1584 - BTW If we get a ] at the beginning of $m[3] that means we have a link that's something like:
1585 - BTW [[Image:Foo.jpg|[http://example.com desc]]] <- having three ] in a row fucks up,
1586 - BTW the real problem is with the $e1 regex
1587 - BTW See bug 1300.
1588 - BTW
1589 - BTW Still some problems for cases where the ] is meant to be outside punctuation,
1590 - BTW and no image is in sight. See bug 2095.
1591 - BTW
1592 - if ( $text !== '' &&
1593 - substr( $m[3], 0, 1 ) === ']' &&
1594 - strpos( $text, '[' ) !== false
1595 - )
1596 - {
1597 - text HAS MOAR ']'; # so that replaceExternalLinks($text) works later
1598 - $m[3] = substr( $m[3], 1 );
1599 - KTHX
1600 - BTW fix up urlencoded title texts
1601 - IZ strpos( $m[1], '%' ) !== false
1602 - BTW Should anchors '#' also be rejected?
1603 - $m[1] = str_replace( array('<', '>'), array('&lt;', '&gt;'), urldecode( $m[1] ) );
1604 - KTHX
1605 - I HAS trail IZ $m[3]
1606 - ORLY preg_match( $e1_img, $line, $m ) # Invalid, but might be an image with a link in its caption
1607 - I HAS might_be_img IZ true
1608 - I HAS text IZ $m[2]
1609 - IZ strpos( $m[1], '%' ) !== false
1610 - $m[1] = urldecode( $m[1] );
1611 - KTHX
1612 - I HAS trail IZ ""
1613 - NOWAI # Invalid form; output directly
1614 - s HAS MOAR $prefix . '[[' . $line ;
1615 - IM ON UR wfProfileOut DOING __METHOD__."-e1"
1616 - continue;
1617 - KTHX
1618 - IM ON UR wfProfileOut DOING __METHOD__."-e1"
1619 - IM ON UR wfProfileIn DOING __METHOD__."-misc"
1620 -
1621 - BTW Don't allow internal links to pages containing
1622 - BTW PROTO: where PROTO is a valid URL protocol; these
1623 - BTW should be external links.
1624 - IZ preg_match( '/^\b(?:' . wfUrlProtocols() . ')/', $m[1] )
1625 - s HAS MOAR $prefix . '[[' . $line ;
1626 - IM ON UR wfProfileOut DOING __METHOD__."-misc"
1627 - continue;
1628 - KTHX
1629 -
1630 - BTW Make subpage if necessary
1631 - IZ $useSubpages
1632 - I HAS link IZ $this->maybeDoSubpageLink( $m[1], $text )
1633 - NOWAI
1634 - I HAS link IZ $m[1]
1635 - KTHX
1636 -
1637 - I HAS noforce IZ ( substr( $m[1], 0, 1 ) !== ':' )
1638 - IZ !$noforce
1639 - BTW Strip off leading ':'
1640 - I HAS link IZ substr( $link, 1 )
1641 - KTHX
1642 -
1643 - IM ON UR wfProfileOut DOING __METHOD__."-misc"
1644 - IM ON UR wfProfileIn DOING __METHOD__."-title"
1645 - I HAS nt IZ Title::newFromText( $this->mStripState->unstripNoWiki( $link ) )
1646 - IZ $nt === null
1647 - s HAS MOAR $prefix . '[[' . $line;
1648 - IM ON UR wfProfileOut DOING __METHOD__."-title"
1649 - continue;
1650 - KTHX
1651 -
1652 - I HAS ns IZ $nt->getNamespace()
1653 - I HAS iw IZ $nt->getInterWiki()
1654 - IM ON UR wfProfileOut DOING __METHOD__."-title"
1655 -
1656 - IZ $might_be_img # if this is actually an invalid link
1657 - IM ON UR wfProfileIn DOING __METHOD__."-might_be_img"
1658 - IZ $ns == NS_FILE && $noforce # but might be an image
1659 - I HAS found IZ false
1660 - STEALIN UR true
1661 - BTW look at the next 'line' to see if we can close it there
1662 - $a->next();
1663 - I HAS next_line IZ $a->current()
1664 - IZ $next_line === false || $next_line === null
1665 - break;
1666 - KTHX
1667 - I HAS m IZ explode( ']]', $next_line, 3 )
1668 - IZ count( $m ) == 3
1669 - BTW the first ]] closes the inner link, the second the image
1670 - I HAS found IZ true
1671 - text HAS MOAR "[[{$m[0]}]]{$m[1]}";
1672 - I HAS trail IZ $m[2]
1673 - break;
1674 - ORLY count( $m ) == 2
1675 - BTW if there's exactly one ]] that's fine, we'll keep looking
1676 - text HAS MOAR "[[{$m[0]}]]{$m[1]}";
1677 - NOWAI
1678 - BTW if $next_line is invalid too, we need look no further
1679 - text HAS MOAR '[[' . $next_line;
1680 - break;
1681 - KTHX
1682 - KTHX
1683 - IZ !$found
1684 - BTW we couldn't find the end of this imageLink, so output it raw
1685 - BTW but don't ignore what might be perfectly normal links in the text we've examined
1686 - $holders->merge( $this->replaceInternalLinks2( $text ) );
1687 - s HAS MOAR "{$prefix}[[$link|$text";
1688 - BTW note: no $trail, because without an end, there *is* no trail
1689 - IM ON UR wfProfileOut DOING __METHOD__."-might_be_img"
1690 - continue;
1691 - KTHX
1692 - NOWAI # it's not an image, so output it raw
1693 - s HAS MOAR "{$prefix}[[$link|$text";
1694 - BTW note: no $trail, because without an end, there *is* no trail
1695 - IM ON UR wfProfileOut DOING __METHOD__."-might_be_img"
1696 - continue;
1697 - KTHX
1698 - IM ON UR wfProfileOut DOING __METHOD__."-might_be_img"
1699 - KTHX
1700 -
1701 - I HAS wasblank IZ ( $text == '' )
1702 - IZ $wasblank
1703 - I HAS text IZ $link
1704 - KTHX
1705 -
1706 - BTW Link not escaped by : , create the various objects
1707 - IZ $noforce
1708 -
1709 - BTW Interwikis
1710 - IM ON UR wfProfileIn DOING __METHOD__."-interwiki"
1711 - IZ $iw && $this->mOptions->getInterwikiMagic() && $nottalk && $wgContLang->getLanguageName( $iw )
1712 - IM ON UR SPECIAL mOutput->addLanguageLink DOING $nt->getFullText()
1713 - I HAS s IZ rtrim( $s . $prefix )
1714 - s HAS MOAR trim( $trail, "\n" ) == '' ? '': $prefix . $trail;
1715 - IM ON UR wfProfileOut DOING __METHOD__."-interwiki"
1716 - continue;
1717 - KTHX
1718 - IM ON UR wfProfileOut DOING __METHOD__."-interwiki"
1719 -
1720 - IZ $ns == NS_FILE
1721 - IM ON UR wfProfileIn DOING __METHOD__."-image"
1722 - IZ !wfIsBadImage( $nt->getDBkey(), $this->mTitle )
1723 - IZ $wasblank
1724 - BTW if no parameters were passed, $text
1725 - BTW becomes something like "File:Foo.png",
1726 - BTW which we don't want to pass on to the
1727 - BTW image generator
1728 - I HAS text IZ ''
1729 - NOWAI
1730 - BTW recursively parse links inside the image caption
1731 - BTW actually, this will parse them in any other parameters, too,
1732 - BTW but it might be hard to fix that, and it doesn't matter ATM
1733 - I HAS text IZ $this->replaceExternalLinks( $text )
1734 - $holders->merge( $this->replaceInternalLinks2( $text ) );
1735 - KTHX
1736 - BTW cloak any absolute URLs inside the image markup, so replaceExternalLinks() won't touch them
1737 - s HAS MOAR $prefix . $this->armorLinks( $this->makeImage( $nt, $text, $holders ) ) . $trail;
1738 - NOWAI
1739 - s HAS MOAR $prefix . $trail;
1740 - KTHX
1741 - IM ON UR SPECIAL mOutput->addImage DOING $nt->getDBkey()
1742 - IM ON UR wfProfileOut DOING __METHOD__."-image"
1743 - continue;
1744 -
1745 - KTHX
1746 -
1747 - IZ $ns == NS_CATEGORY
1748 - IM ON UR wfProfileIn DOING __METHOD__."-category"
1749 - I HAS s IZ rtrim( $s . "\n" ) # bug 87
1750 -
1751 - IZ $wasblank
1752 - I HAS sortkey IZ $this->getDefaultSort()
1753 - NOWAI
1754 - I HAS sortkey IZ $text
1755 - KTHX
1756 - I HAS sortkey IZ Sanitizer::decodeCharReferences( $sortkey )
1757 - I HAS sortkey IZ str_replace( "\n", '', $sortkey )
1758 - I HAS sortkey IZ $wgContLang->convertCategoryKey( $sortkey )
1759 - IM ON UR SPECIAL mOutput->addCategory DOING $nt->getDBkey(), $sortkey
1760 -
1761 - DO NOT WANT
1762 - NOT WANT Strip the whitespace Category links produce, see bug 87
1763 - NOT WANT @todo We might want to use trim($tmp, "\n") here.
1764 - WANT
1765 - s HAS MOAR trim( $prefix . $trail, "\n" ) == '' ? '': $prefix . $trail;
1766 -
1767 - IM ON UR wfProfileOut DOING __METHOD__."-category"
1768 - continue;
1769 - KTHX
1770 - KTHX
1771 -
1772 - BTW Self-link checking
1773 - IZ $nt->getFragment() === '' && $ns != NS_SPECIAL
1774 - IZ in_array( $nt->getPrefixedText(), $selflink, true )
1775 - s HAS MOAR $prefix . $sk->makeSelfLinkObj( $nt, $text, '', $trail );
1776 - continue;
1777 - KTHX
1778 - KTHX
1779 -
1780 - BTW NS_MEDIA is a pseudo-namespace for linking directly to a file
1781 - BTW FIXME: Should do batch file existence checks, see comment below
1782 - IZ $ns == NS_MEDIA
1783 - IM ON UR wfProfileIn DOING __METHOD__."-media"
1784 - BTW Give extensions a chance to select the file revision for us
1785 - I HAS skip IZ $time = false
1786 - IM ON UR wfRunHooks DOING 'BeforeParserMakeImageLinkObj', array( &$this, &$nt, &$skip, &$time )
1787 - IZ $skip
1788 - I HAS link IZ $sk->link( $nt )
1789 - NOWAI
1790 - I HAS link IZ $sk->makeMediaLinkObj( $nt, $text, $time )
1791 - KTHX
1792 - BTW Cloak with NOPARSE to avoid replacement in replaceExternalLinks
1793 - s HAS MOAR $prefix . $this->armorLinks( $link ) . $trail;
1794 - IM ON UR SPECIAL mOutput->addImage DOING $nt->getDBkey()
1795 - IM ON UR wfProfileOut DOING __METHOD__."-media"
1796 - continue;
1797 - KTHX
1798 -
1799 - IM ON UR wfProfileIn DOING __METHOD__."-always_known"
1800 - BTW Some titles, such as valid special pages or files in foreign repos, should
1801 - BTW be shown as bluelinks even though they're not included in the page table
1802 - BTW
1803 - BTW FIXME: isAlwaysKnown() can be expensive for file links; we should really do
1804 - BTW batch file existence checks for NS_FILE and NS_MEDIA
1805 - IZ $iw == '' && $nt->isAlwaysKnown()
1806 - IM ON UR SPECIAL mOutput->addLink DOING $nt
1807 - s HAS MOAR $this->makeKnownLinkHolder( $nt, $text, '', $trail, $prefix );
1808 - NOWAI
1809 - BTW Links will be added to the output link list after checking
1810 - s HAS MOAR $holders->makeHolder( $nt, $text, '', $trail, $prefix );
1811 - KTHX
1812 - IM ON UR wfProfileOut DOING __METHOD__."-always_known"
1813 - KTHX
1814 - IM ON UR wfProfileOut DOING __METHOD__
1815 - I FOUND MAH $holders
1816 - KTHX
1817 -
1818 - DO NOT WANT
1819 - NOT WANT Make a link placeholder. The text returned can be later resolved to a real link with
1820 - NOT WANT replaceLinkHolders(). This is done for two reasons: firstly to avoid further
1821 - NOT WANT parsing of interwiki links, and secondly to allow all existence checks and
1822 - NOT WANT article length checks (for stub links) to be bundled into a single query.
1823 - NOT WANT
1824 - NOT WANT @deprecated
1825 - WANT
1826 - SO IM LIKE makeLinkHolder WITH UR &$nt, $text = '', $query = '', $trail = '', $prefix = ''
1827 - I FOUND MAH $this->mLinkHolders->makeHolder( $nt, $text, $query, $trail, $prefix )
1828 - KTHX
1829 -
1830 - DO NOT WANT
1831 - NOT WANT Render a forced-blue link inline; protect against double expansion of
1832 - NOT WANT URLs if we're in a mode that prepends full URL prefixes to internal links.
1833 - NOT WANT Since this little disaster has to split off the trail text to avoid
1834 - NOT WANT breaking URLs in the following text without breaking trails on the
1835 - NOT WANT wiki links, it's been made into a horrible function.
1836 - NOT WANT
1837 - NOT WANT @param Title $nt
1838 - NOT WANT @param string $text
1839 - NOT WANT @param string $query
1840 - NOT WANT @param string $trail
1841 - NOT WANT @param string $prefix
1842 - NOT WANT @return string HTML-wikitext mix oh yuck
1843 - WANT
1844 - SO IM LIKE makeKnownLinkHolder WITH UR $nt, $text = '', $query = '', $trail = '', $prefix = ''
1845 - IM ON UR list DOING $inside, $trail ) = Linker::splitTrail( $trail
1846 - I HAS sk IZ $this->mOptions->getSkin()
1847 - BTW FIXME: use link() instead of deprecated makeKnownLinkObj()
1848 - I HAS link IZ $sk->makeKnownLinkObj( $nt, $text, $query, $inside, $prefix )
1849 - I FOUND MAH $this->armorLinks( $link ) . $trail
1850 - KTHX
1851 -
1852 - DO NOT WANT
1853 - NOT WANT Insert a NOPARSE hacky thing into any inline links in a chunk that's
1854 - NOT WANT going to go through further parsing steps before inline URL expansion.
1855 - NOT WANT
1856 - NOT WANT Not needed quite as much as it used to be since free links are a bit
1857 - NOT WANT more sensible these days. But bracketed links are still an issue.
1858 - NOT WANT
1859 - NOT WANT @param string more-or-less HTML
1860 - NOT WANT @return string less-or-more HTML with NOPARSE bits
1861 - WANT
1862 - SO IM LIKE armorLinks WITH UR $text
1863 - return preg_replace( '/\b(' . wfUrlProtocols() . ')/',
1864 - "{$this->mUniqPrefix}NOPARSE$1", $text );
1865 - KTHX
1866 -
1867 - DO NOT WANT
1868 - NOT WANT Return true if subpage links should be expanded on this page.
1869 - NOT WANT @return bool
1870 - WANT
1871 - SO IM LIKE areSubpagesAllowed
1872 - BTW Some namespaces don't allow subpages
1873 - I FOUND MAH MWNamespace::hasSubpages( $this->mTitle->getNamespace() )
1874 - KTHX
1875 -
1876 - DO NOT WANT
1877 - NOT WANT Handle link to subpage if necessary
1878 - NOT WANT @param string $target the source of the link
1879 - NOT WANT @param string &$text the link text, modified as necessary
1880 - NOT WANT @return string the full name of the link
1881 - NOT WANT @private
1882 - WANT
1883 - SO IM LIKE maybeDoSubpageLink WITH UR $target, &$text
1884 - I FOUND MAH Linker::normalizeSubpageLink( $this->mTitle, $target, $text )
1885 - KTHX
1886 -
1887 - DO NOT WANT#@+
1888 - NOT WANT Used by doBlockLevels()
1889 - NOT WANT @private
1890 - WANT
1891 - SO IM LIKE closeParagraph
1892 - I HAS result IZ ''
1893 - IZ $this->mLastSection != ''
1894 - I HAS result IZ '</' . $this->mLastSection . ">\n"
1895 - KTHX
1896 - UR SPECIAL mInPre IZ false;
1897 - UR SPECIAL mLastSection IZ '';
1898 - I FOUND MAH $result
1899 - KTHX
1900 - DO NOT WANT
1901 - NOT WANT getCommon() returns the length of the longest common substring
1902 - NOT WANT of both arguments, starting at the beginning of both.
1903 - NOT WANT @private
1904 - WANT
1905 - SO IM LIKE getCommon WITH UR $st1, $st2
1906 - I HAS fl IZ strlen( $st1 )
1907 - I HAS shorter IZ strlen( $st2 )
1908 - IZ $fl < $shorter
1909 - I HAS shorter IZ $fl
1910 - KTHX
1911 -
1912 - for ( $i = 0; $i < $shorter; ++$i ) {
1913 - IZ $st1{$i} != $st2{$i}
1914 - break;
1915 - KTHX
1916 - KTHX
1917 - I FOUND MAH $i
1918 - KTHX
1919 - DO NOT WANT
1920 - NOT WANT These next three functions open, continue, and close the list
1921 - NOT WANT element appropriate to the prefix character passed into them.
1922 - NOT WANT @private
1923 - WANT
1924 - SO IM LIKE openList WITH UR $char
1925 - I HAS result IZ $this->closeParagraph()
1926 -
1927 - IZ '*' === $char
1928 - result HAS MOAR '<ul><li>';
1929 - ORLY '#' === $char
1930 - result HAS MOAR '<ol><li>';
1931 - ORLY ':' === $char
1932 - result HAS MOAR '<dl><dd>';
1933 - ORLY ';' === $char
1934 - result HAS MOAR '<dl><dt>';
1935 - UR SPECIAL mDTopen IZ true;
1936 - NOWAI
1937 - I HAS result IZ '<!-- ERR 1 -->'
1938 - KTHX
1939 -
1940 - I FOUND MAH $result
1941 - KTHX
1942 -
1943 - DO NOT WANT
1944 - NOT WANT TODO: document
1945 - NOT WANT @param $char String
1946 - NOT WANT @private
1947 - WANT
1948 - SO IM LIKE nextItem WITH UR $char
1949 - IZ '*' === $char || '#' === $char
1950 - I FOUND MAH '</li><li>'
1951 - ORLY ':' === $char || ';' === $char
1952 - I HAS close IZ '</dd>'
1953 - IZ $this->mDTopen
1954 - I HAS close IZ '</dt>'
1955 - KTHX
1956 - IZ ';' === $char
1957 - UR SPECIAL mDTopen IZ true;
1958 - I FOUND MAH $close . '<dt>'
1959 - NOWAI
1960 - UR SPECIAL mDTopen IZ false;
1961 - I FOUND MAH $close . '<dd>'
1962 - KTHX
1963 - KTHX
1964 - I FOUND MAH '<!-- ERR 2 -->'
1965 - KTHX
1966 -
1967 - DO NOT WANT
1968 - NOT WANT TODO: document
1969 - NOT WANT @param $char String
1970 - NOT WANT @private
1971 - WANT
1972 - SO IM LIKE closeList WITH UR $char
1973 - IZ '*' === $char
1974 - I HAS text IZ '</li></ul>'
1975 - ORLY '#' === $char
1976 - I HAS text IZ '</li></ol>'
1977 - ORLY ':' === $char
1978 - IZ $this->mDTopen
1979 - UR SPECIAL mDTopen IZ false;
1980 - I HAS text IZ '</dt></dl>'
1981 - NOWAI
1982 - I HAS text IZ '</dd></dl>'
1983 - KTHX
1984 - NOWAI
1985 - I FOUND MAH '<!-- ERR 3 -->'
1986 - KTHX
1987 - I FOUND MAH $text."\n"
1988 - KTHX
1989 - DO NOT WANT#@-*/
1990 -
1991 - DO NOT WANT
1992 - NOT WANT Make lists from lines starting with ':', '*', '#', etc. (DBL)
1993 - NOT WANT
1994 - NOT WANT @param $linestart bool whether or not this is at the start of a line.
1995 - NOT WANT @private
1996 - NOT WANT @return string the lists rendered as HTML
1997 - WANT
1998 - SO IM LIKE doBlockLevels WITH UR $text, $linestart
1999 - IM ON UR wfProfileIn DOING __METHOD__
2000 -
2001 - BTW Parsing through the text line by line. The main thing
2002 - BTW happening here is handling of block-level elements p, pre,
2003 - BTW and making lists from lines starting with * # : etc.
2004 - BTW
2005 - I HAS textLines IZ StringUtils::explode( "\n", $text )
2006 -
2007 - I HAS lastPrefix IZ $output = ''
2008 - UR SPECIAL mDTopen IZ $inBlockElem = false;
2009 - I HAS prefixLength IZ 0
2010 - I HAS paragraphStack IZ false
2011 -
2012 - IM IN UR textLines ITZA oLine
2013 - BTW Fix up $linestart
2014 - IZ !$linestart
2015 - output HAS MOAR $oLine;
2016 - I HAS linestart IZ true
2017 - continue;
2018 - KTHX
2019 - BTW * = ul
2020 - BTW # = ol
2021 - BTW ; = dt
2022 - BTW : = dd
2023 -
2024 - I HAS lastPrefixLength IZ strlen( $lastPrefix )
2025 - I HAS preCloseMatch IZ preg_match( '/<\\/pre/i', $oLine )
2026 - I HAS preOpenMatch IZ preg_match( '/<pre/i', $oLine )
2027 - BTW If not in a <pre> element, scan for and figure out what prefixes are there.
2028 - IZ !$this->mInPre
2029 - BTW Multiple prefixes may abut each other for nested lists.
2030 - I HAS prefixLength IZ strspn( $oLine, '*#:;' )
2031 - I HAS prefix IZ substr( $oLine, 0, $prefixLength )
2032 -
2033 - BTW eh?
2034 - BTW ; and : are both from definition-lists, so they're equivalent
2035 - BTW for the purposes of determining whether or not we need to open/close
2036 - BTW elements.
2037 - I HAS prefix2 IZ str_replace( ';', ':', $prefix )
2038 - I HAS t IZ substr( $oLine, $prefixLength )
2039 - UR SPECIAL mInPre IZ (bool)$preOpenMatch;
2040 - NOWAI
2041 - BTW Don't interpret any other prefixes in preformatted text
2042 - I HAS prefixLength IZ 0
2043 - I HAS prefix IZ $prefix2 = ''
2044 - I HAS t IZ $oLine
2045 - KTHX
2046 -
2047 - BTW List generation
2048 - IZ $prefixLength && $lastPrefix === $prefix2
2049 - BTW Same as the last item, so no need to deal with nesting or opening stuff
2050 - output HAS MOAR $this->nextItem( substr( $prefix, -1 ) );
2051 - I HAS paragraphStack IZ false
2052 -
2053 - if ( substr( $prefix, -1 ) === ';') {
2054 - BTW The one nasty exception: definition lists work like this:
2055 - BTW ; title : definition text
2056 - BTW So we check for : in the remainder text to split up the
2057 - BTW title and definition, without b0rking links.
2058 - I HAS term IZ $t2 = ''
2059 - IZ $this->findColonNoLinks( $t, $term, $t2 ) !== false
2060 - I HAS t IZ $t2
2061 - output HAS MOAR $term . $this->nextItem( ':' );
2062 - KTHX
2063 - KTHX
2064 - ORLY $prefixLength || $lastPrefixLength
2065 - BTW We need to open or close prefixes, or both.
2066 -
2067 - BTW Either open or close a level...
2068 - I HAS commonPrefixLength IZ $this->getCommon( $prefix, $lastPrefix )
2069 - I HAS paragraphStack IZ false
2070 -
2071 - BTW Close all the prefixes which aren't shared.
2072 - STEALIN UR $commonPrefixLength < $lastPrefixLength
2073 - output HAS MOAR $this->closeList( $lastPrefix[$lastPrefixLength-1] );
2074 - --$lastPrefixLength;
2075 - KTHX
2076 -
2077 - BTW Continue the current prefix if appropriate.
2078 - IZ $prefixLength <= $commonPrefixLength && $commonPrefixLength > 0
2079 - output HAS MOAR $this->nextItem( $prefix[$commonPrefixLength-1] );
2080 - KTHX
2081 -
2082 - BTW Open prefixes where appropriate.
2083 - STEALIN UR $prefixLength > $commonPrefixLength
2084 - I HAS char IZ substr( $prefix, $commonPrefixLength, 1 )
2085 - output HAS MOAR $this->openList( $char );
2086 -
2087 - IZ ';' === $char
2088 - BTW FIXME: This is dupe of code above
2089 - IZ $this->findColonNoLinks( $t, $term, $t2 ) !== false
2090 - I HAS t IZ $t2
2091 - output HAS MOAR $term . $this->nextItem( ':' );
2092 - KTHX
2093 - KTHX
2094 - ++$commonPrefixLength;
2095 - KTHX
2096 - I HAS lastPrefix IZ $prefix2
2097 - KTHX
2098 -
2099 - BTW If we have no prefixes, go to paragraph mode.
2100 - IZ 0 == $prefixLength
2101 - IM ON UR wfProfileIn DOING __METHOD__."-paragraph"
2102 - BTW No prefix (not in list)--go to paragraph mode
2103 - BTW XXX: use a stack for nestable elements like span, table and div
2104 - I HAS openmatch IZ preg_match('/(?:<table|<blockquote|<h1|<h2|<h3|<h4|<h5|<h6|<pre|<tr|<p|<ul|<ol|<li|<\\/tr|<\\/td|<\\/th)/iS', $t )
2105 - closematch IZ preg_match(
2106 - '/(?:<\\/table|<\\/blockquote|<\\/h1|<\\/h2|<\\/h3|<\\/h4|<\\/h5|<\\/h6|'.
2107 - '<td|<th|<\\/?div|<hr|<\\/pre|<\\/p|'.$this->mUniqPrefix.'-pre|<\\/li|<\\/ul|<\\/ol|<\\/?center)/iS', $t );
2108 - IZ $openmatch or $closematch
2109 - I HAS paragraphStack IZ false
2110 - # TODO bug 5718: paragraph closed
2111 - output HAS MOAR $this->closeParagraph();
2112 - IZ $preOpenMatch and !$preCloseMatch
2113 - UR SPECIAL mInPre IZ true;
2114 - KTHX
2115 - IZ $closematch
2116 - I HAS inBlockElem IZ false
2117 - NOWAI
2118 - I HAS inBlockElem IZ true
2119 - KTHX
2120 - ORLY !$inBlockElem && !$this->mInPre
2121 - IZ ' ' == substr( $t, 0, 1 ) and ( $this->mLastSection === 'pre' || trim( $t ) != '' )
2122 - BTW pre
2123 - IZ $this->mLastSection !== 'pre'
2124 - I HAS paragraphStack IZ false
2125 - output HAS MOAR $this->closeParagraph().'<pre>';
2126 - UR SPECIAL mLastSection IZ 'pre';
2127 - KTHX
2128 - I HAS t IZ substr( $t, 1 )
2129 - NOWAI
2130 - BTW paragraph
2131 - IZ trim( $t ) == ''
2132 - IZ $paragraphStack
2133 - output HAS MOAR $paragraphStack.'<br />';
2134 - I HAS paragraphStack IZ false
2135 - UR SPECIAL mLastSection IZ 'p';
2136 - NOWAI
2137 - IZ $this->mLastSection !== 'p'
2138 - output HAS MOAR $this->closeParagraph();
2139 - UR SPECIAL mLastSection IZ '';
2140 - I HAS paragraphStack IZ '<p>'
2141 - NOWAI
2142 - I HAS paragraphStack IZ '</p><p>'
2143 - KTHX
2144 - KTHX
2145 - NOWAI
2146 - IZ $paragraphStack
2147 - output HAS MOAR $paragraphStack;
2148 - I HAS paragraphStack IZ false
2149 - UR SPECIAL mLastSection IZ 'p';
2150 - ORLY $this->mLastSection !== 'p'
2151 - output HAS MOAR $this->closeParagraph().'<p>';
2152 - UR SPECIAL mLastSection IZ 'p';
2153 - KTHX
2154 - KTHX
2155 - KTHX
2156 - KTHX
2157 - IM ON UR wfProfileOut DOING __METHOD__."-paragraph"
2158 - KTHX
2159 - BTW somewhere above we forget to get out of pre block (bug 785)
2160 - IZ $preCloseMatch && $this->mInPre
2161 - UR SPECIAL mInPre IZ false;
2162 - KTHX
2163 - IZ $paragraphStack === false
2164 - output HAS MOAR $t."\n";
2165 - KTHX
2166 - KTHX
2167 - STEALIN UR $prefixLength
2168 - output HAS MOAR $this->closeList( $prefix2[$prefixLength-1] );
2169 - --$prefixLength;
2170 - KTHX
2171 - IZ $this->mLastSection != ''
2172 - output HAS MOAR '</' . $this->mLastSection . '>';
2173 - UR SPECIAL mLastSection IZ '';
2174 - KTHX
2175 -
2176 - IM ON UR wfProfileOut DOING __METHOD__
2177 - I FOUND MAH $output
2178 - KTHX
2179 -
2180 - DO NOT WANT
2181 - NOT WANT Split up a string on ':', ignoring any occurences inside tags
2182 - NOT WANT to prevent illegal overlapping.
2183 - NOT WANT @param string $str the string to split
2184 - NOT WANT @param string &$before set to everything before the ':'
2185 - NOT WANT @param string &$after set to everything after the ':'
2186 - NOT WANT return string the position of the ':', or false if none found
2187 - WANT
2188 - SO IM LIKE findColonNoLinks WITH UR $str, &$before, &$after
2189 - IM ON UR wfProfileIn DOING __METHOD__
2190 -
2191 - I HAS pos IZ strpos( $str, ':' )
2192 - IZ $pos === false
2193 - BTW Nothing to find!
2194 - IM ON UR wfProfileOut DOING __METHOD__
2195 - I FOUND MAH false
2196 - KTHX
2197 -
2198 - I HAS lt IZ strpos( $str, '<' )
2199 - IZ $lt === false || $lt > $pos
2200 - BTW Easy; no tag nesting to worry about
2201 - I HAS before IZ substr( $str, 0, $pos )
2202 - I HAS after IZ substr( $str, $pos+1 )
2203 - IM ON UR wfProfileOut DOING __METHOD__
2204 - I FOUND MAH $pos
2205 - KTHX
2206 -
2207 - BTW Ugly state machine to walk through avoiding tags.
2208 - I HAS state IZ self::COLON_STATE_TEXT
2209 - I HAS stack IZ 0
2210 - I HAS len IZ strlen( $str )
2211 - for( $i = 0; $i < $len; $i++ ) {
2212 - I HAS c IZ $str{$i}
2213 -
2214 - switch( $state ) {
2215 - BTW (Using the number is a performance hack for common cases)
2216 - case 0: # self::COLON_STATE_TEXT:
2217 - switch( $c ) {
2218 - case "<":
2219 - BTW Could be either a <start> tag or an </end> tag
2220 - I HAS state IZ self::COLON_STATE_TAGSTART
2221 - break;
2222 - case ":":
2223 - IZ $stack == 0
2224 - BTW We found it!
2225 - I HAS before IZ substr( $str, 0, $i )
2226 - I HAS after IZ substr( $str, $i + 1 )
2227 - IM ON UR wfProfileOut DOING __METHOD__
2228 - I FOUND MAH $i
2229 - KTHX
2230 - BTW Embedded in a tag; don't break it.
2231 - break;
2232 - default:
2233 - BTW Skip ahead looking for something interesting
2234 - I HAS colon IZ strpos( $str, ':', $i )
2235 - IZ $colon === false
2236 - BTW Nothing else interesting
2237 - IM ON UR wfProfileOut DOING __METHOD__
2238 - I FOUND MAH false
2239 - KTHX
2240 - I HAS lt IZ strpos( $str, '<', $i )
2241 - IZ $stack === 0
2242 - IZ $lt === false || $colon < $lt
2243 - BTW We found it!
2244 - I HAS before IZ substr( $str, 0, $colon )
2245 - I HAS after IZ substr( $str, $colon + 1 )
2246 - IM ON UR wfProfileOut DOING __METHOD__
2247 - I FOUND MAH $i
2248 - KTHX
2249 - KTHX
2250 - IZ $lt === false
2251 - BTW Nothing else interesting to find; abort!
2252 - BTW We're nested, but there's no close tags left. Abort!
2253 - break 2;
2254 - KTHX
2255 - BTW Skip ahead to next tag start
2256 - I HAS i IZ $lt
2257 - I HAS state IZ self::COLON_STATE_TAGSTART
2258 - KTHX
2259 - break;
2260 - case 1: # self::COLON_STATE_TAG:
2261 - BTW In a <tag>
2262 - switch( $c ) {
2263 - case ">":
2264 - $stack++;
2265 - I HAS state IZ self::COLON_STATE_TEXT
2266 - break;
2267 - case "/":
2268 - BTW Slash may be followed by >?
2269 - I HAS state IZ self::COLON_STATE_TAGSLASH
2270 - break;
2271 - default:
2272 - BTW ignore
2273 - KTHX
2274 - break;
2275 - case 2: # self::COLON_STATE_TAGSTART:
2276 - switch( $c ) {
2277 - case "/":
2278 - I HAS state IZ self::COLON_STATE_CLOSETAG
2279 - break;
2280 - case "!":
2281 - I HAS state IZ self::COLON_STATE_COMMENT
2282 - break;
2283 - case ">":
2284 - BTW Illegal early close? This shouldn't happen D:
2285 - I HAS state IZ self::COLON_STATE_TEXT
2286 - break;
2287 - default:
2288 - I HAS state IZ self::COLON_STATE_TAG
2289 - KTHX
2290 - break;
2291 - case 3: # self::COLON_STATE_CLOSETAG:
2292 - BTW In a </tag>
2293 - IZ $c === ">"
2294 - I HAS stack--
2295 - IZ $stack < 0
2296 - IM ON UR wfDebug DOING __METHOD__.": Invalid input; too many close tags\n"
2297 - IM ON UR wfProfileOut DOING __METHOD__
2298 - I FOUND MAH false
2299 - KTHX
2300 - I HAS state IZ self::COLON_STATE_TEXT
2301 - KTHX
2302 - break;
2303 - case self::COLON_STATE_TAGSLASH:
2304 - IZ $c === ">"
2305 - BTW Yes, a self-closed tag <blah/>
2306 - I HAS state IZ self::COLON_STATE_TEXT
2307 - NOWAI
2308 - BTW Probably we're jumping the gun, and this is an attribute
2309 - I HAS state IZ self::COLON_STATE_TAG
2310 - KTHX
2311 - break;
2312 - case 5: # self::COLON_STATE_COMMENT:
2313 - IZ $c === "-"
2314 - I HAS state IZ self::COLON_STATE_COMMENTDASH
2315 - KTHX
2316 - break;
2317 - case self::COLON_STATE_COMMENTDASH:
2318 - IZ $c === "-"
2319 - I HAS state IZ self::COLON_STATE_COMMENTDASHDASH
2320 - NOWAI
2321 - I HAS state IZ self::COLON_STATE_COMMENT
2322 - KTHX
2323 - break;
2324 - case self::COLON_STATE_COMMENTDASHDASH:
2325 - IZ $c === ">"
2326 - I HAS state IZ self::COLON_STATE_TEXT
2327 - NOWAI
2328 - I HAS state IZ self::COLON_STATE_COMMENT
2329 - KTHX
2330 - break;
2331 - default:
2332 - throw new MWException( "State machine error in " . __METHOD__ );
2333 - KTHX
2334 - KTHX
2335 - IZ $stack > 0
2336 - IM ON UR wfDebug DOING __METHOD__.": Invalid input; not enough close tags (stack $stack, state $state)\n"
2337 - I FOUND MAH false
2338 - KTHX
2339 - IM ON UR wfProfileOut DOING __METHOD__
2340 - I FOUND MAH false
2341 - KTHX
2342 -
2343 - DO NOT WANT
2344 - NOT WANT Return value of a magic variable (like PAGENAME)
2345 - NOT WANT
2346 - NOT WANT @private
2347 - WANT
2348 - SO IM LIKE getVariableValue WITH UR $index, $frame=false
2349 - I HAS UR $wgContLang, $wgSitename, $wgServer, $wgServerName ON UR INTERNETS
2350 - I HAS UR $wgScriptPath, $wgStylePath ON UR INTERNETS
2351 -
2352 - DO NOT WANT
2353 - NOT WANT Some of these require message or data lookups and can be
2354 - NOT WANT expensive to check many times.
2355 - WANT
2356 - IZ wfRunHooks( 'ParserGetVariableValueVarCache', array( &$this, &$this->mVarCache ) )
2357 - IZ isset( $this->mVarCache[$index] )
2358 - I FOUND MAH $this->mVarCache[$index]
2359 - KTHX
2360 - KTHX
2361 -
2362 - I HAS ts IZ wfTimestamp( TS_UNIX, $this->mOptions->getTimestamp() )
2363 - IM ON UR wfRunHooks DOING 'ParserGetVariableValueTs', array( &$this, &$ts )
2364 -
2365 - BTW Use the time zone
2366 - I HAS UR $wgLocaltimezone ON UR INTERNETS
2367 - IZ isset( $wgLocaltimezone )
2368 - I HAS oldtz IZ date_default_timezone_get()
2369 - IM ON UR date_default_timezone_set DOING $wgLocaltimezone
2370 - KTHX
2371 -
2372 - I HAS localTimestamp IZ date( 'YmdHis', $ts )
2373 - I HAS localMonth IZ date( 'm', $ts )
2374 - I HAS localMonth1 IZ date( 'n', $ts )
2375 - I HAS localMonthName IZ date( 'n', $ts )
2376 - I HAS localDay IZ date( 'j', $ts )
2377 - I HAS localDay2 IZ date( 'd', $ts )
2378 - I HAS localDayOfWeek IZ date( 'w', $ts )
2379 - I HAS localWeek IZ date( 'W', $ts )
2380 - I HAS localYear IZ date( 'Y', $ts )
2381 - I HAS localHour IZ date( 'H', $ts )
2382 - IZ isset( $wgLocaltimezone )
2383 - IM ON UR date_default_timezone_set DOING $oldtz
2384 - KTHX
2385 -
2386 - switch ( $index ) {
2387 - case 'currentmonth':
2388 - I HAS value IZ $wgContLang->formatNum( gmdate( 'm', $ts ) )
2389 - break;
2390 - case 'currentmonth1':
2391 - I HAS value IZ $wgContLang->formatNum( gmdate( 'n', $ts ) )
2392 - break;
2393 - case 'currentmonthname':
2394 - I HAS value IZ $wgContLang->getMonthName( gmdate( 'n', $ts ) )
2395 - break;
2396 - case 'currentmonthnamegen':
2397 - I HAS value IZ $wgContLang->getMonthNameGen( gmdate( 'n', $ts ) )
2398 - break;
2399 - case 'currentmonthabbrev':
2400 - I HAS value IZ $wgContLang->getMonthAbbreviation( gmdate( 'n', $ts ) )
2401 - break;
2402 - case 'currentday':
2403 - I HAS value IZ $wgContLang->formatNum( gmdate( 'j', $ts ) )
2404 - break;
2405 - case 'currentday2':
2406 - I HAS value IZ $wgContLang->formatNum( gmdate( 'd', $ts ) )
2407 - break;
2408 - case 'localmonth':
2409 - I HAS value IZ $wgContLang->formatNum( $localMonth )
2410 - break;
2411 - case 'localmonth1':
2412 - I HAS value IZ $wgContLang->formatNum( $localMonth1 )
2413 - break;
2414 - case 'localmonthname':
2415 - I HAS value IZ $wgContLang->getMonthName( $localMonthName )
2416 - break;
2417 - case 'localmonthnamegen':
2418 - I HAS value IZ $wgContLang->getMonthNameGen( $localMonthName )
2419 - break;
2420 - case 'localmonthabbrev':
2421 - I HAS value IZ $wgContLang->getMonthAbbreviation( $localMonthName )
2422 - break;
2423 - case 'localday':
2424 - I HAS value IZ $wgContLang->formatNum( $localDay )
2425 - break;
2426 - case 'localday2':
2427 - I HAS value IZ $wgContLang->formatNum( $localDay2 )
2428 - break;
2429 - case 'pagename':
2430 - I HAS value IZ wfEscapeWikiText( $this->mTitle->getText() )
2431 - break;
2432 - case 'pagenamee':
2433 - I HAS value IZ $this->mTitle->getPartialURL()
2434 - break;
2435 - case 'fullpagename':
2436 - I HAS value IZ wfEscapeWikiText( $this->mTitle->getPrefixedText() )
2437 - break;
2438 - case 'fullpagenamee':
2439 - I HAS value IZ $this->mTitle->getPrefixedURL()
2440 - break;
2441 - case 'subpagename':
2442 - I HAS value IZ wfEscapeWikiText( $this->mTitle->getSubpageText() )
2443 - break;
2444 - case 'subpagenamee':
2445 - I HAS value IZ $this->mTitle->getSubpageUrlForm()
2446 - break;
2447 - case 'basepagename':
2448 - I HAS value IZ wfEscapeWikiText( $this->mTitle->getBaseText() )
2449 - break;
2450 - case 'basepagenamee':
2451 - I HAS value IZ wfUrlEncode( str_replace( ' ', '_', $this->mTitle->getBaseText() ) )
2452 - break;
2453 - case 'talkpagename':
2454 - IZ $this->mTitle->canTalk()
2455 - I HAS talkPage IZ $this->mTitle->getTalkPage()
2456 - I HAS value IZ wfEscapeWikiText( $talkPage->getPrefixedText() )
2457 - NOWAI
2458 - I HAS value IZ ''
2459 - KTHX
2460 - break;
2461 - case 'talkpagenamee':
2462 - IZ $this->mTitle->canTalk()
2463 - I HAS talkPage IZ $this->mTitle->getTalkPage()
2464 - I HAS value IZ $talkPage->getPrefixedUrl()
2465 - NOWAI
2466 - I HAS value IZ ''
2467 - KTHX
2468 - break;
2469 - case 'subjectpagename':
2470 - I HAS subjPage IZ $this->mTitle->getSubjectPage()
2471 - I HAS value IZ wfEscapeWikiText( $subjPage->getPrefixedText() )
2472 - break;
2473 - case 'subjectpagenamee':
2474 - I HAS subjPage IZ $this->mTitle->getSubjectPage()
2475 - I HAS value IZ $subjPage->getPrefixedUrl()
2476 - break;
2477 - case 'revisionid':
2478 - BTW Let the edit saving system know we should parse the page
2479 - BTW *after* a revision ID has been assigned.
2480 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2481 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONID}} used, setting vary-revision...\n"
2482 - I HAS value IZ $this->mRevisionId
2483 - break;
2484 - case 'revisionday':
2485 - BTW Let the edit saving system know we should parse the page
2486 - BTW *after* a revision ID has been assigned. This is for null edits.
2487 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2488 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONDAY}} used, setting vary-revision...\n"
2489 - I HAS value IZ intval( substr( $this->getRevisionTimestamp(), 6, 2 ) )
2490 - break;
2491 - case 'revisionday2':
2492 - BTW Let the edit saving system know we should parse the page
2493 - BTW *after* a revision ID has been assigned. This is for null edits.
2494 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2495 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONDAY2}} used, setting vary-revision...\n"
2496 - I HAS value IZ substr( $this->getRevisionTimestamp(), 6, 2 )
2497 - break;
2498 - case 'revisionmonth':
2499 - BTW Let the edit saving system know we should parse the page
2500 - BTW *after* a revision ID has been assigned. This is for null edits.
2501 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2502 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONMONTH}} used, setting vary-revision...\n"
2503 - I HAS value IZ intval( substr( $this->getRevisionTimestamp(), 4, 2 ) )
2504 - break;
2505 - case 'revisionyear':
2506 - BTW Let the edit saving system know we should parse the page
2507 - BTW *after* a revision ID has been assigned. This is for null edits.
2508 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2509 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONYEAR}} used, setting vary-revision...\n"
2510 - I HAS value IZ substr( $this->getRevisionTimestamp(), 0, 4 )
2511 - break;
2512 - case 'revisiontimestamp':
2513 - BTW Let the edit saving system know we should parse the page
2514 - BTW *after* a revision ID has been assigned. This is for null edits.
2515 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2516 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONTIMESTAMP}} used, setting vary-revision...\n"
2517 - I HAS value IZ $this->getRevisionTimestamp()
2518 - break;
2519 - case 'revisionuser':
2520 - BTW Let the edit saving system know we should parse the page
2521 - BTW *after* a revision ID has been assigned. This is for null edits.
2522 - IM ON UR SPECIAL mOutput->setFlag DOING 'vary-revision'
2523 - IM ON UR wfDebug DOING __METHOD__ . ": {{REVISIONUSER}} used, setting vary-revision...\n"
2524 - I HAS value IZ $this->getRevisionUser()
2525 - break;
2526 - case 'namespace':
2527 - I HAS value IZ str_replace( '_',' ',$wgContLang->getNsText( $this->mTitle->getNamespace() ) )
2528 - break;
2529 - case 'namespacee':
2530 - I HAS value IZ wfUrlencode( $wgContLang->getNsText( $this->mTitle->getNamespace() ) )
2531 - break;
2532 - case 'talkspace':
2533 - I HAS value IZ $this->mTitle->canTalk() ? str_replace( '_',' ',$this->mTitle->getTalkNsText() ) : ''
2534 - break;
2535 - case 'talkspacee':
2536 - I HAS value IZ $this->mTitle->canTalk() ? wfUrlencode( $this->mTitle->getTalkNsText() ) : ''
2537 - break;
2538 - case 'subjectspace':
2539 - I HAS value IZ $this->mTitle->getSubjectNsText()
2540 - break;
2541 - case 'subjectspacee':
2542 - I HAS value IZ ( wfUrlencode( $this->mTitle->getSubjectNsText() ) )
2543 - break;
2544 - case 'currentdayname':
2545 - I HAS value IZ $wgContLang->getWeekdayName( gmdate( 'w', $ts ) + 1 )
2546 - break;
2547 - case 'currentyear':
2548 - I HAS value IZ $wgContLang->formatNum( gmdate( 'Y', $ts ), true )
2549 - break;
2550 - case 'currenttime':
2551 - I HAS value IZ $wgContLang->time( wfTimestamp( TS_MW, $ts ), false, false )
2552 - break;
2553 - case 'currenthour':
2554 - I HAS value IZ $wgContLang->formatNum( gmdate( 'H', $ts ), true )
2555 - break;
2556 - case 'currentweek':
2557 - BTW @bug 4594 PHP5 has it zero padded, PHP4 does not, cast to
2558 - BTW int to remove the padding
2559 - I HAS value IZ $wgContLang->formatNum( (int)gmdate( 'W', $ts ) )
2560 - break;
2561 - case 'currentdow':
2562 - I HAS value IZ $wgContLang->formatNum( gmdate( 'w', $ts ) )
2563 - break;
2564 - case 'localdayname':
2565 - I HAS value IZ $wgContLang->getWeekdayName( $localDayOfWeek + 1 )
2566 - break;
2567 - case 'localyear':
2568 - I HAS value IZ $wgContLang->formatNum( $localYear, true )
2569 - break;
2570 - case 'localtime':
2571 - I HAS value IZ $wgContLang->time( $localTimestamp, false, false )
2572 - break;
2573 - case 'localhour':
2574 - I HAS value IZ $wgContLang->formatNum( $localHour, true )
2575 - break;
2576 - case 'localweek':
2577 - BTW @bug 4594 PHP5 has it zero padded, PHP4 does not, cast to
2578 - BTW int to remove the padding
2579 - I HAS value IZ $wgContLang->formatNum( (int)$localWeek )
2580 - break;
2581 - case 'localdow':
2582 - I HAS value IZ $wgContLang->formatNum( $localDayOfWeek )
2583 - break;
2584 - case 'numberofarticles':
2585 - I HAS value IZ $wgContLang->formatNum( SiteStats::articles() )
2586 - break;
2587 - case 'numberoffiles':
2588 - I HAS value IZ $wgContLang->formatNum( SiteStats::images() )
2589 - break;
2590 - case 'numberofusers':
2591 - I HAS value IZ $wgContLang->formatNum( SiteStats::users() )
2592 - break;
2593 - case 'numberofactiveusers':
2594 - I HAS value IZ $wgContLang->formatNum( SiteStats::activeUsers() )
2595 - break;
2596 - case 'numberofpages':
2597 - I HAS value IZ $wgContLang->formatNum( SiteStats::pages() )
2598 - break;
2599 - case 'numberofadmins':
2600 - I HAS value IZ $wgContLang->formatNum( SiteStats::numberingroup( 'sysop' ) )
2601 - break;
2602 - case 'numberofedits':
2603 - I HAS value IZ $wgContLang->formatNum( SiteStats::edits() )
2604 - break;
2605 - case 'numberofviews':
2606 - I HAS value IZ $wgContLang->formatNum( SiteStats::views() )
2607 - break;
2608 - case 'currenttimestamp':
2609 - I HAS value IZ wfTimestamp( TS_MW, $ts )
2610 - break;
2611 - case 'localtimestamp':
2612 - I HAS value IZ $localTimestamp
2613 - break;
2614 - case 'currentversion':
2615 - I HAS value IZ SpecialVersion::getVersion()
2616 - break;
2617 - case 'sitename':
2618 - I FOUND MAH $wgSitename
2619 - case 'server':
2620 - I FOUND MAH $wgServer
2621 - case 'servername':
2622 - I FOUND MAH $wgServerName
2623 - case 'scriptpath':
2624 - I FOUND MAH $wgScriptPath
2625 - case 'stylepath':
2626 - I FOUND MAH $wgStylePath
2627 - case 'directionmark':
2628 - I FOUND MAH $wgContLang->getDirMark()
2629 - case 'contentlanguage':
2630 - I HAS UR $wgContLanguageCode ON UR INTERNETS
2631 - I FOUND MAH $wgContLanguageCode
2632 - default:
2633 - I HAS ret
2634 - IZ wfRunHooks( 'ParserGetVariableValueSwitch', array( &$this, &$this->mVarCache, &$index, &$ret, &$frame ) )
2635 - I FOUND MAH $ret
2636 - NOWAI
2637 - I FOUND MAH null
2638 - KTHX
2639 - KTHX
2640 -
2641 - if ( $index )
2642 - $this->mVarCache[$index] = $value;
2643 -
2644 - I FOUND MAH $value
2645 - KTHX
2646 -
2647 - DO NOT WANT
2648 - NOT WANT initialise the magic variables (like CURRENTMONTHNAME) and substitution modifiers
2649 - NOT WANT
2650 - NOT WANT @private
2651 - WANT
2652 - SO IM LIKE initialiseVariables
2653 - IM ON UR wfProfileIn DOING __METHOD__
2654 - I HAS variableIDs IZ MagicWord::getVariableIDs()
2655 - I HAS substIDs IZ MagicWord::getSubstIDs()
2656 -
2657 - UR SPECIAL mVariables IZ new MagicWordArray( $variableIDs );
2658 - UR SPECIAL mSubstWords IZ new MagicWordArray( $substIDs );
2659 - IM ON UR wfProfileOut DOING __METHOD__
2660 - KTHX
2661 -
2662 - DO NOT WANT
2663 - NOT WANT Preprocess some wikitext and return the document tree.
2664 - NOT WANT This is the ghost of replace_variables().
2665 - NOT WANT
2666 - NOT WANT @param string $text The text to parse
2667 - NOT WANT @param integer flags Bitwise combination of:
2668 - NOT WANT self::PTD_FOR_INCLUSION Handle <noinclude>/<includeonly> as if the text is being
2669 - NOT WANT included. Default is to assume a direct page view.
2670 - NOT WANT
2671 - NOT WANT The generated DOM tree must depend only on the input text and the flags.
2672 - NOT WANT The DOM tree must be the same in OT_HTML and OT_WIKI mode, to avoid a regression of bug 4899.
2673 - NOT WANT
2674 - NOT WANT Any flag added to the $flags parameter here, or any other parameter liable to cause a
2675 - NOT WANT change in the DOM tree for a given text, must be passed through the section identifier
2676 - NOT WANT in the section edit link and thus back to extractSections().
2677 - NOT WANT
2678 - NOT WANT The output of this function is currently only cached in process memory, but a persistent
2679 - NOT WANT cache may be implemented at a later date which takes further advantage of these strict
2680 - NOT WANT dependency requirements.
2681 - NOT WANT
2682 - NOT WANT @private
2683 - WANT
2684 - SO IM LIKE preprocessToDom WITH UR $text, $flags = 0
2685 - I HAS dom IZ $this->getPreprocessor()->preprocessToObj( $text, $flags )
2686 - I FOUND MAH $dom
2687 - KTHX
2688 -
2689 - DO NOT WANT
2690 - NOT WANT Return a three-element array: leading whitespace, string contents, trailing whitespace
2691 - WANT
2692 - SO IM ALWAYS LIKE splitWhitespace WITH UR $s
2693 - I HAS ltrimmed IZ ltrim( $s )
2694 - I HAS w1 IZ substr( $s, 0, strlen( $s ) - strlen( $ltrimmed ) )
2695 - I HAS trimmed IZ rtrim( $ltrimmed )
2696 - I HAS diff IZ strlen( $ltrimmed ) - strlen( $trimmed )
2697 - IZ $diff > 0
2698 - I HAS w2 IZ substr( $ltrimmed, -$diff )
2699 - NOWAI
2700 - I HAS w2 IZ ''
2701 - KTHX
2702 - I FOUND MAH array( $w1, $trimmed, $w2 )
2703 - KTHX
2704 -
2705 - DO NOT WANT
2706 - NOT WANT Replace magic variables, templates, and template arguments
2707 - NOT WANT with the appropriate text. Templates are substituted recursively,
2708 - NOT WANT taking care to avoid infinite loops.
2709 - NOT WANT
2710 - NOT WANT Note that the substitution depends on value of $mOutputType:
2711 - NOT WANT self::OT_WIKI: only {{subst:}} templates
2712 - NOT WANT self::OT_PREPROCESS: templates but not extension tags
2713 - NOT WANT self::OT_HTML: all templates and extension tags
2714 - NOT WANT
2715 - NOT WANT @param string $tex The text to transform
2716 - NOT WANT @param PPFrame $frame Object describing the arguments passed to the template.
2717 - NOT WANT Arguments may also be provided as an associative array, as was the usual case before MW1.12.
2718 - NOT WANT Providing arguments this way may be useful for extensions wishing to perform variable replacement explicitly.
2719 - NOT WANT @param bool $argsOnly Only do argument (triple-brace) expansion, not double-brace expansion
2720 - NOT WANT @private
2721 - WANT
2722 - SO IM LIKE replaceVariables WITH UR $text, $frame = false, $argsOnly = false
2723 - BTW Is there any text? Also, Prevent too big inclusions!
2724 - IZ strlen( $text ) < 1 || strlen( $text ) > $this->mOptions->getMaxIncludeSize()
2725 - I FOUND MAH $text
2726 - KTHX
2727 - IM ON UR wfProfileIn DOING __METHOD__
2728 -
2729 - IZ $frame === false
2730 - I HAS frame IZ $this->getPreprocessor()->newFrame()
2731 - ORLY !( $frame instanceof PPFrame )
2732 - IM ON UR wfDebug DOING __METHOD__." called using plain parameters instead of a PPFrame instance. Creating custom frame.\n"
2733 - I HAS frame IZ $this->getPreprocessor()->newCustomFrame( $frame )
2734 - KTHX
2735 -
2736 - I HAS dom IZ $this->preprocessToDom( $text )
2737 - I HAS flags IZ $argsOnly ? PPFrame::NO_TEMPLATES : 0
2738 - I HAS text IZ $frame->expand( $dom, $flags )
2739 -
2740 - IM ON UR wfProfileOut DOING __METHOD__
2741 - I FOUND MAH $text
2742 - KTHX
2743 -
2744 - BTW Clean up argument array - refactored in 1.9 so parserfunctions can use it, too.
2745 - SO IM ALWAYS LIKE createAssocArgs WITH UR $args
2746 - I HAS assocArgs IZ EMPTY
2747 - I HAS index IZ 1
2748 - IM IN UR args ITZA arg
2749 - I HAS eqpos IZ strpos( $arg, '=' )
2750 - IZ $eqpos === false
2751 - $assocArgs[$index++] = $arg;
2752 - NOWAI
2753 - I HAS name IZ trim( substr( $arg, 0, $eqpos ) )
2754 - I HAS value IZ trim( substr( $arg, $eqpos+1 ) )
2755 - IZ $value === false
2756 - I HAS value IZ ''
2757 - KTHX
2758 - IZ $name !== false
2759 - $assocArgs[$name] = $value;
2760 - KTHX
2761 - KTHX
2762 - KTHX
2763 -
2764 - I FOUND MAH $assocArgs
2765 - KTHX
2766 -
2767 - DO NOT WANT
2768 - NOT WANT Warn the user when a parser limitation is reached
2769 - NOT WANT Will warn at most once the user per limitation type
2770 - NOT WANT
2771 - NOT WANT @param string $limitationType, should be one of:
2772 - NOT WANT 'expensive-parserfunction' (corresponding messages:
2773 - NOT WANT 'expensive-parserfunction-warning',
2774 - NOT WANT 'expensive-parserfunction-category')
2775 - NOT WANT 'post-expand-template-argument' (corresponding messages:
2776 - NOT WANT 'post-expand-template-argument-warning',
2777 - NOT WANT 'post-expand-template-argument-category')
2778 - NOT WANT 'post-expand-template-inclusion' (corresponding messages:
2779 - NOT WANT 'post-expand-template-inclusion-warning',
2780 - NOT WANT 'post-expand-template-inclusion-category')
2781 - NOT WANT @params int $current, $max When an explicit limit has been
2782 - NOT WANT exceeded, provide the values (optional)
2783 - WANT
2784 - function limitationWarn( $limitationType, $current=null, $max=null) {
2785 - BTW does no harm if $current and $max are present but are unnecessary for the message
2786 - I HAS warning IZ wfMsgExt( "$limitationType-warning", array( 'parsemag', 'escape' ), $current, $max )
2787 - IM ON UR SPECIAL mOutput->addWarning DOING $warning
2788 - IM ON UR SPECIAL addTrackingCategory DOING "$limitationType-category"
2789 - KTHX
2790 -
2791 - DO NOT WANT
2792 - NOT WANT Return the text of a template, after recursively
2793 - NOT WANT replacing any variables or templates within the template.
2794 - NOT WANT
2795 - NOT WANT @param array $piece The parts of the template
2796 - NOT WANT $piece['title']: the title, i.e. the part before the |
2797 - NOT WANT $piece['parts']: the parameter array
2798 - NOT WANT $piece['lineStart']: whether the brace was at the start of a line
2799 - NOT WANT @param PPFrame The current frame, contains template arguments
2800 - NOT WANT @return string the text of the template
2801 - NOT WANT @private
2802 - WANT
2803 - SO IM LIKE braceSubstitution WITH UR $piece, $frame
2804 - I HAS UR $wgContLang, $wgNonincludableNamespaces ON UR INTERNETS
2805 - IM ON UR wfProfileIn DOING __METHOD__
2806 - IM ON UR wfProfileIn DOING __METHOD__.'-setup'
2807 -
2808 - BTW Flags
2809 - I HAS found IZ false # $text has been filled
2810 - I HAS nowiki IZ false # wiki markup in $text should be escaped
2811 - I HAS isHTML IZ false # $text is HTML, armour it against wikitext transformation
2812 - I HAS forceRawInterwiki IZ false # Force interwiki transclusion to be done in raw mode not rendered
2813 - I HAS isChildObj IZ false # $text is a DOM node needing expansion in a child frame
2814 - I HAS isLocalObj IZ false # $text is a DOM node needing expansion in the current frame
2815 -
2816 - BTW Title object, where $text came from
2817 - I HAS title
2818 -
2819 - BTW $part1 is the bit before the first |, and must contain only title characters.
2820 - BTW Various prefixes will be stripped from it later.
2821 - I HAS titleWithSpaces IZ $frame->expand( $piece['title'] )
2822 - I HAS part1 IZ trim( $titleWithSpaces )
2823 - I HAS titleText IZ false
2824 -
2825 - BTW Original title text preserved for various purposes
2826 - I HAS originalTitle IZ $part1
2827 -
2828 - BTW $args is a list of argument nodes, starting from index 0, not including $part1
2829 - I HAS args IZ ( null == $piece['parts'] ) ? array() : $piece['parts']
2830 - IM ON UR wfProfileOut DOING __METHOD__.'-setup'
2831 -
2832 - BTW SUBST
2833 - IM ON UR wfProfileIn DOING __METHOD__.'-modifiers'
2834 - IZ !$found
2835 -
2836 - I HAS substMatch IZ $this->mSubstWords->matchStartAndRemove( $part1 )
2837 -
2838 - BTW Possibilities for substMatch: "subst", "safesubst" or FALSE
2839 - BTW Decide whether to expand template or keep wikitext as-is.
2840 - IZ $this->ot['wiki']
2841 - IZ $substMatch === false
2842 - I HAS literal IZ true # literal when in PST with no prefix
2843 - NOWAI
2844 - I HAS literal IZ false # expand when in PST with subst: or safesubst:
2845 - KTHX
2846 - NOWAI
2847 - IZ $substMatch == 'subst'
2848 - I HAS literal IZ true # literal when not in PST with plain subst:
2849 - NOWAI
2850 - I HAS literal IZ false # expand when not in PST with safesubst: or no prefix
2851 - KTHX
2852 - KTHX
2853 - IZ $literal
2854 - I HAS text IZ $frame->virtualBracketedImplode( '{{', '|', '}}', $titleWithSpaces, $args )
2855 - I HAS isLocalObj IZ true
2856 - I HAS found IZ true
2857 - KTHX
2858 - KTHX
2859 -
2860 - BTW Variables
2861 - IZ !$found && $args->getLength() == 0
2862 - I HAS id IZ $this->mVariables->matchStartToEnd( $part1 )
2863 - IZ $id !== false
2864 - I HAS text IZ $this->getVariableValue( $id, $frame )
2865 - IZ MagicWord::getCacheTTL( $id ) > -1
2866 - UR SPECIAL mOutput->mContainsOldMagic IZ true;
2867 - KTHX
2868 - I HAS found IZ true
2869 - KTHX
2870 - KTHX
2871 -
2872 - BTW MSG, MSGNW and RAW
2873 - IZ !$found
2874 - BTW Check for MSGNW:
2875 - I HAS mwMsgnw IZ MagicWord::get( 'msgnw' )
2876 - IZ $mwMsgnw->matchStartAndRemove( $part1 )
2877 - I HAS nowiki IZ true
2878 - NOWAI
2879 - BTW Remove obsolete MSG:
2880 - I HAS mwMsg IZ MagicWord::get( 'msg' )
2881 - $mwMsg->matchStartAndRemove( $part1 );
2882 - KTHX
2883 -
2884 - BTW Check for RAW:
2885 - I HAS mwRaw IZ MagicWord::get( 'raw' )
2886 - IZ $mwRaw->matchStartAndRemove( $part1 )
2887 - I HAS forceRawInterwiki IZ true
2888 - KTHX
2889 - KTHX
2890 - IM ON UR wfProfileOut DOING __METHOD__.'-modifiers'
2891 -
2892 - BTW Parser functions
2893 - IZ !$found
2894 - IM ON UR wfProfileIn DOING __METHOD__ . '-pfunc'
2895 -
2896 - I HAS colonPos IZ strpos( $part1, ':' )
2897 - IZ $colonPos !== false
2898 - BTW Case sensitive functions
2899 - I HAS function IZ substr( $part1, 0, $colonPos )
2900 - IZ isset( $this->mFunctionSynonyms[1][$function] )
2901 - I HAS function IZ $this->mFunctionSynonyms[1][$function]
2902 - NOWAI
2903 - BTW Case insensitive functions
2904 - I HAS function IZ $wgContLang->lc( $function )
2905 - IZ isset( $this->mFunctionSynonyms[0][$function] )
2906 - I HAS function IZ $this->mFunctionSynonyms[0][$function]
2907 - NOWAI
2908 - I HAS function IZ false
2909 - KTHX
2910 - KTHX
2911 - IZ $function
2912 - list( $callback, $flags ) = $this->mFunctionHooks[$function];
2913 - I HAS initialArgs IZ BUCKET &$this );
2914 - I HAS funcArgs IZ BUCKET trim( substr( $part1, $colonPos + 1 ) ) );
2915 - IZ $flags & SFH_OBJECT_ARGS
2916 - BTW Add a frame parameter, and pass the arguments as an array
2917 - I HAS allArgs IZ $initialArgs
2918 - $allArgs[] = $frame;
2919 - for ( $i = 0; $i < $args->getLength(); $i++ ) {
2920 - $funcArgs[] = $args->item( $i );
2921 - KTHX
2922 - $allArgs[] = $funcArgs;
2923 - NOWAI
2924 - BTW Convert arguments to plain text
2925 - for ( $i = 0; $i < $args->getLength(); $i++ ) {
2926 - $funcArgs[] = trim( $frame->expand( $args->item( $i ) ) );
2927 - KTHX
2928 - I HAS allArgs IZ array_merge( $initialArgs, $funcArgs )
2929 - KTHX
2930 -
2931 - BTW Workaround for PHP bug 35229 and similar
2932 - IZ !is_callable( $callback )
2933 - IM ON UR wfProfileOut DOING __METHOD__ . '-pfunc'
2934 - IM ON UR wfProfileOut DOING __METHOD__
2935 - throw new MWException( "Tag hook for $function is not callable\n" );
2936 - KTHX
2937 - I HAS result IZ call_user_func_array( $callback, $allArgs )
2938 - I HAS found IZ true
2939 - I HAS noparse IZ true
2940 - I HAS preprocessFlags IZ 0
2941 -
2942 - IZ is_array( $result )
2943 - IZ isset( $result[0] )
2944 - I HAS text IZ $result[0]
2945 - IM ON UR unset DOING $result[0]
2946 - KTHX
2947 -
2948 - BTW Extract flags into the local scope
2949 - BTW This allows callers to set flags such as nowiki, found, etc.
2950 - IM ON UR extract DOING $result
2951 - NOWAI
2952 - I HAS text IZ $result
2953 - KTHX
2954 - IZ !$noparse
2955 - I HAS text IZ $this->preprocessToDom( $text, $preprocessFlags )
2956 - I HAS isChildObj IZ true
2957 - KTHX
2958 - KTHX
2959 - KTHX
2960 - IM ON UR wfProfileOut DOING __METHOD__ . '-pfunc'
2961 - KTHX
2962 -
2963 - BTW Finish mangling title and then check for loops.
2964 - BTW Set $title to a Title object and $titleText to the PDBK
2965 - IZ !$found
2966 - I HAS ns IZ NS_TEMPLATE
2967 - BTW Split the title into page and subpage
2968 - I HAS subpage IZ ''
2969 - I HAS part1 IZ $this->maybeDoSubpageLink( $part1, $subpage )
2970 - IZ $subpage !== ''
2971 - I HAS ns IZ $this->mTitle->getNamespace()
2972 - KTHX
2973 - I HAS title IZ Title::newFromText( $part1, $ns )
2974 - IZ $title
2975 - I HAS titleText IZ $title->getPrefixedText()
2976 - BTW Check for language variants if the template is not found
2977 - IZ $wgContLang->hasVariants() && $title->getArticleID() == 0
2978 - $wgContLang->findVariantLink( $part1, $title, true );
2979 - KTHX
2980 - BTW Do recursion depth check
2981 - I HAS limit IZ $this->mOptions->getMaxTemplateDepth()
2982 - IZ $frame->depth >= $limit
2983 - I HAS found IZ true
2984 - text IZ '<span class="error">'
2985 - . wfMsgForContent( 'parser-template-recursion-depth-warning', $limit )
2986 - . '</span>';
2987 - KTHX
2988 - KTHX
2989 - KTHX
2990 -
2991 - BTW Load from database
2992 - IZ !$found && $title
2993 - IM ON UR wfProfileIn DOING __METHOD__ . '-loadtpl'
2994 - IZ !$title->isExternal()
2995 - if ( $title->getNamespace() == NS_SPECIAL
2996 - && $this->mOptions->getAllowSpecialInclusion()
2997 - && $this->ot['html'] )
2998 - {
2999 - I HAS text IZ SpecialPage::capturePath( $title )
3000 - IZ is_string( $text )
3001 - I HAS found IZ true
3002 - I HAS isHTML IZ true
3003 - IM ON UR SPECIAL disableCache
3004 - KTHX
3005 - ORLY $wgNonincludableNamespaces && in_array( $title->getNamespace(), $wgNonincludableNamespaces )
3006 - I HAS found IZ false # access denied
3007 - IM ON UR wfDebug DOING __METHOD__.": template inclusion denied for " . $title->getPrefixedDBkey()
3008 - NOWAI
3009 - IM ON UR list DOING $text, $title ) = $this->getTemplateDom( $title
3010 - IZ $text !== false
3011 - I HAS found IZ true
3012 - I HAS isChildObj IZ true
3013 - KTHX
3014 - KTHX
3015 -
3016 - BTW If the title is valid but undisplayable, make a link to it
3017 - IZ !$found && ( $this->ot['html'] || $this->ot['pre'] )
3018 - I HAS text IZ "[[:$titleText]]"
3019 - I HAS found IZ true
3020 - KTHX
3021 - ORLY $title->isTrans()
3022 - BTW Interwiki transclusion
3023 - IZ $this->ot['html'] && !$forceRawInterwiki
3024 - I HAS text IZ $this->interwikiTransclude( $title, 'render' )
3025 - I HAS isHTML IZ true
3026 - NOWAI
3027 - I HAS text IZ $this->interwikiTransclude( $title, 'raw' )
3028 - BTW Preprocess it like a template
3029 - I HAS text IZ $this->preprocessToDom( $text, self::PTD_FOR_INCLUSION )
3030 - I HAS isChildObj IZ true
3031 - KTHX
3032 - I HAS found IZ true
3033 - KTHX
3034 -
3035 - BTW Do infinite loop check
3036 - BTW This has to be done after redirect resolution to avoid infinite loops via redirects
3037 - IZ !$frame->loopCheck( $title )
3038 - I HAS found IZ true
3039 - I HAS text IZ '<span class="error">' . wfMsgForContent( 'parser-template-loop-warning', $titleText ) . '</span>'
3040 - IM ON UR wfDebug DOING __METHOD__.": template loop broken at '$titleText'\n"
3041 - KTHX
3042 - IM ON UR wfProfileOut DOING __METHOD__ . '-loadtpl'
3043 - KTHX
3044 -
3045 - BTW If we haven't found text to substitute by now, we're done
3046 - BTW Recover the source wikitext and return it
3047 - IZ !$found
3048 - I HAS text IZ $frame->virtualBracketedImplode( '{{', '|', '}}', $titleWithSpaces, $args )
3049 - IM ON UR wfProfileOut DOING __METHOD__
3050 - I FOUND MAH array( 'object' => $text )
3051 - KTHX
3052 -
3053 - BTW Expand DOM-style return values in a child frame
3054 - IZ $isChildObj
3055 - BTW Clean up argument array
3056 - I HAS newFrame IZ $frame->newChild( $args, $title )
3057 -
3058 - IZ $nowiki
3059 - I HAS text IZ $newFrame->expand( $text, PPFrame::RECOVER_ORIG )
3060 - ORLY $titleText !== false && $newFrame->isEmpty()
3061 - BTW Expansion is eligible for the empty-frame cache
3062 - IZ isset( $this->mTplExpandCache[$titleText] )
3063 - I HAS text IZ $this->mTplExpandCache[$titleText]
3064 - NOWAI
3065 - I HAS text IZ $newFrame->expand( $text )
3066 - $this->mTplExpandCache[$titleText] = $text;
3067 - KTHX
3068 - NOWAI
3069 - BTW Uncached expansion
3070 - I HAS text IZ $newFrame->expand( $text )
3071 - KTHX
3072 - KTHX
3073 - IZ $isLocalObj && $nowiki
3074 - I HAS text IZ $frame->expand( $text, PPFrame::RECOVER_ORIG )
3075 - I HAS isLocalObj IZ false
3076 - KTHX
3077 -
3078 - BTW Replace raw HTML by a placeholder
3079 - BTW Add a blank line preceding, to prevent it from mucking up
3080 - BTW immediately preceding headings
3081 - IZ $isHTML
3082 - I HAS text IZ "\n\n" . $this->insertStripItem( $text )
3083 - ORLY $nowiki && ( $this->ot['html'] || $this->ot['pre'] )
3084 - BTW Escape nowiki-style return values
3085 - I HAS text IZ wfEscapeWikiText( $text )
3086 - KTHX elseif ( is_string( $text )
3087 - && !$piece['lineStart']
3088 - && preg_match( '/^(?:{\\||:|;|#|\*)/', $text ) )
3089 - {
3090 - BTW Bug 529: if the template begins with a table or block-level
3091 - BTW element, it should be treated as beginning a new line.
3092 - BTW This behaviour is somewhat controversial.
3093 - I HAS text IZ "\n" . $text
3094 - KTHX
3095 -
3096 - IZ is_string( $text ) && !$this->incrementIncludeSize( 'post-expand', strlen( $text ) )
3097 - BTW Error, oversize inclusion
3098 - text IZ "[[$originalTitle]]" .
3099 - IM ON UR SPECIAL insertStripItem DOING '<!-- WARNING: template omitted, post-expand include size too large -->'
3100 - IM ON UR SPECIAL limitationWarn DOING 'post-expand-template-inclusion'
3101 - KTHX
3102 -
3103 - IZ $isLocalObj
3104 - I HAS ret IZ BUCKET 'object' => $text );
3105 - NOWAI
3106 - I HAS ret IZ BUCKET 'text' => $text );
3107 - KTHX
3108 -
3109 - IM ON UR wfProfileOut DOING __METHOD__
3110 - I FOUND MAH $ret
3111 - KTHX
3112 -
3113 - DO NOT WANT
3114 - NOT WANT Get the semi-parsed DOM representation of a template with a given title,
3115 - NOT WANT and its redirect destination title. Cached.
3116 - WANT
3117 - SO IM LIKE getTemplateDom WITH UR $title
3118 - I HAS cacheTitle IZ $title
3119 - I HAS titleText IZ $title->getPrefixedDBkey()
3120 -
3121 - IZ isset( $this->mTplRedirCache[$titleText] )
3122 - list( $ns, $dbk ) = $this->mTplRedirCache[$titleText];
3123 - I HAS title IZ Title::makeTitle( $ns, $dbk )
3124 - I HAS titleText IZ $title->getPrefixedDBkey()
3125 - KTHX
3126 - IZ isset( $this->mTplDomCache[$titleText] )
3127 - I FOUND MAH array( $this->mTplDomCache[$titleText], $title )
3128 - KTHX
3129 -
3130 - BTW Cache miss, go to the database
3131 - IM ON UR list DOING $text, $title ) = $this->fetchTemplateAndTitle( $title
3132 -
3133 - IZ $text === false
3134 - $this->mTplDomCache[$titleText] = false;
3135 - I FOUND MAH array( false, $title )
3136 - KTHX
3137 -
3138 - I HAS dom IZ $this->preprocessToDom( $text, self::PTD_FOR_INCLUSION )
3139 - $this->mTplDomCache[ $titleText ] = $dom;
3140 -
3141 - IZ !$title->equals( $cacheTitle )
3142 - $this->mTplRedirCache[$cacheTitle->getPrefixedDBkey()] =
3143 - IM ON UR array DOING $title->getNamespace(),$cdb = $title->getDBkey()
3144 - KTHX
3145 -
3146 - I FOUND MAH array( $dom, $title )
3147 - KTHX
3148 -
3149 - DO NOT WANT
3150 - NOT WANT Fetch the unparsed text of a template and register a reference to it.
3151 - WANT
3152 - SO IM LIKE fetchTemplateAndTitle WITH UR $title
3153 - I HAS templateCb IZ $this->mOptions->getTemplateCallback()
3154 - I HAS stuff IZ call_user_func( $templateCb, $title, $this )
3155 - I HAS text IZ $stuff['text']
3156 - I HAS finalTitle IZ isset( $stuff['finalTitle'] ) ? $stuff['finalTitle'] : $title
3157 - IZ isset( $stuff['deps'] )
3158 - foreach ( $stuff['deps'] as $dep ) {
3159 - IM ON UR SPECIAL mOutput->addTemplate DOING $dep['title'], $dep['page_id'], $dep['rev_id']
3160 - KTHX
3161 - KTHX
3162 - I FOUND MAH array( $text, $finalTitle )
3163 - KTHX
3164 -
3165 - SO IM LIKE fetchTemplate WITH UR $title
3166 - I HAS rv IZ $this->fetchTemplateAndTitle( $title )
3167 - I FOUND MAH $rv[0]
3168 - KTHX
3169 -
3170 - DO NOT WANT
3171 - NOT WANT Static function to get a template
3172 - NOT WANT Can be overridden via ParserOptions::setTemplateCallback().
3173 - WANT
3174 - SO IM ALWAYS LIKE statelessFetchTemplate WITH UR $title, $parser=false
3175 - I HAS text IZ $skip = false
3176 - I HAS finalTitle IZ $title
3177 - I HAS deps IZ EMPTY
3178 -
3179 - BTW Loop to fetch the article, with up to 1 redirect
3180 - for ( $i = 0; $i < 2 && is_object( $title ); $i++ ) {
3181 - BTW Give extensions a chance to select the revision instead
3182 - I HAS id IZ false # Assume current
3183 - IM ON UR wfRunHooks DOING 'BeforeParserFetchTemplateAndtitle', array( $parser, &$title, &$skip, &$id )
3184 -
3185 - IZ $skip
3186 - I HAS text IZ false
3187 - $deps[] = array(
3188 - 'title' => $title,
3189 - 'page_id' => $title->getArticleID(),
3190 - 'rev_id' => null );
3191 - break;
3192 - KTHX
3193 - I HAS rev IZ $id ? Revision::newFromId( $id ) : Revision::newFromTitle( $title )
3194 - I HAS rev_id IZ $rev ? $rev->getId() : 0
3195 - BTW If there is no current revision, there is no page
3196 - IZ $id === false && !$rev
3197 - I HAS linkCache IZ LinkCache::singleton()
3198 - $linkCache->addBadLinkObj( $title );
3199 - KTHX
3200 -
3201 - $deps[] = array(
3202 - 'title' => $title,
3203 - 'page_id' => $title->getArticleID(),
3204 - 'rev_id' => $rev_id );
3205 -
3206 - IZ $rev
3207 - I HAS text IZ $rev->getText()
3208 - ORLY $title->getNamespace() == NS_MEDIAWIKI
3209 - I HAS UR $wgContLang ON UR INTERNETS
3210 - I HAS message IZ $wgContLang->lcfirst( $title->getText() )
3211 - I HAS text IZ wfMsgForContentNoTrans( $message )
3212 - IZ wfEmptyMsg( $message, $text )
3213 - I HAS text IZ false
3214 - break;
3215 - KTHX
3216 - NOWAI
3217 - break;
3218 - KTHX
3219 - IZ $text === false
3220 - break;
3221 - KTHX
3222 - BTW Redirect?
3223 - I HAS finalTitle IZ $title
3224 - I HAS title IZ Title::newFromRedirect( $text )
3225 - KTHX
3226 - return array(
3227 - 'text' => $text,
3228 - 'finalTitle' => $finalTitle,
3229 - 'deps' => $deps );
3230 - KTHX
3231 -
3232 - DO NOT WANT
3233 - NOT WANT Transclude an interwiki link.
3234 - WANT
3235 - SO IM LIKE interwikiTransclude WITH UR $title, $action
3236 - I HAS UR $wgEnableScaryTranscluding ON UR INTERNETS
3237 -
3238 - IZ !$wgEnableScaryTranscluding
3239 - I FOUND MAH wfMsg('scarytranscludedisabled')
3240 - KTHX
3241 -
3242 - I HAS url IZ $title->getFullUrl( "action=$action" )
3243 -
3244 - IZ strlen( $url ) > 255
3245 - I FOUND MAH wfMsg( 'scarytranscludetoolong' )
3246 - KTHX
3247 - I FOUND MAH $this->fetchScaryTemplateMaybeFromCache( $url )
3248 - KTHX
3249 -
3250 - SO IM LIKE fetchScaryTemplateMaybeFromCache WITH UR $url
3251 - I HAS UR $wgTranscludeCacheExpiry ON UR INTERNETS
3252 - I HAS dbr IZ wfGetDB( DB_SLAVE )
3253 - I HAS tsCond IZ $dbr->timestamp( time() - $wgTranscludeCacheExpiry )
3254 - obj IZ $dbr->selectRow( 'transcache', array('tc_time', 'tc_contents' ),
3255 - IM ON UR array DOING 'tc_url' => $url, "tc_time >= " . $dbr->addQuotes( $tsCond ) )
3256 - IZ $obj
3257 - I FOUND MAH $obj->tc_contents
3258 - KTHX
3259 -
3260 - I HAS text IZ Http::get( $url )
3261 - IZ !$text
3262 - I FOUND MAH wfMsg( 'scarytranscludefailed', $url )
3263 - KTHX
3264 -
3265 - I HAS dbw IZ wfGetDB( DB_MASTER )
3266 - $dbw->replace( 'transcache', array('tc_url'), array(
3267 - 'tc_url' => $url,
3268 - 'tc_time' => $dbw->timestamp( time() ),
3269 - 'tc_contents' => $text)
3270 - BUCKET
3271 - I FOUND MAH $text
3272 - KTHX
3273 -
3274 -
3275 - DO NOT WANT
3276 - NOT WANT Triple brace replacement -- used for template arguments
3277 - NOT WANT @private
3278 - WANT
3279 - SO IM LIKE argSubstitution WITH UR $piece, $frame
3280 - IM ON UR wfProfileIn DOING __METHOD__
3281 -
3282 - I HAS error IZ false
3283 - I HAS parts IZ $piece['parts']
3284 - I HAS nameWithSpaces IZ $frame->expand( $piece['title'] )
3285 - I HAS argName IZ trim( $nameWithSpaces )
3286 - I HAS object IZ false
3287 - I HAS text IZ $frame->getArgument( $argName )
3288 - if ( $text === false && $parts->getLength() > 0
3289 - && (
3290 - $this->ot['html']
3291 - || $this->ot['pre']
3292 - || ( $this->ot['wiki'] && $frame->isTemplate() )
3293 - )
3294 - ) {
3295 - BTW No match in frame, use the supplied default
3296 - I HAS object IZ $parts->item( 0 )->getChildren()
3297 - KTHX
3298 - IZ !$this->incrementIncludeSize( 'arg', strlen( $text ) )
3299 - I HAS error IZ '<!-- WARNING: argument omitted, expansion size too large -->'
3300 - IM ON UR SPECIAL limitationWarn DOING 'post-expand-template-argument'
3301 - KTHX
3302 -
3303 - IZ $text === false && $object === false
3304 - BTW No match anywhere
3305 - I HAS object IZ $frame->virtualBracketedImplode( '{{{', '|', '}}}', $nameWithSpaces, $parts )
3306 - KTHX
3307 - IZ $error !== false
3308 - text HAS MOAR $error;
3309 - KTHX
3310 - IZ $object !== false
3311 - I HAS ret IZ BUCKET 'object' => $object );
3312 - NOWAI
3313 - I HAS ret IZ BUCKET 'text' => $text );
3314 - KTHX
3315 -
3316 - IM ON UR wfProfileOut DOING __METHOD__
3317 - I FOUND MAH $ret
3318 - KTHX
3319 -
3320 - DO NOT WANT
3321 - NOT WANT Return the text to be used for a given extension tag.
3322 - NOT WANT This is the ghost of strip().
3323 - NOT WANT
3324 - NOT WANT @param array $params Associative array of parameters:
3325 - NOT WANT name PPNode for the tag name
3326 - NOT WANT attr PPNode for unparsed text where tag attributes are thought to be
3327 - NOT WANT attributes Optional associative array of parsed attributes
3328 - NOT WANT inner Contents of extension element
3329 - NOT WANT noClose Original text did not have a close tag
3330 - NOT WANT @param PPFrame $frame
3331 - WANT
3332 - SO IM LIKE extensionSubstitution WITH UR $params, $frame
3333 - I HAS UR $wgRawHtml, $wgContLang ON UR INTERNETS
3334 -
3335 - I HAS name IZ $frame->expand( $params['name'] )
3336 - I HAS attrText IZ !isset( $params['attr'] ) ? null : $frame->expand( $params['attr'] )
3337 - I HAS content IZ !isset( $params['inner'] ) ? null : $frame->expand( $params['inner'] )
3338 - I HAS marker IZ "{$this->mUniqPrefix}-$name-" . sprintf( '%08X', $this->mMarkerIndex++ ) . self::MARKER_SUFFIX
3339 -
3340 - isFunctionTag IZ isset( $this->mFunctionTagHooks[strtolower($name)] ) &&
3341 - ( $this->ot['html'] || $this->ot['pre'] );
3342 - IZ $isFunctionTag
3343 - I HAS markerType IZ 'none'
3344 - NOWAI
3345 - I HAS markerType IZ 'general'
3346 - KTHX
3347 - IZ $this->ot['html'] || $isFunctionTag
3348 - I HAS name IZ strtolower( $name )
3349 - I HAS attributes IZ Sanitizer::decodeTagAttributes( $attrText )
3350 - IZ isset( $params['attributes'] )
3351 - I HAS attributes IZ $attributes + $params['attributes']
3352 - KTHX
3353 -
3354 - IZ isset( $this->mTagHooks[$name] )
3355 - BTW Workaround for PHP bug 35229 and similar
3356 - IZ !is_callable( $this->mTagHooks[$name] )
3357 - throw new MWException( "Tag hook for $name is not callable\n" );
3358 - KTHX
3359 - output IZ call_user_func_array( $this->mTagHooks[$name],
3360 - IM ON UR array DOING $content, $attributes, $this, $frame )
3361 - ORLY isset( $this->mFunctionTagHooks[$name] )
3362 - list( $callback, $flags ) = $this->mFunctionTagHooks[$name];
3363 - IZ !is_callable( $callback )
3364 - throw new MWException( "Tag hook for $name is not callable\n" );
3365 - KTHX
3366 -
3367 - I HAS output IZ call_user_func_array( $callback, array( &$this, $frame, $content, $attributes ) )
3368 - NOWAI
3369 - output IZ '<span class="error">Invalid tag extension name: ' .
3370 - htmlspecialchars( $name ) . '</span>';
3371 - KTHX
3372 -
3373 - IZ is_array( $output )
3374 - BTW Extract flags to local scope (to override $markerType)
3375 - I HAS flags IZ $output
3376 - I HAS output IZ $flags[0]
3377 - IM ON UR unset DOING $flags[0]
3378 - IM ON UR extract DOING $flags
3379 - KTHX
3380 - NOWAI
3381 - IZ is_null( $attrText )
3382 - I HAS attrText IZ ''
3383 - KTHX
3384 - IZ isset( $params['attributes'] )
3385 - foreach ( $params['attributes'] as $attrName => $attrValue ) {
3386 - attrText HAS MOAR ' ' . htmlspecialchars( $attrName ) . '="' .
3387 - htmlspecialchars( $attrValue ) . '"';
3388 - KTHX
3389 - KTHX
3390 - IZ $content === null
3391 - I HAS output IZ "<$name$attrText/>"
3392 - NOWAI
3393 - I HAS close IZ is_null( $params['close'] ) ? '' : $frame->expand( $params['close'] )
3394 - I HAS output IZ "<$name$attrText>$content$close"
3395 - KTHX
3396 - KTHX
3397 -
3398 - IZ $markerType === 'none'
3399 - I FOUND MAH $output
3400 - ORLY $markerType === 'nowiki'
3401 - IM ON UR SPECIAL mStripState->nowiki->setPair DOING $marker, $output
3402 - ORLY $markerType === 'general'
3403 - IM ON UR SPECIAL mStripState->general->setPair DOING $marker, $output
3404 - NOWAI
3405 - throw new MWException( __METHOD__.': invalid marker type' );
3406 - KTHX
3407 - I FOUND MAH $marker
3408 - KTHX
3409 -
3410 - DO NOT WANT
3411 - NOT WANT Increment an include size counter
3412 - NOT WANT
3413 - NOT WANT @param string $type The type of expansion
3414 - NOT WANT @param integer $size The size of the text
3415 - NOT WANT @return boolean False if this inclusion would take it over the maximum, true otherwise
3416 - WANT
3417 - SO IM LIKE incrementIncludeSize WITH UR $type, $size
3418 - IZ $this->mIncludeSizes[$type] + $size > $this->mOptions->getMaxIncludeSize( $type )
3419 - I FOUND MAH false
3420 - NOWAI
3421 - $this->mIncludeSizes[$type] += $size;
3422 - I FOUND MAH true
3423 - KTHX
3424 - KTHX
3425 -
3426 - DO NOT WANT
3427 - NOT WANT Increment the expensive function count
3428 - NOT WANT
3429 - NOT WANT @return boolean False if the limit has been exceeded
3430 - WANT
3431 - SO IM LIKE incrementExpensiveFunctionCount
3432 - I HAS UR $wgExpensiveParserFunctionLimit ON UR INTERNETS
3433 - $this->mExpensiveFunctionCount++;
3434 - IZ $this->mExpensiveFunctionCount <= $wgExpensiveParserFunctionLimit
3435 - I FOUND MAH true
3436 - KTHX
3437 - I FOUND MAH false
3438 - KTHX
3439 -
3440 - DO NOT WANT
3441 - NOT WANT Strip double-underscore items like __NOGALLERY__ and __NOTOC__
3442 - NOT WANT Fills $this->mDoubleUnderscores, returns the modified text
3443 - WANT
3444 - SO IM LIKE doDoubleUnderscore WITH UR $text
3445 - IM ON UR wfProfileIn DOING __METHOD__
3446 -
3447 - BTW The position of __TOC__ needs to be recorded
3448 - I HAS mw IZ MagicWord::get( 'toc' )
3449 - IZ $mw->match( $text )
3450 - UR SPECIAL mShowToc IZ true;
3451 - UR SPECIAL mForceTocPosition IZ true;
3452 -
3453 - BTW Set a placeholder. At the end we'll fill it in with the TOC.
3454 - I HAS text IZ $mw->replace( '<!--MWTOC-->', $text, 1 )
3455 -
3456 - BTW Only keep the first one.
3457 - I HAS text IZ $mw->replace( '', $text )
3458 - KTHX
3459 -
3460 - BTW Now match and remove the rest of them
3461 - I HAS mwa IZ MagicWord::getDoubleUnderscoreArray()
3462 - UR SPECIAL mDoubleUnderscores IZ $mwa->matchAndRemove( $text );
3463 -
3464 - IZ isset( $this->mDoubleUnderscores['nogallery'] )
3465 - UR SPECIAL mOutput->mNoGallery IZ true;
3466 - KTHX
3467 - IZ isset( $this->mDoubleUnderscores['notoc'] ) && !$this->mForceTocPosition
3468 - UR SPECIAL mShowToc IZ false;
3469 - KTHX
3470 - IZ isset( $this->mDoubleUnderscores['hiddencat'] ) && $this->mTitle->getNamespace() == NS_CATEGORY
3471 - IM ON UR SPECIAL mOutput->setProperty DOING 'hiddencat', 'y'
3472 - IM ON UR SPECIAL addTrackingCategory DOING 'hidden-category-category'
3473 - KTHX
3474 - BTW (bug 8068) Allow control over whether robots index a page.
3475 - BTW
3476 - BTW FIXME (bug 14899): __INDEX__ always overrides __NOINDEX__ here! This
3477 - BTW is not desirable, the last one on the page should win.
3478 - IZ isset( $this->mDoubleUnderscores['noindex'] ) && $this->mTitle->canUseNoindex()
3479 - IM ON UR SPECIAL mOutput->setIndexPolicy DOING 'noindex'
3480 - IM ON UR SPECIAL addTrackingCategory DOING 'noindex-category'
3481 - KTHX
3482 - IZ isset( $this->mDoubleUnderscores['index'] ) && $this->mTitle->canUseNoindex()
3483 - IM ON UR SPECIAL mOutput->setIndexPolicy DOING 'index'
3484 - IM ON UR SPECIAL addTrackingCategory DOING 'index-category'
3485 - KTHX
3486 -
3487 - IM ON UR wfProfileOut DOING __METHOD__
3488 - I FOUND MAH $text
3489 - KTHX
3490 -
3491 - DO NOT WANT
3492 - NOT WANT Add a tracking category, getting the title from a system message,
3493 - NOT WANT or print a debug message if the title is invalid.
3494 - NOT WANT @param $msg String message key
3495 - NOT WANT @return Bool whether the addition was successful
3496 - WANT
3497 - SO IM LIKE addTrackingCategory WITH UR $msg
3498 - I HAS cat IZ wfMsgForContent( $msg )
3499 -
3500 - BTW Allow tracking categories to be disabled by setting them to "-"
3501 - IZ $cat === '-'
3502 - I FOUND MAH false
3503 - KTHX
3504 -
3505 - I HAS containerCategory IZ Title::makeTitleSafe( NS_CATEGORY, $cat )
3506 - IZ $containerCategory
3507 - IM ON UR SPECIAL mOutput->addCategory DOING $containerCategory->getDBkey(), $this->getDefaultSort()
3508 - I FOUND MAH true
3509 - NOWAI
3510 - IM ON UR wfDebug DOING __METHOD__.": [[MediaWiki:$msg]] is not a valid title!\n"
3511 - I FOUND MAH false
3512 - KTHX
3513 - KTHX
3514 -
3515 - DO NOT WANT
3516 - NOT WANT This function accomplishes several tasks:
3517 - NOT WANT 1) Auto-number headings if that option is enabled
3518 - NOT WANT 2) Add an [edit] link to sections for users who have enabled the option and can edit the page
3519 - NOT WANT 3) Add a Table of contents on the top for users who have enabled the option
3520 - NOT WANT 4) Auto-anchor headings
3521 - NOT WANT
3522 - NOT WANT It loops through all headlines, collects the necessary data, then splits up the
3523 - NOT WANT string and re-inserts the newly formatted headlines.
3524 - NOT WANT
3525 - NOT WANT @param string $text
3526 - NOT WANT @param string $origText Original, untouched wikitext
3527 - NOT WANT @param boolean $isMain
3528 - NOT WANT @private
3529 - WANT
3530 - SO IM LIKE formatHeadings WITH UR $text, $origText, $isMain=true
3531 - I HAS UR $wgMaxTocLevel, $wgContLang, $wgHtml5, $wgExperimentalHtmlIds ON UR INTERNETS
3532 -
3533 - I HAS doNumberHeadings IZ $this->mOptions->getNumberHeadings()
3534 - I HAS showEditLink IZ $this->mOptions->getEditSection()
3535 -
3536 - BTW Do not call quickUserCan unless necessary
3537 - IZ $showEditLink && !$this->mTitle->quickUserCan( 'edit' )
3538 - I HAS showEditLink IZ 0
3539 - KTHX
3540 -
3541 - BTW Inhibit editsection links if requested in the page
3542 - IZ isset( $this->mDoubleUnderscores['noeditsection'] ) || $this->mOptions->getIsPrintable()
3543 - I HAS showEditLink IZ 0
3544 - KTHX
3545 -
3546 - BTW Get all headlines for numbering them and adding funky stuff like [edit]
3547 - BTW links - this is for later, but we need the number of headlines right now
3548 - I HAS matches IZ EMPTY
3549 - I HAS numMatches IZ preg_match_all( '/<H(?P<level>[1-6])(?P<attrib>.*?'.'>)(?P<header>.*?)<\/H[1-6] *>/i', $text, $matches )
3550 -
3551 - BTW if there are fewer than 4 headlines in the article, do not show TOC
3552 - BTW unless it's been explicitly enabled.
3553 - enoughToc IZ $this->mShowToc &&
3554 - ( ( $numMatches >= 4 ) || $this->mForceTocPosition );
3555 -
3556 - BTW Allow user to stipulate that a page should have a "new section"
3557 - BTW link added via __NEWSECTIONLINK__
3558 - IZ isset( $this->mDoubleUnderscores['newsectionlink'] )
3559 - IM ON UR SPECIAL mOutput->setNewSection DOING true
3560 - KTHX
3561 -
3562 - BTW Allow user to remove the "new section"
3563 - BTW link via __NONEWSECTIONLINK__
3564 - IZ isset( $this->mDoubleUnderscores['nonewsectionlink'] )
3565 - IM ON UR SPECIAL mOutput->hideNewSection DOING true
3566 - KTHX
3567 -
3568 - BTW if the string __FORCETOC__ (not case-sensitive) occurs in the HTML,
3569 - BTW override above conditions and always show TOC above first header
3570 - IZ isset( $this->mDoubleUnderscores['forcetoc'] )
3571 - UR SPECIAL mShowToc IZ true;
3572 - I HAS enoughToc IZ true
3573 - KTHX
3574 -
3575 - BTW We need this to perform operations on the HTML
3576 - I HAS sk IZ $this->mOptions->getSkin()
3577 -
3578 - BTW headline counter
3579 - I HAS headlineCount IZ 0
3580 - I HAS numVisible IZ 0
3581 -
3582 - BTW Ugh .. the TOC should have neat indentation levels which can be
3583 - BTW passed to the skin functions. These are determined here
3584 - I HAS toc IZ ''
3585 - I HAS full IZ ''
3586 - I HAS head IZ EMPTY
3587 - I HAS sublevelCount IZ EMPTY
3588 - I HAS levelCount IZ EMPTY
3589 - I HAS toclevel IZ 0
3590 - I HAS level IZ 0
3591 - I HAS prevlevel IZ 0
3592 - I HAS toclevel IZ 0
3593 - I HAS prevtoclevel IZ 0
3594 - I HAS markerRegex IZ "{$this->mUniqPrefix}-h-(\d+)-" . self::MARKER_SUFFIX
3595 - I HAS baseTitleText IZ $this->mTitle->getPrefixedDBkey()
3596 - I HAS oldType IZ $this->mOutputType
3597 - IM ON UR SPECIAL setOutputType DOING self::OT_WIKI
3598 - I HAS frame IZ $this->getPreprocessor()->newFrame()
3599 - I HAS root IZ $this->preprocessToDom( $origText )
3600 - I HAS node IZ $root->getFirstChild()
3601 - I HAS byteOffset IZ 0
3602 - I HAS tocraw IZ EMPTY
3603 -
3604 - foreach ( $matches[3] as $headline ) {
3605 - I HAS isTemplate IZ false
3606 - I HAS titleText IZ false
3607 - I HAS sectionIndex IZ false
3608 - I HAS numbering IZ ''
3609 - I HAS markerMatches IZ EMPTY
3610 - IZ preg_match("/^$markerRegex/", $headline, $markerMatches )
3611 - I HAS serial IZ $markerMatches[1]
3612 - list( $titleText, $sectionIndex ) = $this->mHeadings[$serial];
3613 - I HAS isTemplate IZ ( $titleText != $baseTitleText )
3614 - I HAS headline IZ preg_replace( "/^$markerRegex/", "", $headline )
3615 - KTHX
3616 -
3617 - IZ $toclevel
3618 - I HAS prevlevel IZ $level
3619 - I HAS prevtoclevel IZ $toclevel
3620 - KTHX
3621 - I HAS level IZ $matches[1][$headlineCount]
3622 -
3623 - IZ $level > $prevlevel
3624 - BTW Increase TOC level
3625 - $toclevel++;
3626 - $sublevelCount[$toclevel] = 0;
3627 - IZ $toclevel<$wgMaxTocLevel
3628 - I HAS prevtoclevel IZ $toclevel
3629 - toc HAS MOAR $sk->tocIndent();
3630 - $numVisible++;
3631 - KTHX
3632 - ORLY $level < $prevlevel && $toclevel > 1
3633 - BTW Decrease TOC level, find level to jump to
3634 -
3635 - for ( $i = $toclevel; $i > 0; $i-- ) {
3636 - IZ $levelCount[$i] == $level
3637 - BTW Found last matching level
3638 - I HAS toclevel IZ $i
3639 - break;
3640 - ORLY $levelCount[$i] < $level
3641 - BTW Found first matching level below current level
3642 - I HAS toclevel IZ $i + 1
3643 - break;
3644 - KTHX
3645 - KTHX
3646 - IZ $i == 0
3647 - I HAS toclevel IZ 1
3648 - KTHX
3649 - IZ $toclevel<$wgMaxTocLevel
3650 - IZ $prevtoclevel < $wgMaxTocLevel
3651 - BTW Unindent only if the previous toc level was shown :p
3652 - toc HAS MOAR $sk->tocUnindent( $prevtoclevel - $toclevel );
3653 - I HAS prevtoclevel IZ $toclevel
3654 - NOWAI
3655 - toc HAS MOAR $sk->tocLineEnd();
3656 - KTHX
3657 - KTHX
3658 - NOWAI
3659 - BTW No change in level, end TOC line
3660 - IZ $toclevel<$wgMaxTocLevel
3661 - toc HAS MOAR $sk->tocLineEnd();
3662 - KTHX
3663 - KTHX
3664 -
3665 - $levelCount[$toclevel] = $level;
3666 -
3667 - BTW count number of headlines for each level
3668 - @$sublevelCount[$toclevel]++;
3669 - I HAS dot IZ 0
3670 - for( $i = 1; $i <= $toclevel; $i++ ) {
3671 - IZ !empty( $sublevelCount[$i] )
3672 - IZ $dot
3673 - numbering HAS MOAR '.';
3674 - KTHX
3675 - numbering HAS MOAR $wgContLang->formatNum( $sublevelCount[$i] );
3676 - I HAS dot IZ 1
3677 - KTHX
3678 - KTHX
3679 -
3680 - BTW The safe header is a version of the header text safe to use for links
3681 - BTW Avoid insertion of weird stuff like <math> by expanding the relevant sections
3682 - I HAS safeHeadline IZ $this->mStripState->unstripBoth( $headline )
3683 -
3684 - BTW Remove link placeholders by the link text.
3685 - BTW <!--LINK number-->
3686 - BTW turns into
3687 - BTW link text with suffix
3688 - I HAS safeHeadline IZ $this->replaceLinkHoldersText( $safeHeadline )
3689 -
3690 - BTW Strip out HTML (other than plain <sup> and <sub>: bug 8393)
3691 - tocline IZ preg_replace(
3692 - array( '#<(?!/?(sup|sub)).*?'.'>#', '#<(/?(sup|sub)).*?'.'>#' ),
3693 - array( '', '<$1>' ),
3694 - $safeHeadline
3695 - BUCKET
3696 - I HAS tocline IZ trim( $tocline )
3697 -
3698 - BTW For the anchor, strip out HTML-y stuff period
3699 - I HAS safeHeadline IZ preg_replace( '/<.*?'.'>/', '', $safeHeadline )
3700 - I HAS safeHeadline IZ preg_replace( '/[ _]+/', ' ', $safeHeadline )
3701 - I HAS safeHeadline IZ trim( $safeHeadline )
3702 -
3703 - BTW Save headline for section edit hint before it's escaped
3704 - I HAS headlineHint IZ $safeHeadline
3705 -
3706 - IZ $wgHtml5 && $wgExperimentalHtmlIds
3707 - BTW For reverse compatibility, provide an id that's
3708 - BTW HTML4-compatible, like we used to.
3709 - BTW
3710 - BTW It may be worth noting, academically, that it's possible for
3711 - BTW the legacy anchor to conflict with a non-legacy headline
3712 - BTW anchor on the page. In this case likely the "correct" thing
3713 - BTW would be to either drop the legacy anchors or make sure
3714 - BTW they're numbered first. However, this would require people
3715 - BTW to type in section names like "abc_.D7.93.D7.90.D7.A4"
3716 - BTW manually, so let's not bother worrying about it.
3717 - legacyHeadline IZ Sanitizer::escapeId( $safeHeadline,
3718 - IM ON UR array DOING 'noninitial', 'legacy' )
3719 - I HAS safeHeadline IZ Sanitizer::escapeId( $safeHeadline )
3720 -
3721 - IZ $legacyHeadline == $safeHeadline
3722 - BTW No reason to have both (in fact, we can't)
3723 - I HAS legacyHeadline IZ false
3724 - KTHX
3725 - NOWAI
3726 - I HAS legacyHeadline IZ false
3727 - safeHeadline IZ Sanitizer::escapeId( $safeHeadline,
3728 - 'noninitial' );
3729 - KTHX
3730 -
3731 - BTW HTML names must be case-insensitively unique (bug 10721). FIXME:
3732 - BTW Does this apply to Unicode characters? Because we aren't
3733 - BTW handling those here.
3734 - I HAS arrayKey IZ strtolower( $safeHeadline )
3735 - IZ $legacyHeadline === false
3736 - I HAS legacyArrayKey IZ false
3737 - NOWAI
3738 - I HAS legacyArrayKey IZ strtolower( $legacyHeadline )
3739 - KTHX
3740 -
3741 - BTW count how many in assoc. array so we can track dupes in anchors
3742 - IZ isset( $refers[$arrayKey] )
3743 - $refers[$arrayKey]++;
3744 - NOWAI
3745 - $refers[$arrayKey] = 1;
3746 - KTHX
3747 - IZ isset( $refers[$legacyArrayKey] )
3748 - $refers[$legacyArrayKey]++;
3749 - NOWAI
3750 - $refers[$legacyArrayKey] = 1;
3751 - KTHX
3752 -
3753 - BTW Don't number the heading if it is the only one (looks silly)
3754 - if ( $doNumberHeadings && count( $matches[3] ) > 1) {
3755 - BTW the two are different if the line contains a link
3756 - I HAS headline IZ $numbering . ' ' . $headline
3757 - KTHX
3758 -
3759 - BTW Create the anchor for linking from the TOC to the section
3760 - I HAS anchor IZ $safeHeadline
3761 - I HAS legacyAnchor IZ $legacyHeadline
3762 - IZ $refers[$arrayKey] > 1
3763 - anchor HAS MOAR '_' . $refers[$arrayKey];
3764 - KTHX
3765 - IZ $legacyHeadline !== false && $refers[$legacyArrayKey] > 1
3766 - legacyAnchor HAS MOAR '_' . $refers[$legacyArrayKey];
3767 - KTHX
3768 - IZ $enoughToc && ( !isset( $wgMaxTocLevel ) || $toclevel < $wgMaxTocLevel )
3769 - toc HAS MOAR $sk->tocLine( $anchor, $tocline,
3770 - $numbering, $toclevel, ( $isTemplate ? false : $sectionIndex ) );
3771 - KTHX
3772 -
3773 - BTW Add the section to the section tree
3774 - BTW Find the DOM node for this header
3775 - STEALIN UR $node && !$isTemplate
3776 - IZ $node->getName() === 'h'
3777 - I HAS bits IZ $node->splitHeading()
3778 - if ( $bits['i'] == $sectionIndex )
3779 - break;
3780 - KTHX
3781 - $byteOffset += mb_strlen( $this->mStripState->unstripBoth(
3782 - $frame->expand( $node, PPFrame::RECOVER_ORIG ) ) );
3783 - I HAS node IZ $node->getNextSibling()
3784 - KTHX
3785 - $tocraw[] = array(
3786 - 'toclevel' => $toclevel,
3787 - 'level' => $level,
3788 - 'line' => $tocline,
3789 - 'number' => $numbering,
3790 - 'index' => ( $isTemplate ? 'T-' : '' ) . $sectionIndex,
3791 - 'fromtitle' => $titleText,
3792 - 'byteoffset' => ( $isTemplate ? null : $byteOffset ),
3793 - 'anchor' => $anchor,
3794 - BUCKET
3795 -
3796 - BTW give headline the correct <h#> tag
3797 - IZ $showEditLink && $sectionIndex !== false
3798 - IZ $isTemplate
3799 - BTW Put a T flag in the section identifier, to indicate to extractSections()
3800 - BTW that sections inside <includeonly> should be counted.
3801 - I HAS editlink IZ $sk->doEditSectionLink( Title::newFromText( $titleText ), "T-$sectionIndex" )
3802 - NOWAI
3803 - I HAS editlink IZ $sk->doEditSectionLink( $this->mTitle, $sectionIndex, $headlineHint )
3804 - KTHX
3805 - NOWAI
3806 - I HAS editlink IZ ''
3807 - KTHX
3808 - $head[$headlineCount] = $sk->makeHeadline( $level,
3809 - $matches['attrib'][$headlineCount], $anchor, $headline,
3810 - $editlink, $legacyAnchor );
3811 -
3812 - $headlineCount++;
3813 - KTHX
3814 -
3815 - IM ON UR SPECIAL setOutputType DOING $oldType
3816 -
3817 - BTW Never ever show TOC if no headers
3818 - IZ $numVisible < 1
3819 - I HAS enoughToc IZ false
3820 - KTHX
3821 -
3822 - IZ $enoughToc
3823 - IZ $prevtoclevel > 0 && $prevtoclevel < $wgMaxTocLevel
3824 - toc HAS MOAR $sk->tocUnindent( $prevtoclevel - 1 );
3825 - KTHX
3826 - I HAS toc IZ $sk->tocList( $toc )
3827 - IM ON UR SPECIAL mOutput->setTOCHTML DOING $toc
3828 - KTHX
3829 -
3830 - IZ $isMain
3831 - IM ON UR SPECIAL mOutput->setSections DOING $tocraw
3832 - KTHX
3833 -
3834 - BTW split up and insert constructed headlines
3835 -
3836 - I HAS blocks IZ preg_split( '/<H[1-6].*?' . '>.*?<\/H[1-6]>/i', $text )
3837 - I HAS i IZ 0
3838 -
3839 - IM IN UR blocks ITZA block
3840 - IZ $showEditLink && $headlineCount > 0 && $i == 0 && $block !== "\n"
3841 - BTW This is the [edit] link that appears for the top block of text when
3842 - BTW section editing is enabled
3843 -
3844 - BTW Disabled because it broke block formatting
3845 - BTW For example, a bullet point in the top line
3846 - BTW $full .= $sk->editSectionLink(0);
3847 - KTHX
3848 - full HAS MOAR $block;
3849 - IZ $enoughToc && !$i && $isMain && !$this->mForceTocPosition
3850 - BTW Top anchor now in skin
3851 - I HAS full IZ $full.$toc
3852 - KTHX
3853 -
3854 - IZ !empty( $head[$i] )
3855 - full HAS MOAR $head[$i];
3856 - KTHX
3857 - $i++;
3858 - KTHX
3859 - IZ $this->mForceTocPosition
3860 - I FOUND MAH str_replace( '<!--MWTOC-->', $toc, $full )
3861 - NOWAI
3862 - I FOUND MAH $full
3863 - KTHX
3864 - KTHX
3865 -
3866 - DO NOT WANT
3867 - NOT WANT Merge $tree2 into $tree1 by replacing the section with index
3868 - NOT WANT $section in $tree1 and its descendants with the sections in $tree2.
3869 - NOT WANT Note that in the returned section tree, only the 'index' and
3870 - NOT WANT 'byteoffset' fields are guaranteed to be correct.
3871 - NOT WANT @param $tree1 array Section tree from ParserOutput::getSectons()
3872 - NOT WANT @param $tree2 array Section tree
3873 - NOT WANT @param $section int Section index
3874 - NOT WANT @param $title Title Title both section trees come from
3875 - NOT WANT @param $len2 int Length of the original wikitext for $tree2
3876 - NOT WANT @return array Merged section tree
3877 - WANT
3878 - SO IM ALWAYS LIKE mergeSectionTrees WITH UR $tree1, $tree2, $section, $title, $len2
3879 - I HAS UR $wgContLang ON UR INTERNETS
3880 - I HAS newTree IZ EMPTY
3881 - I HAS targetLevel IZ false
3882 - I HAS merged IZ false
3883 - I HAS lastLevel IZ 1
3884 - I HAS nextIndex IZ 1
3885 - I HAS numbering IZ BUCKET 0 );
3886 - I HAS titletext IZ $title->getPrefixedDBkey()
3887 - IM IN UR tree1 ITZA s
3888 - IZ $targetLevel !== false
3889 - IZ $s['level'] <= $targetLevel
3890 - BTW We've skipped enough
3891 - I HAS targetLevel IZ false
3892 - NOWAI
3893 - continue;
3894 - KTHX
3895 - KTHX
3896 - if ( $s['index'] != $section ||
3897 - $s['fromtitle'] != $titletext ) {
3898 - self::incrementNumbering( $numbering,
3899 - $s['toclevel'], $lastLevel );
3900 -
3901 - BTW Rewrite index, byteoffset and number
3902 - IZ $s['fromtitle'] == $titletext
3903 - $s['index'] = $nextIndex++;
3904 - IZ $merged
3905 - $s['byteoffset'] += $len2;
3906 - KTHX
3907 - KTHX
3908 - $s['number'] = implode( '.', array_map(
3909 - array( $wgContLang, 'formatnum' ),
3910 - $numbering ) );
3911 - I HAS lastLevel IZ $s['toclevel']
3912 - $newTree[] = $s;
3913 - NOWAI
3914 - BTW We're at $section
3915 - BTW Insert sections from $tree2 here
3916 - IM IN UR tree2 ITZA s2
3917 - BTW Rewrite the fields in $s2
3918 - BTW before inserting it
3919 - $s2['toclevel'] += $s['toclevel'] - 1;
3920 - $s2['level'] += $s['level'] - 1;
3921 - $s2['index'] = $nextIndex++;
3922 - $s2['byteoffset'] += $s['byteoffset'];
3923 -
3924 - self::incrementNumbering( $numbering,
3925 - $s2['toclevel'], $lastLevel );
3926 - $s2['number'] = implode( '.', array_map(
3927 - array( $wgContLang, 'formatnum' ),
3928 - $numbering ) );
3929 - I HAS lastLevel IZ $s2['toclevel']
3930 - $newTree[] = $s2;
3931 - KTHX
3932 - BTW Skip all descendants of $section in $tree1
3933 - I HAS targetLevel IZ $s['level']
3934 - I HAS merged IZ true
3935 - KTHX
3936 - KTHX
3937 - I FOUND MAH $newTree
3938 - KTHX
3939 -
3940 - DO NOT WANT
3941 - NOT WANT Increment a section number. Helper function for mergeSectionTrees()
3942 - NOT WANT @param $number array Array representing a section number
3943 - NOT WANT @param $level int Current TOC level (depth)
3944 - NOT WANT @param $lastLevel int Level of previous TOC entry
3945 - WANT
3946 - SO IM ALWAYS LIKE incrementNumbering WITH UR &$number, $level, $lastLevel
3947 - IZ $level > $lastLevel
3948 - $number[$level - 1] = 1;
3949 - ORLY $level < $lastLevel
3950 - foreach ( $number as $key => $unused )
3951 - IZ $key >= $level
3952 - IM ON UR unset DOING $number[$key]
3953 - KTHX
3954 - $number[$level - 1]++;
3955 - NOWAI
3956 - $number[$level - 1]++;
3957 - KTHX
3958 - KTHX
3959 -
3960 - DO NOT WANT
3961 - NOT WANT Transform wiki markup when saving a page by doing \r\n -> \n
3962 - NOT WANT conversion, substitting signatures, {{subst:}} templates, etc.
3963 - NOT WANT
3964 - NOT WANT @param string $text the text to transform
3965 - NOT WANT @param Title &$title the Title object for the current article
3966 - NOT WANT @param User $user the User object describing the current user
3967 - NOT WANT @param ParserOptions $options parsing options
3968 - NOT WANT @param bool $clearState whether to clear the parser state first
3969 - NOT WANT @return string the altered wiki markup
3970 - NOT WANT @public
3971 - WANT
3972 - SO IM LIKE preSaveTransform WITH UR $text, Title $title, $user, $options, $clearState = true
3973 - UR SPECIAL mOptions IZ $options;
3974 - IM ON UR SPECIAL setTitle DOING $title
3975 - IM ON UR SPECIAL setOutputType DOING self::OT_WIKI
3976 -
3977 - IZ $clearState
3978 - IM ON UR SPECIAL clearState
3979 - KTHX
3980 -
3981 - I HAS pairs IZ BUCKET
3982 - "\r\n" => "\n",
3983 - BUCKET
3984 - I HAS text IZ str_replace( array_keys( $pairs ), array_values( $pairs ), $text )
3985 - I HAS text IZ $this->pstPass2( $text, $user )
3986 - I HAS text IZ $this->mStripState->unstripBoth( $text )
3987 - I FOUND MAH $text
3988 - KTHX
3989 -
3990 - DO NOT WANT
3991 - NOT WANT Pre-save transform helper function
3992 - NOT WANT @private
3993 - WANT
3994 - SO IM LIKE pstPass2 WITH UR $text, $user
3995 - I HAS UR $wgContLang, $wgLocaltimezone ON UR INTERNETS
3996 -
3997 - BTW Note: This is the timestamp saved as hardcoded wikitext to
3998 - BTW the database, we use $wgContLang here in order to give
3999 - BTW everyone the same signature and use the default one rather
4000 - BTW than the one selected in each user's preferences.
4001 - BTW (see also bug 12815)
4002 - I HAS ts IZ $this->mOptions->getTimestamp()
4003 - IZ isset( $wgLocaltimezone )
4004 - I HAS tz IZ $wgLocaltimezone
4005 - NOWAI
4006 - I HAS tz IZ date_default_timezone_get()
4007 - KTHX
4008 -
4009 - I HAS unixts IZ wfTimestamp( TS_UNIX, $ts )
4010 - I HAS oldtz IZ date_default_timezone_get()
4011 - IM ON UR date_default_timezone_set DOING $tz
4012 - I HAS ts IZ date( 'YmdHis', $unixts )
4013 - I HAS tzMsg IZ date( 'T', $unixts ) # might vary on DST changeover!
4014 -
4015 - BTW Allow translation of timezones trough wiki. date() can return
4016 - BTW whatever crap the system uses, localised or not, so we cannot
4017 - BTW ship premade translations.
4018 - I HAS key IZ 'timezone-' . strtolower( trim( $tzMsg ) )
4019 - I HAS value IZ wfMsgForContent( $key )
4020 - IZ !wfEmptyMsg( $key, $value )
4021 - I HAS tzMsg IZ $value
4022 - KTHX
4023 -
4024 - IM ON UR date_default_timezone_set DOING $oldtz
4025 -
4026 - I HAS d IZ $wgContLang->timeanddate( $ts, false, false ) . " ($tzMsg)"
4027 -
4028 - BTW Variable replacement
4029 - BTW Because mOutputType is OT_WIKI, this will only process {{subst:xxx}} type tags
4030 - I HAS text IZ $this->replaceVariables( $text )
4031 -
4032 - BTW Signatures
4033 - I HAS sigText IZ $this->getUserSig( $user )
4034 - text IZ strtr( $text, array(
4035 - '~~~~~' => $d,
4036 - '~~~~' => "$sigText $d",
4037 - '~~~' => $sigText
4038 - ) );
4039 -
4040 - BTW Context links: [[|name]] and [[name (context)|]]
4041 - I HAS UR $wgLegalTitleChars ON UR INTERNETS
4042 - I HAS tc IZ "[$wgLegalTitleChars]"
4043 - I HAS nc IZ '[ _0-9A-Za-z\x80-\xff-]' # Namespaces can use non-ascii!
4044 -
4045 - I HAS p1 IZ "/\[\[(:?$nc+:|:|)($tc+?)( \\($tc+\\))\\|]]/" # [[ns:page (context)|]]
4046 - I HAS p4 IZ "/\[\[(:?$nc+:|:|)($tc+?)(（$tc+）)\\|]]/" # [[ns:page（context）|]]
4047 - I HAS p3 IZ "/\[\[(:?$nc+:|:|)($tc+?)( \\($tc+\\)|)(, $tc+|)\\|]]/" # [[ns:page (context), context|]]
4048 - I HAS p2 IZ "/\[\[\\|($tc+)]]/" # [[|page]]
4049 -
4050 - BTW try $p1 first, to turn "[[A, B (C)|]]" into "[[A, B (C)|A, B]]"
4051 - I HAS text IZ preg_replace( $p1, '[[\\1\\2\\3|\\2]]', $text )
4052 - I HAS text IZ preg_replace( $p4, '[[\\1\\2\\3|\\2]]', $text )
4053 - I HAS text IZ preg_replace( $p3, '[[\\1\\2\\3\\4|\\2]]', $text )
4054 -
4055 - I HAS t IZ $this->mTitle->getText()
4056 - I HAS m IZ EMPTY
4057 - IZ preg_match( "/^($nc+:|)$tc+?( \\($tc+\\))$/", $t, $m )
4058 - I HAS text IZ preg_replace( $p2, "[[$m[1]\\1$m[2]|\\1]]", $text )
4059 - ORLY preg_match( "/^($nc+:|)$tc+?(, $tc+|)$/", $t, $m ) && "$m[1]$m[2]" != ''
4060 - I HAS text IZ preg_replace( $p2, "[[$m[1]\\1$m[2]|\\1]]", $text )
4061 - NOWAI
4062 - BTW if there's no context, don't bother duplicating the title
4063 - I HAS text IZ preg_replace( $p2, '[[\\1]]', $text )
4064 - KTHX
4065 -
4066 - BTW Trim trailing whitespace
4067 - I HAS text IZ rtrim( $text )
4068 -
4069 - I FOUND MAH $text
4070 - KTHX
4071 -
4072 - DO NOT WANT
4073 - NOT WANT Fetch the user's signature text, if any, and normalize to
4074 - NOT WANT validated, ready-to-insert wikitext.
4075 - NOT WANT If you have pre-fetched the nickname or the fancySig option, you can
4076 - NOT WANT specify them here to save a database query.
4077 - NOT WANT
4078 - NOT WANT @param User $user
4079 - NOT WANT @return string
4080 - WANT
4081 - SO IM LIKE getUserSig WITH UR &$user, $nickname = false, $fancySig = null
4082 - I HAS UR $wgMaxSigChars ON UR INTERNETS
4083 -
4084 - I HAS username IZ $user->getName()
4085 -
4086 - BTW If not given, retrieve from the user object.
4087 - if ( $nickname === false )
4088 - I HAS nickname IZ $user->getOption( 'nickname' )
4089 -
4090 - IZ is_null( $fancySig )
4091 - I HAS fancySig IZ $user->getBoolOption( 'fancysig' )
4092 - KTHX
4093 -
4094 - I HAS nickname IZ $nickname == null ? $username : $nickname
4095 -
4096 - IZ mb_strlen( $nickname ) > $wgMaxSigChars
4097 - I HAS nickname IZ $username
4098 - IM ON UR wfDebug DOING __METHOD__ . ": $username has overlong signature.\n"
4099 - ORLY $fancySig !== false
4100 - BTW Sig. might contain markup; validate this
4101 - IZ $this->validateSig( $nickname ) !== false
4102 - BTW Validated; clean up (if needed) and return it
4103 - I FOUND MAH $this->cleanSig( $nickname, true )
4104 - NOWAI
4105 - BTW Failed to validate; fall back to the default
4106 - I HAS nickname IZ $username
4107 - IM ON UR wfDebug DOING __METHOD__.": $username has bad XML tags in signature.\n"
4108 - KTHX
4109 - KTHX
4110 -
4111 - BTW Make sure nickname doesnt get a sig in a sig
4112 - I HAS nickname IZ $this->cleanSigInSig( $nickname )
4113 -
4114 - BTW If we're still here, make it a link to the user page
4115 - I HAS userText IZ wfEscapeWikiText( $username )
4116 - I HAS nickText IZ wfEscapeWikiText( $nickname )
4117 - if ( $user->isAnon() ) {
4118 - I FOUND MAH wfMsgExt( 'signature-anon', array( 'content', 'parsemag' ), $userText, $nickText )
4119 - NOWAI
4120 - I FOUND MAH wfMsgExt( 'signature', array( 'content', 'parsemag' ), $userText, $nickText )
4121 - KTHX
4122 - KTHX
4123 -
4124 - DO NOT WANT
4125 - NOT WANT Check that the user's signature contains no bad XML
4126 - NOT WANT
4127 - NOT WANT @param string $text
4128 - NOT WANT @return mixed An expanded string, or false if invalid.
4129 - WANT
4130 - SO IM LIKE validateSig WITH UR $text
4131 - IM ON UR return DOING Xml::isWellFormedXmlFragment( $text ) ? $text : false
4132 - KTHX
4133 -
4134 - DO NOT WANT
4135 - NOT WANT Clean up signature text
4136 - NOT WANT
4137 - NOT WANT 1) Strip ~~~, ~~~~ and ~~~~~ out of signatures @see cleanSigInSig
4138 - NOT WANT 2) Substitute all transclusions
4139 - NOT WANT
4140 - NOT WANT @param string $text
4141 - NOT WANT @param $parsing Whether we're cleaning (preferences save) or parsing
4142 - NOT WANT @return string Signature text
4143 - WANT
4144 - SO IM LIKE cleanSig WITH UR $text, $parsing = false
4145 - IZ !$parsing
4146 - I HAS UR $wgTitle ON UR INTERNETS
4147 - IM ON UR SPECIAL clearState
4148 - IM ON UR SPECIAL setTitle DOING $wgTitle
4149 - UR SPECIAL mOptions IZ new ParserOptions;
4150 - UR SPECIAL setOutputType IZ self::OT_PREPROCESS;
4151 - KTHX
4152 -
4153 - BTW Option to disable this feature
4154 - IZ !$this->mOptions->getCleanSignatures()
4155 - I FOUND MAH $text
4156 - KTHX
4157 -
4158 - BTW FIXME: regex doesn't respect extension tags or nowiki
4159 - BTW => Move this logic to braceSubstitution()
4160 - I HAS substWord IZ MagicWord::get( 'subst' )
4161 - I HAS substRegex IZ '/\{\{(?!(?:' . $substWord->getBaseRegex() . '))/x' . $substWord->getRegexCase()
4162 - I HAS substText IZ '{{' . $substWord->getSynonym( 0 )
4163 -
4164 - I HAS text IZ preg_replace( $substRegex, $substText, $text )
4165 - I HAS text IZ $this->cleanSigInSig( $text )
4166 - I HAS dom IZ $this->preprocessToDom( $text )
4167 - I HAS frame IZ $this->getPreprocessor()->newFrame()
4168 - I HAS text IZ $frame->expand( $dom )
4169 -
4170 - IZ !$parsing
4171 - I HAS text IZ $this->mStripState->unstripBoth( $text )
4172 - KTHX
4173 -
4174 - I FOUND MAH $text
4175 - KTHX
4176 -
4177 - DO NOT WANT
4178 - NOT WANT Strip ~~~, ~~~~ and ~~~~~ out of signatures
4179 - NOT WANT @param string $text
4180 - NOT WANT @return string Signature text with /~{3,5}/ removed
4181 - WANT
4182 - SO IM LIKE cleanSigInSig WITH UR $text
4183 - I HAS text IZ preg_replace( '/~{3,5}/', '', $text )
4184 - I FOUND MAH $text
4185 - KTHX
4186 -
4187 - DO NOT WANT
4188 - NOT WANT Set up some variables which are usually set up in parse()
4189 - NOT WANT so that an external function can call some class members with confidence
4190 - NOT WANT @public
4191 - WANT
4192 - SO IM LIKE startExternalParse WITH UR &$title, $options, $outputType, $clearState = true
4193 - IM ON UR SPECIAL setTitle DOING $title
4194 - UR SPECIAL mOptions IZ $options;
4195 - IM ON UR SPECIAL setOutputType DOING $outputType
4196 - IZ $clearState
4197 - IM ON UR SPECIAL clearState
4198 - KTHX
4199 - KTHX
4200 -
4201 - DO NOT WANT
4202 - NOT WANT Wrapper for preprocess()
4203 - NOT WANT
4204 - NOT WANT @param string $text the text to preprocess
4205 - NOT WANT @param ParserOptions $options options
4206 - NOT WANT @return string
4207 - NOT WANT @public
4208 - WANT
4209 - SO IM LIKE transformMsg WITH UR $text, $options
4210 - I HAS UR $wgTitle ON UR INTERNETS
4211 - static $executing = false;
4212 -
4213 - BTW Guard against infinite recursion
4214 - IZ $executing
4215 - I FOUND MAH $text
4216 - KTHX
4217 - I HAS executing IZ true
4218 -
4219 - IM ON UR wfProfileIn DOING __METHOD__
4220 - I HAS text IZ $this->preprocess( $text, $wgTitle, $options )
4221 -
4222 - I HAS executing IZ false
4223 - IM ON UR wfProfileOut DOING __METHOD__
4224 - I FOUND MAH $text
4225 - KTHX
4226 -
4227 - DO NOT WANT
4228 - NOT WANT Create an HTML-style tag, e.g. <yourtag>special text</yourtag>
4229 - NOT WANT The callback should have the following form:
4230 - NOT WANT function myParserHook( $text, $params, &$parser ) { ... }
4231 - NOT WANT
4232 - NOT WANT Transform and return $text. Use $parser for any required context, e.g. use
4233 - NOT WANT $parser->getTitle() and $parser->getOptions() not $wgTitle or $wgOut->mParserOptions
4234 - NOT WANT
4235 - NOT WANT @public
4236 - NOT WANT
4237 - NOT WANT @param mixed $tag The tag to use, e.g. 'hook' for <hook>
4238 - NOT WANT @param mixed $callback The callback function (and object) to use for the tag
4239 - NOT WANT
4240 - NOT WANT @return The old value of the mTagHooks array associated with the hook
4241 - WANT
4242 - SO IM LIKE setHook WITH UR $tag, $callback
4243 - I HAS tag IZ strtolower( $tag )
4244 - I HAS oldVal IZ isset( $this->mTagHooks[$tag] ) ? $this->mTagHooks[$tag] : null
4245 - $this->mTagHooks[$tag] = $callback;
4246 - IZ !in_array( $tag, $this->mStripList )
4247 - $this->mStripList[] = $tag;
4248 - KTHX
4249 -
4250 - I FOUND MAH $oldVal
4251 - KTHX
4252 -
4253 - SO IM LIKE setTransparentTagHook WITH UR $tag, $callback
4254 - I HAS tag IZ strtolower( $tag )
4255 - I HAS oldVal IZ isset( $this->mTransparentTagHooks[$tag] ) ? $this->mTransparentTagHooks[$tag] : null
4256 - $this->mTransparentTagHooks[$tag] = $callback;
4257 -
4258 - I FOUND MAH $oldVal
4259 - KTHX
4260 -
4261 - DO NOT WANT
4262 - NOT WANT Remove all tag hooks
4263 - WANT
4264 - SO IM LIKE clearTagHooks
4265 - UR SPECIAL mTagHooks IZ EMPTY;
4266 - UR SPECIAL mStripList IZ $this->mDefaultStripList;
4267 - KTHX
4268 -
4269 - DO NOT WANT
4270 - NOT WANT Create a function, e.g. {{sum:1|2|3}}
4271 - NOT WANT The callback function should have the form:
4272 - NOT WANT function myParserFunction( &$parser, $arg1, $arg2, $arg3 ) { ... }
4273 - NOT WANT
4274 - NOT WANT Or with SFH_OBJECT_ARGS:
4275 - NOT WANT function myParserFunction( $parser, $frame, $args ) { ... }
4276 - NOT WANT
4277 - NOT WANT The callback may either return the text result of the function, or an array with the text
4278 - NOT WANT in element 0, and a number of flags in the other elements. The names of the flags are
4279 - NOT WANT specified in the keys. Valid flags are:
4280 - NOT WANT found The text returned is valid, stop processing the template. This
4281 - NOT WANT is on by default.
4282 - NOT WANT nowiki Wiki markup in the return value should be escaped
4283 - NOT WANT isHTML The returned text is HTML, armour it against wikitext transformation
4284 - NOT WANT
4285 - NOT WANT @public
4286 - NOT WANT
4287 - NOT WANT @param string $id The magic word ID
4288 - NOT WANT @param mixed $callback The callback function (and object) to use
4289 - NOT WANT @param integer $flags a combination of the following flags:
4290 - NOT WANT SFH_NO_HASH No leading hash, i.e. {{plural:...}} instead of {{#if:...}}
4291 - NOT WANT
4292 - NOT WANT SFH_OBJECT_ARGS Pass the template arguments as PPNode objects instead of text. This
4293 - NOT WANT allows for conditional expansion of the parse tree, allowing you to eliminate dead
4294 - NOT WANT branches and thus speed up parsing. It is also possible to analyse the parse tree of
4295 - NOT WANT the arguments, and to control the way they are expanded.
4296 - NOT WANT
4297 - NOT WANT The $frame parameter is a PPFrame. This can be used to produce expanded text from the
4298 - NOT WANT arguments, for instance:
4299 - NOT WANT $text = isset( $args[0] ) ? $frame->expand( $args[0] ) : '';
4300 - NOT WANT
4301 - NOT WANT For technical reasons, $args[0] is pre-expanded and will be a string. This may change in
4302 - NOT WANT future versions. Please call $frame->expand() on it anyway so that your code keeps
4303 - NOT WANT working if/when this is changed.
4304 - NOT WANT
4305 - NOT WANT If you want whitespace to be trimmed from $args, you need to do it yourself, post-
4306 - NOT WANT expansion.
4307 - NOT WANT
4308 - NOT WANT Please read the documentation in includes/parser/Preprocessor.php for more information
4309 - NOT WANT about the methods available in PPFrame and PPNode.
4310 - NOT WANT
4311 - NOT WANT @return The old callback function for this name, if any
4312 - WANT
4313 - SO IM LIKE setFunctionHook WITH UR $id, $callback, $flags = 0
4314 - I HAS UR $wgContLang ON UR INTERNETS
4315 -
4316 - I HAS oldVal IZ isset( $this->mFunctionHooks[$id] ) ? $this->mFunctionHooks[$id][0] : null
4317 - $this->mFunctionHooks[$id] = array( $callback, $flags );
4318 -
4319 - BTW Add to function cache
4320 - I HAS mw IZ MagicWord::get( $id )
4321 - if ( !$mw )
4322 - throw new MWException( __METHOD__.'() expecting a magic word identifier.' );
4323 -
4324 - I HAS synonyms IZ $mw->getSynonyms()
4325 - I HAS sensitive IZ intval( $mw->isCaseSensitive() )
4326 -
4327 - IM IN UR synonyms ITZA syn
4328 - BTW Case
4329 - IZ !$sensitive
4330 - I HAS syn IZ $wgContLang->lc( $syn )
4331 - KTHX
4332 - BTW Add leading hash
4333 - IZ !( $flags & SFH_NO_HASH )
4334 - I HAS syn IZ '#' . $syn
4335 - KTHX
4336 - BTW Remove trailing colon
4337 - IZ substr( $syn, -1, 1 ) === ':'
4338 - I HAS syn IZ substr( $syn, 0, -1 )
4339 - KTHX
4340 - $this->mFunctionSynonyms[$sensitive][$syn] = $id;
4341 - KTHX
4342 - I FOUND MAH $oldVal
4343 - KTHX
4344 -
4345 - DO NOT WANT
4346 - NOT WANT Get all registered function hook identifiers
4347 - NOT WANT
4348 - NOT WANT @return array
4349 - WANT
4350 - SO IM LIKE getFunctionHooks
4351 - I FOUND MAH array_keys( $this->mFunctionHooks )
4352 - KTHX
4353 -
4354 - DO NOT WANT
4355 - NOT WANT Create a tag function, e.g. <test>some stuff</test>.
4356 - NOT WANT Unlike tag hooks, tag functions are parsed at preprocessor level.
4357 - NOT WANT Unlike parser functions, their content is not preprocessed.
4358 - WANT
4359 - SO IM LIKE setFunctionTagHook WITH UR $tag, $callback, $flags
4360 - I HAS tag IZ strtolower( $tag )
4361 - old IZ isset( $this->mFunctionTagHooks[$tag] ) ?
4362 - $this->mFunctionTagHooks[$tag] : null;
4363 - $this->mFunctionTagHooks[$tag] = array( $callback, $flags );
4364 -
4365 - IZ !in_array( $tag, $this->mStripList )
4366 - $this->mStripList[] = $tag;
4367 - KTHX
4368 -
4369 - I FOUND MAH $old
4370 - KTHX
4371 -
4372 - DO NOT WANT
4373 - NOT WANT FIXME: update documentation. makeLinkObj() is deprecated.
4374 - NOT WANT Replace <!--LINK--> link placeholders with actual links, in the buffer
4375 - NOT WANT Placeholders created in Skin::makeLinkObj()
4376 - NOT WANT Returns an array of link CSS classes, indexed by PDBK.
4377 - WANT
4378 - SO IM LIKE replaceLinkHolders WITH UR &$text, $options = 0
4379 - I FOUND MAH $this->mLinkHolders->replace( $text )
4380 - KTHX
4381 -
4382 - DO NOT WANT
4383 - NOT WANT Replace <!--LINK--> link placeholders with plain text of links
4384 - NOT WANT (not HTML-formatted).
4385 - NOT WANT @param string $text
4386 - NOT WANT @return string
4387 - WANT
4388 - SO IM LIKE replaceLinkHoldersText WITH UR $text
4389 - I FOUND MAH $this->mLinkHolders->replaceText( $text )
4390 - KTHX
4391 -
4392 - DO NOT WANT
4393 - NOT WANT Renders an image gallery from a text with one line per image.
4394 - NOT WANT text labels may be given by using |-style alternative text. E.g.
4395 - NOT WANT Image:one.jpg|The number "1"
4396 - NOT WANT Image:tree.jpg|A tree
4397 - NOT WANT given as text will return the HTML of a gallery with two images,
4398 - NOT WANT labeled 'The number "1"' and
4399 - NOT WANT 'A tree'.
4400 - WANT
4401 - SO IM LIKE renderImageGallery WITH UR $text, $params
4402 - I HAS ig IZ new ImageGallery()
4403 - $ig->setContextTitle( $this->mTitle );
4404 - $ig->setShowBytes( false );
4405 - $ig->setShowFilename( false );
4406 - $ig->setParser( $this );
4407 - $ig->setHideBadImages();
4408 - $ig->setAttributes( Sanitizer::validateTagAttributes( $params, 'table' ) );
4409 - $ig->useSkin( $this->mOptions->getSkin() );
4410 - $ig->mRevisionId = $this->mRevisionId;
4411 -
4412 - IZ isset( $params['showfilename'] )
4413 - $ig->setShowFilename( true );
4414 - NOWAI
4415 - $ig->setShowFilename( false );
4416 - KTHX
4417 - IZ isset( $params['caption'] )
4418 - I HAS caption IZ $params['caption']
4419 - I HAS caption IZ htmlspecialchars( $caption )
4420 - I HAS caption IZ $this->replaceInternalLinks( $caption )
4421 - $ig->setCaptionHtml( $caption );
4422 - KTHX
4423 - IZ isset( $params['perrow'] )
4424 - $ig->setPerRow( $params['perrow'] );
4425 - KTHX
4426 - IZ isset( $params['widths'] )
4427 - $ig->setWidths( $params['widths'] );
4428 - KTHX
4429 - IZ isset( $params['heights'] )
4430 - $ig->setHeights( $params['heights'] );
4431 - KTHX
4432 -
4433 - IM ON UR wfRunHooks DOING 'BeforeParserrenderImageGallery', array( &$this, &$ig )
4434 -
4435 - I HAS lines IZ StringUtils::explode( "\n", $text )
4436 - IM IN UR lines ITZA line
4437 - BTW match lines like these:
4438 - BTW Image:someimage.jpg|This is some image
4439 - I HAS matches IZ EMPTY
4440 - IM ON UR preg_match DOING "/^([^|]+)(\\|(.*))?$/", $line, $matches
4441 - BTW Skip empty lines
4442 - IZ count( $matches ) == 0
4443 - continue;
4444 - KTHX
4445 -
4446 - IZ strpos( $matches[0], '%' ) !== false
4447 - $matches[1] = urldecode( $matches[1] );
4448 - KTHX
4449 - I HAS tp IZ Title::newFromText( $matches[1] )
4450 - $nt =& $tp;
4451 - IZ is_null( $nt )
4452 - BTW Bogus title. Ignore these so we don't bomb out later.
4453 - continue;
4454 - KTHX
4455 - IZ isset( $matches[3] )
4456 - I HAS label IZ $matches[3]
4457 - NOWAI
4458 - I HAS label IZ ''
4459 - KTHX
4460 -
4461 - I HAS html IZ $this->recursiveTagParse( trim( $label ) )
4462 -
4463 - $ig->add( $nt, $html );
4464 -
4465 - BTW Only add real images (bug #5586)
4466 - IZ $nt->getNamespace() == NS_FILE
4467 - IM ON UR SPECIAL mOutput->addImage DOING $nt->getDBkey()
4468 - KTHX
4469 - KTHX
4470 - I FOUND MAH $ig->toHTML()
4471 - KTHX
4472 -
4473 - SO IM LIKE getImageParams WITH UR $handler
4474 - IZ $handler
4475 - I HAS handlerClass IZ get_class( $handler )
4476 - NOWAI
4477 - I HAS handlerClass IZ ''
4478 - KTHX
4479 - IZ !isset( $this->mImageParams[$handlerClass] )
4480 - BTW Initialise static lists
4481 - static $internalParamNames = array(
4482 - 'horizAlign' => array( 'left', 'right', 'center', 'none' ),
4483 - 'vertAlign' => array( 'baseline', 'sub', 'super', 'top', 'text-top', 'middle',
4484 - 'bottom', 'text-bottom' ),
4485 - 'frame' => array( 'thumbnail', 'manualthumb', 'framed', 'frameless',
4486 - 'upright', 'border', 'link', 'alt' ),
4487 - BUCKET
4488 - static $internalParamMap;
4489 - IZ !$internalParamMap
4490 - I HAS internalParamMap IZ EMPTY
4491 - IM IN UR internalParamNames ITZA type => $names
4492 - IM IN UR names ITZA name
4493 - I HAS magicName IZ str_replace( '-', '_', "img_$name" )
4494 - $internalParamMap[$magicName] = array( $type, $name );
4495 - KTHX
4496 - KTHX
4497 - KTHX
4498 -
4499 - BTW Add handler params
4500 - I HAS paramMap IZ $internalParamMap
4501 - IZ $handler
4502 - I HAS handlerParamMap IZ $handler->getParamMap()
4503 - IM IN UR handlerParamMap ITZA magic => $paramName
4504 - $paramMap[$magic] = array( 'handler', $paramName );
4505 - KTHX
4506 - KTHX
4507 - $this->mImageParams[$handlerClass] = $paramMap;
4508 - $this->mImageParamsMagicArray[$handlerClass] = new MagicWordArray( array_keys( $paramMap ) );
4509 - KTHX
4510 - I FOUND MAH array( $this->mImageParams[$handlerClass], $this->mImageParamsMagicArray[$handlerClass] )
4511 - KTHX
4512 -
4513 - DO NOT WANT
4514 - NOT WANT Parse image options text and use it to make an image
4515 - NOT WANT @param Title $title
4516 - NOT WANT @param string $options
4517 - NOT WANT @param LinkHolderArray $holders
4518 - WANT
4519 - SO IM LIKE makeImage WITH UR $title, $options, $holders = false
4520 - BTW Check if the options text is of the form "options|alt text"
4521 - BTW Options are:
4522 - BTW * thumbnail make a thumbnail with enlarge-icon and caption, alignment depends on lang
4523 - BTW * left no resizing, just left align. label is used for alt= only
4524 - BTW * right same, but right aligned
4525 - BTW * none same, but not aligned
4526 - BTW * ___px scale to ___ pixels width, no aligning. e.g. use in taxobox
4527 - BTW * center center the image
4528 - BTW * frame Keep original image size, no magnify-button.
4529 - BTW * framed Same as "frame"
4530 - BTW * frameless like 'thumb' but without a frame. Keeps user preferences for width
4531 - BTW * upright reduce width for upright images, rounded to full __0 px
4532 - BTW * border draw a 1px border around the image
4533 - BTW * alt Text for HTML alt attribute (defaults to empty)
4534 - BTW * link Set the target of the image link. Can be external, interwiki, or local
4535 - BTW vertical-align values (no % or length right now):
4536 - BTW * baseline
4537 - BTW * sub
4538 - BTW * super
4539 - BTW * top
4540 - BTW * text-top
4541 - BTW * middle
4542 - BTW * bottom
4543 - BTW * text-bottom
4544 -
4545 - I HAS parts IZ StringUtils::explode( "|", $options )
4546 - I HAS sk IZ $this->mOptions->getSkin()
4547 -
4548 - BTW Give extensions a chance to select the file revision for us
4549 - I HAS skip IZ $time = $descQuery = false
4550 - IM ON UR wfRunHooks DOING 'BeforeParserMakeImageLinkObj', array( &$this, &$title, &$skip, &$time, &$descQuery )
4551 -
4552 - IZ $skip
4553 - I FOUND MAH $sk->link( $title )
4554 - KTHX
4555 -
4556 - BTW Get the file
4557 - I HAS imagename IZ $title->getDBkey()
4558 - I HAS file IZ wfFindFile( $title, array( 'time' => $time ) )
4559 - BTW Get parameter map
4560 - I HAS handler IZ $file ? $file->getHandler() : false
4561 -
4562 - IM ON UR list DOING $paramMap, $mwArray ) = $this->getImageParams( $handler
4563 -
4564 - BTW Process the input parameters
4565 - I HAS caption IZ ''
4566 - I HAS params IZ BUCKET 'frame' => array(), 'handler' => array(),
4567 - 'horizAlign' => array(), 'vertAlign' => array() );
4568 - IM IN UR parts ITZA part
4569 - I HAS part IZ trim( $part )
4570 - IM ON UR list DOING $magicName, $value ) = $mwArray->matchVariableStartToEnd( $part
4571 - I HAS validated IZ false
4572 - IZ isset( $paramMap[$magicName] )
4573 - list( $type, $paramName ) = $paramMap[$magicName];
4574 -
4575 - BTW Special case; width and height come in one variable together
4576 - IZ $type === 'handler' && $paramName === 'width'
4577 - I HAS m IZ EMPTY
4578 - BTW (bug 13500) In both cases (width/height and width only),
4579 - BTW permit trailing "px" for backward compatibility.
4580 - IZ preg_match( '/^([0-9]*)x([0-9]*)\s*(?:px)?\s*$/', $value, $m )
4581 - I HAS width IZ intval( $m[1] )
4582 - I HAS height IZ intval( $m[2] )
4583 - IZ $handler->validateParam( 'width', $width )
4584 - $params[$type]['width'] = $width;
4585 - I HAS validated IZ true
4586 - KTHX
4587 - IZ $handler->validateParam( 'height', $height )
4588 - $params[$type]['height'] = $height;
4589 - I HAS validated IZ true
4590 - KTHX
4591 - ORLY preg_match( '/^[0-9]*\s*(?:px)?\s*$/', $value )
4592 - I HAS width IZ intval( $value )
4593 - IZ $handler->validateParam( 'width', $width )
4594 - $params[$type]['width'] = $width;
4595 - I HAS validated IZ true
4596 - KTHX
4597 - KTHX # else no validation -- bug 13436
4598 - NOWAI
4599 - IZ $type === 'handler'
4600 - BTW Validate handler parameter
4601 - I HAS validated IZ $handler->validateParam( $paramName, $value )
4602 - NOWAI
4603 - BTW Validate internal parameters
4604 - switch( $paramName ) {
4605 - case 'manualthumb':
4606 - case 'alt':
4607 - BTW @todo Fixme: possibly check validity here for
4608 - BTW manualthumb? downstream behavior seems odd with
4609 - BTW missing manual thumbs.
4610 - I HAS validated IZ true
4611 - I HAS value IZ $this->stripAltText( $value, $holders )
4612 - break;
4613 - case 'link':
4614 - I HAS chars IZ self::EXT_LINK_URL_CLASS
4615 - I HAS prots IZ $this->mUrlProtocols
4616 - IZ $value === ''
4617 - I HAS paramName IZ 'no-link'
4618 - I HAS value IZ true
4619 - I HAS validated IZ true
4620 - ORLY preg_match( "/^$prots/", $value )
4621 - IZ preg_match( "/^($prots)$chars+$/", $value, $m )
4622 - I HAS paramName IZ 'link-url'
4623 - IM ON UR SPECIAL mOutput->addExternalLink DOING $value
4624 - I HAS validated IZ true
4625 - KTHX
4626 - NOWAI
4627 - I HAS linkTitle IZ Title::newFromText( $value )
4628 - IZ $linkTitle
4629 - I HAS paramName IZ 'link-title'
4630 - I HAS value IZ $linkTitle
4631 - IM ON UR SPECIAL mOutput->addLink DOING $linkTitle
4632 - I HAS validated IZ true
4633 - KTHX
4634 - KTHX
4635 - break;
4636 - default:
4637 - BTW Most other things appear to be empty or numeric...
4638 - I HAS validated IZ ( $value === false || is_numeric( trim( $value ) ) )
4639 - KTHX
4640 - KTHX
4641 -
4642 - IZ $validated
4643 - $params[$type][$paramName] = $value;
4644 - KTHX
4645 - KTHX
4646 - KTHX
4647 - IZ !$validated
4648 - I HAS caption IZ $part
4649 - KTHX
4650 - KTHX
4651 -
4652 - BTW Process alignment parameters
4653 - IZ $params['horizAlign']
4654 - $params['frame']['align'] = key( $params['horizAlign'] );
4655 - KTHX
4656 - IZ $params['vertAlign']
4657 - $params['frame']['valign'] = key( $params['vertAlign'] );
4658 - KTHX
4659 -
4660 - $params['frame']['caption'] = $caption;
4661 -
4662 - BTW Will the image be presented in a frame, with the caption below?
4663 - imageIsFramed IZ isset( $params['frame']['frame'] ) ||
4664 - isset( $params['frame']['framed'] ) ||
4665 - isset( $params['frame']['thumbnail'] ) ||
4666 - IM ON UR isset DOING $params['frame']['manualthumb']
4667 -
4668 - BTW In the old days, [[Image:Foo|text...]] would set alt text. Later it
4669 - BTW came to also set the caption, ordinary text after the image -- which
4670 - BTW makes no sense, because that just repeats the text multiple times in
4671 - BTW screen readers. It *also* came to set the title attribute.
4672 - BTW
4673 - BTW Now that we have an alt attribute, we should not set the alt text to
4674 - BTW equal the caption: that's worse than useless, it just repeats the
4675 - BTW text. This is the framed/thumbnail case. If there's no caption, we
4676 - BTW use the unnamed parameter for alt text as well, just for the time be-
4677 - BTW ing, if the unnamed param is set and the alt param is not.
4678 - BTW
4679 - BTW For the future, we need to figure out if we want to tweak this more,
4680 - BTW e.g., introducing a title= parameter for the title; ignoring the un-
4681 - BTW named parameter entirely for images without a caption; adding an ex-
4682 - BTW plicit caption= parameter and preserving the old magic unnamed para-
4683 - BTW meter for BC; ...
4684 - IZ $imageIsFramed # Framed image
4685 - IZ $caption === '' && !isset( $params['frame']['alt'] )
4686 - BTW No caption or alt text, add the filename as the alt text so
4687 - BTW that screen readers at least get some description of the image
4688 - $params['frame']['alt'] = $title->getText();
4689 - KTHX
4690 - BTW Do not set $params['frame']['title'] because tooltips don't make sense
4691 - BTW for framed images
4692 - NOWAI # Inline image
4693 - IZ !isset( $params['frame']['alt'] )
4694 - BTW No alt text, use the "caption" for the alt text
4695 - if ( $caption !== '') {
4696 - $params['frame']['alt'] = $this->stripAltText( $caption, $holders );
4697 - NOWAI
4698 - BTW No caption, fall back to using the filename for the
4699 - BTW alt text
4700 - $params['frame']['alt'] = $title->getText();
4701 - KTHX
4702 - KTHX
4703 - BTW Use the "caption" for the tooltip text
4704 - $params['frame']['title'] = $this->stripAltText( $caption, $holders );
4705 - KTHX
4706 -
4707 - IM ON UR wfRunHooks DOING 'ParserMakeImageParams', array( $title, $file, &$params )
4708 -
4709 - BTW Linker does the rest
4710 - I HAS ret IZ $sk->makeImageLink2( $title, $file, $params['frame'], $params['handler'], $time, $descQuery )
4711 -
4712 - BTW Give the handler a chance to modify the parser object
4713 - IZ $handler
4714 - $handler->parserTransformHook( $this, $file );
4715 - KTHX
4716 -
4717 - I FOUND MAH $ret
4718 - KTHX
4719 -
4720 - SO IM LIKE stripAltText WITH UR $caption, $holders
4721 - BTW Strip bad stuff out of the title (tooltip). We can't just use
4722 - BTW replaceLinkHoldersText() here, because if this function is called
4723 - BTW from replaceInternalLinks2(), mLinkHolders won't be up-to-date.
4724 - IZ $holders
4725 - I HAS tooltip IZ $holders->replaceText( $caption )
4726 - NOWAI
4727 - I HAS tooltip IZ $this->replaceLinkHoldersText( $caption )
4728 - KTHX
4729 -
4730 - BTW make sure there are no placeholders in thumbnail attributes
4731 - BTW that are later expanded to html- so expand them now and
4732 - BTW remove the tags
4733 - I HAS tooltip IZ $this->mStripState->unstripBoth( $tooltip )
4734 - I HAS tooltip IZ Sanitizer::stripAllTags( $tooltip )
4735 -
4736 - I FOUND MAH $tooltip
4737 - KTHX
4738 -
4739 - DO NOT WANT
4740 - NOT WANT Set a flag in the output object indicating that the content is dynamic and
4741 - NOT WANT shouldn't be cached.
4742 - WANT
4743 - SO IM LIKE disableCache
4744 - IM ON UR wfDebug DOING "Parser output marked as uncacheable.\n"
4745 - UR SPECIAL mOutput->mCacheTime IZ -1;
4746 - KTHX
4747 -
4748 - DO NOT WANT#@+
4749 - NOT WANT Callback from the Sanitizer for expanding items found in HTML attribute
4750 - NOT WANT values, so they can be safely tested and escaped.
4751 - NOT WANT @param string $text
4752 - NOT WANT @param PPFrame $frame
4753 - NOT WANT @return string
4754 - NOT WANT @private
4755 - WANT
4756 - SO IM LIKE attributeStripCallback WITH UR &$text, $frame = false
4757 - I HAS text IZ $this->replaceVariables( $text, $frame )
4758 - I HAS text IZ $this->mStripState->unstripBoth( $text )
4759 - I FOUND MAH $text
4760 - KTHX
4761 -
4762 - DO NOT WANT#@-*/
4763 -
4764 - DO NOT WANT#@+
4765 - NOT WANT Accessor/mutator
4766 - WANT
4767 - SO IM LIKE Title WITH UR $x = null TESTING UR return wfSetVar( $this->mTitle, $x );
4768 - SO IM LIKE Options WITH UR $x = null TESTING UR return wfSetVar( $this->mOptions, $x );
4769 - SO IM LIKE OutputType WITH UR $x = null TESTING UR return wfSetVar( $this->mOutputType, $x );
4770 - DO NOT WANT#@-*/
4771 -
4772 - DO NOT WANT#@+
4773 - NOT WANT Accessor
4774 - WANT
4775 - SO IM LIKE getTags
4776 - I FOUND MAH array_merge( array_keys( $this->mTransparentTagHooks ), array_keys( $this->mTagHooks ) )
4777 - KTHX
4778 - DO NOT WANT#@-*/
4779 -
4780 -
4781 - DO NOT WANT
4782 - NOT WANT Break wikitext input into sections, and either pull or replace
4783 - NOT WANT some particular section's text.
4784 - NOT WANT
4785 - NOT WANT External callers should use the getSection and replaceSection methods.
4786 - NOT WANT
4787 - NOT WANT @param string $text Page wikitext
4788 - NOT WANT @param string $section A section identifier string of the form:
4789 - NOT WANT <flag1> - <flag2> - ... - <section number>
4790 - NOT WANT
4791 - NOT WANT Currently the only recognised flag is "T", which means the target section number
4792 - NOT WANT was derived during a template inclusion parse, in other words this is a template
4793 - NOT WANT section edit link. If no flags are given, it was an ordinary section edit link.
4794 - NOT WANT This flag is required to avoid a section numbering mismatch when a section is
4795 - NOT WANT enclosed by <includeonly> (bug 6563).
4796 - NOT WANT
4797 - NOT WANT The section number 0 pulls the text before the first heading; other numbers will
4798 - NOT WANT pull the given section along with its lower-level subsections. If the section is
4799 - NOT WANT not found, $mode=get will return $newtext, and $mode=replace will return $text.
4800 - NOT WANT
4801 - NOT WANT @param string $mode One of "get" or "replace"
4802 - NOT WANT @param string $newText Replacement text for section data.
4803 - NOT WANT @return string for "get", the extracted section text.
4804 - NOT WANT for "replace", the whole page with the section replaced.
4805 - WANT
4806 - SO IM LIKE extractSections WITH UR $text, $section, $mode, $newText=''
4807 - I HAS UR $wgTitle ON UR INTERNETS
4808 - IM ON UR SPECIAL clearState
4809 - IM ON UR SPECIAL setTitle DOING $wgTitle # not generally used but removes an ugly failure mode
4810 - UR SPECIAL mOptions IZ new ParserOptions;
4811 - IM ON UR SPECIAL setOutputType DOING self::OT_PLAIN
4812 - I HAS outText IZ ''
4813 - I HAS frame IZ $this->getPreprocessor()->newFrame()
4814 -
4815 - BTW Process section extraction flags
4816 - I HAS flags IZ 0
4817 - I HAS sectionParts IZ explode( '-', $section )
4818 - I HAS sectionIndex IZ array_pop( $sectionParts )
4819 - IM IN UR sectionParts ITZA part
4820 - IZ $part === 'T'
4821 - $flags |= self::PTD_FOR_INCLUSION;
4822 - KTHX
4823 - KTHX
4824 - BTW Preprocess the text
4825 - I HAS root IZ $this->preprocessToDom( $text, $flags )
4826 -
4827 - BTW <h> nodes indicate section breaks
4828 - BTW They can only occur at the top level, so we can find them by iterating the root's children
4829 - I HAS node IZ $root->getFirstChild()
4830 -
4831 - BTW Find the target section
4832 - IZ $sectionIndex == 0
4833 - BTW Section zero doesn't nest, level=big
4834 - I HAS targetLevel IZ 1000
4835 - NOWAI
4836 - STEALIN UR $node
4837 - IZ $node->getName() === 'h'
4838 - I HAS bits IZ $node->splitHeading()
4839 - IZ $bits['i'] == $sectionIndex
4840 - I HAS targetLevel IZ $bits['level']
4841 - break;
4842 - KTHX
4843 - KTHX
4844 - IZ $mode === 'replace'
4845 - outText HAS MOAR $frame->expand( $node, PPFrame::RECOVER_ORIG );
4846 - KTHX
4847 - I HAS node IZ $node->getNextSibling()
4848 - KTHX
4849 - KTHX
4850 -
4851 - IZ !$node
4852 - BTW Not found
4853 - IZ $mode === 'get'
4854 - I FOUND MAH $newText
4855 - NOWAI
4856 - I FOUND MAH $text
4857 - KTHX
4858 - KTHX
4859 -
4860 - BTW Find the end of the section, including nested sections
4861 - do {
4862 - IZ $node->getName() === 'h'
4863 - I HAS bits IZ $node->splitHeading()
4864 - I HAS curLevel IZ $bits['level']
4865 - IZ $bits['i'] != $sectionIndex && $curLevel <= $targetLevel
4866 - break;
4867 - KTHX
4868 - KTHX
4869 - IZ $mode === 'get'
4870 - outText HAS MOAR $frame->expand( $node, PPFrame::RECOVER_ORIG );
4871 - KTHX
4872 - I HAS node IZ $node->getNextSibling()
4873 - KTHX while ( $node );
4874 -
4875 - BTW Write out the remainder (in replace mode only)
4876 - IZ $mode === 'replace'
4877 - BTW Output the replacement text
4878 - BTW Add two newlines on -- trailing whitespace in $newText is conventionally
4879 - BTW stripped by the editor, so we need both newlines to restore the paragraph gap
4880 - BTW Only add trailing whitespace if there is newText
4881 - IZ $newText != ""
4882 - outText HAS MOAR $newText . "\n\n";
4883 - KTHX
4884 -
4885 - STEALIN UR $node
4886 - outText HAS MOAR $frame->expand( $node, PPFrame::RECOVER_ORIG );
4887 - I HAS node IZ $node->getNextSibling()
4888 - KTHX
4889 - KTHX
4890 -
4891 - IZ is_string( $outText )
4892 - BTW Re-insert stripped tags
4893 - I HAS outText IZ rtrim( $this->mStripState->unstripBoth( $outText ) )
4894 - KTHX
4895 -
4896 - I FOUND MAH $outText
4897 - KTHX
4898 -
4899 - DO NOT WANT
4900 - NOT WANT This function returns the text of a section, specified by a number ($section).
4901 - NOT WANT A section is text under a heading like == Heading == or \<h1\>Heading\</h1\>, or
4902 - NOT WANT the first section before any such heading (section 0).
4903 - NOT WANT
4904 - NOT WANT If a section contains subsections, these are also returned.
4905 - NOT WANT
4906 - NOT WANT @param string $text text to look in
4907 - NOT WANT @param string $section section identifier
4908 - NOT WANT @param string $deftext default to return if section is not found
4909 - NOT WANT @return string text of the requested section
4910 - WANT
4911 - SO IM LIKE getSection WITH UR $text, $section, $deftext=''
4912 - I FOUND MAH $this->extractSections( $text, $section, "get", $deftext )
4913 - KTHX
4914 -
4915 - SO IM LIKE replaceSection WITH UR $oldtext, $section, $text
4916 - I FOUND MAH $this->extractSections( $oldtext, $section, "replace", $text )
4917 - KTHX
4918 -
4919 - DO NOT WANT
4920 - NOT WANT Get the timestamp associated with the current revision, adjusted for
4921 - NOT WANT the default server-local timestamp
4922 - WANT
4923 - SO IM LIKE getRevisionTimestamp
4924 - IZ is_null( $this->mRevisionTimestamp )
4925 - IM ON UR wfProfileIn DOING __METHOD__
4926 - I HAS UR $wgContLang ON UR INTERNETS
4927 - I HAS dbr IZ wfGetDB( DB_SLAVE )
4928 - timestamp IZ $dbr->selectField( 'revision', 'rev_timestamp',
4929 - IM ON UR array DOING 'rev_id' => $this->mRevisionId ), __METHOD__
4930 -
4931 - BTW Normalize timestamp to internal MW format for timezone processing.
4932 - BTW This has the added side-effect of replacing a null value with
4933 - BTW the current time, which gives us more sensible behavior for
4934 - BTW previews.
4935 - I HAS timestamp IZ wfTimestamp( TS_MW, $timestamp )
4936 -
4937 - BTW The cryptic '' timezone parameter tells to use the site-default
4938 - BTW timezone offset instead of the user settings.
4939 - BTW
4940 - BTW Since this value will be saved into the parser cache, served
4941 - BTW to other users, and potentially even used inside links and such,
4942 - BTW it needs to be consistent for all visitors.
4943 - UR SPECIAL mRevisionTimestamp IZ $wgContLang->userAdjust( $timestamp, '' );
4944 -
4945 - IM ON UR wfProfileOut DOING __METHOD__
4946 - KTHX
4947 - I FOUND MAH $this->mRevisionTimestamp
4948 - KTHX
4949 -
4950 - DO NOT WANT
4951 - NOT WANT Get the name of the user that edited the last revision
4952 - WANT
4953 - SO IM LIKE getRevisionUser
4954 - BTW if this template is subst: the revision id will be blank,
4955 - BTW so just use the current user's name
4956 - IZ $this->mRevisionId
4957 - I HAS revision IZ Revision::newFromId( $this->mRevisionId )
4958 - I HAS revuser IZ $revision->getUserText()
4959 - NOWAI
4960 - I HAS UR $wgUser ON UR INTERNETS
4961 - I HAS revuser IZ $wgUser->getName()
4962 - KTHX
4963 - I FOUND MAH $revuser
4964 - KTHX
4965 -
4966 - DO NOT WANT
4967 - NOT WANT Mutator for $mDefaultSort
4968 - NOT WANT
4969 - NOT WANT @param $sort New value
4970 - WANT
4971 - SO IM LIKE setDefaultSort WITH UR $sort
4972 - UR SPECIAL mDefaultSort IZ $sort;
4973 - KTHX
4974 -
4975 - DO NOT WANT
4976 - NOT WANT Accessor for $mDefaultSort
4977 - NOT WANT Will use the title/prefixed title if none is set
4978 - NOT WANT
4979 - NOT WANT @return string
4980 - WANT
4981 - SO IM LIKE getDefaultSort
4982 - I HAS UR $wgCategoryPrefixedDefaultSortkey ON UR INTERNETS
4983 - IZ $this->mDefaultSort !== false
4984 - I FOUND MAH $this->mDefaultSort
4985 - KTHX elseif ( $this->mTitle->getNamespace() == NS_CATEGORY ||
4986 - !$wgCategoryPrefixedDefaultSortkey )
4987 - {
4988 - I FOUND MAH $this->mTitle->getText()
4989 - NOWAI
4990 - I FOUND MAH $this->mTitle->getPrefixedText()
4991 - KTHX
4992 - KTHX
4993 -
4994 - DO NOT WANT
4995 - NOT WANT Accessor for $mDefaultSort
4996 - NOT WANT Unlike getDefaultSort(), will return false if none is set
4997 - NOT WANT
4998 - NOT WANT @return string or false
4999 - WANT
5000 - SO IM LIKE getCustomDefaultSort
5001 - I FOUND MAH $this->mDefaultSort
5002 - KTHX
5003 -
5004 - DO NOT WANT
5005 - NOT WANT Try to guess the section anchor name based on a wikitext fragment
5006 - NOT WANT presumably extracted from a heading, for example "Header" from
5007 - NOT WANT "== Header ==".
5008 - WANT
5009 - SO IM LIKE guessSectionNameFromWikiText WITH UR $text
5010 - BTW Strip out wikitext links(they break the anchor)
5011 - I HAS text IZ $this->stripSectionName( $text )
5012 - I HAS headline IZ Sanitizer::decodeCharReferences( $text )
5013 - BTW strip out HTML
5014 - I HAS headline IZ StringUtils::delimiterReplace( '<', '>', '', $headline )
5015 - I HAS headline IZ trim( $headline )
5016 - I HAS sectionanchor IZ '#' . urlencode( str_replace( ' ', '_', $headline ) )
5017 - I HAS replacearray IZ BUCKET
5018 - '%3A' => ':',
5019 - '%' => '.'
5020 - BUCKET
5021 - return str_replace(
5022 - array_keys( $replacearray ),
5023 - array_values( $replacearray ),
5024 - $sectionanchor );
5025 - KTHX
5026 -
5027 - DO NOT WANT
5028 - NOT WANT Strips a text string of wikitext for use in a section anchor
5029 - NOT WANT
5030 - NOT WANT Accepts a text string and then removes all wikitext from the
5031 - NOT WANT string and leaves only the resultant text (i.e. the result of
5032 - NOT WANT [[User:WikiSysop|Sysop]] would be "Sysop" and the result of
5033 - NOT WANT [[User:WikiSysop]] would be "User:WikiSysop") - this is intended
5034 - NOT WANT to create valid section anchors by mimicing the output of the
5035 - NOT WANT parser when headings are parsed.
5036 - NOT WANT
5037 - NOT WANT @param $text string Text string to be stripped of wikitext
5038 - NOT WANT for use in a Section anchor
5039 - NOT WANT @return Filtered text string
5040 - WANT
5041 - SO IM LIKE stripSectionName WITH UR $text
5042 - BTW Strip internal link markup
5043 - I HAS text IZ preg_replace( '/\[\[:?([^[|]+)\|([^[]+)\]\]/', '$2', $text )
5044 - I HAS text IZ preg_replace( '/\[\[:?([^[]+)\|?\]\]/', '$1', $text )
5045 -
5046 - BTW Strip external link markup (FIXME: Not Tolerant to blank link text
5047 - BTW I.E. [http://www.mediawiki.org] will render as [1] or something depending
5048 - BTW on how many empty links there are on the page - need to figure that out.
5049 - I HAS text IZ preg_replace( '/\[(?:' . wfUrlProtocols() . ')([^ ]+?) ([^[]+)\]/', '$2', $text )
5050 -
5051 - BTW Parse wikitext quotes (italics & bold)
5052 - I HAS text IZ $this->doQuotes( $text )
5053 -
5054 - BTW Strip HTML tags
5055 - I HAS text IZ StringUtils::delimiterReplace( '<', '>', '', $text )
5056 - I FOUND MAH $text
5057 - KTHX
5058 -
5059 - SO IM LIKE srvus WITH UR $text
5060 - I FOUND MAH $this->testSrvus( $text, $this->mOutputType )
5061 - KTHX
5062 -
5063 - DO NOT WANT
5064 - NOT WANT strip/replaceVariables/unstrip for preprocessor regression testing
5065 - WANT
5066 - SO IM LIKE testSrvus WITH UR $text, $title, $options, $outputType = self::OT_HTML
5067 - IM ON UR SPECIAL clearState
5068 - IZ !$title instanceof Title
5069 - I HAS title IZ Title::newFromText( $title )
5070 - KTHX
5071 - UR SPECIAL mTitle IZ $title;
5072 - UR SPECIAL mOptions IZ $options;
5073 - IM ON UR SPECIAL setOutputType DOING $outputType
5074 - I HAS text IZ $this->replaceVariables( $text )
5075 - I HAS text IZ $this->mStripState->unstripBoth( $text )
5076 - I HAS text IZ Sanitizer::removeHTMLtags( $text )
5077 - I FOUND MAH $text
5078 - KTHX
5079 -
5080 - SO IM LIKE testPst WITH UR $text, $title, $options
5081 - I HAS UR $wgUser ON UR INTERNETS
5082 - IZ !$title instanceof Title
5083 - I HAS title IZ Title::newFromText( $title )
5084 - KTHX
5085 - I FOUND MAH $this->preSaveTransform( $text, $title, $wgUser, $options )
5086 - KTHX
5087 -
5088 - SO IM LIKE testPreprocess WITH UR $text, $title, $options
5089 - IZ !$title instanceof Title
5090 - I HAS title IZ Title::newFromText( $title )
5091 - KTHX
5092 - I FOUND MAH $this->testSrvus( $text, $title, $options, self::OT_PREPROCESS )
5093 - KTHX
5094 -
5095 - SO IM LIKE markerSkipCallback WITH UR $s, $callback
5096 - I HAS i IZ 0
5097 - I HAS out IZ ''
5098 - STEALIN UR $i < strlen( $s )
5099 - I HAS markerStart IZ strpos( $s, $this->mUniqPrefix, $i )
5100 - IZ $markerStart === false
5101 - out HAS MOAR call_user_func( $callback, substr( $s, $i ) );
5102 - break;
5103 - NOWAI
5104 - out HAS MOAR call_user_func( $callback, substr( $s, $i, $markerStart - $i ) );
5105 - I HAS markerEnd IZ strpos( $s, self::MARKER_SUFFIX, $markerStart )
5106 - IZ $markerEnd === false
5107 - out HAS MOAR substr( $s, $markerStart );
5108 - break;
5109 - NOWAI
5110 - $markerEnd += strlen( self::MARKER_SUFFIX );
5111 - out HAS MOAR substr( $s, $markerStart, $markerEnd - $markerStart );
5112 - I HAS i IZ $markerEnd
5113 - KTHX
5114 - KTHX
5115 - KTHX
5116 - I FOUND MAH $out
5117 - KTHX
5118 -
5119 - SO IM LIKE serialiseHalfParsedText WITH UR $text
5120 - I HAS data IZ EMPTY
5121 - $data['text'] = $text;
5122 -
5123 - BTW First, find all strip markers, and store their
5124 - BTW data in an array.
5125 - I HAS stripState IZ new StripState
5126 - I HAS pos IZ 0
5127 - while ( ( $start_pos = strpos( $text, $this->mUniqPrefix, $pos ) )
5128 - && ( $end_pos = strpos( $text, self::MARKER_SUFFIX, $pos ) ) )
5129 - {
5130 - $end_pos += strlen( self::MARKER_SUFFIX );
5131 - I HAS marker IZ substr( $text, $start_pos, $end_pos-$start_pos )
5132 -
5133 - IZ !empty( $this->mStripState->general->data[$marker] )
5134 - I HAS replaceArray IZ $stripState->general
5135 - I HAS stripText IZ $this->mStripState->general->data[$marker]
5136 - ORLY !empty( $this->mStripState->nowiki->data[$marker] )
5137 - I HAS replaceArray IZ $stripState->nowiki
5138 - I HAS stripText IZ $this->mStripState->nowiki->data[$marker]
5139 - NOWAI
5140 - throw new MWException( "Hanging strip marker: '$marker'." );
5141 - KTHX
5142 -
5143 - $replaceArray->setPair( $marker, $stripText );
5144 - I HAS pos IZ $end_pos
5145 - KTHX
5146 - $data['stripstate'] = $stripState;
5147 -
5148 - BTW Now, find all of our links, and store THEIR
5149 - BTW data in an array! :)
5150 - I HAS links IZ BUCKET 'internal' => array(), 'interwiki' => array() );
5151 - I HAS pos IZ 0
5152 -
5153 - BTW Internal links
5154 - STEALIN UR ( $start_pos = strpos( $text, '<!--LINK ', $pos ) )
5155 - IM ON UR list DOING $ns, $trail ) = explode( ':', substr( $text, $start_pos + strlen( '<!--LINK ' ) ), 2
5156 -
5157 - I HAS ns IZ trim( $ns )
5158 - IZ empty( $links['internal'][$ns] )
5159 - $links['internal'][$ns] = array();
5160 - KTHX
5161 -
5162 - I HAS key IZ trim( substr( $trail, 0, strpos( $trail, '-->' ) ) )
5163 - $links['internal'][$ns][] = $this->mLinkHolders->internals[$ns][$key];
5164 - I HAS pos IZ $start_pos + strlen( "<!--LINK $ns:$key-->" )
5165 - KTHX
5166 -
5167 - I HAS pos IZ 0
5168 -
5169 - BTW Interwiki links
5170 - STEALIN UR ( $start_pos = strpos( $text, '<!--IWLINK ', $pos ) )
5171 - I HAS data IZ substr( $text, $start_pos )
5172 - I HAS key IZ trim( substr( $data, 0, strpos( $data, '-->' ) ) )
5173 - $links['interwiki'][] = $this->mLinkHolders->interwiki[$key];
5174 - I HAS pos IZ $start_pos + strlen( "<!--IWLINK $key-->" )
5175 - KTHX
5176 -
5177 - $data['linkholder'] = $links;
5178 -
5179 - I FOUND MAH $data
5180 - KTHX
5181 -
5182 - DO NOT WANT
5183 - NOT WANT TODO: document
5184 - NOT WANT @param $data Array
5185 - NOT WANT @param $intPrefix String unique identifying prefix
5186 - NOT WANT @return String
5187 - WANT
5188 - SO IM LIKE unserialiseHalfParsedText WITH UR $data, $intPrefix = null
5189 - IZ !$intPrefix
5190 - I HAS intPrefix IZ $this->getRandomString()
5191 - KTHX
5192 -
5193 - BTW First, extract the strip state.
5194 - I HAS stripState IZ $data['stripstate']
5195 - IM ON UR SPECIAL mStripState->general->merge DOING $stripState->general
5196 - IM ON UR SPECIAL mStripState->nowiki->merge DOING $stripState->nowiki
5197 -
5198 - BTW Now, extract the text, and renumber links
5199 - I HAS text IZ $data['text']
5200 - I HAS links IZ $data['linkholder']
5201 -
5202 - BTW Internal...
5203 - foreach ( $links['internal'] as $ns => $nsLinks ) {
5204 - IM IN UR nsLinks ITZA key => $entry
5205 - I HAS newKey IZ $intPrefix . '-' . $key
5206 - $this->mLinkHolders->internals[$ns][$newKey] = $entry;
5207 -
5208 - I HAS text IZ str_replace( "<!--LINK $ns:$key-->", "<!--LINK $ns:$newKey-->", $text )
5209 - KTHX
5210 - KTHX
5211 -
5212 - BTW Interwiki...
5213 - foreach ( $links['interwiki'] as $key => $entry ) {
5214 - I HAS newKey IZ "$intPrefix-$key"
5215 - $this->mLinkHolders->interwikis[$newKey] = $entry;
5216 -
5217 - I HAS text IZ str_replace( "<!--IWLINK $key-->", "<!--IWLINK $newKey-->", $text )
5218 - KTHX
5219 -
5220 - BTW Should be good to go.
5221 - I FOUND MAH $text
5222 - KTHX
5223 - KTHX
5224 -
5225 - DO NOT WANT
5226 - NOT WANT @todo document, briefly.
5227 - NOT WANT @ingroup Parser
5228 - WANT
5229 - IM IN UR SPECIAL StripState
5230 - I HAS UR $general, $nowiki
5231 -
5232 - SO IM LIKE __construct
5233 - UR SPECIAL general IZ new ReplacementArray;
5234 - UR SPECIAL nowiki IZ new ReplacementArray;
5235 - KTHX
5236 -
5237 - SO IM LIKE unstripGeneral WITH UR $text
5238 - IM ON UR wfProfileIn DOING __METHOD__
5239 - do {
5240 - I HAS oldText IZ $text
5241 - I HAS text IZ $this->general->replace( $text )
5242 - KTHX while ( $text !== $oldText );
5243 - IM ON UR wfProfileOut DOING __METHOD__
5244 - I FOUND MAH $text
5245 - KTHX
5246 -
5247 - SO IM LIKE unstripNoWiki WITH UR $text
5248 - IM ON UR wfProfileIn DOING __METHOD__
5249 - do {
5250 - I HAS oldText IZ $text
5251 - I HAS text IZ $this->nowiki->replace( $text )
5252 - KTHX while ( $text !== $oldText );
5253 - IM ON UR wfProfileOut DOING __METHOD__
5254 - I FOUND MAH $text
5255 - KTHX
5256 -
5257 - SO IM LIKE unstripBoth WITH UR $text
5258 - IM ON UR wfProfileIn DOING __METHOD__
5259 - do {
5260 - I HAS oldText IZ $text
5261 - I HAS text IZ $this->general->replace( $text )
5262 - I HAS text IZ $this->nowiki->replace( $text )
5263 - KTHX while ( $text !== $oldText );
5264 - IM ON UR wfProfileOut DOING __METHOD__
5265 - I FOUND MAH $text
5266 - KTHX
5267 - KTHX
5268 -
5269 - DO NOT WANT
5270 - NOT WANT @todo document, briefly.
5271 - NOT WANT @ingroup Parser
5272 - WANT
5273 - IM IN UR SPECIAL OnlyIncludeReplacer
5274 - var $output = '';
5275 -
5276 - SO IM LIKE replace WITH UR $matches
5277 - IZ substr( $matches[1], -1 ) === "\n"
5278 - $this->output .= substr( $matches[1], 0, -1 );
5279 - NOWAI
5280 - $this->output .= $matches[1];
5281 - KTHX
5282 - KTHX
5283 - KTHX Index: trunk/phase3/includes/parser/LOLParser.php
——@@ -1,170 +0,0 @@
2 -<?php
3 -/*
4 - * lol_core.php Ver 0.3
5 - * Copyright (c) 2007 Jeff Jones, www.tetraboy.com, 2010 Happy-melon
6 - *
7 - * Permission is hereby granted, free of charge, to any person obtaining a copy
8 - * of this software and associated documentation files (the "Software"), to deal
9 - * in the Software without restriction, including without limitation the rights
10 - * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
11 - * copies of the Software, and to permit persons to whom the Software is
12 - * furnished to do so, subject to the following conditions:
13 - *
14 - * The above copyright notice and this permission notice shall be included in
15 - * all copies or substantial portions of the Software.
16 - *
17 - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
18 - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19 - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
20 - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
21 - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22 - * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
23 - * THE SOFTWARE.
24 - */
25 -function lol_core_parse( $code ) {
26 - return lol_core_replace( $code, 'forwards' );
27 -}
28 -function lol_core_unparse( $code ) {
29 - return lol_core_replace( $code, 'backwards' );
30 -}
31 -
32 -define( 'LOL_ANY', '(.+?)' );
33 -define( 'LOL_LABEL', '([a-zA-Z0-9_-]+)' );
34 -define( 'LOL_VAR', '\$([a-zA-Z0-9_-]+)' );
35 -define( 'LOL_FNAME', '([a-zA-Z0-9_\-\>]+)' );
36 -define( 'LOL_MNAME', '\$this\-\>([a-zA-Z0-9_\-\>]+)' );
37 -define( 'LOL_VARLIST', '((?:'.LOL_VAR.'(?:,\s*)?)+)' );
38 -define( 'LOL_CMT', '((\/\/|#) (.*))?');
39 -function lol_core_replace($code, $dir ) {
40 - $backwards = array(
41 - '/^([\s]*)'.LOL_VAR.'( = null)?;/', '$1 I HAS $2',
42 - '/^([\s]*)var '.LOL_VARLIST.';/', '$1 I HAS UR $2',
43 - '/^([\s]*)global '.LOL_VARLIST.';/', '$1 I HAS UR $2 ON UR INTERNETS',
44 - '/^([\s]*)'.LOL_VAR.' += array\(\);/', '$1 I HAS $2 IZ EMPTY',
45 - '/^([\s]*)'.LOL_VAR.' += array\(/', '$1 I HAS $2 IZ BUCKET',
46 - '/^([\s]*)'.LOL_VAR.' += (.+);/', '$1 I HAS $2 IZ $3',
47 - '/^([\s]*)'.LOL_VAR.'++;/', '$1 $2 UPUP!',
48 - '/^([\s]*)'.LOL_VAR.' = '.LOL_FNAME.'\( (.+) \);/', '$1 $2 IZ ON UR $3 DOING $4',
49 - '/^([\s]*)'.LOL_MNAME.'\(\);/', '$1 IM ON UR SPECIAL $2',
50 - '/^([\s]*)'.LOL_MNAME.'\( (.+) \);/', '$1 IM ON UR SPECIAL $2 DOING $3',
51 - '/^([\s]*)'.LOL_FNAME.'\(\);/', '$1 IM ON UR $2',
52 - '/^([\s]*)'.LOL_FNAME.'\( (.+) \);/', '$1 IM ON UR $2 DOING $3',
53 -
54 - '/^([\s]*)class '.LOL_FNAME.' {/', '$1 IM IN UR SPECIAL $2',
55 - '/^([\s]*)const '.LOL_FNAME.' = (.+)/', '$1 I ALWAYZ HAS $2 IZ $3',
56 - '/^([\s]*)foreach \( '.LOL_VAR.' as \$(.+) \) {/', '$1 IM IN UR $2 ITZA $3',
57 - '/^([\s]*)while \( (.+) \) {/', '$1 STEALIN UR $2',
58 -
59 - '/^([\s]*)return (.*);/', '$1 I FOUND MAH $2',
60 -
61 - '/^([\s]*)'.LOL_VAR.' = (.*)/', '$1 $2 IZ $3',
62 - '/^([\s]*)'.LOL_VAR.' \.= (.*)/', '$1 $2 HAS MOAR $3',
63 - '/^([\s]*)'.LOL_MNAME.' = array\(\)/', '$1 UR SPECIAL $2 IZ EMPTY',
64 - '/^([\s]*)'.LOL_MNAME.' = array\(/', '$1 UR SPECIAL $2 IZ BUCKET',
65 - '/^([\s]*)'.LOL_MNAME.' = (.*)/', '$1 UR SPECIAL $2 IZ $3',
66 -
67 - '/^([\s]*)(?:private |protected |public )?function '.LOL_FNAME.' ?\(\) \{ (.+) \}/', '$1 SO IM LIKE $2 TESTING UR $3',
68 - '/^([\s]*)(?:private |protected |public )?function '.LOL_FNAME.' ?\( (.*) \) \{ (.+) \}/', '$1 SO IM LIKE $2 WITH UR $3 TESTING UR $4',
69 - '/^([\s]*)(?:private |protected |public )?function '.LOL_FNAME.' ?\( (.*) \) \{/', '$1 SO IM LIKE $2 WITH UR $3',
70 - '/^([\s]*)(?:private |protected |public )?function '.LOL_FNAME.' ?\(\) \{/', '$1 SO IM LIKE $2',
71 - '/^([\s]*)(?:private |protected |public )?static function '.LOL_FNAME.' ?\(\) \{/', '$1 SO IM ALWAYS LIKE $2',
72 - '/^([\s]*)(?:private |protected |public )?static function '.LOL_FNAME.' ?\( (.*) \) \{/', '$1 SO IM ALWAYS LIKE $2 WITH UR $3',
73 -
74 - '/^([\s]*)if \( (.+) \) \{/', '$1 IZ $2',
75 - '/^([\s]*)\} elseif \( (.+) \) \{/', '$1 ORLY $2',
76 - '/^([\s]*)\} else \{/', '$1 NOWAI',
77 -
78 - '/^([\s]*)(\/\/|\#) (.*)/', '$1 BTW $3',
79 - '/^([\s]*)\/\*\*?/', '$1 DO NOT WANT',
80 - '/^([\s]*)\*\//', '$1 WANT',
81 - '/^([\s]*)\* ?(.*)/', '$1 NOT WANT $2',
82 -
83 - '/^([\s]*)\);/', '$1 BUCKET',
84 - '/^([\s]*)\}/', '$1 KTHX',
85 - );
86 -
87 - $forwards = array(
88 - '/^([\s]*) I HAS UR '.LOL_VARLIST.' ON UR INTERNETS[\s]+/', '$1 global $2;',
89 - '/^([\s]*) I HAS UR '.LOL_VARLIST.'[\s]+/', '$1 var $2;',
90 - '/^([\s]*) I HAS '.LOL_LABEL.' IZ BUCKET[\s]+/', '$1\$$2 = array(',
91 - '/^([\s]*) I HAS '.LOL_LABEL.' IZ EMPTY[\s]+/', '$1 \$$2 = array();',
92 - '/^([\s]*) I HAS '.LOL_LABEL.' IZ '.LOL_ANY.''.LOL_CMT.'[\s]+$/', '$1 \$$2 = $3; $4',
93 - '/^([\s]*) I HAS '.LOL_LABEL.'[\s]+/', '$1 \$$2;',
94 - '/^([\s]*) '.LOL_LABEL.' IZ ON UR '.LOL_FNAME.' DOING '.LOL_ANY.''.LOL_CMT.'[\s]+$/', '$1 \$$2 = $3( $4 ); $5',
95 - '/^([\s]*) IM ON UR SPECIAL '.LOL_FNAME.' DOING '.LOL_ANY.''.LOL_CMT.'[\s]*$/', '$1 \$this->$2( $3 ); $4',
96 - '/^([\s]*) IM ON UR SPECIAL '.LOL_FNAME.'[\s]*/', '$1 \$this->$2();',
97 - '/^([\s]*) IM ON UR '.LOL_FNAME.' DOING(.+)'.LOL_CMT.'[\s]+/', '$1 $2( $3 ); $4',
98 - '/^([\s]*) IM ON UR '.LOL_FNAME.'[\s]+/', '$1 $2();',
99 - '/^([\s]*) '.LOL_LABEL.' UPUP[\s]+/', '$1 $2++',
100 -
101 - '/^([\s]*) IM IN UR SPECIAL '.LOL_FNAME.'[\s]+/', '$1 class $2 {',
102 - '/^([\s]*) I ALWAYZ HAS '.LOL_FNAME.' IZ (.+)[\s]+/', '$1 const $2 = $3',
103 - '/^([\s]*) IM IN UR '.LOL_LABEL.' ITZA (.+)[\s]+/', '$1 foreach ( \$$2 as \$$3 ) {',
104 - '/^([\s]*) STEALIN UR (.+)[\s]+/', '$1 while( $2 ) {',
105 -
106 - '/^([\s]*) I FOUND MAH (.*)[\s]+/', '$1 return $2;',
107 -
108 - '/^([\s]*) UR SPECIAL '.LOL_FNAME.' IZ EMPTY[\s]*/', '$1 \$this->$2 = array()',
109 - '/^([\s]*) UR SPECIAL '.LOL_FNAME.' IZ BUCKET[\s]+/', '$1 \$this->$2 = array(',
110 - '/^([\s]*) UR SPECIAL '.LOL_FNAME.' IZ '.LOL_ANY.''.LOL_CMT.'[\s]*$/', '$1 \$this->$2 = $3 $4',
111 - '/^([\s]*)'.LOL_LABEL.' IZ (.*)[\s]+/', '$1 \$$2 = $3',
112 - '/^([\s]*)'.LOL_LABEL.' HAS MOAR (.*)[\s]+/', '$1 \$$2 .= $3',
113 -
114 - '/^([\s]*) SO IM LIKE '.LOL_FNAME.' TESTING UR (.+)[\s]+/', '$1 function $2(){ $3 }',
115 - '/^([\s]*) SO IM LIKE '.LOL_FNAME.' WITH UR (.*) TESTING UR (.+)[\s]+/', '$1 function $2( $3 ) { $4 }',
116 - '/^([\s]*) SO IM LIKE '.LOL_FNAME.' WITH UR (.*)[\s]+/', '$1 function $2( $3 ) {',
117 - '/^([\s]*) SO IM LIKE '.LOL_FNAME.'[\s]+/', '$1 function $2(){',
118 - '/^([\s]*) SO IM ALWAYS LIKE '.LOL_FNAME.' WITH UR (.*)[\s]+/', '$1 static function $2( $3 ) {',
119 - '/^([\s]*) SO IM ALWAYS LIKE '.LOL_FNAME.'[\s]+/', '$1 static function $2(){',
120 -
121 - '/^([\s]*) IZ '.LOL_ANY.''.LOL_CMT.'[\s]+$/', '$1 if( $2 ) { $3',
122 - '/^([\s]*) ORLY '.LOL_ANY.''.LOL_CMT.'[\s]+$/', '$1 } elseif( $2 ) { $3',
123 - '/^([\s]*) NOWAI[\s]+/', '$1 } else {',
124 -
125 - '/^([\s]*) BTW (.*)[\s]*/', '$1 # $2',
126 - '/^([\s]*) DO NOT WANT[\s]*/', '$1 /**',
127 - '/^([\s]*) WANT[\s]*/', '$1 */',
128 - '/^([\s]*) NOT WANT (.*)[\s]*/', '$1 * $2',
129 -
130 - '/^([\s]*) BUCKET[\s]*/', '$1 );',
131 - '/^([\s]*) KTHX[\s]*/', '$1 }',
132 - );
133 -
134 - $code = is_array( $code )
135 - ? $code
136 - : explode("\n",$code);
137 -
138 - $search = array();
139 - $replace = array();
140 - foreach( $$dir as $key => $var ){
141 - if( 1 & $key ) {
142 - $replace[] = $var;
143 - } else {
144 - $search[] = $var;
145 - }
146 - }
147 -
148 - $code = preg_replace( $search, $replace, $code );
149 - $code = implode( "\n", $code );
150 - return $code;
151 -}
152 -
153 -
154 -
155 -## Parser implementation ##
156 -if( false ){ # set to false to disable
157 - $lol = file( dirname(__FILE__).'/Parser.lol', FILE_IGNORE_NEW_LINES );
158 - $php = lol_core_parse( $lol );
159 - try {
160 - eval( $php );
161 - } catch ( Exception $e ){
162 - require_once( 'Parser.php' );
163 - }
164 -} else {
165 - # You're no fun...
166 - require_once( 'Parser.php' );
167 -}
168 -
169 -
170 -
171 -
Index: trunk/phase3/includes/AutoLoader.php
——@@ -463,7 +463,7 @@
464464 'PPNode_Hash_Tree' => 'includes/parser/Preprocessor_Hash.php',
465465 'PPTemplateFrame_DOM' => 'includes/parser/Preprocessor_DOM.php',
466466 'PPTemplateFrame_Hash' => 'includes/parser/Preprocessor_Hash.php',
467 - 'Parser' => 'includes/parser/LOLParser.php',
 467+ 'Parser' => 'includes/parser/Parser.php',
468468 'ParserCache' => 'includes/parser/ParserCache.php',
469469 'ParserOptions' => 'includes/parser/ParserOptions.php',
470470 'ParserOutput' => 'includes/parser/ParserOutput.php',

Past revisions this follows-up on

RevisionCommit summaryAuthorDate
r64478Rewrite the parser in a more friendly and accessible implementation...happy-melon10:50, 1 April 2010

Status & tagging log