//------------------------------------------------------------------------------
//------------------------------------------------------------------------------

// Check whether string s is empty.

//------------------------------------------------------------------------------
function isEmpty(s)
{   
  return ((s == null) || (s.length == 0))
}



// Returns true if string s is empty or 
// whitespace characters only.

//------------------------------------------------------------------------------
function isWhitespace (s)

{   var i;

    // Is s empty?
    if (isEmpty(s)) return true;

    // Search through string's characters one by one
    // until we find a non-whitespace character.
    // When we do, return false; if we don't, return true.

    for (i = 0; i < s.length; i++)
    {   
        // Check that current character isn't whitespace.
        var c = s.charAt(i);

        if (whitespace.indexOf(c) == -1) return false;
    }

    // All characters are whitespace.
    return true;
}

//------------------------------------------------------------------------------
function AddToList(currentStringList, itemToAddToList, sepChar)
{
  var result = ""
  if (currentStringList!="")result+=sepChar
  result+=itemToAddToList
  return result
}



/*---------------------------------------------------------------------------*\
\*---------------------------------------------------------------------------*/
function Str(source)
{
  var PN = "X:Str"
  var result
  //Trace(PN, "started source["+source+"]")
  result = "" + source + ""
  //Trace(PN, "result["+result+"]")
  return result
}


/*---------------------------------------------------------------------------*\
\*---------------------------------------------------------------------------*/
function PadChars(source, padChar, totalLen, padRight)
{
  var PN = "X:PadChars"
  var result = ""
  var padding = ""

  for (var i=source.length+1;i<=totalLen;i++)
  {
    padding+=padChar
  }

  if (padRight)
  {
    result = source + padding
  }else
  {
    result = padding + source 
  }
  return result
}

//------------------------------------------------------------------------------
