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

Annotation of cvsweb/enscript/lang_cvsweb.st, Revision 3.2

3.1       scop        1: /*
                      2:    GNU Enscript language file for FreeBSD-CVSweb.
                      3:    $FreeBSD$
                      4:  */
                      5:
                      6: state lang_cvsweb
                      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], "\">");
                     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