00001 #include "niml_private.h"
00002 
00003 #undef  SKIP_COMMENT_FLAG
00004 #define SKIP_COMMENT_FLAG  1
00005 
00006 static char * my_fgets( char *, int, FILE *, int ) ;
00007 
00008 /*---------------------------------------------------------------*/
00009 /*! Read an un-headered file into a data element, guessing at
00010     its structure from the 1st non-comment line.
00011 -----------------------------------------------------------------*/
00012 
00013 NI_element * NI_read_file_nohead( char *fname )
00014 {
00015    FILE *fp ;
00016    char prefix[32] , *ptr ;
00017    NI_element *nel ;
00018 
00019    if( fname == NULL || *fname == '\0' ) return NULL ;
00020 
00021    fp = fopen( fname , "r" ) ; if( fp == NULL ) return NULL ;
00022 
00023    /** see if this looks like a NIML-formatted file **/
00024 
00025    memset(prefix,0,32) ; fread(prefix,1,31,fp) ; rewind(fp) ;
00026    ptr = strchr(prefix,'<') ;
00027    if( ptr != NULL && isalpha(*(ptr+1)) ){
00028      NI_stream ns ;
00029      fclose(fp) ;
00030      ptr = NI_malloc(char, strlen(fname)+16) ;
00031      sprintf(ptr,"file:%s",fname) ;
00032      ns = NI_stream_open(ptr,"r") ; NI_free(ptr) ;
00033      if( ns == NULL ) return NULL ;
00034      nel = NI_read_element( ns , 66 ) ;
00035      NI_stream_close(ns) ;
00036      return nel ;
00037    }
00038 
00039 }
00040 
00041 
00042 /*---------------------------------------------------------------*/
00043 /*! Length of line buffer */
00044 #define LBUF 65536
00045 
00046 /*---------------------------------------------------------------*/
00047 /*! Like fgets, but also
00048      - skips blank lines
00049      - skips comment lines (if flags&SKIP_COMMENT_FLAG)
00050      - skips leading and trailing whitespace
00051      - catenates lines that end in '\' (replacing '\' with ' ')
00052 -----------------------------------------------------------------*/
00053 
00054 static char * my_fgets( char *buf, int size, FILE *fts, int flags )
00055 {
00056    char *ptr ;
00057    int nbuf , ll,ii , cflag ;
00058    static char *qbuf=NULL ;
00059    int skip_comm = (flags & SKIP_COMMENT_FLAG) != 0 ;
00060 
00061    if( buf == NULL || size < 1 || fts == NULL ){
00062      NI_free(qbuf); qbuf = NULL; return NULL;
00063    }
00064 
00065    if( qbuf == NULL ) qbuf = NI_malloc(char, LBUF) ;  /* 1st time in */
00066 
00067    nbuf  = 0 ;  /* num bytes stored in buf so far */
00068    cflag = 0 ;  /* flag if we're catenating lines */
00069 
00070    while(1){   /* loop and read lines, creating a logical line */
00071 
00072      ptr = fgets( qbuf , LBUF , fts ) ; /* read next whole line */
00073 
00074      if( ptr == NULL ) break ;          /* must be end-of-file */
00075 
00076      /* skip leading whitespace */
00077 
00078      for( ; *ptr != '\0' && isspace(*ptr) ; ptr++ ) ; /* nada */
00079 
00080      /* skip entirely blank lines, unless we are catenating */
00081 
00082      if( *ptr == '\0' ){ if(cflag) break; else continue; }
00083 
00084      /* skip comment lines (even if we are catenating) */
00085 
00086      if( skip_comm &&
00087          (*ptr == '#' || (*ptr == '/' && *(ptr+1) == '/')) ) continue ;
00088 
00089      /* strip trailing whitespace */
00090 
00091      ll = strlen(ptr) ;                                  /* will be > 0 */
00092      for( ii=ll-1 ; isspace(ptr[ii]) && ii > 0 ; ii-- )  /* blank => NUL */
00093        ptr[ii] = '\0' ;
00094 
00095      ll = strlen(ptr) ;                 /* number of chars left */
00096      if( ll == 0 ) continue ;           /* should not happen */
00097 
00098      cflag = (ptr[ll-1] == '\\') ;      /* catenate next line? */
00099      if( cflag && ll > 1 && ptr[ll-2] == '\\' ) cflag = 0 ;
00100      if( cflag ) ptr[ll-1] = ' ' ;      /* replace '\' with ' ' */
00101 
00102      /* now copy what's left (ll+1 bytes) at tail of output buffer */
00103 
00104      if( nbuf+ll+1 > size ){   /* too much for output buffer? */
00105        ll = size - (nbuf+1) ;
00106        if( ll <= 0 ) break ;   /* should not happen */
00107      }
00108 
00109      memcpy(buf+nbuf,ptr,ll+1) ; nbuf += ll ;
00110      if( !cflag ) break ;
00111 
00112    } /* loop to get next line if catenation is turned on */
00113 
00114    /* and we is done */
00115 
00116    if( nbuf > 0 ) return buf ;      /* return what we read already */
00117    return NULL ;                    /* signal of failure get data  */
00118 }