53bf2585ca
* contrib/hbnf/scancode.prg
* contrib/hbnf/vidmode.prg
* contrib/hbnf/miltime.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/mouse1.prg
* contrib/hbnf/settime.prg
* contrib/hbnf/page.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/min2dhm.prg
* contrib/hbnf/dosver.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/woy.prg
* contrib/hbnf/setdate.prg
* contrib/hbnf/linked.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/dectobin.prg
* contrib/hbnf/aemaxlen.prg
* contrib/hbnf/nwlstat.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/pickday.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/easter.prg
* contrib/hbnf/aeminlen.prg
* contrib/hbnf/pchr.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/calendar.prg
* contrib/hbnf/elapsed.prg
* contrib/hbnf/aading.prg
* examples/hbvpdf/hbvpdf.prg
* examples/hbvpdf/hbvpdft.prg
* examples/gtwvw/tests/prog1.prg
* examples/gtwvw/tests/prog2.prg
* examples/gtwvw/tests/wvwtest9.prg
* examples/gtwvw/tests/ebtest7.prg
* examples/gtwvw/tests/prog0.prg
! eliminated most (if not all) ' = ' operators
some minor compatibility notes added to NF
(NF being buggy by behaving inconsistently
due to _SET_EXACT setting)
91 lines
3.0 KiB
Plaintext
91 lines
3.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: linked.prg
|
|
* Author....: Brian Loesgen
|
|
* CIS ID....: 74326,1174
|
|
*
|
|
* This is an original work by Brian Loesgen and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:05:52 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:52:08 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 13 Jun 1991 15:21:26 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
#ifdef FT_TEST
|
|
|
|
FUNCTION Main
|
|
LOCAL cString
|
|
LOCAL aString := { "TRIM('abc ')", ;
|
|
"NotARealFunc()", ;
|
|
"FT_DispMsg()", ;
|
|
'TRIM(cVar+"abc"+LEFT(cString)), FOUND()', ;
|
|
"IsItLinked()", ;
|
|
"lRetVal := FOUND()", ;
|
|
"!EOF() .AND. MONTH(DATE())=12 .AND. YeeHa()", ;
|
|
"!EOF() .AND. MONTH(DATE())=12", ;
|
|
"!EOF() .AND. MONTH(DATE(YeeHa()))=12", ;
|
|
"LEFT(SUBSTR(nNum,4,VAL(cChar+ASC(c))))", ;
|
|
"EOF(>> Note: Syntax IS NOT checked! <<)" ;
|
|
}
|
|
CLS
|
|
@1,0 SAY "String Tested Result"
|
|
@2,0 TO 2,MAXCOL()
|
|
AEVAL(aString, {|ele,num| QOUT(ele, SPACE(45-LEN(ele)), FT_Linked(ele)) } )
|
|
@MAXROW()-2,0
|
|
RETURN NIL
|
|
|
|
#endif
|
|
|
|
*------------------------------------------------
|
|
|
|
FUNCTION FT_Linked( cFuncs )
|
|
|
|
// A function is detected by the left parenthesis, "(", and it begins
|
|
// at the space, comma or start-of-string preceeding the "("
|
|
|
|
// Returns: .T. if all functions are available,
|
|
// .F. if not
|
|
|
|
LOCAL aFuncArray := {}, nSpace, nComma, nFEnd, lRetVal := .F.
|
|
|
|
IF AT("(",cFuncs) == 0
|
|
// No functions in string
|
|
ALERT("Warning: Expected function(s) in FT_Linked(), but none were found")
|
|
ELSE
|
|
DO WHILE (nFEnd := AT("(",cFuncs)) > 0
|
|
// Add the current function to the array of functions
|
|
AADD( aFuncArray,LEFT(cFuncs,nFEnd)+")" )
|
|
// Remove the current function from the string
|
|
cFuncs := SUBSTR(cFuncs, nFEnd+1)
|
|
nSpace := AT(" ",cFuncs) ; nComma := AT(",",cFuncs)
|
|
DO WHILE (nComma > 0 .and. nComma < nFEnd) .or. ;
|
|
(nSpace > 0 .and. nSpace < nFEnd)
|
|
// We have extra parameters or spaces prior to the start
|
|
// of the function. Strip them out.
|
|
if nComma > 0
|
|
cFuncs := SUBSTR(cFuncs, nComma+1)
|
|
elseif nSpace > 0
|
|
cFuncs := SUBSTR(cFuncs, nSpace+1)
|
|
endif
|
|
nSpace := AT(" ", cFuncs) ; nComma := AT(",", cFuncs)
|
|
ENDDO
|
|
ENDDO
|
|
// Scan through the array of functions, stop after the first occurence
|
|
// of a function which returns a TYPE() of "U" (hence is not linked in)
|
|
lRetVal := ASCAN(aFuncArray,{|element| TYPE(element)=="U"})=0
|
|
ENDIF
|
|
RETURN( lRetVal )
|