AhoLib: Fichero Fuente mark

00001 /**********************************************************/
00002 /*/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\*/
00003 /*
00004 Copyright: 1996 - Grupo de Voz (DAET) ETSII/IT-Bilbao
00005 
00006 Nombre fuente................ -
00007 Nombre paquete............... -
00008 Lenguaje fuente.............. C++ (Borland C/C++ 3.1)
00009 Estado....................... desarrollo
00010 Dependencia Hard/OS.......... -
00011 Codigo condicional........... -
00012 
00013 Codificacion................. Borja Etxebarria
00014 
00015 Version  dd/mm/aa  Autor     Proposito de la edicion
00016 -------  --------  --------  -----------------------
00017 0.0.2    30/08/98  Borja     split en varios modules mark_?.cpp
00018 
00019 ======================== Contenido ========================
00020 ver mark.cpp
00021 ===========================================================
00022 */
00023 /*/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\*/
00024 /**********************************************************/
00025 
00026 #include "mark.hpp"
00027 #include "uti.h"
00028 #include "wrkbuff.h"
00029 
00030 /**********************************************************/
00031 /* uso interno: salta espacios/tabs/comillas iniciales */
00032 
00033 PRIVATE const CHAR * strjumpstart( const CHAR * s )
00034 {
00035     while ((*s==' ')||(*s=='\t')) s++;
00036     if (*s=='"') s++;
00037     return s;
00038 }
00039 
00040 /**********************************************************/
00041 /* uso interno: salta espacios/tabs/comillas finales.
00042 detecta punto final */
00043 
00044 PRIVATE const CHAR * strjumpend( const CHAR * s )
00045 {
00046     const CHAR *ss=s+strlen(s);
00047     while (ss>s) {
00048         CHAR ch=*(--ss);
00049         if ((ch==' ')||(ch=='\t')) continue;
00050         if (ch!='\"') ss++;
00051         break;
00052   }
00053     return ss;
00054 }
00055 
00056 /*<DOC>*/
00057 /**********************************************************/
00058 /* Imprime como texto la lista de marcas en el fichero {f}.
00059 Una marca por linea.
00060 Si {indent} es TRUE, se utiliza una sangria de dos espacios
00061 en cada linea.
00062 Si {rangespan} es TRUE, el rango no se imprime como rango
00063 sino como punto final.
00064 Si {ms} es TRUE, se utilizan milisegundos en vez de muestras.
00065 
00066 Formato de la linea:
00067 pos/span : label
00068 o si {rangespan} es TRUE:
00069 pos,posfinal : label
00070 (notese que se utilza "," en vez de "/" para separar {pos}
00071 de {posfinal}. Asi se distingue del formato pos/span.
00072 
00073 La funcion {devuelve} TRUE si todo va bien, o FALSE si hay
00074 algun error al escribir al fichero.
00075 
00076 foutput(f,indent,rangespan,ms) es una funcion de bajo nivel.
00077 Normalmente se utilizaran las funciones foutput(f,rangespan) y
00078 foutput_ms(f,rangespan), que llaman directamente a esta, volcando las
00079 marcas sin sangrar (indent=FALSE), la primera en muestras y la segunda
00080 en milisegundos. El parametro {rangespan} es opcional, con valor FALSE
00081 por defecto */
00082 
00083 BOOL Mark1DList::foutput( FILE *f, BOOL indent, BOOL rangespan, BOOL ms )
00084 /*</DOC>*/
00085 {
00086     BOOL ret=TRUE;
00087 
00088     for (Lix p=first(); p!=0; p=next(p)) {
00089         if (indent) ret=ret&&EOF!=fprintf(f,"  ");
00090         if (ms) ret=ret&&EOF!=fprintf(f,"%g",(double)getpos_ms(p));
00091         else ret=ret&&EOF!=fprintf(f,"%li",(long)pos(p));
00092         if (span(p)!=0) {
00093             if (rangespan) {
00094                 if (ms) ret=ret&&EOF!=fprintf(f,",%g",(double)(getpos_ms(p)+getspan_ms(p)));  // como rango (,)
00095                 else ret=ret&&EOF!=fprintf(f,",%li",(long)(pos(p)+span(p)));  // como rango (,)
00096             }
00097             else {
00098                 if (ms) ret=ret&&EOF!=fprintf(f,"/%g",(double)getspan_ms(p));  // como span (/)
00099                 else ret=ret&&EOF!=fprintf(f,"/%li",(long)span(p));  // como span (/)
00100             }
00101         }
00102         if (label(p)!="") {
00103             const CHAR *s=label(p);
00104             BOOL quote=(s!=strjumpstart(s))||(s+strlen(s)!=strjumpend(s));
00105             ret=ret&&EOF!=fprintf(f," : %s%s%s",
00106                 quote ? "\"" : "",s, quote ? "\"" : "");
00107         }
00108         ret=ret&&EOF!=fprintf(f,"\n");
00109     }
00110     return ret;
00111 }
00112 
00113 /*<DOC>*/
00114 /**********************************************************/
00115 /* Permite leer marcas de un fichero {f}. Las marcas leidas
00116 se anyaden al final de la lista actual.
00117 El fichero tiene el formato de texto que genera foutput().
00118 Con {ms} se puede indicar que el fichero contiene valores
00119 en milisegundos en lugar de en muestras.
00120 
00121 {fileName} Es el nombre del fichero. Solo se usa para
00122 los mensajes de error (error en el fichero 'tal').
00123 
00124 {line} es el numero de la linea actual del fichero (0 si
00125 se va a procesar la primera linea. Se utiliza en los
00126 mensajes de error (error, marca invalida en linea tal).
00127 Ademas al terminar de leer marcas se devuelve en este mismo
00128 parametro el numero de linea de la ultima marca).
00129 
00130 {buf} Es el buffer de trabajo donde se van leyendo las
00131 lineas del fichero. Debe ser suficientemente grande como
00132 para almacenar una linea.
00133 
00134 {buflen} es la longitud en bytes del buffer {buf}.
00135 
00136 {eofch} es un caracter que se utiliza para indicar fin
00137 de marcas. Si es cero, se siguen leyendo marcas hasta la ultima
00138 linea del fichero (EOF). Si es distinto de cero, si se encuentra
00139 en el fichero una linea que empiece por este caracter, se termina
00140 de leer marcas.
00141 
00142 La funcion finput(f,ms,finename,line,buf,buflen,eofch) es de
00143 bajo nivel. Normalmente se utilizara finput(f) y finput_ms(f)
00144 para leer un fichero hasta llegar al final del mismo (EOF).
00145 */
00146 
00147 VOID Mark1DList::finput( FILE* f,   BOOL ms, const CHAR *fileName, LONG &line, CHAR*buf, INT buflen, INT eofch )
00148 /*</DOC>*/
00149 {
00150     int tl;
00151 
00152     while (xfgetln_filt(buf,buflen,f,TRUE,0,FALSE,&tl)) {
00153         line++;
00154         cdie_beep(tl,"Mark1DList: line to long in %s (%ld)", fileName, (long)line);
00155         CHAR *s=buf;
00156         while ((*s==' ')||(*s=='\t')) s++;  //saltar espacios/tab iniciales
00157         if (*s=='\0') continue;
00158 
00159         if (eofch && (*s==eofch)) return;  // caracter que marca fin de marcas
00160 
00161         long int mpos, mspan=0;
00162         double mpos_ms, mspan_ms=0;
00163         int n;
00164         if (ms) n = str2d(s,&mpos_ms);
00165         else n = str2li(s,&mpos);
00166         cdie_beep(n<0,"Mark1DList: error reading marks from %s (%ld), invalid value (%s)",fileName,line,s);
00167     if (!n) n=strlen(s);
00168         s+=n;  while ((*s==' ')||(*s=='\t')) s++;
00169         if ((*s==',')||(*s=='/')) {
00170             BOOL range=(*s==',');
00171             s++; while ((*s==' ')||(*s=='\t')) s++;
00172             if (ms) n = str2d(s,&mspan_ms);
00173             else n = str2li(s,&mspan);
00174             cdie_beep(n<0,"Mark1DList: error reading marks from %s (%ld), invalid span value (%s)",fileName,line,s+1);
00175             if (!n) n=strlen(s);
00176             if (range) {
00177                 if (ms) mspan_ms=mspan_ms-mpos_ms;
00178                 else mspan=mspan-mpos;
00179             }
00180             s+=n; while ((*s==' ')||(*s=='\t')) s++;
00181             if (*s==':') {
00182                 s=(char*)strjumpstart(s+1);
00183                 *(char*)strjumpend(s)='\0';
00184                 if (ms) append_ms(mpos_ms,mspan_ms,s); else append(mpos,mspan,s);
00185             }
00186             else {
00187                 cdie_beep(*s,"Mark1DList: error reading marks from %s (%ld), invalid info (%s)",fileName,line,s);
00188                 if (ms) append_ms(mpos_ms,mspan_ms); else append(mpos,mspan);
00189             }
00190         }
00191         else if (*s==':') { 
00192             s=(char*)strjumpstart(s+1);
00193             *(char*)strjumpend(s)='\0';
00194             if (ms) append_ms(mpos_ms,s); else append(mpos,s); 
00195         }
00196         else {
00197             cdie_beep(*s,"Mark1DList: error reading marks from %s (%ld), invalid info (%s)",fileName,line,s);
00198             if (ms) append_ms(mpos_ms); else append(mpos);
00199         }
00200     }
00201 
00202     cdie_beep(eofch,"Mark1DList: unspected EOF in %s (%ld)", fileName, line);
00203 }
00204 
00205 /**********************************************************/
00206 
00207 VOID Mark1DList::finput( FILE* f, BOOL ms )
00208 {
00209 #define MAXLEN 4096
00210     WRKBUFF(MAXLEN);
00211     LONG line=0;
00212     finput(f,ms,"file",line,_wrkbuff,MAXLEN,0);
00213     WRKBUFF_FREE();
00214 #undef MAXLEN
00215 }
00216 
00217 /**********************************************************/
mark_3.cpp
