Changeset 22 for palm/trunk/SCRIPTS/mbuild_new

Timestamp:

Feb 28, 2007 7:37:45 AM (17 years ago)

Author:

raasch

Message:

compilation of utilities with mbuild, mrun_path replaced by PALM_BIN, no statistik-log

Location:

palm/trunk/SCRIPTS

Files:

• . (modified) (1 prop)
• mbuild_new (modified) (8 diffs)

palm/trunk/SCRIPTS/mbuild_new

@@ -1 +1 @@
 #!/bin/ksh
-# mbuild - Programmuebersetzungsscript   Version:  @(#)MBUILD 1.0    10/02/07
+# mbuild - Programmuebersetzungsscript   Version:  @(#)MBUILD 1.0    28/02/07
 
      # Prozedur zur Uebersetzung von Programmteilen mittels make-Mechanismus
@@ -79 +79 @@
      # 07/02/07 - Siggi - adapted for RIAM (neck)
      # 10/02/07 - Siggi - all hpmuk-related code removed
+     # 28/02/07 - Siggi - compilation of utility programs added (option -u)
 
 
 
     # VARIABLENVEREINBARUNGEN + DEFAULTWERTE
+ compile_utility_programs=false
  config_file=.mrun.config
  host=all
@@ -122 +124 @@
 
     # SHELLSCRIPT-OPTIONEN EINLESEN
- while  getopts  :c:h:m:rs:  option
+ while  getopts  :c:h:m:rs:u  option
  do
    case  $option  in
@@ -130 +132 @@
        (r)   remote_mode=batch;;
        (s)   suf=$OPTARG;;
+       (u)   compile_utility_programs=true;;
        (\?)  printf "\n  +++ unknown option $OPTARG \n";
              locat=parameter; exit;;
@@ -754 +757 @@
     fi
 
+    remote_ud=${remote_source_path}/../UTIL
 
        # REMOTE-PFAD FUER MAKE-DEPOSITORY ERMITTELN
@@ -1222 +1226 @@
 
 
+             # GLEICHE AKTIONEN FUER DIE UTILITY-PROGRAMME DURCHFUEHREN
+             # AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
+             # FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
+          if [[ $compile_utility_programs = true ]]
+          then
+
+             echo "  *** copying utility programs to \"${remote_addres}:${remote_ud}/\" "
+             cd  ${local_source_path}/../UTIL
+             echo "      remote_ud=\"$remote_ud\" "
+
+             if [[ $remote_host != lctit ]]
+             then
+                ssh  ${remote_username}@${remote_addres} "[[ ! -d ${remote_ud} ]]  &&  (echo \"  *** ${remote_ud} will be created\"; mkdir -p  ${remote_ud})"
+             else
+                   # TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
+                   # MIT SSH, DESHALB AUFRUF PER PIPE
+                print "[[ ! -d ${remote_ud} ]]  &&  (echo \"  *** ${remote_ud} will be created\"; mkdir -p  ${remote_ud})"  |  ssh ${remote_username}@${remote_addres}  2>&1
+             fi
+
+             if [[ $local_host = decalpha ]]
+             then
+                   # DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTÄNDIGEN PFADES
+                   # IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
+                   # KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
+                remote_ud=`echo $remote_ud | sed 's/\$HOME\///'`
+                /bin/scp  Makefile  *.f90  ${remote_username}@${remote_addres}:${remote_ud}
+             else
+                scp  Makefile  *.f90  ${remote_username}@${remote_addres}:${remote_ud}
+             fi
+
+
+
+                # MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
+                # KOMMANDOUEBERGABE AN SSH PER PIPE, DA SO DIE SYSTEM- UND
+                # BENUTZERPROFILE VOLLSTAENDIG AUSGEFUEHRT WERDEN (SONST FEHLEN MAKE
+                # Z.B. DIE PFADE ZUM COMPILER)
+             echo "  *** execute \"make\" on remote host"
+
+             if [[ $remote_host = nech ]]
+             then
+                make_call_string="sxmake  F90=$compiler_name  COPT=\"$cpp_options\"  F90FLAGS=\"$compiler_options\"  LDFLAGS=\"$loader_options\" "
+             else
+                make_call_string="make  F90=$compiler_name  COPT=\"$cpp_options\"  F90FLAGS=\"$compiler_options\"  LDFLAGS=\"$loader_options\" "
+             fi
+
+             if [[ $remote_host = ibms  ||  $remote_host = ibmy ]]
+             then
+
+                ssh  ${remote_username}@${remote_addres}  "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 | tee ${remote_host}_last_make_protokoll
+
+             elif [[ $remote_host = ibmb  ||  $remote_host = ibmh ]]
+             then
+
+                print "export OBJECT_MODE=64; cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  ${remote_username}@${remote_addres} 2>&1 | tee ${remote_host}_last_make_protokoll
+
+             elif [[ $remote_host = lctit ]]
+             then
+
+                echo  " "  >  ${remote_host}_last_make_protokoll
+                while [[ $(cat ${remote_host}_last_make_protokoll | grep -c "Forwarding to N1GE") = 0 ]]
+                do
+                   print "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  ${remote_username}@${remote_addres} 2>&1 | tee ${remote_host}_last_make_protokoll
+                done
+
+             else
+
+                print "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  ${remote_username}@${remote_addres} 2>&1 | tee ${remote_host}_last_make_protokoll
+
+             fi
+
+             if [[ $(grep -c MAKE_ERROR ${remote_host}_last_make_protokoll) != 0 ]]
+             then
+                printf "\a\n  +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
+                if [[ $silent = false ]]
+                then
+                   answer=dummy
+                   printf "\n"
+                   while [[ "$answer" != c  &&  "$answer" != k ]]
+                   do
+                      printf "  >>> continue / list errors / kill mbuild (c/l/k) ? "
+                      read  answer
+                      if [[ "$answer" = l ]]
+                      then
+                         more ${remote_host}_last_make_protokoll
+                      fi
+                   done
+                   if [[ $answer = k ]]
+                   then
+                      locat=user_abort; exit
+                   fi
+                fi
+             fi
+          fi    # ENDE UEBERSETZUNG DER UTILITY-PROGRAMME
+
+
              # NUR AUF EINEM HLRN-RECHNER UEBERSETZEN
           [[ $remote_host = ibmb  ||  $remote_host = ibmh ]]  &&  ibm_hb_done=true
@@ -1228 +1327 @@
 
              # MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF LOKALEM RECHNER AUSFUEHREN
+          echo " "
           echo "  *** execute \"make\" on local host"
 
@@ -1260 +1360 @@
           tar -cf  ${mainprog}_current_version.tar  *.$suf *.o *.mod
 
+
+             # COMPILE THE UTILITY PROGRAMS
+          if [[ $compile_utility_programs = true ]]
+          then
+             printf "\n\n"
+             echo "  *** compiling the utility programs ..."
+             cd ${local_source_path}/../UTIL
+             make  F90=$compiler_name  COPT="$cpp_options"  F90FLAGS="$compiler_options"  LDFLAGS="$loader_options"
+             cd  -  > /dev/null
+          fi
+
+
              # NUR EINMAL AUF LCMUK UEBERSETZEN
           [[ $remote_host = lcmuk ]]  &&  lcmuk_done=true