0025275: Diferent result of reading operation from *.igs and *.stp file for WINDOWS...
[occt.git] / src / IGESFile / liriges.c
1 /*
2  Copyright (c) 1999-2014 OPEN CASCADE SAS
3
4  This file is part of Open CASCADE Technology software library.
5
6  This library is free software; you can redistribute it and/or modify it under
7  the terms of the GNU Lesser General Public License version 2.1 as published
8  by the Free Software Foundation, with special exception defined in the file
9  OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10  distribution for complete text of the license and disclaimer of any warranty.
11
12  Alternatively, this file may be used under the terms of Open CASCADE
13  commercial license or contractual agreement.
14 */
15
16 #include "igesread.h"
17 #include <string.h>
18 /*    Routine de base de lecture d'un fichier IGES
19
20       Cette routine lit une ligne, sauf si le statut "relire sur place" est mis
21       (utilise pour changement de section) : il est reannule ensuite
22
23   Cette routine retourne :
24   - statut (retour fonction) : no de section : S,G,D,P,T (car 73) ou
25     0 (EOF) ou -1 (tacher de sauter) ou -2 (car. 73 faux)
26   - un numero de ligne dans la section (car. 74 a 80)
27   - la ligne tronquee a 72 caracteres (0 binaire dans le 73ieme)
28   Il faut lui fournir (buffer) une ligne reservee a 81 caracteres
29
30   Cas d erreur : ligne fausse des le debut -> abandon. Sinon tacher d enjamber
31 */
32
33 static int iges_fautrelire = 0;
34 int  iges_lire (FILE* lefic, int *numsec, char ligne[100], int modefnes)
35 /*int iges_lire (lefic,numsec,ligne,modefnes)*/
36 /*FILE* lefic; int *numsec; char ligne[100]; int modefnes;*/
37 {
38   int i,result; char typesec;
39 /*  int length;*/
40   if (iges_fautrelire == 0)
41   {
42     if (*numsec == 0)
43       ligne[72] = ligne[79] = ' ';
44
45     ligne[0] = '\0'; 
46     if(modefnes)
47       fgets(ligne,99,lefic); /*for kept compatibility with fnes*/
48     else
49     {
50       /* PTV: 21.03.2002 it is neccessary for files that have only `\r` but no `\n` 
51               examle file is 919-001-T02-04-CP-VL.iges */
52       while ( fgets ( ligne, 2, lefic ) && ( ligne[0] == '\r' || ligne[0] == '\n' ) )
53       {
54       }
55       
56       fgets(&ligne[1],80,lefic);
57     }
58     
59     if (*numsec == 0 && ligne[72] != 'S' && ligne[79] == ' ')
60     {/*        ON A DU FNES : Sauter la 1re ligne          */
61       ligne[0] = '\0';
62       
63       if(modefnes)
64         fgets(ligne,99,lefic);/*for kept compatibility with fnes*/
65       else
66       {
67         while ( fgets ( ligne, 2, lefic ) && ( ligne[0] == '\r' || ligne[0] == '\n' ) )
68         {
69         }
70
71
72       fgets(&ligne[1],80,lefic);
73 /*      fgets(ligne,81,lefic); */
74       }
75     }
76
77     if ((ligne[0] & 128) && modefnes)
78     {
79       for (i = 0; i < 80; i ++)
80         ligne[i] = (char)(ligne[i] ^ (150 + (i & 3)));
81     }
82   }
83
84   if (feof(lefic))
85     return 0;
86
87   {//0x1A is END_OF_FILE for OS DOS and WINDOWS. For other OS we set this rule forcefully.
88     char *fc = strchr(ligne, 0x1A);
89     if(fc != 0)
90     {
91       fc[0] = '\0';
92       return 0;
93     }
94   }
95
96   iges_fautrelire = 0;
97   if (ligne[0] == '\0' || ligne[0] == '\n' || ligne[0] == '\r')
98     return iges_lire(lefic,numsec,ligne,modefnes); /* 0 */
99   if (sscanf(&ligne[73],"%d",&result) == 0)
100     return -1;
101 /*  { printf("Erreur, ligne n0.%d :\n%s\n",*numl,ligne); return (*numsec > 0 ? -1 : -2); } */
102   *numsec = result;
103   typesec = ligne[72];
104   switch (typesec) {
105    case 'S' :  ligne[72] = '\0'; return (1);
106    case 'G' :  ligne[72] = '\0'; return (2);
107    case 'D' :  ligne[72] = '\0'; return (3);
108    case 'P' :  ligne[72] = '\0'; return (4);
109    case 'T' :  ligne[72] = '\0'; return (5);
110    default  :; /* printf("Ligne incorrecte, ignoree n0.%d :\n%s\n",*numl,ligne); */
111   }
112   /* the column 72 is empty, try to check the neghbour*/
113   if(strlen(ligne)==80 
114      && (ligne[79]=='\n' || ligne[79]=='\r') && (ligne[0]<='9' && ligne[0]>='0')) {
115     /*check if the case of losted .*/
116     int index;
117     for(index = 1; ligne[index]<='9' && ligne[index]>='0'; index++);
118     if (ligne[index]=='D' || ligne[index]=='d') {
119       for(index = 79; index > 0; index--)
120         ligne[index] = ligne[index-1];
121       ligne[0]='.';
122     }
123       
124     typesec = ligne[72];
125     switch (typesec) {
126     case 'S' :  ligne[72] = '\0'; return (1);
127     case 'G' :  ligne[72] = '\0'; return (2);
128     case 'D' :  ligne[72] = '\0'; return (3);
129     case 'P' :  ligne[72] = '\0'; return (4);
130     case 'T' :  ligne[72] = '\0'; return (5);
131     default  :; /* printf("Ligne incorrecte, ignoree n0.%d :\n%s\n",*numl,ligne); */
132     }
133   }
134
135   return -1;
136 }
137
138 /*          Pour commander la relecture sur place            */
139
140 void iges_arelire()
141 {  iges_fautrelire = 1;  }