245 lines
6.3 KiB
Plaintext
245 lines
6.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* Copyright 2000 Chen Kedem <niki@actcom.co.il>
|
|
* Documentation for: TONE()
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* OS()
|
|
* $ONELINER$
|
|
* Return the current operating system.
|
|
* $SYNTAX$
|
|
* OS() --> <cOperatingSystem>
|
|
* $CATEGORY$
|
|
* DOS
|
|
* $RETURNS$
|
|
* <cOperatinSystem> The Current operating system.
|
|
* $DESCRIPTION$
|
|
* This function will return the current operating system.
|
|
* $EXAMPLES$
|
|
* ? OS()
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* This function is CA-Clipper compatible.
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* source/rtl/version.c
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* VERSION()
|
|
* $CATEGORY$
|
|
* Environment
|
|
* $ONELINER$
|
|
* Returns the HARBOUR Version or the Harbour/Compiler Version.
|
|
* $SYNTAX$
|
|
* VERSION() --> <cReturn>
|
|
* $ARGUMENTS$
|
|
* None
|
|
* $RETURNS$
|
|
* <cReturn> String containing the Harbour Version
|
|
* $DESCRIPTION$
|
|
* This function returns the current Harbour Version.
|
|
* $EXAMPLES$
|
|
* ? QOUT(VERSION())
|
|
* "Harbour Terminal: Standard stream console"
|
|
*
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* S
|
|
* $COMPLIANCE$
|
|
* This function is Ca-Clipper compatible.
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* source/rtl/version.c
|
|
* Library is rtl
|
|
* $SEEALSO$
|
|
* OS()
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* GETENV()
|
|
* $CATEGORY$
|
|
* Environment
|
|
* $ONELINER$
|
|
* Obtains system environmental settings.
|
|
* $SYNTAX$
|
|
* GETENV(<cEnviroment>, <cDefaultValue> ) --> <cReturn>
|
|
* $ARGUMENTS$
|
|
* <cEnviroment> Enviromental variable to obtain.
|
|
*
|
|
* <cDefaultValue> Optional value to return if <cEnvironment> is not found.
|
|
* $RETURNS$
|
|
* <cReturn> Value of the Environment Variable.
|
|
* $DESCRIPTION$
|
|
* This function yields a string that is the value of the
|
|
* environment variable <cEnviroment>, which is stored at the
|
|
* system level with the Set command. If no environment variable
|
|
* can be found, the value of the function will be <cDefaultValue>
|
|
* if it is passed, else an empty string.
|
|
* $EXAMPLES$
|
|
* ? QOUT(GETENV('PATH'))
|
|
* ? QOUT(GETENV('CONFIG'))
|
|
* ? QOUT(GETENV('HARBOURCMD', '-n -l -es2'))
|
|
* </fixed>
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* This command is Ca-Clipper compliant.
|
|
* The <cDefaultValue> parameter is a Harbour extension.
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* source/rtl/gete.c
|
|
* Library is rtl
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* __RUN()
|
|
* $CATEGORY$
|
|
* DOS
|
|
* $ONELINER$
|
|
* Run an external program.
|
|
* $SYNTAX$
|
|
* __RUN( <cCommand> )
|
|
* $ARGUMENTS$
|
|
* <cCommand> Command to execute.
|
|
* $DESCRIPTION$
|
|
* This command runs an external program. Please make sure that
|
|
* you have enough free memory to be able to run the external
|
|
* program. Do not use it to run Terminate and Stay Resident programs
|
|
* (in case of DOS) since that causes several problems.
|
|
*
|
|
* Note: This function is what the RUN command preprocesses into.
|
|
* It is considered bad form to use this function directly.
|
|
* Use the RUN command instead.
|
|
* $EXAMPLES$
|
|
* __Run( "edit " + cMyTextFile ) // Runs an external editor
|
|
* __Run( "command" ) // Gives a DOS shell (DOS only)
|
|
* </fixed>
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* This function is Ca-Clipper compliant.
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* source/rtl/run.c
|
|
* Library is rtl
|
|
* $SEEALSO$
|
|
* RUN
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* TONE()
|
|
* $CATEGORY$
|
|
* Miscellaneous
|
|
* $ONELINER$
|
|
* Sound a tone with a specified frequency and duration.
|
|
* $SYNTAX$
|
|
* TONE( <nFrequency>, <nDuration> ) --> NIL
|
|
* $ARGUMENTS$
|
|
* <nFrequency> A non-negative numeric value that specifies the
|
|
* frequency of the tone in hertz.
|
|
*
|
|
* <nDuration> A positive numeric value which specifies the duration
|
|
* of the tone in 1/18 of a second units.
|
|
* $RETURNS$
|
|
* TONE() always returns NIL.
|
|
* $DESCRIPTION$
|
|
* TONE() is a sound function that could be used to irritate the end
|
|
* user, his or her dog, and the surrounding neighborhood. The frequency
|
|
* is clamped to the range 0 to 32767 Hz.
|
|
* $EXAMPLES$
|
|
* If lOk // Good Sound
|
|
* TONE( 500, 1 )
|
|
* TONE( 4000, 1 )
|
|
* TONE( 2500, 1 )
|
|
* Else // Bad Sound
|
|
* TONE( 300, 1 )
|
|
* TONE( 499, 5 )
|
|
* TONE( 700, 5 )
|
|
* EndIf
|
|
* </fixed>
|
|
* $TESTS$
|
|
* TONE( 800, 1 ) // same as ? CHR(7)
|
|
* TONE( 32000, 200 ) // any dogs around yet?
|
|
* TONE( 130.80, 1 ) // musical note - C
|
|
* TONE( 400, 0 ) // short beep
|
|
* TONE( 700 ) // short beep
|
|
* TONE( 10, 18.2 ) // 1 second delay
|
|
* TONE( -1 ) // 1/18.2 second delay
|
|
* TONE( ) // 1/18.2 second delay
|
|
* </fixed>
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* S
|
|
* $COMPLIANCE$
|
|
* TONE() works exactly like CA-Clipper's TONE().
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* Library is rtl
|
|
* $SEEALSO$
|
|
* CHR(),SET BELL
|
|
* $END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* RUN
|
|
* $CATEGORY$
|
|
* Command
|
|
* $ONELINER$
|
|
* Run an external program.
|
|
* $SYNTAX$
|
|
* RUN <cCommand>
|
|
* $ARGUMENTS$
|
|
* <cCommand> Command to execute.
|
|
* $DESCRIPTION$
|
|
* This command runs an external program. Please make sure that you have
|
|
* enough free memory to be able to run the external program.
|
|
* Do not use it to run Terminate and Stay Resident programs
|
|
* (in case of DOS) since that causes several problems.
|
|
* $EXAMPLES$
|
|
* Run "edit " + cMyTextFile // Runs an external editor
|
|
* Run "command" // Gives a DOS shell (DOS only)
|
|
* $TESTS$
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* This command is Ca-Clipper compliant.
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* source/rtl/run.c
|
|
* Library is rtl
|
|
* $SEEALSO$
|
|
* RUN
|
|
* $END$
|
|
*/
|