#!/bin/sh
# Taken from src-old/test20.sh
# rename.sh: Renames contents of RegionSimSet.xml from sim_name="RegionSet..." e.g, sim_name="Cool Place Two"

[ ! -d Regions ] && mkdir Regions

DIGITS=( "zero" "one" "two" "three" "four" "five" "six" "seven" "eight" "nine" )

TEENS=( " " "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen" "seventeen" "eighteen" "ninteen" )

TENS=( "" "ten" "twenty" "thirty" "fourty" "fifty" "sixty" "seventy" "eighty" "ninty" "hundred" )

LAND=( "" "Horse Country" "Magic Villas" "Lofty Decorum" "Furia" "Stratus Cumulus" "Seasfarer" "StarGate" "Pelican Coast" "Mystery Isles" "Cargo Commerce" "Untamed Wilderness" "Natural Resources" "Penal Colony" "Robotics Inc" "Cullinary Delights" "Industrial Town" "Main Street" "Wall Street" "Bottomless Pit" "Lost World" )

# Land names
#""
#"Horse_Country"
#"Magic_Villas"
#"Lofty_Decorum"
#"Furia"
#"Stratus_Cumulus"
#"Seasfarer"
#"StarGate"
#"Pelican_Coast"
#"Mystery_Isles"
#"Cargo_Commerce"
#"Untamed_Wilderness"
#"Natural_Resources"
#"Penal_Colony"
#"Robotics_Inc"
#"Cullinary_Delights"
#"Industrial_Park"
#"Main_Street"
#"Wall_Street"
#"Bottomless_Pit"
#"Lost_World"

capitalize_ichar ()          #  Capitalizes initial character
    {                            #+ of argument string(s) passed.
      string0="$@"               # Accepts multiple arguments.
      firstchar=${string0:0:1}   # First character.
      string1=${string0:1}       # Rest of string(s).
      FirstChar=`echo "$firstchar" | tr a-z A-Z`
                                 # Capitalize first character.
      echo "$FirstChar$string1"  # Output to stdout.
    }

renameRegion(){
for i in RegionSet{One,Two}*.xml;
do

SET_ONE=`ls $i | grep SetOne`
SET_TWO=`ls $i | grep SetTwo`
if [ "$SET_ONE" != "" ]; then
     REGION_SET=RegionSetOne
elif [ "$SET_TWO" != "" ]; then
     REGION_SET=RegionSetTwo
else
     echo input file error: $i
fi

#for i in $REGION_SET_01*.xml;
   #tens() is stubb: Not needed unless regions go beyond 29
   tens() {

   if [ $number -lt 10 ]; then
      echo $number
   elif [ $number -eq 10 ]; then
	echo ${TENS[1]}
   elif [ $number -eq 20 ]; then
         echo ${TENS[2]}
   elif [ $number -eq 30 ]; then
	 echo ${TENS[3]}
   elif [ $number -eq 40 ]; then
	echo ${TENS[4]}
   elif [ $number -eq 50 ]; then
	echo ${TENS[5]}
   elif [ $number -eq 60 ]; then
	echo ${TENS[6]}
   elif [ $number -eq 70 ]; then
	echo ${TENS[7]}
   elif [ $number -eq 80 ]; then
	echo ${TENS[8]}
   elif [ $number -eq 90 ]; then
	echo ${TENS[9]}
   elif [ $number -eq 100 ]; then
	echo ${TENS[10]}
   elif [ $number -gt 10 ] && [ $number -lt 20 ]; then
       echo 10-19: $number ${TENS[1]}
   fi
  }

   prefix=${i%%.8*[0-9].xml}
   REGION_XY=${i#$prefix\.} #e.g., 8100.8100.xml
   number=`ls $i | sed -e "s/$REGION_SET\_//g" | sed -e "s/\.$REGION_XY//g"`
   echo "DEBUG_number: \"$number\""

 # Strip off leading zeros that cause octals
 while [[ $number = 0* ]]; do number=${number#0}; done

   if [ $number -lt 10 ]; then
       region_number="${LAND[$number]} `capitalize_ichar ${DIGITS[$number]}`"
       region=`cat $i | awk '{ print $3 }'`
       region_tmp=`echo $region | sed -e 's/\"//g' | sed -e 's/sim_name=//g'`
       cat $i | sed -e "s/$region_tmp/$region_number/g" > Regions/$i
   elif [ $number -eq 10 ]; then
       #echo $OUT
       region_number="${LAND[$number]} `capitalize_ichar ${TENS[$number-9]}`"
       region=`cat $i | awk '{ print $3 }'`
       region_tmp=`echo $region | sed -e 's/\"//g' | sed -e 's/sim_name=//g'`
       cat $i | sed -e "s/$region_tmp/$region_number/g" > Regions/$i

   elif [ $number -gt 10 ] && [ $number -lt 20 ]; then
       region_number="${LAND[$number]} `capitalize_ichar ${TEENS[$number-10]}`"
       region=`cat $i | awk '{ print $3 }'`
       region_tmp=`echo $region | sed -e 's/\"//g' | sed -e 's/sim_name=//g'`
       cat $i | sed -e "s/$region_tmp/$region_number/g" > Regions/$i

   elif [ $number -eq 20 ]; then
       pref=${number%[0-9]}
       suff=${number#$pref}
       region_number="${LAND[$pref]} `capitalize_ichar ${TENS[$pref]}`"
       region=`cat $i | awk '{ print $3 }'`
       region_tmp=`echo $region | sed -e 's/\"//g' | sed -e 's/sim_name=//g'`
       cat $i | sed -e "s/$region_tmp/$region_number/g" > Regions/$i

   # find last digit routine
   elif [ $number -gt 20 ]; then
       pref=${number%[0-9]}
       suff=${number#$pref}
       region_number="${LAND[$suff]} `capitalize_ichar ${TENS[$pref]}`-`capitalize_ichar ${DIGITS[$suff]}`"
       region=`cat $i | awk '{ print $3 }'`
       region_tmp=`echo $region | sed -e 's/\"//g' | sed -e 's/sim_name=//g'`
       cat $i | sed -e "s/$region_tmp/$region_number/g" > Regions/$i
   fi
   #}

done
}

renameRegion