#!/bin/sh
cat << 'EEE' > /dev/null
/* fnf .... find file, find parser
 * Copyright (C) 2017-2019 Momi-g
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */
EEE

#	cmd='-h	bool 0
#	     -r	int	-1	
#	     -o	bool 0'
#	buf=`prsopt "$cmd"`
#	eval "$buf"
#	if [ $? -ne 0 ] ; then echo "$0: optErr. $OPTARG" >/dev/stderr ; exit 1; fi
#	

func_rdopt() {
	(
rdopt_fmt="$1"	#	":ab:c"	etc. format.
shift

#ck quiet mode
rdopt_quiet=1
rdopt_buf=${rdopt_fmt%%[!:]*}
if [ "$rdopt_buf" != ':' ] ; then
	rdopt_quiet=0
	rdopt_fmt=':'"$rdopt_fmt"
fi

#--inicialize	make list opt_a='', ...

#ab:c -> 'a' \n 'b' \n 'c' \n
rdopt_buf='s/://g
s/./&\
/g'
rdopt_zerolist=`echo "$rdopt_fmt" | sed -e "$rdopt_buf" | sed -e "
/^$/d
s/^/opt_/g
s/$/=''/g
" `

#--- local vars
# rdopt_fmt="$1"	#	":ab:c"		opt format
# rdopt_quiet=1
# rdopt_zerolist=`echo "$rdopt_fmt" | sed -e "$rdopt_buf" | sed -e "
# rdopt_buf='s/://g

rdopt_out=""
rdopt_opt=""
rdopt_skip=""
rdopt_err=""

rdopt_safe="
s#'#'\"'\"'#g
1 s/^/'/g
$ s/$/'/g"

#---getopts loop. break if all args read or detect '--'
while :
do
if [ 0 -eq "$#" ] || [ "$rdopt_err" = "1" ] ; then
	break
fi
if [ "$1" = "--" ] ; then
	shift ; break
fi

getopts "$rdopt_fmt" rdopt_opt "$@"	# ":a:bc:f:" etc...
# err detect@silent mode
# $?=1 ... detect optend or '--'. '--' is removed at previous line.
# ':' ... detect option, but dont have subargs (OPTARG="factor").
# '?' ... detect unsupported option char (OPTARG="factor") or args end (OPTARG="blank").
# OPTARG ... "" is optend. "a/b/c..." is invalid option 
# OPTIND ... if err, OPTIND indicates next (new) arg pos. 

if [ "$?" = "1" ] ; then 		# normal end (detect normal args). save general args.
	shift $((OPTIND - 1))
	if [ "$#" -eq "0" ] ; then
		break
	fi
	# new set make
	rdopt_buf=`printf '%s' "$1" | sed -e "$rdopt_safe"`
	rdopt_skip="$rdopt_skip $rdopt_buf"
	shift
	OPTIND=1
	continue
fi

if [ "$rdopt_opt" = "?" ] || [ "$rdopt_opt" = ":" ] ; then 	# detect invalid opt
	rdopt_err=1		#OPTARG has err option char.
	continue
fi

# normal. detect option.
if [ "$OPTARG" = "" ] ; then	# no subargs 
	rdopt_out="$rdopt_out
opt_$rdopt_opt"'=1'
else	# exist subargs 
rdopt_buf=`printf "%s\n" "$OPTARG" | sed -e "$rdopt_safe" `
	rdopt_out="$rdopt_out
opt_$rdopt_opt"'='"$rdopt_buf"
fi
done
# exit parse

if [ "$rdopt_err" = "1" ] ; then
	if [ "$rdopt_quiet" = "0" ] ; then
		rdopt_buf=${0##*/}
		echo "$rdopt_buf: invalid option. sleep. ( $OPTARG )" >/dev/stderr
		while :
		do
			sleep 1000
		done
	else
		rdopt_out="OPTARG=$OPTARG
OPTIND=1
test 1 = 0"
	fi
else

#	'--' end
	if [ "$#" != "0" ] ; then
	rdopt_buf=`cat << 'EEE'
for ii
do
	printf '%s' "$ii" | sed -e "
s#'#'\"'\"'#g
1 s/^/'/g
$ s/$/' /g"
done 
EEE
`
	rdopt_buf=`eval "$rdopt_buf"`
	rdopt_skip="$rdopt_skip $rdopt_buf"
	fi

	rdopt_out="OPTIND=1

$rdopt_zerolist
$rdopt_out
set -- $rdopt_skip
"
fi



printf '%s\n' "$rdopt_out"

# clean
OPTIND=1
rdopt_fmt=""
rdopt_quiet=""
rdopt_zerolist=""
rdopt_buf=""

rdopt_out=""
rdopt_opt=""
rdopt_skip=""
rdopt_err=""
rdopt_safe=""
)
OPTIND=1
}





buf=`func_rdopt "hr:oP" "$@"`
eval "$buf"
if [ $? -ne 0 ] ; then echo "$0: optErr. $OPTARG" >/dev/stderr ; exit 1; fi

if [ "$opt_h" = '1' ] ; then
cat << 'EEE'
HowTo (find file/directry)
option: -h(elp), -r(ecurse -1(dfl),0,1,2..), -o(ctal output)
------
ex.) ~$ fnf txt unko (-r -1)	#search files from ./ 
>>> ./unko___uh.txt	
    ./unko.txt
    ./unkotxt/
