#!/usr/bin/env bash
#
# Usage:
#   ./refactor.sh <function name>

set -o nounset
set -o pipefail
set -o errexit

proc replace {
  #sed -r -i 's/UNDEFINED_(.*)/Id.UNDEFINED_\1/g' */*.py

  #sed -r -i 's/UNDEFINED_TOK/Id.UNDEFINED_Tok/g' */*.py

  #sed -r -i 's/UNKNOWN_TOK/Id.UNKNOWN_Tok/g' */*.py

  # http://stackoverflow.com/questions/1538676/uppercasing-first-letter-of-words-using-sed
  # http://stackoverflow.com/questions/4569825/sed-one-liner-to-convert-all-uppercase-to-lowercase
  # GNU extension: \u next character of match

  # Finally, as a GNU `sed' extension, you can include a special sequence made
  # of a backslash and one of the letters `L', `l', `U', `u', or `E'.  The
  # meaning is as follows:
 
  # First make it all lower case
  sed -r -i 's/Eof_([A-Z]+)/Id.Eof_\L\1/g' */*.py

  # Now make the first one upper case
  sed -r -i 's/Eof_([a-zA-Z]+)/Eof_\u\1/g' */*.py
}

# TODO:
# Rparen -> RParen, Dgreat -> DGreat, Colon_Hyphen -> ColonHyphen, etc.
# IGNORED_LINECONT -> IGNORED_LineCont

# LIT -> Lit
# LEFT -> Left
# LEFT -> Left

# VS -> VSub
# VS_TEST VTest
# VS_UNARY VUnary 
# VS_OP VOp
# 


proc change-kind {
  var kind = $1
  var kind2 = $(2:-$kind)

  # First make it all lower case
  sed -r -i "s/$(kind)_([A-Z]+)/Id.$(kind2)_\\L\\1/g" */*.py

  # Now make the first one upper case
  sed -r -i "s/$(kind)_([a-zA-Z]+)/$(kind2)_\\u\\1/g" */*.py
}

proc k2 {
  var kind = $1
  var lower = $(kind,,)

  var title = $(lower^)
  var replace = $(2:-$title)

  sed -r -i "s/Id.$(kind)_/Id.$(replace)_/g" */*.py
  sed -r -i "s/TokenKind.$(kind)/TokenKind.$(replace)/g" */*.py
}

proc replace {
  var file = $1

  while read pat replace {
    sed -r -i "s/$(pat)/$(replace)/g" */*.py
  } < $file
}

proc trailing-ws {
  sed -r -i 's/[ ]+$//g' @Argv
}

@Argv
(CommandList
  children: [
    (C {(set)} {(-o)} {(nounset)})
    (C {(set)} {(-o)} {(pipefail)})
    (C {(set)} {(-o)} {(errexit)})
    (FuncDef
      name: replace
      body: 
        (BraceGroup
          children: [
            (C {(sed)} {(-r)} {(-i)} {(SQ <"s/Eof_([A-Z]+)/Id.Eof_\\L\\1/g">)} 
              {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
            (C {(sed)} {(-r)} {(-i)} {(SQ <"s/Eof_([a-zA-Z]+)/Eof_\\u\\1/g">)} 
              {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
          ]
          spids: [36]
        )
      spids: [32 35]
    )
    (FuncDef
      name: change-kind
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:kind)
                  op: Equal
                  rhs: {($ VSub_Number "$1")}
                  spids: [170]
                )
              ]
              spids: [168]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:kind2)
                  op: Equal
                  rhs: 
                    {
                      (BracedVarSub
                        token: <VSub_Number 2>
                        suffix_op: 
                          (StringUnary
                            op_id: VTest_ColonHyphen
                            arg_word: {($ VSub_Name "$kind")}
                          )
                        spids: [177 181]
                      )
                    }
                  spids: [176]
                )
              ]
              spids: [174]
            )
            (C {(sed)} {(-r)} {(-i)} 
              {
                (DQ (s/) (${ VSub_Name kind) ("_([A-Z]+)/Id.") (${ VSub_Name kind2) (_) 
                  (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (L) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (1/g)
                )
              } {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
            (C {(sed)} {(-r)} {(-i)} 
              {
                (DQ (s/) (${ VSub_Name kind) ("_([a-zA-Z]+)/") (${ VSub_Name kind2) (_) 
                  (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (u) (EscapedLiteralPart token:<Lit_EscapedChar "\\\\">) (1/g)
                )
              } {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
          ]
          spids: [165]
        )
      spids: [161 164]
    )
    (FuncDef
      name: k2
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:kind)
                  op: Equal
                  rhs: {($ VSub_Number "$1")}
                  spids: [261]
                )
              ]
              spids: [259]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:lower)
                  op: Equal
                  rhs: 
                    {
                      (BracedVarSub
                        token: <VSub_Name kind>
                        suffix_op: (StringUnary op_id:VOp1_DComma arg_word:{})
                        spids: [268 271]
                      )
                    }
                  spids: [267]
                )
              ]
              spids: [265]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:title)
                  op: Equal
                  rhs: 
                    {
                      (BracedVarSub
                        token: <VSub_Name lower>
                        suffix_op: (StringUnary op_id:VOp1_Caret arg_word:{})
                        spids: [278 281]
                      )
                    }
                  spids: [277]
                )
              ]
              spids: [275]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:replace)
                  op: Equal
                  rhs: 
                    {
                      (BracedVarSub
                        token: <VSub_Number 2>
                        suffix_op: 
                          (StringUnary
                            op_id: VTest_ColonHyphen
                            arg_word: {($ VSub_Name "$title")}
                          )
                        spids: [287 291]
                      )
                    }
                  spids: [286]
                )
              ]
              spids: [284]
            )
            (C {(sed)} {(-r)} {(-i)} 
              {(DQ (s/Id.) (${ VSub_Name kind) (_/Id.) (${ VSub_Name replace) (_/g))} {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
            (C {(sed)} {(-r)} {(-i)} 
              {(DQ (s/TokenKind.) (${ VSub_Name kind) (/TokenKind.) (${ VSub_Name replace) (/g))} {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
            )
          ]
          spids: [256]
        )
      spids: [252 255]
    )
    (FuncDef
      name: replace
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:file)
                  op: Equal
                  rhs: {($ VSub_Number "$1")}
                  spids: [354]
                )
              ]
              spids: [352]
            )
            (While
              cond: [(Sentence child:(C {(read)} {(pat)} {(replace)}) terminator:<Op_Semi ";">)]
              body: 
                (DoGroup
                  children: [
                    (C {(sed)} {(-r)} {(-i)} 
                      {(DQ (s/) (${ VSub_Name pat) (/) (${ VSub_Name replace) (/g))} {(Lit_Other "*") (/) (Lit_Other "*") (.py)}
                    )
                  ]
                  spids: [368 395]
                )
              redirects: [(Redir op_id:Redir_Less fd:-1 arg_word:{($ VSub_Name "$file")} spids:[397])]
            )
          ]
          spids: [349]
        )
      spids: [345 348]
    )
    (FuncDef
      name: trailing-ws
      body: 
        (BraceGroup
          children: [(C {(sed)} {(-r)} {(-i)} {(SQ <"s/[ ]+$//g">)} {(DQ ($ VSub_At "$@"))})]
          spids: [408]
        )
      spids: [404 407]
    )
    (C {(DQ ($ VSub_At "$@"))})
  ]
)