Annotation of cvsweb/enscript/lang_cvsweb.st, Revision 3.1
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, /\&/, "&");
! 20: str = regsuball (str, /</, "<");
! 21: str = regsuball (str, />/, ">");
! 22: str = regsuball (str, /\"/, """);
! 23: print (str);
! 24: }
! 25:
! 26: sub language_symbol (symbol)
! 27: {
! 28: return false;
! 29: }
! 30:
! 31: sub header ()
! 32: {
! 33: print ("<pre>");
! 34: }
! 35:
! 36: sub trailer ()
! 37: {
! 38: print ("</pre>");
! 39: }
! 40:
! 41: sub face_on (face)
! 42: {
! 43: if (face[boldp])
! 44: print ("<b>");
! 45: if (face[italicp])
! 46: print ("<i>");
! 47:
! 48: if (face[fg_color])
! 49: print ("<span style=\"color: ", face[fg_color], "\">");
! 50: if (face[bg_color])
! 51: print ("<span style=\"background-color: ", face[bg_color], "\">");
! 52: }
! 53:
! 54: sub face_off (face)
! 55: {
! 56: if (face[fg_color])
! 57: print ("</span>");
! 58: if (face[bg_color])
! 59: print ("</span>");
! 60:
! 61: if (face[italicp])
! 62: print ("</i>");
! 63: if (face[boldp])
! 64: print ("</b>");
! 65: }
! 66:
! 67: return;
! 68: }
! 69: }
! 70:
! 71:
! 72: /*
! 73: Local variables:
! 74: mode: c
! 75: End:
! 76: */
CVSweb