...show include 'txt' + 'unko' (fixed)string in filepath (not file name)
...recursive search (-1:non stop 0:pwd 1:pwd+next)
...directry(or directry link) is end with '/'.

ex.) ~$ fnf '/u' unko //uh
>>>	./unko.txt	>>>	'//' means 'not'. '/u' && 'unko' && !'uh'
... normal filepath probably should not contain '//'.	(./aaa//bbb/c.txt etc)

ex.) ~$ fnf txt unko -o
>>>	\001\004\123...	>>> printf '\001\004\123...'  ->  ./unko___uh.txt
	\111\333...
... output in octal number. You can safely handle filenames containing
 newlines and unicode characters. ("./aaa/bb\n\n\123  b/ccc.txt" etc)
EEE
exit 0
fi

#	-P縺ｮ繝�ヵ繧ｩ縺ｧ譎ｮ騾壹↓max縺､縺代※讀懃ｴ｢縲Ｕype l縺ｧ繧ｷ繝ｳ繝懊Μ繝�け繝ｪ繝ｳ繧ｯ繧呈爾縺怜�縺励※鬆ｭ縺ｫ//0縺ｿ縺溘＞縺ｪ
#	繝輔Λ繧ｰ繧偵▽縺代※蜀肴､懃ｴ｢縺輔○繧九→縺九€Ｎaxdepth縺御ｽｿ縺医�繝ｼ縲ょｾｮ螯吶□縲らｬｬ荳€髫主ｱ､縲∫ｬｬ莠碁嚴螻､縺｣縺ｦ諢溘§縺ｫ
#	讀懃ｴ｢縺輔○縺ｦ繧ｹ繝ｩ繝�す繝･繧ｫ繧ｦ繝ｳ繝�purne縺ｧ縺ｶ縺｣縺｡縺弱ｋ縺ｨ縺九€Ｍoop蟇ｾ遲悶′縺ｩ繝ｼ繧茨ｼ�
#	find縺ｯ繝代ち繝ｼ繝ｳ縺後す繧ｧ繝ｫ繝代ち繝ｼ繝ｳ縺ｪ縺ｮ縺ｧ縲√◎縺ｮ縺ｸ繧薙ｂ縲�-path縺ｧ繝代せ蛛･菴懊↓縺ｪ繧�
#	find . -path ./src/emacs -prune -o -print
#	find縺ｯ遒ｺ蝗ｺ,-o -a縺ｨ蜷ｦ螳壹�縺ｿ隕冗ｨ九€�
#	find . -path '*/*/*' -prune



find -print0 --version >/dev/null 2>&1
if [ "$?" = "0" ] && [ "$opt_P" != "1" ]; then
	echo "// (stderr info) detect gnu-find. use fastmode." >/dev/stderr
	gnumode=1
fi


