Using ABCp

1. An "Object Oriented" interface. Once the file is parsed, a set of objects is created and exposed to the host application to navigate through the musical elements.
   It is applicable when ABCp is used from OO languages (C++, ...) or OO scripting languages (Python, Ruby, Lua, ...)
    
2. A "Functional API". Much similar to the previous one, when the file is parsed, an internal rapresentation is created and a value is returned as a reference to it. This values will be passed to a set of functions to navigate through it.
   It is applicable with non-OO languages (C,...) and non OO scripting languages (Tcl, Lua, ...)
    
3. A "C handlers" interface. This operates at a syntactic level. Every time an ABC element is found, a C function (the "handler") is called. This is the lowest level of interface upon which the other two will be built. It is also the only interface implemented in the proof of concept.

				
  1 #include "abcp.h"
...
 49 int main(int argc,char *argv[])
 50 {
 51   if (argc < 2) {
 52     fprintf(stderr,"Usage: incipit file.abc\n");
 53     return 1;
 54   }
 55  
 56   cursor=buffer;  buffer[0]='\0';
 57   if (abcScanFile(argv[1],handleincipit)) {
 58     fprintf(stderr,"ERROR! cannot scan %s\n",argv[1]);
 59     return 1;
 60   }
 61   return 0;
 62 }

  3 char buffer[1024];
  4 char *cursor=buffer;
  5
  6 int nbars=0;
  7 int incipitfound;
  8
  9 int handleincipit(abcHandle h)
 10 {
 11   Tokens     t = abcToken(h);
 12   char    *str = abcString(h);
 13   States     s = abcState(h);
 14
 15   if (t == T_FIELDB) {
 16     if (s == (S_FIELD | 'T')) {
 18       strcat(cursor,str);
 19     }
 10     else if (s == (S_FIELD | 'X')) {
 21       cursor=buffer;  buffer[0]='\0';
 22       sprintf(cursor, "%4d - ",atoi(str));
 23       nbars=0;
 25       incipitfound=0;
 26     }
 27   }
 28   else if (t == T_EMPTYLINE || t == T_EOF) {
 29     if (*buffer) printf("%s\n",buffer);
 30     cursor=buffer;  buffer[0]='\0';
 31   }
 32   else if (s == S_TUNE    &&  nbars < 5 &&
 33            t != T_ENDLINE && t != T_STARTLINE &&
 34            t != T_FIELD   && t != T_EXTFIELD ) {
 35       if (! incipitfound) {
 36         strcat(cursor,"\n       ");
 37         while (*cursor) cursor++;
 38       }
 39       else if (t == T_BAR)
 40         nbars++;
 41       strcat(cursor,str);
 42       incipitfound = 1;
 43   } 
 44   while (*cursor) cursor++;
 45   return 0;
 46 }			

				
   9 int handleincipit(abcHandle h) 

				
 11   Tokens     t = abcToken(h);
 12   char    *str = abcString(h);
 13   States     s = abcState(h);

 15   if (t == T_FIELDB) {
 16     if (s == (S_FIELD | 'T')) {
 18       strcat(cursor,str);
 19     }
 10     else if (s == (S_FIELD | 'X')) {
 21       cursor=buffer;  buffer[0]='\0';
 22       sprintf(cursor, "%4d - ",atoi(str));
 23       nbars=0;
 25       incipitfound=0;
 26     }
 27   }

 28   else if (t == T_EMPTYLINE || t == T_EOF) {
 29     if (*buffer) printf("%s\n",buffer);
 30     cursor=buffer;  buffer[0]='\0';
 31   }

 32   else if (s == S_TUNE    &&  nbars < 5 &&
 33            t != T_ENDLINE && t != T_STARTLINE &&
 34            t != T_FIELD   && t != T_EXTFIELD ) {
 35       if (! incipitfound) {
 36         strcat(cursor,"\n       ");
 37         while (*cursor) cursor++;
 38       }
 39       else if (t == T_BAR)
 40         nbars++;
 41       strcat(cursor,str);
 42       incipitfound = 1;
 43   }