PostRaw.xxm

[[@DataLank,xxmSession,VBScript_RegExp_55_TLB,fCommon]][[!var
qr:TQueryResult;
id,i,j,l:integer;
db:TDataConnection;
d1:TDateTime;
s:UTF8String;
d:AnsiChar;


function u(a,b:integer):WideString;
begin
  //Result:=UTF8Decode(Copy(s,a,b));
  Result:=UTF8ToWideString(Copy(s,a,b));
end;

]][[
Context.Include('dHead.xxmi');
id:=Context['id'].AsInteger;
db:=Session.Connection;
qr:=TQueryResult.Create(db,
  'select P.*, S.label, S.color, S.readwidth'+
  ' from "Post" P'+
  ' left outer join "Subscription" S on S.feed_id=P.feed_id and S.user_id=$1'+
  ' where P.id=$2',[Session.UserID,id]);
try
  //TODO: sanitize HTML (either here or in eater)
  d1:=double(qr['pubdate'])+Session.TimeBias;
  <<div style="padding-bottom:4pt;">
  <div class="date" title="[[=FormatDateTime('ddd yyyy-mm-dd hh:nn:ss',d1)]]">>=FormatDateTime('mm-dd hh:nn',d1)<</div>
  [[#ShowLabel(qr.GetStr('label'),qr.GetStr('color'),'')]]
  <b>>=qr['title']<</b>
  </div>>

  if Context['raw'].AsInteger<>0 then
   begin
    <<div>>=qr['content']<</div>>
   end
  else
   begin
    <<style>
    SPAN.e{color:#999;}
    SPAN.a{color:#990;}
    SPAN.v{color:#009;}
    SPAN.x{color:#090;}
    SPAN.d{color:#900;}
    SPAN.c{color:#CCC;}
    </style><div>>
    s:=UTF8Encode(qr.GetStr('content'));
    l:=Length(s);
    i:=1;
    while i<=l do
     begin
      case s[i] of
        '<'://start element
         begin
          if (i+4<=l) and (Copy(s,i,4)='<!--') then
           begin
            //comment 
            j:=i+4;
            while (j+3<=l) and not((s[j]='-') and (s[j+1]='-') and (s[j+2]='>')) do inc(j);
            inc(j,2);
            <<span class="c">>=u(i,j-i+1)<</span>>
            i:=j;
           end
          else
          if (i+9<=l) and (Copy(s,i,9)='<![CDATA[') then
           begin
             //cdata section
             j:=i+8;
             while (j+3<=l) and not((s[j]=']') and (s[j+1]=']') and (s[j+2]='>')) do inc(j);
             inc(j,2);
             <<span class="d">>=u(i,j-i+1)<</span>>
             i:=j;
           end
          else
          if (i+1<=l) and (s[i+1]='/') then
           begin
            //closing element
            j:=i+2;
            while (j<=l) and (s[j]<>'>') do inc(j);
            <<span class="e">>=u(i,j-i+1)<</span>>
            i:=j;
           end
          else
           begin
            //element 
            j:=i+1;
            while (j<=l) and (s[j]<>'>') and (s[j]>' ') do inc(j);
            while (j<=l) and (s[j]<' ') do inc(j);
            if (j<=l) and (s[j]='>') then
             begin
              <<span class="e">>=u(i,j-i+1)<</span>>
              i:=j;
             end
            else
            if (j+1<=l) and (s[j]='/') and (s[j+1]='>') then
             begin
              inc(j);
              <<span class="e">>=u(i,j-i+1)<</span>>
              i:=j;
             end;
            if i<>j then
             begin
              <<span class="e">>=u(i,j-i)<</span>>
              i:=j;
              while (i<=l) and (s[i]<>'>') and (s[i]<>'/') do
               begin
                //attributes
                j:=i;
                while (j<=l) and (s[j]<>'=') and (s[j]<>'>') and (s[j]>' ') do inc(j);
                <<span class="a">>=u(i,j-i)<</span>>
                if (j+1<=l) and (s[j]='=') and ((s[j+1]='"') or (s[j+1]='''')) then
                 begin
                  d:=s[j+1];
                  //attribute value enclosed in double or single quotes
                  <<span class="c">>=u(j,2)<</span><span class="v">>
                  inc(j,2);
                  i:=j;
                  while (j<=l) and (s[j]<>d) do
                    if s[j]='&' then
                     begin
                      Context.Send(u(i,j-i));
                      i:=j;
                      inc(j);//'&'
                      while (j<=l) and not(s[j]=';') and not(s[j]='>') and not(s[j]='&') and not(s[j]<=' ') and (j-i<=8) do inc(j);
                      if (j-i<=8) then
                       begin
                        if (j<=l) and (s[j]=';') then inc(j);
                        <</span><span class="x">>=u(i,j-i)<</span><span class="v">>
                        i:=j;
                       end;
                     end
                    else
                      inc(j); 
                  Context.Send(u(i,j-i));
                  <</span>>
                  if (j<=l) then
                   begin
                    <<span class="c">>=s[j]<</span>> //assert s[j]=d
                    inc(j);
                   end;
                 end 
                else
                if (j<=l) and (s[j]='=') then
                 begin
                  //attribute value not enclosed
                  <<span class="c">>=s[j]<</span>>
                  inc(j);
                  i:=j;
                  while (j<=l) and (s[j]<>'>') and (s[j]<>'/') and (s[j]>' ') do inc(j);
                  <<span class="v">>=u(i,j-i)<</span>>
                 end;
                //else no value?
                i:=j;
                while (j<=l) and (s[j]<=' ') do inc(j);
                if i<>j then 
                 begin
                  Context.Send(u(i,j-i));
                  i:=j;
                 end;
               end;
              if (i<=l) then
               begin
                <<span class="e">>
                if (i<=l) and (s[i]='/') then
                 begin
                  Context.Send(s[i]);
                  inc(i);
                 end;
                Context.Send(s[i]);//assert '>'
                <</span>> 
               end;
             end;
           end;
          inc(i); 
         end;
        '&'://start entity
         begin
          j:=i;
          inc(j);//'&'
          while (j<=l) and not(s[j]=';') and not(s[j]='<') and not(s[j]='&') and not(s[j]<=' ') do inc(j);
          if (j<=l) and (s[j]=';') then inc(j);
          <<span class="x">>=u(i,j-i)<</span>>
          i:=j;
         end;
        else
         begin
          j:=i;
          while (j<=l) and not(s[j]='<') and not(s[j]='&') do inc(j);
          Context.Send(u(i,j-i));
          i:=j;
         end;
      end;
     end;
    <</div>>
   end;

  <<div style="height:75vh;margin-top:4pt;border-top:4px solid gold;color:#9999AA;font-size:0.8em;">
  <span title="[[=qr['guid']]]">>=qr['url']<</span>
  <a class="raw" target="postview" href="Post.xxm?[[=Context.ContextString(csQueryString)]]">&emsp;&#x2139;&emsp;</a>
  </div>>
finally
  qr.Free;
end;
Context.Include('dFoot.xxmi');