Count Paragraphs

COUNT PARAGRAPHS in a document

// count number of paragraphs in buffer
// FYI: the macro counts the first paragraph properly
// regardless of whether it is proceeded by a blank line
// at the top of file

// count number of paragraphs in buffer or range
_command coupar,count_paragraphs() name_info(','VSARG2_REQUIRES_EDITORCTL|VSARG2_READ_ONLY)
{
#define PARAGRAPH_SKIP_CHARS ' \t'
#define PARAGRAPH_SEP_RE      ('(^['PARAGRAPH_SKIP_CHARS']*$)')
#define SKIP_PARAGRAPH_SEP_RE ('^~(['PARAGRAPH_SKIP_CHARS']*$)')

   if (p_Noflines==0) {
      message('Empty file');
      stop;
   } else {
      para_count=1;
   }
   _save_pos2(p);
   top();up();

   for (;;) {
      _begin_line;
      /* skip paragraph separator lines */
      status=search(SKIP_PARAGRAPH_SEP_RE,'r');
      if ((status==BOTTOM_OF_FILE_RC) || (status==STRING_NOT_FOUND_RC)) {

         get_line(line);
         if (line=='') {
            para_count = para_count - 1;
         }

         message(para_count ' paragraphs');
         break;
      } else {
         /* Search for paragraph separator line. */
         status=search(PARAGRAPH_SEP_RE,'r');
         if ((status==BOTTOM_OF_FILE_RC) || (status==STRING_NOT_FOUND_RC)) {
            message(para_count ' paragraphs');
            break;
         }
         ++para_count;
      }
   }
   _restore_pos2(p);
}