// File:		all_caps.c (simul_efun)
// Author:	Bub@Tabor
// Created:	??
// Purpose:	Turn a string to all caps.
//


// Optimized all_caps by Beek
string all_caps( string str ) {
  if (!str) return "";
  return implode(map(explode(str, ""), (: capitalize :)), "");
}

/*
string all_caps( string str )
{
  int i;
  string ret;

  if( !str || str == "" ) return "";
  ret = "";
  for( i = 0; i <strlen( str ); i++ )
    ret += capitalize( extract( str, i, i ) );
  return ret;
}

 */
// This simul_efun caps each word in a string.  Inspiral@Tabor
string cap_words( string str ) {
  int loop, size;
  mixed *group;

  if( !str || str == "" ) return "";

   group = explode( str, " " );
  size = sizeof( group );

  for( loop = 0; loop < size; loop++ )  
	  group[loop] = capitalize( group[loop] );

  return implode( group, " " );
}