#!/bin/sh

# report text files with CRLF terminators (anywhere in the file)

# License: LGPLv2

find '(' -type d -a '(' -name '.git' -o -name '.svn' -o -name 'CVS' ')'  ')' -prune -o \
     '(' -type f -print0 ')' |
xargs -r0 file |
env LANG=C grep -F "text, with CRLF" |
cut -d: -f1
(CommandList
  children: [
    (Pipeline
      children: [
        (C {(find)} {(EscapedLiteralPart token:<Lit_EscapedChar "\\(">)} {(-type)} {(d)} {(-a)} 
          {(EscapedLiteralPart token:<Lit_EscapedChar "\\(">)} {(-name)} {(SQ <.git>)} {(-o)} {(-name)} {(SQ <.svn>)} {(-o)} {(-name)} {(SQ <CVS>)} 
          {(EscapedLiteralPart token:<Lit_EscapedChar "\\)">)} {(EscapedLiteralPart token:<Lit_EscapedChar "\\)">)} {(-prune)} {(-o)} 
          {(EscapedLiteralPart token:<Lit_EscapedChar "\\(">)} {(-type)} {(f)} {(-print0)} {(EscapedLiteralPart token:<Lit_EscapedChar "\\)">)}
        )
        (C {(xargs)} {(-r0)} {(file)})
        (SimpleCommand
          words: [{(grep)} {(-F)} {(DQ ("text, with CRLF"))}]
          more_env: [(env_pair name:LANG val:{(C)} spids:[76])]
        )
        (C {(cut)} {(-d) (Lit_Other ":")} {(-f1)})
      ]
      negated: False
    )
  ]
)