#!/bin/bash
#
# Usage:
#   ./run.sh <function name>

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

proc download {
  wget 'http://lists.gnu.org/archive/html/bug-bash/2001-02/msg00054.html'
}

proc unescape {
  #sed -i 's/&quot;/"/g' shasm.sh
  #sed -i 's/&gt;/>/g' shasm.sh
  sed -i 's/&amp;/\&/g' shasm.sh
}

@Argv
(CommandList
  children: [
    (C {(set)} {(-o)} {(nounset)})
    (C {(set)} {(-o)} {(pipefail)})
    (C {(set)} {(-o)} {(errexit)})
    (FuncDef
      name: download
      body: 
        (BraceGroup
          children: [
            (C {(wget)} {(SQ <"http://lists.gnu.org/archive/html/bug-bash/2001-02/msg00054.html">)})
          ]
          spids: [36]
        )
      spids: [32 35]
    )
    (FuncDef
      name: unescape
      body: 
        (BraceGroup
          children: [(C {(sed)} {(-i)} {(SQ <"s/&amp;/\\&/g">)} {(shasm.sh)})]
          spids: [52]
        )
      spids: [48 51]
    )
    (C {(DQ ($ VSub_At "$@"))})
  ]
)