Patch title: Release 85 bulk changes
Abstract:
File: /pliant/fullpliant/rules.pli
Key:
    Removed line
    Added line
   
abstract
  [This module is applying the kind of macros that enable to


method page display_kernel_settings c script
  arg_rw HtmlPage page ; arg_rw Data:Computer c ; arg Str sc
  implicit page
    var Str name := script 0 (script search_last "/" script:
    part look_for_label
      var Str label
      for (var Int lap) 0 1
        part scan_lap
          (var Stream s) open "embedded:/usr/src/linux/"+scr
          while not s:atend
            var Str l := s readline
            if (l parse word:"comment" "'" any:label "'" any
              leave look_for_label
            if lap=1 and (l parse "#" any:label) and label<>
              leave look_for_label
            if (l parse word:"bool" "'" any "'" any)
              leave scan_lap
            eif (l parse word:"tristate" "'" any "'" any)
              leave scan_lap
            eif (l parse word:"dep_tristate" "'" any "'" any
              leave scan_lap
      label := ""
    if not (name parse any "/" any "/" any)
      header (shunt label<>"" label name)
    para
      bold text:name ; fixed [  ] ; italic text:label
    (var Stream s) open "embedded:/usr/src/linux/"+script in
    while not s:atend
      var Str l := s readline
      var Str option default
      if (l parse word:"bool" "'" any:(var Str label) "'" _ 
        default := "n"
      eif (l parse word:"tristate" "'" any:(var Str label) "
        default := "n"
      eif (l parse word:"dep_tristate" "'" any:(var Str labe
        default := "n"
      eif (l parse word:"int" "'" any:(var Str label) "'" _ 
        void
      eif (l parse word:"string" "'" any:(var Str label) "'"
        void
      else
        option := ""
      if option<>""
        var Str value := c:env:"kernel":"make":option
        if value="y"
          fixed text:(left option+" "+value 40 " ")
        eif value="m"
abstract
  [This module is applying the kind of macros that enable to


method page display_kernel_settings c script
  arg_rw HtmlPage page ; arg_rw Data:Computer c ; arg Str sc
  implicit page
    var Str name := script 0 (script search_last "/" script:
    part look_for_label
      var Str label
      for (var Int lap) 0 1
        part scan_lap
          (var Stream s) open "embedded:/usr/src/linux/"+scr
          while not s:atend
            var Str l := s readline
            if (l parse word:"comment" "'" any:label "'" any
              leave look_for_label
            if lap=1 and (l parse "#" any:label) and label<>
              leave look_for_label
            if (l parse word:"bool" "'" any "'" any)
              leave scan_lap
            eif (l parse word:"tristate" "'" any "'" any)
              leave scan_lap
            eif (l parse word:"dep_tristate" "'" any "'" any
              leave scan_lap
      label := ""
    if not (name parse any "/" any "/" any)
      header (shunt label<>"" label name)
    para
      bold text:name ; fixed [  ] ; italic text:label
    (var Stream s) open "embedded:/usr/src/linux/"+script in
    while not s:atend
      var Str l := s readline
      var Str option default
      if (l parse word:"bool" "'" any:(var Str label) "'" _ 
        default := "n"
      eif (l parse word:"tristate" "'" any:(var Str label) "
        default := "n"
      eif (l parse word:"dep_tristate" "'" any:(var Str labe
        default := "n"
      eif (l parse word:"int" "'" any:(var Str label) "'" _ 
        void
      eif (l parse word:"string" "'" any:(var Str label) "'"
        void
      else
        option := ""
      if option<>""
        var Str value := c:env:"kernel":"make":option
        if value="y"
          fixed text:(left option+" "+value 40 " ")
        eif value="m"
          color lsh 0 100 240
          font color (color hsl 240 100 50)
            fixed text:(left option+" "+value 40 " ")
        else
            fixed text:(left option+" "+value 40 " ")
        else
          color lsh 50 0 0
          font color (color hsl 0 0 50)
            fixed text:(left option+" "+value 40 " ")
        fixed [  ] ; italic (small text:label) ; fixed [  ]
        note "?"
          title label
          (var Stream help) open "embedded:/usr/src/linux/Do
          var CBool inside := false
          while not help:atend
            var Str l := help readline
            if (l eparse "CONFIG_" any) and (l parse any:(va
              inside := tag=option
            eif (l 0 2)="  "
              if inside
                text (l 2 l:len) ; eol
        eol
    (var Stream s) open "embedded:/usr/src/linux/"+script in
    while not s:atend
      var Str l := s readline
      if (l parse word:"source" any:(var Str sub))
        display_kernel_settings c sub


            fixed text:(left option+" "+value 40 " ")
        fixed [  ] ; italic (small text:label) ; fixed [  ]
        note "?"
          title label
          (var Stream help) open "embedded:/usr/src/linux/Do
          var CBool inside := false
          while not help:atend
            var Str l := help readline
            if (l eparse "CONFIG_" any) and (l parse any:(va
              inside := tag=option
            eif (l 0 2)="  "
              if inside
                text (l 2 l:len) ; eol
        eol
    (var Stream s) open "embedded:/usr/src/linux/"+script in
    while not s:atend
      var Str l := s readline
      if (l parse word:"source" any:(var Str sub))
        display_kernel_settings c sub