source: trunk/procs/def_dbase.pro @ 12

FUNCTION def_dbase, expid

; find data base of expid - uses array data_bases defined in post_it

@common
@com_eg

; special suffix ?

   nbases = n_elements(spec_bases)-1
   ibase = 0

; loop on spec database definition

   WHILE ibase LE nbases - 1 DO BEGIN
      argvar = str_sep(strcompress(strtrim((spec_bases(ibase))[0], 2)), ' ')
      IF strpos(expid,  argvar[0]) NE -1 THEN BEGIN 
         database = (str_sep(strcompress(strtrim((spec_bases(ibase))[0], 2)), ' '))[2]
         GOTO,  fin 
      ENDIF 
      ibase =  ibase + 1
   ENDWHILE 

   nbase = n_elements(data_bases)-1
   ibase = 1

; loop on database definition

   WHILE ibase LE nbase - 1 DO BEGIN
      argvar = str_sep(strcompress(strtrim((data_bases(ibase))[0], 2)), ' ')
      IF strmid(argvar[0], 0, strlen(argvar[0])-3) EQ expid THEN BEGIN 
         database = (str_sep(strcompress(strtrim((data_bases(ibase))[0], 2)), ' '))[2]
         GOTO, fin 
      ENDIF 
      ibase =  ibase + 1
   ENDWHILE 

; default data base : data_bases[0]

   ibase = 0
   database = (str_sep(strcompress(strtrim((data_bases(ibase))[0], 2)), ' '))[2]

fin:
   ; check if common variable path used

   ind1 = strpos(database, '<')
   IF ind1 NE -1 THEN BEGIN 
      chain1 = str_sep(database, '<')
      chain2 = str_sep(chain1[1], '>')
      command = 'path_var = '+chain2[0]
      res = execute(command)
      IF strpos(chain2[1], '/') EQ 0 THEN chain2[1] = strmid(chain2[1], 1, strlen(chain2[1])-1)
      database = chain1[0]+path_var+chain2[1]
   ENDIF 

   return,  database

END