if [ "$opt_r" != "-1" ] && [ "$opt_r" != "" ] ; then
	ptn='*/*/*'		#>> pwd縺ｯ/荳€縺､縺�縺代€�//縺ｯ繧ｵ繝悶ョ繧｣繝ｬ繧ｯ繝医Μ縲�///縺ｯ繧ｵ繝悶し繝悶€�
	for ii in `seq 1 $opt_r `
	do
		ptn="$ptn"'/*'
	done
else
	ptn='*//*'	# 蝓ｺ譛ｬ逧�↓//繧貞性繧€繝輔ぃ繧､繝ｫ縺ｯ蟄伜惠縺怜ｾ励↑縺�€ゅヵ繧｡繧､繝ｫ蜷阪↓\000縺ｨ/縺ｯ菴ｿ縺医↑縺�◆繧√€�
#	null_hit縺ｧ譫晏�繧翫ｒ髦ｲ縺舌€�
fi
# maxdepth縺掲ind縺ｧ菴ｿ縺医↑縺��縺ｧ莉｣譖ｿ縲Ｑosix.

outstr='cat -'
if [ "$opt_o" != "1" ] ; then
	outstr='while read -r aa
do
	printf "$aa"
	echo
done'
fi
#	syscall繧ｪ繝ｼ繝舌�繝倥ャ繝峨′驥阪＞縺代←縲∥wk縺ｨ縺菊val菴ｿ縺医↑縺�＠縲�%b繧ゅす繧ｧ繝ｫ縺�縺代□縺励€�
#	printf閾ｪ菴薙�built-in縺�縺九ｉ縲∬�蜻ｽ逧�↓驕�＞
#	縺｣縺ｦ縺ｻ縺ｩ縺倥ｃ縺ｪ縺�€Ｂwk縺ｫ豈斐∋縺溘ｉ500%繝励Λ繧ｹ縺｣縺ｦ縺ｨ縺薙€� awk 10ms -> while print 50ms


# 20ms






# 蝗ｺ螳壽枚蟄玲､懃ｴ｢縺ｮ縺ｿ縺ｫ邨槭ｋ縲よ､懃ｴ｢譁�ｭ励ｂ逕溘□縺ｨ謇ｱ縺�↓縺上＞縺ｮ縺ｧ8騾ｲ縺ｫ縺励→縺上€�
buf=`for ii in "$@"
do
	printf '%s\000' "$ii"
done | od -An -to1 -w16 -v | tr -d '\n' | sed -e 's# 000#@#g' | tr ' ' 'o' | tr '@' '\n' `

