crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro-describe: remove use of -J from xargs as it is not supported by GNU

Browse source 
FossilOrigin-Name: b7c7e29a709ec6621782b64302f3e8a92f806bf9f8f73b69e8d2bdf54ef8c0d0
This commit is contained in:
crc 2020-10-15 18:44:14 +00:00
parent e9645e90b0
commit 33118ff158
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/retro-document.sh
View file

@ -9,13 +9,11 @@
#
# - retro
# - retro-describe
# - retro-unu
#
# Usage:
#
# ./describe sourcefile
# Extract | Split | Strip Blanks | Sort | Filter | Terminate | Generate | Strip Blanks
retro-unu $1 | tr " " "\n" | sed '/^[[:space:]]*$/d' | grep -Ev "^[\\\^\.\"\@\!\$\`:&'#$.\(\|]" | sort | uniq | tr "\n" "\0" | xargs -0 -J % retro-describe | cat -s
# Extract | Split | Strip Blanks | Get first | Sort | Filter | Find Prefixes | Generate word names | Terminate | Generate | Strip Blanks
retro-unu $1 | tr " " "\n" | sed '/^[[:space:]]*$/d' | cut -c1-1 | sort | uniq | grep "[\\\^\.\"\@\!\$\`:&'#$.\(\|]" | sed 's/^/prefix:/' | tr "\n" "\0" | xargs -0 -J % retro-describe | cat -s
retro-unu $1 | tr " " "\n" | sed '/^[[:space:]]*$/d' | grep -Ev "^[\\\^\.\"\@\!\$\`:&'#$.\(\|]" | sort | uniq | tr "\n" "\0" | xargs -0 retro-describe | cat -s
retro-unu $1 | tr " " "\n" | sed '/^[[:space:]]*$/d' | cut -c1-1 | sort | uniq | grep "[\\\^\.\"\@\!\$\`:&'#$.\(\|]" | sed 's/^/prefix:/' | tr "\n" "\0" | xargs -0 retro-describe | cat -s