133 lines
3.9 KiB
Plaintext
133 lines
3.9 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
/*
|
||
* Las siguientes partes son derechos adquiridos de sus autores individuales.
|
||
* www - http://www.harbour-project.org
|
||
*
|
||
* Copyright 2000 Alejandro de G rate <alex_degarate@hotmail.com>
|
||
* Documentaci¢n en Espa¤ol de: ISAFFIRM(), ISNEGATIVE(), NATIONMSG()
|
||
*
|
||
* Copyright 1999 Jose Lalin <dezac@corevia.com>
|
||
* Documentaci¢n en Ingles de: ISAFFIRM(), ISNEGATIVE(), NATIONMSG()
|
||
*
|
||
* Vea doc/license.txt por los t‚rminos de la licencia.
|
||
*
|
||
*/
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* ISAFFIRM()
|
||
* $CATEGORY$
|
||
* Nacion
|
||
* $ONELINER$
|
||
* Chequea si el caracter pasado es el caracter de afirmaci¢n
|
||
* $SYNTAX$
|
||
* ISAFFIRM( <cChar> ) --> <lTrueOrFalse>
|
||
* $ARGUMENTS$
|
||
* <cChar> es un char ¢ cadena de caracteres
|
||
* $RETURNS$
|
||
* <lTrueOrFalse> Verdadero si el caracter pasado es el caracter de
|
||
* afirmaci¢n, ¢ Falso de otro modo.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n es usada para chequear si la entrada del usuario es
|
||
* verdadera ¢ no, de acuerdo al m¢dulo msgxxx usado.
|
||
* En Clipper el m¢dulo por defecto depende de la versi¢n usada, en
|
||
* Harbour el m¢dulo por defecto es el Ingl‚s.
|
||
* En ingl‚s la opci¢n v lida es "Y", en español "S"
|
||
* $EXAMPLES$
|
||
* // Esperar hasta que el usuario ingrese "Y"
|
||
* DO WHILE ! ISAFFIRM( cYesNo )
|
||
* ACCEPT "Esta Seguro ?: " TO cYesNo
|
||
* END DO
|
||
* </fixed>
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Clipper.
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* ISNEGATIVE(),NATIONMSG()
|
||
* $END$
|
||
*/
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* ISNEGATIVE()
|
||
* $CATEGORY$
|
||
* Nacion
|
||
* $ONELINER$
|
||
* Chequea si el caracter pasado es el caracter de negaci¢n
|
||
* $SYNTAX$
|
||
* ISNEGATIVE( <cChar> ) --> <lTrueOrFalse>
|
||
* $ARGUMENTS$
|
||
* <cChar> es un char ¢ cadena de caracteres
|
||
* $RETURNS$
|
||
* <lTrueOrFalse> Verdadero si el caracter pasado es el caracter de
|
||
* negaci¢n, ¢ Falso de otro modo.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n es usada para chequear si la entrada del usuario es
|
||
* verdadera ¢ no, de acuerdo al m¢dulo msgxxx usado.
|
||
* En Clipper el m¢dulo por defecto depende de la versi¢n usada, en
|
||
* Harbour el m¢dulo por defecto es el Ingl‚s.
|
||
* En ingl‚s la opci¢n v lida es "N", en español "N"
|
||
* $EXAMPLES$
|
||
* // Esperar hasta que el usuario ingrese "N"
|
||
* DO WHILE ! ISNEGATIVE( cYesNo )
|
||
* ACCEPT "Esta Seguro ?: " TO cYesNo
|
||
* END DO
|
||
* </fixed>
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Clipper.
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* ISAFFIRM(),NATIONMSG()
|
||
* $END$
|
||
*/
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* NATIONMSG()
|
||
* $CATEGORY$
|
||
* Nacion
|
||
* $ONELINER$
|
||
* Retorna cadenas de mensajes internacionales.
|
||
* $SYNTAX$
|
||
* NATIONMSG( <nMsg> ) --> <cMensaje>
|
||
* $ARGUMENTS$
|
||
* <nMsg> es el n£mero de Mensaje que Ud. quiere obtener.
|
||
* $RETURNS$
|
||
* <cMensaje> Si <nMsg> es un selector de mensaje v lido, entonces se
|
||
* retorna el mensaje.
|
||
* Si <nMsg> es NIL, retorna "Invalid Argument", y si <nMsg> no es de
|
||
* tipo NUMERIC esta retorna una cadena vacia.
|
||
* $DESCRIPTION$
|
||
* NATIONMSG() retorna las descripciones internacionales de mensajes.
|
||
* En Clipper el m¢dulo por defecto depende de la versi¢n usada, en
|
||
* Harbour el m¢dulo por defecto es el Ingl‚s.
|
||
* $EXAMPLES$
|
||
* // Visualiza "Seguro Y/N: " y espera hasta que el usuario entra "Y"
|
||
* // Y/N es la cadena NATIONMSG( 12 ) con el m¢dulo natmsg por
|
||
* // defecto.
|
||
* DO WHILE ! ISAFFIRM( cYesNo )
|
||
* ACCEPT "Esta Seguro " + NATIONMSG( 12 ) + ": " TO cYesNo
|
||
* END DO
|
||
* </fixed>
|
||
* $STATUS$
|
||
* C
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Clipper.
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* ISAFFIRM(),ISNEGATIVE()
|
||
* $END$
|
||
*/
|
||
|
||
|