// $Id: shmf77.java,v 1.5 2002/01/14 09:14:24 a-hasega Exp $
// $RWC_Release: Omni-1.6 $
// $RWC_Copyright:
//  Omni Compiler Software Version 1.5-1.6
//  Copyright (C) 2002 PC Cluster Consortium
//  
//  This software is free software; you can redistribute it and/or modify
//  it under the terms of the GNU Lesser General Public License version
//  2.1 published by the Free Software Foundation.
//  
//  Omni Compiler Software Version 1.0-1.4
//  Copyright (C) 1999, 2000, 2001.
//   Tsukuba Research Center, Real World Computing Partnership, Japan.
//  
//  Please check the Copyright and License information in the files named
//  COPYRIGHT and LICENSE under the top  directory of the Omni Compiler
//  Software release kit.
//  
//  
//  $

package shm;

import exc.object.*;
import exc.openmp.*;
import exc.tea.*;

public class shmf77 extends exc.util.ompf77 {
  protected boolean relocateGlobalFlag = true;

  public shmf77(){ super("shmf77"); }

  public static void main(String args[]){ 
    shmf77 driver = new shmf77();
    driver.run(args);
  }

  public boolean parseArg(String arg){
    if(arg.equals("--no-relocate")){
      relocateGlobalFlag = false;
      if(verbose) System.err.println("relocate flag off...");
      return true;
    } else return super.parseArg(arg);
  }

  public void init() {
    super.init();
    // add shmem option
    ffront_opts += " -saveArray ";
  }

  public void run(XobjectFile f){

    if(!omp_flag) return;	// no OpenMP, nothing to do

    if(verbose) System.err.println("transformation pass ... "+
				   f.getSourceFileName());
    f.debugFlag = debugFlag;
    OMP.debugFlag = debugFlag;

    OMP.setMoveAutoFlag(true);
    OMP.leaveThreadPrivate(true);

    TEAanalyzeDecl opTEA = new TEAanalyzeDecl();
    opTEA.init(f);

    OMPtranslateBlock op = new OMPtranslateBlock();
    op.init(f,false);

    f.iterateDef(opTEA);
    f.iterateDef(op);   // transform OMP pragma
    if(OMP.errorFlags){
      System.err.println("error in OpenMP. stop.");
      System.exit(1);
    }

    if(relocateGlobalFlag){
      if(verbose) System.err.println("relocate global data pass ...");
      // relocate global data to shared memory area
      relocateGlobalData opRel = new relocateGlobalData();
      opRel.init(f);
      f.iterateDef(opRel);
      opRel.Finalize();
    }

    op.init(f,true);
    if(verbose) System.err.println("block transformation data ...");
    f.iterateDef(op);   // transform OMP pragma

    if(relocateGlobalFlag){
      f.addTailerLine("static char *__g_data_init_f=(char *)__G_DATA_INIT; ");
      f.addTailerLine("static void __G_DATA_CTOR() {");
      f.addTailerLine("  asm(\".section	.ctors \");");
      f.addTailerLine("  asm(\".long	 __G_DATA_INIT\");");
      f.addTailerLine("  asm(\".section	.text \");");
      f.addTailerLine("}");
      f.addTailerLine("static char *__g_data_ctor_f=(char *)__G_DATA_CTOR; ");
    }
  }
}