9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
21 lines
429 B
Plaintext
21 lines
429 B
Plaintext
|
|
#require "hbnf"
|
|
|
|
PROCEDURE Main( cCk, cStr, nOcc, xCase )
|
|
|
|
LOCAL nFind
|
|
|
|
IF PCount() != 4
|
|
? "usage: findith cCk cStr nOcc xCase"
|
|
ELSE
|
|
xCase := iif( xCase == "Y", .T., .F. )
|
|
nOcc := Val( nOcc )
|
|
? iif( xCase, "Ignoring ", "Observing " ) + "case:"
|
|
|
|
? cStr
|
|
nFind := ft_FindITh( cCk, cStr, nOcc, xCase )
|
|
? iif( nFind > 0, Space( nFind - 1 ) + "^", "Not found" )
|
|
ENDIF
|
|
|
|
RETURN
|