/[MITgcm]/mitgcm.org/devel/buildweb/code-browser/F90Mapper/main.c
ViewVC logotype

Diff of /mitgcm.org/devel/buildweb/code-browser/F90Mapper/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by adcroft, Fri Sep 20 19:47:31 2002 UTC revision 1.2 by edhill, Wed Jul 23 17:54:35 2003 UTC
# Line 1072  int GenerateVarTables() Line 1072  int GenerateVarTables()
1072    vLast = NULL; vdictfd = NULL;    vLast = NULL; vdictfd = NULL;
1073    
1074    while ( fscanf(tabfd,"%[^\n]%*[\n]",ioBuff) != EOF ) {    while ( fscanf(tabfd,"%[^\n]%*[\n]",ioBuff) != EOF ) {
1075       /* Begin CNH debug */
1076       /* printf("ioBuff = \"%s\"\n",ioBuff); */
1077       /* exit(1); */
1078       /* End CNH debug */
1079     vNam    = strtok(ioBuff,",");     vNam    = strtok(ioBuff,",");
    lineRef = strtok(NULL,",");  
1080     /* Trick here that should be fixed.                    */     /* Trick here that should be fixed.                    */
1081     /* Testing lineRef != NULL checks to see whether the   */     /* Testing lineRef != NULL checks to see whether the   */
1082     /* there was a format error in the sorted file. The    */     /* there was a format error in the sorted file. The    */
1083     /* file will only have an error if the parsing rules   */     /* file will only have an error if the parsing rules   */
1084     /* are incomplete.                                     */     /* are incomplete.                                     */
1085     if ( lineRef != NULL ) {     if ( vNam != NULL ) {
1086       lineRef = strtok(NULL,",");
1087     fileRef = strtok(NULL,",");     fileRef = strtok(NULL,",");
1088     procRef = strtok(NULL,",");     procRef = strtok(NULL,",");
1089     codeRec = procRef+strlen(procRef)+1;     codeRec = procRef+strlen(procRef)+1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22