[BACK]Return to lang_cvsweb_diff.st CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / cvsweb / enscript

Annotation of cvsweb/enscript/lang_cvsweb_diff.st, Revision 3.1

3.1     ! scop        1: /*
        !             2:    GNU Enscript language file for FreeBSD-CVSweb diffs.
        !             3:    $FreeBSD$
        !             4:  */
        !             5:
        !             6: state lang_cvsweb_diff
        !             7: {
        !             8:   BEGIN {
        !             9:     /* RGB -> HTML color mapper function. */
        !            10:     sub map_color (r, g, b)
        !            11:       {
        !            12:        return sprintf ("#%02X%02X%02X", r, g, b);
        !            13:       }
        !            14:
        !            15:     LANGUAGE_SPECIALS = /[<>\&\"]/;
        !            16:
        !            17:     sub language_print (str)
        !            18:       {
        !            19:        str = regsuball (str, /\&/, "&amp;");
        !            20:        str = regsuball (str, /</, "&lt;");
        !            21:        str = regsuball (str, />/, "&gt;");
        !            22:        str = regsuball (str, /\"/, "&quot;");
        !            23:        print (str);
        !            24:       }
        !            25:
        !            26:     sub language_symbol (symbol)
        !            27:       {
        !            28:        return false;
        !            29:       }
        !            30:
        !            31:     sub header ()
        !            32:       {
        !            33:       }
        !            34:
        !            35:     sub trailer ()
        !            36:       {
        !            37:       }
        !            38:
        !            39:     sub face_on (face)
        !            40:       {
        !            41:        if (face[boldp])
        !            42:          print ("<b>");
        !            43:        if (face[italicp])
        !            44:          print ("<i>");
        !            45:
        !            46:        if (face[fg_color])
        !            47:          print ("<span style=\"color: ", face[fg_color], "; background-color: lightgrey\">");
        !            48:        if (face[bg_color])
        !            49:          print ("<span style=\"background-color: ", face[bg_color], "\">");
        !            50:       }
        !            51:
        !            52:     sub face_off (face)
        !            53:       {
        !            54:        if (face[fg_color])
        !            55:          print ("</span>");
        !            56:        if (face[bg_color])
        !            57:          print ("</span>");
        !            58:
        !            59:        if (face[italicp])
        !            60:          print ("</i>");
        !            61:        if (face[boldp])
        !            62:          print ("</b>");
        !            63:       }
        !            64:
        !            65:     return;
        !            66:   }
        !            67: }
        !            68:
        !            69: 
        !            70: /*
        !            71: Local variables:
        !            72: mode: c
        !            73: End:
        !            74: */

CVSweb