;/* Execute me to compile me with DICE
dcc ScannerNodes.c -// -l0 -mD -mRR -o golded:scanner/Texinfo_Nodes
quit ;*/

/* -----------------------------------------------------------------------------

    scanner for LaTeX sectioning (\chapter, \section, ...)

    written by

    P!\K of /|_ __   . /\  |\__: /|____  /\__:__/\   .
           /   |  \  :/  \ |   |/      \/    |    \  :
         _/    |   \_|  \ \|  _/   |\   \___   ___/  |
         \     |     |   \ \  \    |/   /         \  |
          \ _________|____\  _/\ ______/\  __|__  /  :
           \|        :     \/   \|       \/  ·  \/   .

    email: bstegema@ix.urz.uni-heidelberg.de
    www: http://www.rzuser.uni-heidelberg.de/~bstegema

  ------------------------------------------------------------------------------
*/

#include <exec/types.h>

ULONG ScanHandler(__D0 ULONG len, __A0 char **text, __A1 ULONG *line) {
    char *version = "$VER: Texinfo_Nodes 1.0 (10.9.96)";

    char *scan = *text;
    char *end = scan + len;

    while ( scan < end ) {
        if ( *scan++ == '@' ) {
            if ( (scan[0] == 'n') && (scan[1] == 'o') && (scan[2] == 'd') && (scan[3] == 'e') && (scan[4] == ' ') ) {
                scan += 4;
                while ( (scan < end) && (*scan == ' ') )
                    scan++;

                *text = scan;
                while ( (scan < end) && (*scan != ',') )
                    scan++;
                return(scan - *text);
              }
          }
      }

    return(0);
  }