From 7dabc86f108864d14e0dde0fbdbb23b6d096d1e9 Mon Sep 17 00:00:00 2001 From: David Presotto Date: Fri, 12 Jun 1981 00:01:58 -0800 Subject: [PATCH] I added an alternate comment spec for PASCAL SCCS-vsn: usr.bin/vgrind/vgrindefs.src 1.8 --- usr/src/usr.bin/vgrind/vgrindefs.src | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/usr/src/usr.bin/vgrind/vgrindefs.src b/usr/src/usr.bin/vgrind/vgrindefs.src index e5dbbc5e1e..0598afe17a 100644 --- a/usr/src/usr.bin/vgrind/vgrindefs.src +++ b/usr/src/usr.bin/vgrind/vgrindefs.src @@ -11,7 +11,9 @@ model|mod|m:\ pascal|pasc|p:\ :pb=(^\d?procedure|function|program\d\p\d|\(|;|\:)|(=\d?record\d):\ :bb=\dcase|begin\d:be=\dend|forward\d|;:\ - :cb={|\(*:ce=}|*\):sb=':se=':\ + :cb={:ce=}:\ + :ab=\(*:ae=*\):\ + :sb=':se=':\ :kw=and array assert begin case const div do downto else end file for\ forward function goto if in label mod nil not of or packed procedure\ program record repeat set then to type until var while with oct hex\ -- 2.20.1