#! /usr/bin/gawk -f
# Last edited on 2004-12-30 20:26:53 by stolfi

# capitaliza - CAPITALIZA DICIONARIO DE NOMES PROPRIOS

# como executar
# gawk -f capitaliza < nomes_proprios.dic > nomes_proprios.dic

BEGIN {
  # CONSTANTES DE VALORES
  cjminus	= "abcdefghijklmnopqrstuvwxyzàáâãçéêíóôõúü"
  cjmaius	= "ABCDEFGHIJKLMNOPQRSTUVWXYZÀÁÂÃÇÉÊÍÓÔÕÚÜ"
}

// {						
    printf "%s %s %s\n", capitaliza($1), $2, capitaliza($3)
  }

function convmaius(letra)
  {
  return substr(cjmaius,index(cjminus,letra),1)
  }

function capitaliza(palav)
  {
  return convmaius(substr(palav,1,1)) substr(palav,2)
  }