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, /\&/, "&");
! 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: }
! 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