paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 14:40:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki: Modify Wiki2XHTMLConvert to convert wiki [code] tags to html <code> tags (instead of <pre> which causes a line break)

Browse Source 
git-svn-id: trunk@49325 -
This commit is contained in:
wp 2015-06-13 12:16:18 +00:00
parent 794294016d
commit 11c6f4dfca
1 changed files with 54 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
components/wiki/lazwiki/wiki2xhtmlconvert.pas
View File

@ -823,55 +823,62 @@ begin
doc:=Page.XHTML;
CurName:=lowercase(copy(W.Src,Token.NameStartPos,Token.NameEndPos-Token.NameStartPos));
CurValue:=copy(W.Src,Token.ValueStartPos,Token.ValueEndPos-Token.ValueStartPos);
CodeNode:=doc.CreateElement('pre');
if (CurName='pascal')
or (CurName='delphi')
or (CurName='code')
or (CurName='syntaxhighlight')
or (CurName='source')
or (CurName='fpc')
then
CurName:='pascal';
if CurName<>'' then
CodeNode.SetAttribute('class',CurName);
Page.CurDOMNode.AppendChild(CodeNode);
if CurValue<>'' then begin
if (CurName='pascal') then begin
p:=PChar(CurValue);
AtomStart:=p;
LastToken:=pNone;
LastRangeStart:=p;
repeat
// skip space
while p^ in [#1..#31,' '] do inc(p);
// read token
if (p^='{') or ((p^='/') and (p[1]='/')) or ((p^='(') and (p[1]='*'))
then begin
// comment
AddSpan(pComment,p);
p:=FindCommentEnd(p,false);
end else begin
ReadRawNextPascalAtom(p,AtomStart);
if AtomStart^=#0 then break;
case AtomStart^ of
'''','#':
AddSpan(pString,AtomStart);
'0'..'9','%','$','&':
AddSpan(pNumber,AtomStart);
'a'..'z','A'..'Z','_':
if WordIsKeyWord.DoIdentifier(AtomStart) then
AddSpan(pKey,AtomStart)
if CurName = 'code' then begin
CodeNode := doc.CreateElement('code');
Page.CurDomNode.AppendChild(CodeNode);
CodeNode.AppendChild(doc.CreateTextNode(CurValue));
end else
begin
CodeNode:=doc.CreateElement('pre');
if (CurName='pascal')
or (CurName='delphi')
or (CurName='syntaxhighlight')
or (CurName='source')
or (CurName='fpc')
then
CurName:='pascal';
if CurName<>'' then
CodeNode.SetAttribute('class',CurName);
Page.CurDOMNode.AppendChild(CodeNode);
if CurValue<>'' then begin
if (CurName='pascal') then begin
p:=PChar(CurValue);
AtomStart:=p;
LastToken:=pNone;
LastRangeStart:=p;
repeat
// skip space
while p^ in [#1..#31,' '] do inc(p);
// read token
if (p^='{') or ((p^='/') and (p[1]='/')) or ((p^='(') and (p[1]='*'))
then begin
// comment
AddSpan(pComment,p);
p:=FindCommentEnd(p,false);
end else begin
ReadRawNextPascalAtom(p,AtomStart);
if AtomStart^=#0 then break;
case AtomStart^ of
'''','#':
AddSpan(pString,AtomStart);
'0'..'9','%','$','&':
AddSpan(pNumber,AtomStart);
'a'..'z','A'..'Z','_':
if WordIsKeyWord.DoIdentifier(AtomStart) then
AddSpan(pKey,AtomStart)
else
AddSpan(pNone,AtomStart);
else
AddSpan(pNone,AtomStart);
else
AddSpan(pSymbol,AtomStart);
AddSpan(pSymbol,AtomStart);
end;
end;
end;
until false;
Flush(p);
end else begin
// default: add as text
CodeNode.AppendChild(doc.CreateTextNode(CurValue));
until false;
Flush(p);
end else begin
// default: add as text
CodeNode.AppendChild(doc.CreateTextNode(CurValue));
end;
end;
end;
end;