Svět Virtuálních Křídel (IL-2 Sturmovik 1946, Cliffs of Dover, Rise of Flight) - Diskuzní fórum: spojovani map (mis files)

Code
#funkce programu: pro precislovani xxx_Chief na nekonfliktni cisla

#  v nekolika misich, jejich slepeni do sebe s vyhazenim duplicitnich radku

#  a spojenim obsahu stejne pojmenovanych sekci



#volani: merge.awk prvnimise.mis druhamise.mis

#      (pred kazde menene cislo predrazi cislo poradi souboru z volani)

#   nic nebrani volani s vice nebo mene misemi, ale u desate a dal

#   se zacnou plest predrazena cisla



#dulezite glob.promenne: 

#  FileNumber - cislo prave zpracovavaneho souboru

#  NumElem - pocet zaznamu v polich:

#  Entry[], Section[]- obsah radku a sekce do ktere patri

#  Active[] duplicitni a jiz vytistene radky=0, jinak=1



function beginfile(filename)

{

  FileNumber+=1

}

function endfile(filename) { }



FILENAME != _oldfilename \

  {if (_oldfilename != "")

    endfile(_oldfilename)

  _oldfilename = FILENAME

  beginfile(FILENAME)

  }

END { endfile(FILENAME) }



BEGIN {

  FileNumber=0

  NumElem=0

  }

  

/^ *TAKEOFF.*[[:digit:]]+_Chief/ {#start letadla:

  #predrazime pred xxx_Chief cislo FileNumber

  $0= "  " $1 " " $2 " " $3 " " $4 " " $5 " " FileNumber $6 " " $7 " " $8 " " $9 " " $10 " " $11 " " $12 " " $13 " " $14 " " $15

                                          #9 a dal pro jistotu

  }

 

/^ *[[:digit:]]+[_Chief|_Static|_bld]/ {

  #precislovani zaznamu v sekcich [Chiefs], [NStationary] a [Buildings]

  $0="  " FileNumber $1 " " $2 " " $3 " " $4 " " $5 " " $6 " " $7 " " $8 " " $9 " " $10 " " $11 " " $12 " " $13 " " $14 " " $15

  }



/^\[[[:digit:]]+_Chief_Road\]/ {#nazev sekce s trasou dane lodi

  temp=$1

  sub("\\[","",temp);#urizneme zavorku

  $0= "[" FileNumber temp

  }



/[\\[].*[\]]/ {#jmeno kazde sekce

  SectionName=$1 #schovame pro vkladani do pole u jednotlivych zaznamu

  }



{#kazdy zaznam si schovame:

  Entry[NumElem]=$0

  Section[NumElem]=SectionName

  Active[NumElem]=1

  NumElem++

  }



END{#vyhazime duplicity:

  for (i=0;i<NumElem;i++)

    if (Active[i])

      for(j=i+1;j<NumElem;j++)

        if (Active[j] && Section[j]==Section[i])

          if (Entry[j]==Entry[i])

            Active[j]=0

  #posleme na vystup

  for (i=0;i<NumElem;i++)

    if (Active[i])

      for(j=i;j<NumElem;j++)#dalsi ze stejne sekce

        if (Active[j] && Section[j]==Section[i])

          {print Entry[j]

          Active[j]=0

          }

  }