/* irtp_tapes.c

	Copyright (c) Kapteyn Laboratorium Groningen 1990
	All Rights Reserved.

#>            irtp_tapes.dc2
Name:         IRTP_TAPES

Purpose:      IRTP_TAPES contains routines relevant to identification 
              of physical tapes

Category:     TAPES

File:         irtp_tapes.c

Author:       P.R. Roelfsema

Description:
              The following tape identification routines are available:

              IRTP_SA2BPHF  - returns BPHF tape name for SOP/ATT. 

Updates:      Nov 14, 1990: PRR, Creation date
              Dec  3, 1991: PRR, Added IRAS_ROOT

#<

*/

#include "gipsyc.h"
#include "string.h"
#include "stdio.h"
#include "stdlib.h"
#include "nelc.h"
#include "anyout.h"
#include "iras_root.h"

#define	OK		  0			/* no error 		*/
#define BAD_PLATE	 -1			/* plate does not exist */
#define	BAD_INSTRUMENT	 -2			/* instrument unknown 	*/
#define	BAD_TAPE	 -3			/* tape unknown 	*/
#define	BAD_SOPATT	 -5			/* sop/att unknown 	*/
#define NO_TAPE_DESCRIPTOR	 -6		/* tape descriptor not found */
#define DIR_TOO_SMALL	 -7			/* short directory string */

#define	NINSTRUMENTS	  3			/* nr of instruments	*/
#define	INSTRUMENTS	 { "survey" , "AO" , "unknown" } 

#define	MAXTXTLEN	 80			/* max length of string */
#define	MINDIRLENGTH	 35			/* min dir.-string length */

#define TAPE_DESCRIPTOR	"tape.descriptor"


/*
#>            irtp_sa2bphf.dc2

Function:     IRTP_SA2BPHF

Purpose:      IRTP_SA2BPHF returns the BPHF tape name containing a SOP/ATT

Category:     TAPE

File:         ir_tapes.c

Author:       P.R. Roelfsema

Use:          INTEGER IRTP_SA2BPHF( SOP        ,   Input   integer
                                    ATT        ,   Input   integer
                                    DIRECTORY  ,   Output  character*(>35)
                                    FILENO     )   Output  integer
        
              IRTP_SA2BPHF Error return code:
                           >0 - no problem.
                           -5 - SOP/ATT not found.
                           -6 - tape descriptor file not found
                           -7 - string DIRECTORY too small
              SOP         SOP of desired BPHF data.
              ATT         ATT of desired BPHF data.
              DIRECTORY   The name of the tape containing BPHF data for
                          the SOP/ATT combination (>35 chars).
              FILENO      The sequential file number of the file on
                          TAPENAME containing the BPHF for SOP/ATT.

Updates:      Sep.  5, 1990: PRR, Creation date
              Jun. 20, 1991: PRR, Patch to use new filesystem
	      Nov.  7, 1991: AdJ, Corrected hard-coded (!) filename 
              Dec.  3, 1991: PRR, Added IRAS_ROOT.
#<

Fortran to C interface:

@ integer function irtp_sa2bphf( integer , integer , character , integer )

*/

fint irtp_sa2bphf_c( fint  *sop      , fint *att    ,
                     fchar directory , fint *fileno )
{
   char		trydir[ MAXTXTLEN ] , line[ MAXTXTLEN ];
   char		mess[ MAXTXTLEN ] ;
   char         instrument[ NINSTRUMENTS ][ 10 ] = INSTRUMENTS ;

   fint		sixteen = 16 ;
   fint         filesop , fileatt ;
   fint		instrumentno ;
   fint		found = 0 ;

   FILE		*tapedescriptor = NULL ;	/* tape descriptor file */

   *fileno = 0 ;
   if ( directory.l < MINDIRLENGTH ) {
      return( DIR_TOO_SMALL ) ;
   }

   instrumentno = 0 ;
   while ( !found & ( instrumentno < NINSTRUMENTS ) ) {

      if ( iras_root_c( directory ) < 0 ) {	/* not enough chars.	*/
         return( DIR_TOO_SMALL ) ;
      }
      sprintf( trydir , "/bphf/%s/sop.%02d_/" 
                       , instrument[ instrumentno ] , *sop / 10 ) ;
      strcat( directory.a , trydir ) ;
      sprintf( trydir , "%.*stape.descriptor" 
                       , nelc_c( directory ) , directory.a ) ;
      sprintf( mess , "Trying %s" , trydir ) ;
      anyout_c( &sixteen , tofchar( mess ) ) ; 
      if ( !( tapedescriptor = fopen( trydir , "r" ) ) ){
         return( NO_TAPE_DESCRIPTOR ) ;
      }

      *fileno = 0 ;
      while ( !found && !feof( tapedescriptor ) ) {
         while ( !feof( tapedescriptor ) ) {
            fgets( line , MAXTXTLEN , tapedescriptor ) ;
            if ( line[ 0 ] == '@' ) {
               *fileno += 1 ;
               if ( strlen( line ) >= 7 ) {
                  sscanf( &line[1] , "%3d%3d" , &filesop , &fileatt ) ;
                  if ( ( *sop == filesop ) && ( *att == fileatt ) ) {
                     found = 1 ;
                     break ;
                  }
                  if ( ( *sop < filesop ) || ( *att < fileatt ) ) {
                     break ;
                  }
               }
            }
         }
      }

      (void) fclose( tapedescriptor ) ;
      instrumentno += 1 ;
   }

   if ( !found ) {
      *fileno = 0 ;
      strncpy( directory.a , " " , 2 ) ;
      return( BAD_SOPATT ) ;
   }
   

   return( OK ) ;
}