Changeset 3693 in Sophya for trunk/AddOn/TAcq/minifits.cc

Timestamp:

Nov 30, 2009, 5:18:57 PM (16 years ago)

Author:

cmv

Message:

add GetKeyValue pour lire le contenu des clefs FITS, cmv 30/11/2009

File:

• trunk/AddOn/TAcq/minifits.cc (modified) (1 diff)

trunk/AddOn/TAcq/minifits.cc

@@ -332 +332 @@
     }
   }
+  return rs;
+}
+
+/* --Methode-- */
+string MiniFITSFile::GetKeyValue(const char* key)
+{
+  string line = GetKey(key);
+  if(line.size()==0) return "";
+  char rs[84], sep = '?';
+  bool foundeq = false;
+  unsigned int ip = 0;
+  for(unsigned int i=0;i<line.size();i++) {
+    if(!foundeq) {if(line[i] == '=') foundeq = true; continue;}
+    if(sep=='?') {  // recherche du separateur de debut
+      if(line[i]==' ') continue;
+      if(line[i]=='\'' || line[i]=='\"') {sep = line[i]; continue;}
+      else sep = ' ';
+    }
+    if(line[i]==sep) break;
+    rs[ip] = line[i];
+    ip++;
+  }
+  rs[ip] = '\0';
   return rs;
 }