Issue warnings for missing date/month information in credit statements.

src/brmember-parser.scm

@@ -113,21 +113,32 @@
 				      (string-first+rest (car rec)))
 				    value)))
 	   ((credit)
-	    (brmember-sub-set mr output key
+	    (let loop ((mr mr)
-				   (map
+		       (src-credits value)
-				    (lambda (rec)
+		       (credits '()))
-				      (let* ((fr (string-first+rest (car rec)))
+	      (if (null? src-credits)
-					     (amt (string->number (car fr)))
+		  (brmember-sub-set mr output key credits)
-					     (msg (cdr fr))
+		  (let* ((rec (caar src-credits))
-					     (mlst (string-split msg))
+			 (line-number (cdar src-credits))
-					     (mon (if (null? mlst)
+			 (fr (string-first+rest rec))
-						      #f
+			 (amt (string->number (car fr)))
-						      (parse-cal-day/month (car mlst))))
+			 (msg (cdr fr))
-					     (rmsg (if mon
+			 (mlst (string-split msg))
-						       (string-intersperse (cdr mlst) " ")
+			 (mon (if (null? mlst)
-						       msg)))
+				  #f
-					(list amt mon rmsg)))
+				  (parse-cal-day/month (car mlst))))
-				    value)))
+			 (rmsg (if mon
+				   (string-intersperse (cdr mlst) " ")
+				   msg)))
+		    (loop (if mon
+			      mr
+			      (brmember-add-highlight mr line-number
+						      "missing date or month information"
+						      3
+						      'warning))
+			  (cdr src-credits)
+			  (cons (list amt mon rmsg)
+				credits))))))
 	   ((nick)
 	    (let ((mr0 (brmember-sub-set mr output key (car value))))
 	      (if (irregex-search (irregex "[ \\t]" 'u) (car value))