filter=""
for ii in $buf
do
	buf=${ii#o057o057}	# //bbb 縺ｿ縺溘＞縺ｪ'//'莉倥″譁�ｭ怜�縺ｯ蜷ｦ螳壹€Ｏot.
	if [ "$buf" != "$ii" ] ; then
		filter="$filter
/$buf/ d"
	else
		filter="$filter
/$buf/ ! d"
	fi
done
filter="sed -e '$filter'"
# echo "$filter"
# exit

#	sed -e '
#	/o141o141/ ! d
#	/o163o163/ ! d
#	/o144o144/ d'

#	sed -e ''


# ---main
# -L縺ｯtype縺ｧ繝輔か繝ｫ繝€邉ｻ縺ｮ陦ｨ遉ｺ縺ｮ蟆ｻ蟆ｾ縺ｫ/繧貞愛蛻･縺吶ｋ縺ｨ縺阪€‥ir繝ｪ繝ｳ繧ｯ譎ゅ↓諠��ｱ縺梧ｬｲ縺励＞縺ｮ縺ｧ縲�
# . 縺ｨ./縺ｧ豺ｷ蝨ｨ縺励※繧九€ょ､峨€Ｍs縺ｯ--indi縺ｧ/謖�ｮ壹〒縺阪ｋ縺代←縲’ind縺ｫ縺ｯ縺ｪ縺�€�
# -L ./ 縺ｨ -L .縺ｧ驕輔≧縲ゅヰ繧ｰ縺｣縺ｦ縺ｻ縺ｩ縺倥ｃ縺ｪ縺�￠縺ｩ豕ｨ諢上′蠢�ｦ√€�
# echo "$ptn"
# exit

# -exec縺碁≦縺�∩縺溘＞縲�20ms -> 800ms

# 20ms time find -L ./ -path "@@" -prune -o -print
# 700ms time find -L ./ -path "@@" -prune -o -exec printf '%s\n' '{}' ';'
# syscall縺碁≦縺�°繧�//繧剃ｽｿ縺｣縺ｦ菴輔→縺九〒縺阪ｓ縺九€�...辟｡逅�€ょ�蜉帙☆繧区婿豕輔′縺ｪ縺�€�
# exec縺ｧ縺ｾ縺ｨ繧√ｉ繧後※縺励∪縺｣縺ｦ繧九€Ｈnu縺ｨ繧ｹ繧､繝�メ縺九↑縲�


# gnu can use -printf ... fast output(40ms)
if [ "$gnumode" = "1" ] ; then
	cmd=`cat << 'EEE'
find -L ./ -path "$ptn" -prune \
-o -type d -a '!' -path '*/' -a -printf '%p/\000' \
-o -printf '%p\000'
EEE
`

else	# posix & syscall. slow. 800ms
	cmd=`cat << 'EEE'
find -L ./ -path "$ptn" -prune \
-o -type d -a '!' -path '*/' -a -exec printf '%s/\000' '{}' ';' \
-o -exec printf '%s\000' '{}' ';'
EEE
`

fi


eval "$cmd" |
	od -An -to1 -w16 -v | sed -e 's# 000#@#g' | tr -d '\n' | 
	tr ' ' 'o' | tr '@' '\n' | eval "$filter" | tr 'o' '\134' | eval "$outstr"

#	. 繝代せ縺九ｉ謗｢縺怜�縺励◆荳€縺､荳€縺､縺ｮ繝輔ぃ繧､繝ｫ縺ｫ螟ｧ縺励※
#	pathname縺継tn縺ｫ荳€閾ｴ縺励◆繧画升繧翫▽縺ｶ縺吶€ゅ◎縺ｮ蜈医�繝輔か繝ｫ繝€繧りｦ九↑縺九▲縺溘％縺ｨ縺ｫ縺輔ｌ繧九€�(prune)
#	-o or. 謠｡繧翫▽縺ｶ縺輔ｌ縺ｪ縺九▲縺溽函縺肴ｮ九ｊ縺ｫ蟇ｾ縺励※
#	-o type d 蟇ｾ雎｡繝輔ぃ繧､繝ｫ蜷阪′繝�ぅ繝ｬ繧ｯ繝医Μ縺九▽(-a) path蜷阪′/縺ｧ邨ゅｏ縺｣縺ｦ縺ｪ縺�(!...蜷ｦ螳�)
#	縺ｮ縺ｪ繧峨�縲＋}/\000繧貞�蜉帙€りｿ斐ｊ蛟､縺ｯ縺薙％縺ｧtrue縺ｪ縺ｮ縺ｧ蠕後ｍ縺ｮ隧穂ｾ｡縺ｯ繧ｹ繧ｭ繝��縺輔ｌ繧九€�
#	-o 荳翫′螟ｱ謨励€√▽縺ｾ繧翫ョ繧｣繝ｬ繧ｯ繝医Μ縺ｨ縺九§繧�↑縺��縺ｪ繧峨�{}\000繧貞�蜉帙€�
#	-o縺ｯelse縺ｫ霑代＞縲�
#	
#	遲我ｾ｡繧ｳ繝ｼ繝�
#	loop:
#	
#	mode=read_linkend_data();		(-L)
#	obj=search(dir);
#	
#	if (pathname == $ptn ){		ptn縺ｯ繧ｷ繧ｧ繝ｫ繝代ち繝ｼ繝ｳ. */縺ｨ縺�??123*/縺ｨ縺九€�
#		next
#	} else if (obj==dir && pathname != '*/') {
#		printf obj + '/' + '\000'
#		next
#	} else {
#		printf obj + '\000'
#		next
#	}
#	loopend
#