Patch title: Release 84 bulk changes
Abstract:
File: /pliant/protocol/http/filters.pli
Key:
    Removed line
    Added line
   
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


function pli_filter src dest options
  arg_rw Stream src dest ; arg_rw Str options
  dest writeline "module [dq]/pliant/protocol/http/style/lis
  var CBool doc := false
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


function pli_filter src dest options
  arg_rw Stream src dest ; arg_rw Str options
  dest writeline "module [dq]/pliant/protocol/http/style/lis
  var CBool doc := false
  var Int l:=1
  while not src:atend
    var Str line := src readline
    if (line 0 2)<>"  "
      doc := false
    if doc
      dest writeline "  "+line
    eif line="doc" or line="abstract"
      dest writeline "table columns 1 border 0"
      dest writeline "  [0]left_zero_is_at [dq]"+src:name+"[
      if line="doc"
        dest writeline "  cell color lsh 90 10 60"
      else
        dest writeline "  cell color lsh 90 35 60"
      doc := true
    eif line="#"+(repeat (max line:len-1 3) "-")
      dest writeline "horizontal_line"
    eif { var Int i := line option_position "##" -1 ; i<>-1 
      var Str comment := line i+2 line:len
      if (comment parse word:"section" (var Str section))
        dest writeline "section "+string:section ; comment :
      dest writeline "raw_characters "+string:(line 0 i)
      if comment<>""
        dest writeline "[0]right_zero_is_at [dq]"+src:name+"
      dest writeline "eol"
  while not src:atend
    var Str line := src readline
    if (line 0 2)<>"  "
      doc := false
    if doc
      dest writeline "  "+line
    eif line="doc" or line="abstract"
      dest writeline "table columns 1 border 0"
      dest writeline "  [0]left_zero_is_at [dq]"+src:name+"[
      if line="doc"
        dest writeline "  cell color lsh 90 10 60"
      else
        dest writeline "  cell color lsh 90 35 60"
      doc := true
    eif line="#"+(repeat (max line:len-1 3) "-")
      dest writeline "horizontal_line"
    eif { var Int i := line option_position "##" -1 ; i<>-1 
      var Str comment := line i+2 line:len
      if (comment parse word:"section" (var Str section))
        dest writeline "section "+string:section ; comment :
      dest writeline "raw_characters "+string:(line 0 i)
      if comment<>""
        dest writeline "[0]right_zero_is_at [dq]"+src:name+"
      dest writeline "eol"
    eif { var Int i := line option_position "#" -1 ; i<>-1 }
      (line i+1 line:len) parse any:(var Str comment)
      dest writeline "section "+(string "comment "+comment)
      dest writeline "raw_characters "+string:(line 0 i)
      dest writeline "color lsh 0 75 200"
      dest writeline "  italic"
      dest writeline "    raw_line "+string:(line i line:len
    eif (line parse word:"module" _ (var Str mod)) or (line 
      dest writeline "module_line "+string:line
    eif (line parse word:"function" "'" any:(var Str fun) "'
      dest writeline "section "+(string "function '"+fun+"'"
      dest writeline "raw_line "+string:line
    eif (line parse word:"function" _ any:(var Str fun) _ an
      dest writeline "section "+(string "function "+fun)
      dest writeline "raw_line "+string:line
    eif (line parse word:"method" _ any _ "'" any:(var Str f
      dest writeline "section "+(string "method '"+fun+"'")
      dest writeline "raw_line "+string:line
    eif (line parse word:"method" _ any _ any:(var Str fun) 
      dest writeline "section "+(string "method "+fun)
      dest writeline "raw_line "+string:line
    eif (line parse word:"meta" "'" any:(var Str fun) "'" an
      dest writeline "section "+(string "meta '"+fun+"'")
      dest writeline "raw_line "+string:line
    eif (line parse word:"meta" _ any:(var Str fun) _ any) o
      dest writeline "section "+(string "meta "+fun)
      dest writeline "raw_line "+string:line
    eif (line parse word:"type" _ any:(var Str typ))
      dest writeline "section "+(string "type "+typ)
      dest writeline "raw_line "+string:line
    eif ( (line parse word:"plugin" _ any:(var Str plug) _ a
      dest writeline "section "+(string "plugin "+plug)
      dest writeline "raw_characters "+(string (line 0 i)+"p
      dest writeline "color lsh 0 65 120"
      dest writeline "  bold"
      if remain<>""
        dest writeline "    raw_characters "+string:plug
        dest writeline "raw_line "+(string " "+remain)
      else
        dest writeline "    raw_line "+string:plug
    else
    else
      dest writeline "raw_line"+string:line
      dest writeline "line_anchor "+string:l
      if { var Int i := line option_position "#" -1 ; i<>-1 }
        (line i+1 line:len) parse any:(var Str comment)
        dest writeline "section "+(string "comment "+comment)
        dest writeline "raw_characters "+string:(line 0 i)
        dest writeline "color lsh 0 75 200"
        dest writeline "  italic"
        dest writeline "    raw_line "+string:(line i line:len)
      eif (line parse word:"module" _ (var Str mod)) or (line parse word:"submodule" _ (var Str mod))
        dest writeline "module_line "+string:line
      eif (line parse word:"function" "'" any:(var Str fun) "'" any)
        dest writeline "section "+(string "function '"+fun+"'")
        dest writeline "raw_line "+string:line
      eif (line parse word:"function" _ any:(var Str fun) _ any) or (line parse word:"function" any:(var Str fun))
        dest writeline "section "+(string "function "+fun)
        dest writeline "raw_line "+string:line
      eif (line parse word:"method" _ any _ "'" any:(var Str fun) "'" any)
        dest writeline "section "+(string "method '"+fun+"'")
        dest writeline "raw_line "+string:line
      eif (line parse word:"method" _ any _ any:(var Str fun) _ any) or (line parse word:"method" _ any _ any:(var Str fun))
        dest writeline "section "+(string "method "+fun)
        dest writeline "raw_line "+string:line
      eif (line parse word:"meta" "'" any:(var Str fun) "'" any)
        dest writeline "section "+(string "meta '"+fun+"'")
        dest writeline "raw_line "+string:line
      eif (line parse word:"meta" _ any:(var Str fun) _ any) or (line parse word:"meta" any:(var Str fun))
        dest writeline "section "+(string "meta "+fun)
        dest writeline "raw_line "+string:line
      eif (line parse word:"type" _ any:(var Str typ))
        dest writeline "section "+(string "type "+typ)
        dest writeline "raw_line "+string:line
      eif ( (line parse word:"plugin" _ any:(var Str plug) _ any:(var Str remain)) or { remain := "" ; line parse word:"plugin" _ any:(var Str plug) } ) and { var Int i := line option_position "plugin" -1 ; i<>-1 }
        dest writeline "section "+(string "plugin "+plug)
        dest writeline "raw_characters "+(string (line 0 i)+"plugin ")
        dest writeline "color lsh 0 65 120"
        dest writeline "  bold"
        if remain<>""
          dest writeline "    raw_characters "+string:plug
          dest writeline "raw_line "+(string " "+remain)
        else
          dest writeline "    raw_line "+string:plug
      else
        dest writeline "raw_line"+string:line
    l += 1



plugin filter



plugin filter