+/* --- @pgen_subev@ --- *
+ *
+ * Subsidiary event handler, mainly for Lim-Lee searches and so on.
+ */
+
+int pgen_subev(int rq, pgen_event *ev, void *p)
+{
+ switch (rq) {
+ case PGEN_BEGIN:
+ printf("[%s: ", ev->name);
+ fflush(stdout);
+ break;
+ case PGEN_FAIL:
+ putchar('.');
+ fflush(stdout);
+ break;
+ case PGEN_PASS:
+ putchar('+');
+ fflush(stdout);
+ break;
+ case PGEN_DONE:
+ fputs("+]", stdout);
+ fflush(stdout);
+ break;
+ case PGEN_ABORT:
+ fputs(" failed]", stdout);
+ fflush(stdout);
+ break;
+ }
+ return (0);
+}
+