* make_deb.sh
* Removed wrong comment recently added.
(we will need to fix hbfimage compilation anyway)
* harbour-ce-spec
* harbour-w32-spec
* harbour.spec
* debian/control
* include/vm.api
* include/extend.api
* include/button.ch
* include/hbstack.h
* include/item.api
* include/rdd.api
* include/gt.api
* include/dbinfo.ch
* include/error.api
* include/filesys.api
* include/hbapigt.h
* include/clipdefs.h
* include/assert.ch
* include/fm.api
* include/extend.h
* source/compiler/genhrb.c
* config/os2/install.cf
* tests/db_brows.prg
* tests/debugtst.prg
* tests/ac_test.prg
* tests/testhtml.prg
* tests/tstcolor.prg
* doc/hdr_tpl.txt
* doc/man/harbour.1
* doc/dirstruc.txt
* doc/howtobld.txt
* doc/en/diskspac.txt
* doc/en/string.txt
* doc/en/rddord.txt
* doc/en/math.txt
* doc/en/error.txt
* doc/en/treport.txt
* doc/en/memvar2.txt
* doc/en/terminal.txt
* doc/en/dir.txt
* doc/en/rddmisc.txt
* doc/en/var.txt
* doc/en/nation.txt
* doc/en/dbstrux.txt
* doc/en/datetime.txt
* doc/en/memo.txt
* doc/en/tgetlist.txt
* doc/en/tlabel.txt
* doc/en/hb_compa.txt
* doc/en/array.txt
* doc/en/rdddb.txt
* doc/en/dbsdf.txt
* doc/en/tbrowse.txt
* doc/en/hvm.txt
* doc/en/input.txt
* doc/en/dbdelim.txt
* doc/en/browse.txt
* doc/en/menu.txt
* doc/en/file.txt
* doc/en/binnum.txt
* doc/en/tclass.txt
* doc/en/set.txt
* doc/en/misc.txt
* doc/en/sayget.txt
* doc/en/readme.txt
* doc/es/diskspac.txt
* doc/es/tlabel.txt
* doc/es/array.txt
* doc/es/dbsdf.txt
* doc/es/tbrowse.txt
* doc/es/math.txt
* doc/es/hvm.txt
* doc/es/treport.txt
* doc/es/input.txt
* doc/es/dbdelim.txt
* doc/es/browse.txt
* doc/es/memvar2.txt
* doc/es/command.txt
* doc/es/dir.txt
* doc/es/file.txt
* doc/es/eval.txt
* doc/es/binnum.txt
* doc/es/nation.txt
* doc/es/var.txt
* doc/es/tclass.txt
* doc/es/dbstrux.txt
* doc/es/misc.txt
* doc/es/datetime.txt
* doc/es/sayget.txt
* doc/es/memo.txt
* doc/es/readme.txt
* doc/es/tgetlist.txt
* doc/readme.txt
* contrib/hbct/ctnet.c
* contrib/hbct/video.c
* contrib/hbct/dattime3.c
* contrib/hbct/color.c
* contrib/hbnf/acctyear.prg
* contrib/hbnf/byteneg.prg
* contrib/hbnf/isshare.prg
* contrib/hbnf/sinkey.prg
* contrib/hbnf/dhkey.h
* contrib/hbnf/kspeed.c
* contrib/hbnf/prtscr.c
* contrib/hbnf/descendn.c
* contrib/hbnf/peek.c
* contrib/hbnf/scancode.prg
* contrib/hbnf/vidmode.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/acctadj.prg
* contrib/hbnf/week.prg
* contrib/hbnf/vidcur.prg
* contrib/hbnf/iamidle.c
* contrib/hbnf/prtesc.prg
* contrib/hbnf/miltime.prg
* contrib/hbnf/proper.c
* contrib/hbnf/acctmnth.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/rand1.prg
* contrib/hbnf/madd.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/settime.prg
* contrib/hbnf/restsets.prg
* contrib/hbnf/page.prg
* contrib/hbnf/byt2bit.prg
* contrib/hbnf/setkeys.c
* contrib/hbnf/month.prg
* contrib/hbnf/byt2hex.prg
* contrib/hbnf/findith.prg
* contrib/hbnf/at2.prg
* contrib/hbnf/acctweek.prg
* contrib/hbnf/dispc.c
* contrib/hbnf/gcd.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/min2dhm.prg
* contrib/hbnf/acctqtr.prg
* contrib/hbnf/numlock.c
* contrib/hbnf/dosver.prg
* contrib/hbnf/nooccur.prg
* contrib/hbnf/dayofyr.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/ontick.c
* contrib/hbnf/menu1.prg
* contrib/hbnf/byteand.prg
* contrib/hbnf/sqzn.prg
* contrib/hbnf/bytexor.prg
* contrib/hbnf/ftidle.c
* contrib/hbnf/workdays.prg
* contrib/hbnf/byteor.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/shift.c
* contrib/hbnf/sleep.prg
* contrib/hbnf/wda.prg
* contrib/hbnf/aavg.prg
* contrib/hbnf/woy.prg
* contrib/hbnf/origin.c
* contrib/hbnf/any2any.prg
* contrib/hbnf/chdir.c
* contrib/hbnf/adessort.prg
* contrib/hbnf/setdate.prg
* contrib/hbnf/netpv.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/stod.c
* contrib/hbnf/vertmenu.prg
* contrib/hbnf/qtr.prg
* contrib/hbnf/linked.prg
* contrib/hbnf/n2color.c
* contrib/hbnf/aredit.prg
* contrib/hbnf/alt.c
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/hex2dec.prg
* contrib/hbnf/nwuid.prg
* contrib/hbnf/dectobin.prg
* contrib/hbnf/bitset.prg
* contrib/hbnf/aemaxlen.prg
* contrib/hbnf/nwlstat.prg
* contrib/hbnf/invclr.prg
* contrib/hbnf/ctrl.c
* contrib/hbnf/lastday.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/d2e.prg
* contrib/hbnf/ftisprn.c
* contrib/hbnf/pickday.prg
* contrib/hbnf/firstday.prg
* contrib/hbnf/daytobow.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/pvid.prg
* contrib/hbnf/isbiton.prg
* contrib/hbnf/color2n.c
* contrib/hbnf/isbit.prg
* contrib/hbnf/putkey.c
* contrib/hbnf/cntryset.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/getenvrn.c
* contrib/hbnf/easter.prg
* contrib/hbnf/bytenot.prg
* contrib/hbnf/ntow.prg
* contrib/hbnf/poke.c
* contrib/hbnf/aeminlen.prg
* contrib/hbnf/floptst.prg
* contrib/hbnf/pchr.prg
* contrib/hbnf/savesets.prg
* contrib/hbnf/mkdir.c
* contrib/hbnf/year.prg
* contrib/hbnf/caplock.c
* contrib/hbnf/rmdir.c
* contrib/hbnf/calendar.prg
* contrib/hbnf/e2d.prg
* contrib/hbnf/elapsed.prg
* contrib/hbnf/sysmem.prg
* contrib/hbnf/bitclr.prg
* contrib/hbnf/eltime.prg
* contrib/hbnf/aading.prg
* contrib/hbnf/dfile.prg
* contrib/hbnf/elapmil.prg
* contrib/hbnf/setlastk.c
* contrib/hbnf/pending.prg
* contrib/hbnf/clrsel.prg
* contrib/rddads/doc/en/adsfuncs.txt
* contrib/rddads/doc/en/readme.txt
* contrib/hbclip/hbclip.ch
* contrib/hbclip/readme.txt
* contrib/hbmisc/doc/en/ht_dbf.txt
* utils/hbdoc/rtf.prg
* utils/hbdoc/fclass1.prg
* utils/hbdoc/genos2.prg
* utils/hbdoc/genng.prg
* utils/hbdoc/genasc.prg
* utils/hbdoc/genchm.prg
* utils/hbdoc/os2.prg
* utils/hbdoc/ng.prg
* utils/hbdoc/genhpc.prg
* utils/hbdoc/html.prg
* utils/hbdoc/ffile1.prg
* utils/hbdoc/ft_funcs.prg
* utils/hbdoc/hbdoc.prg
* utils/hbdoc/troff.prg
* utils/hbdoc/genhtm.prg
* utils/hbdoc/genpdf1.prg
* utils/hbdoc/gentrf.prg
* utils/hbdoc/genrtf.prg
* utils/hbmake/fclass1.prg
* utils/hbmake/prb_stak.prg
* utils/hbmake/ffile1.prg
* utils/hbmake/ft_funcs.prg
* utils/hbmake/pickfile.prg
* utils/hbmake/hbmutils.prg
* More cleanups, formatting (filename casing, CA-Cl*pper, etc).
231 lines
8.9 KiB
Plaintext
231 lines
8.9 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
/*
|
||
* Las siguientes partes son derechos adquiridos de sus autores individuales.
|
||
* www - http://www.harbour-project.org
|
||
*
|
||
* Copyright 2003 Alejandro de G rate <alex_degarate@hotmail.com>
|
||
* Documentaci¢n en Espa¤ol de:
|
||
* @...GET, @...SAY
|
||
*
|
||
* Vea doc/license.txt por los t‚rminos de la licencia.
|
||
*
|
||
*/
|
||
|
||
/* $DOC$
|
||
* $COMMANDNAME$
|
||
* @...GET
|
||
* $CATEGORY$
|
||
* Comando
|
||
* $ONELINER$
|
||
* Crea un objeto GET y lo visualiza en pantalla
|
||
* $SYNTAX$
|
||
* @ <nFila>,<nCol> [SAY <cSay> [PICTURE <cSayPict>] COLOR <cSayColor> ]
|
||
* GET <xVar> [PICTURE <cGetPict>] [COLOR <cGetColor>]
|
||
* [WHEN <lWhen>] [VALID <lValid> / RANGE <xInicio>,<xFin>]
|
||
* $ARGUMENTS$
|
||
* <nFila> La fila donde se visualiza el SAY/GET
|
||
*
|
||
* <nCol> La columna donde se visualiza el SAY/GET
|
||
*
|
||
* <cSay> Mensaje a visualizar
|
||
*
|
||
* <cSayPict> Expresi¢n de Caracteres para el PICTURE del SAY
|
||
*
|
||
* <cSayColor> Color a ser Usado por la expresi¢n SAY.
|
||
*
|
||
* <xVar> El nombre de la variable/campo
|
||
*
|
||
* <cGetPict> Expresi¢n de Caracteres para el PICTURE del GET
|
||
*
|
||
* <lWhen> Expresi¢n l¢gica para permitir el GET.
|
||
*
|
||
* <lValida> Expresi¢n l¢gica para validar la entrada del GET
|
||
*
|
||
* <xInicio> Valor inferior de RANGE
|
||
*
|
||
* <xFin> Valor superior de RANGE.
|
||
*
|
||
* <cGetColor> Cadena de Color a ser usada por la expresi¢n GET
|
||
* $RETURNS$
|
||
* Ninguno
|
||
* $DESCRIPTION$
|
||
* Este comando agrega un objeto GET al array p£blico reservado llamado
|
||
* GETLIST[] y lo muestra en pantalla. El campo ¢ variable a ser
|
||
* agregada al objeto GET es especificada en <xVar> y es visualizada
|
||
* en las coordenadas fila, columna <nFila>, <nCol>.
|
||
*
|
||
* Si la cl usula SAY es usada el mensaje <cSay> ser visualizado
|
||
* comenzando en <nFila>,<nCol>, mientras que la variable de campo
|
||
* <xVar> ser visualizada en ROW(), COL()+ 1.
|
||
*
|
||
* Si la cl usula PICTURE es usada para la expresi¢n SAY, el molde
|
||
* <cSayPicr> es usado, todas las reglas de formato contenidas en ‚l se
|
||
* aplicar n. Vea la funci¢n TRANSFORM I, para mayor informaci¢n.
|
||
*
|
||
* Si <cGetPict> es especificado, la cl usula PICTURE de <xVar> ser
|
||
* usada para el objeto GET y todas las reglas de formato ser n
|
||
* aplicadas. Vea las reglas de formato para GET en la tabla m s abajo.
|
||
*
|
||
* Si la cl usula WHEN es especificada, entonces <lWhen> se eval£a por
|
||
* una condici¢n l¢gica (.T.) y en ese caso el objeto GET ser activado
|
||
* De otro modo el objeto GET ser saltado y ninguna informaci¢n ser
|
||
* obtenida a trav‚s de la pantalla. El nombre de una funci¢n definida
|
||
* por el usuario que retorne true (.T.) ¢ false ( F.) ¢ un codeblock
|
||
* puede ser especificado en <lWhen>. Esta cl usula no ser activada
|
||
* hasta que un comando READ ¢ una funci¢n READMODAL() sea ejecutada.
|
||
*
|
||
* Si la cl usula VALID es especificada, <lValida> se eval£a por una
|
||
* condici¢n l¢gica (.T.), si se cumple, el GET actual se considera
|
||
* v lido y la operatoria del GET continuar hasta encontrar el pr¢ximo
|
||
* objeto GET activo. De lo contrario el cursor permanecer en este
|
||
* objeto GET hasta que la operaci¢n se aborte ¢ la condici¢n en
|
||
* <lValid> se cumpla (.T.). El nombre de una funci¢n definida por
|
||
* el usuario que retorne true (.T.) ¢ false ( F.) ¢ un codeblock
|
||
* puede ser especificado en <lValida>. Esta cl usula no ser activada
|
||
* hasta que un comando READ ¢ una funci¢n READMODAL() sea ejecutada.
|
||
*
|
||
* Si la cl usula RANGE (rango) es especificada, en lugar de la cl usula
|
||
* VALID, los dos valores que limitan el rango deben ser especificados
|
||
* en <xInicio> y <xFin>. La variable que se eval£a debe ser del mismo
|
||
* tipo que las que constituyen el rango. Si la variable <xVar> es del
|
||
* tipo de fecha (DATE), <xInicio> y <xFin> deben ser tambi‚n del tipo
|
||
* DATE. Si la variable <xVar> es del tipo NUMERICo <xInicio> y <xFin>
|
||
* deben ser tambi‚n del tipo num‚rico. Si un valor falla el test RANGE,
|
||
* un mensaje de "OUT OF RANGE" (fuera de rango) aparecer en el area
|
||
* SCOREBOARD (fila = 0, col. = 60). El mensaje de RANGE puede ser
|
||
* desactivado si el comando SET SCOREBOARD ¢ la funcion SET() apropiada
|
||
* es puesta a .F.
|
||
*
|
||
* <fixed>
|
||
* <table>
|
||
* Funci¢n Reglas de Formateo del GET
|
||
* @A Permite solamente caracteres alfab‚ticos
|
||
* @B Los n£meros ser n justificados a la izquierda
|
||
* @C Todos los n£meros positivos ser n seguidos por CR
|
||
* @D Todas las fechas usar n el formato SET DATE
|
||
* @E Las fechas estar n en formato Brit nico y los n£meros
|
||
* en formato Europeo.
|
||
* @K Permite que un valor sugerido sea visto dentro del GET
|
||
* pero borrado si se presiona alguna tecla que no sea la
|
||
* de cursores cuando el cursor esta en la primera posici¢n
|
||
* en el rea del GET.
|
||
* @R Los caracteres que se indican ser n insertados
|
||
* @S<nSize> Permite el desplazamiento horizontal de un campo ¢
|
||
* variable que es de <nSize> caracteres de ancho.
|
||
* @X Todos los n£meros negativos ser n seguidos por DB
|
||
* @Z Visualiza los valores num‚ricos cero como blancos
|
||
* @! Fuerza la conversi¢n a may£sculas de los caracteres
|
||
* @( Visualiza los n£meros negativos en parentesis con
|
||
* espacios adelante
|
||
* @) Visualiza los n£meros negativos en parentesis sin
|
||
* espacios adelante
|
||
* </table>
|
||
* </fixed>
|
||
*
|
||
* <fixed>
|
||
* <table>
|
||
* Molde Reglas de Formateo del GET
|
||
* A S¢lo caracteres alfab‚ticos son permitidos
|
||
* N S¢lo caracteres alfab‚ticos y num‚ricos son permitidos
|
||
* X Cualquier caracter es permitido
|
||
* L S¢lo T ¢ F son permitidos para datos l¢gicos
|
||
* Y S¢lo Y ¢ N son permitidos para datos l¢gicos
|
||
* 9 S¢lo digitos, incluyendo signos ser n permitidos
|
||
* # S¢lo digitos, signos y espacios ser n permitidos
|
||
* ! Caracteres alfab‚ticos son convertidos a May£sculas
|
||
* S El signo Pesos ser visualizado en lugar de espacios, delante
|
||
* del tipo de dato num‚rico (aqui visto cmo una "S")
|
||
* * El signo Asterisco ser visualizado en lugar de espacios
|
||
* delante del tipo de dato num‚rico
|
||
* . Punto, define la posici¢n del punto decimal
|
||
* , Coma, define la posici¢n del separado de miles.
|
||
* </table>
|
||
* </fixed>
|
||
* Nota:
|
||
* Las funciones de formateo para PICTURE pueden ser agrupadas juntas
|
||
* cuando sean usandas conjuntamente con los moldes para PICTURE.
|
||
* Sin embargo un espacio en blanco debe ser insertado en la cadena de
|
||
* PICTURE si existen ambas: funciones y moldes.
|
||
* $EXAMPLES$
|
||
* FUNCTION Main()
|
||
* LOCAL cVar := Space(50)
|
||
* LOCAL nId := 0
|
||
* CLS
|
||
* @ 3,1 SAY "Nombre" GET cVar PICTURE "@!S 30"
|
||
* @ 4,1 SAY "Ident." GET nId PICTURE "999.999"
|
||
* READ
|
||
* ? "El nombre que Ud. ingres¢ es:", cVar
|
||
* ? "La Ident. que Ud. ingres¢ es:", nId
|
||
* RETURN NIL
|
||
* $TESTS$
|
||
* Ver ejemplos
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Este comando es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a asociada es rtl
|
||
* $SEEALSO$
|
||
* @...SAY,READ,TRANSFORM()
|
||
* $END$
|
||
*/
|
||
|
||
/* $DOC$
|
||
* $COMMANDNAME$
|
||
* @...SAY
|
||
* $CATEGORY$
|
||
* Comando
|
||
* $ONELINER$
|
||
* Visualiza datos en las coordenadas dadas en el dispositivo actual
|
||
* $SYNTAX$
|
||
* @ <nFila>,<nCol> SAY <xValor> [ PICTURE <cPict> ] [COLOR <cColor>]
|
||
* $ARGUMENTS$
|
||
* <nFila> La fila donde se visualiza el SAY
|
||
*
|
||
* <nCol> La columna donde se visualiza el SAY
|
||
*
|
||
* <xValor> Valor a visualizar
|
||
*
|
||
* <cPict> Formato para el PICTURE
|
||
*
|
||
* <cColor> Cadena de Color
|
||
* $RETURNS$
|
||
* Ninguno
|
||
* $DESCRIPTION$
|
||
* Este comando visualiza el contenido de <xValor> en las coordenadas
|
||
* <nFila>, <nCol>. Una cl usula PICTURE puede ser especificada en
|
||
* <cPict>. Si el dispositivo actual es establecido a la impresora, la
|
||
* salida ir a la impresora; Por defecto todas las salidas son
|
||
* dirigidas a la pantalla.
|
||
*
|
||
* Para una lista completa de los Moldes y Funciones para PICTURES, vea
|
||
* el comando @...GET
|
||
* $EXAMPLES$
|
||
* FUNCTION Main
|
||
* CLS
|
||
* @ 2,1 SAY "Harbour"
|
||
* @ 3,1 SAY "is" COLOR "b/r+"
|
||
* @ 4,1 SAY "Power" PICTURE "@!"
|
||
* RETURN NIL
|
||
* $TESTS$
|
||
* Ver ejemplos
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Este comando es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a asociada es rtl
|
||
* $SEEALSO$
|
||
* @...GET,SET DEVICE,TRANSFORM()
|
||
* $END$
|
||
*/
|
||
|
||
|