/* Usage lfn2gsiftp <lfn> */

#include <stdio.h>
#include <stdlib.h>
#include <sys/param.h>
#include <string.h>

#define GSIFTP

#ifdef GSIFTP
#define PREFIX  "gsiftp://www2.jldg.org/gfarm/public/ILDG"
#endif

#ifdef HTTP
#define PREFIX  "http://www2.jldg.org/public/ILDG"
#endif

void elem(n,Path,Value)
     int n ;
     char Path[], Value[] ;
{
  int c=0,x ;

  for(x=0;x<n;x++) {
    while((Path[c] != '\0') && (Path[c] != '/')) c++ ;
    if(Path[c] != '\0') c++ ;
  }
  if(Path[c] == '\0') {
    Value[0] = '\0' ; return ;
  }

  x = 0 ;
    while((Path[c] != '\0') && (Path[c] != '/')) 
      Value[x++]=Path[c++] ;
    Value[x] = '\0' ;
}

void append(Path,Value) 
     char Path[], Value[] ;
{
  strcat(Path,"/") ;
  strcat(Path,Value) ;
}

void edcppacs(fname,Project,Base)
     char fname[], Project[], Base[] ;
{
  int c;
  char SizeBeta[MAXPATHLEN], Kappa[MAXPATHLEN] ;

  append(fname,Project) ;

  for(c=0;c<13;c++) SizeBeta[c] = Base[c] ; 
  SizeBeta[14]='\0' ;
  for(c=0;c<7;c++) Kappa[c] = Base[c+13] ;
  Kappa[c] = '\0' ;
  append(fname,SizeBeta) ;
  append(fname,Kappa) ;

  append(fname,Base) ;
}

void edcpjlqcd(fname,Project,Base)
     char fname[], Project[], Base[] ;
{
  int c;
  char SizeBeta[MAXPATHLEN], Kappa[MAXPATHLEN] ;

  append(fname,Project) ;

  for(c=0;c<13;c++) SizeBeta[c] = Base[c] ; 
  SizeBeta[14]='\0' ;
  for(c=0;c<17;c++) Kappa[c] = Base[c+13] ;
  Kappa[c] = '\0' ;
  append(fname,SizeBeta) ;
  append(fname,Kappa) ;

  append(fname,Base) ;
}

void edpacscs(fname,Project,Base)
     char fname[], Project[], Base[] ;
{
  int c;
  char SizeBeta[MAXPATHLEN], Kappa[MAXPATHLEN] ;

  append(fname,Project) ;

  for(c=0;c<13;c++) SizeBeta[c] = Base[c] ; 
  SizeBeta[14]='\0' ;
  for(c=0;c<21;c++) Kappa[c] = Base[c+13] ;
  Kappa[c] = '\0' ;
  append(fname,SizeBeta) ;
  append(fname,Kappa) ;

  append(fname,Base) ;
}

void edjlqcd(fname,Project,Base)
     char fname[], Project[], Base[] ;
{
  int c;
  char Ensemble[MAXPATHLEN] ;

  append(fname,Project) ;

  for(c=0;c<44;c++) Ensemble[c] = Base[c] ; 
  Ensemble[45]='\0' ;
  append(fname,Ensemble) ;
  append(fname,Base) ;
}

int main(argc,argv)
     int argc ;
     char *argv[] ;
{
  char *lfn ;
  char fname[MAXPATHLEN] ;

  char XXX[MAXPATHLEN] ;
  char RGrid[MAXPATHLEN], Collab[MAXPATHLEN] ;
  char Project[MAXPATHLEN], Base[MAXPATHLEN] ;

  if (argc < 2) {
    fprintf(stderr,"Usage: %s <lnf1> <lfn2> ...\n",argv[0]) ;
    exit(1) ;
  }

  while (argc >1) {

    lfn = argv[1] ;

    if(strncmp(lfn,"lfn://",6)!=0) exit(1) ;
    elem(2,lfn,RGrid) ;
    if(strcmp(RGrid,"JLDG")!=0) exit(1) ;
    elem(3,lfn,Collab) ;
    elem(4,lfn,Project) ;
    elem(5,lfn,Base) ;

    strcpy(fname,PREFIX) ;
    append(fname,RGrid) ;
    append(fname,Collab) ;

    if(strcmp(Collab,"CP-PACS")==0) {
      if(strcmp(Project,"RCNF2")!=0) exit(1) ;
      edcppacs(fname,Project,Base) ;
    }
    else if(strcmp(Collab,"CP-PACS+JLQCD")==0) {
      if(strcmp(Project,"RCNF2+1")!=0) exit(1) ;
      edcpjlqcd(fname,Project,Base) ;
    } 
    else if(strcmp(Collab,"PACS-CS")==0) {
      if(strcmp(Project,"RCNF2+1")!=0) exit(1) ;
      edpacscs(fname,Project,Base) ;
    } 
    else if(strcmp(Collab,"JLQCD")==0) {
      if(strcmp(Project,"RgOvrNF2")!=0) exit(1) ;
      edjlqcd(fname,Project,Base) ;
    }
    else if(strcmp(Collab,"PACS-Collab")==0) {
      if(strcmp(Project,"RFCNF2p1")!=0) exit(1) ;
      edpacscs(fname,Project,Base) ;
    } 
    else { exit(1) ; }
    printf("%s\n",fname) ;
    
    argv++ ; argc-- ;
  }

}