fixed comments breaking the parser

examples/surround_plugin.sh

@@ -0,0 +1,140 @@
+_get_surround_target() {
+	read_key -v _s_ch
+	case "$_s_ch" in
+	  \(|\)) _sl='('; _sr=')' ;;
+	  \[|\]) _sl='['; _sr=']' ;;
+	  \{|\}) _sl='{'; _sr='}' ;;
+	  \<|\>) _sl='<'; _sr='>' ;;
+	  *) _sl="$_s_ch"; _sr="$_s_ch" ;;
+	esac
+
+}
+_read_obj() {
+	_obj=""
+	while read_key -v key; do
+	  if [[ "${#_obj}" -ge 3 ]]; then return 1; fi
+	  case "$key" in
+	    i|a)
+	      if [ -n "$_obj" ]; then return 1; fi
+	      _obj="$key"
+	      ;;
+	    b|e)
+	      if [ -n "$_obj" ]; then return 1; fi
+	      _obj="$key"
+	      break
+	      ;;
+	    w|W)
+	      _obj="$_obj$key"
+	      break
+	      ;;
+	    f|F)
+	      read_key -v char
+	      _obj="$key$char"
+	      break
+	    ;;
+	    \(|\)|\[|\]|\{|\}|\"|\')
+	      if [ -z "$_obj" ]; then return 1; fi
+	      _obj="$_obj$key"
+	      break
+	      ;;
+	  esac
+	done
+
+}
+_scan_left() {
+	local needle="$1"
+	local haystack="$2"
+	local i=$((${#haystack} - 1))
+
+
+	while [ "$i" -ge 0 ]; do
+	  ch="${haystack:$i:1}"
+	  if [ "$ch" = "$needle" ]; then
+	    left=$i
+	    return 0
+	  fi
+	  i=$((i - 1))
+	done
+
+	return 1
+
+}
+_scan_right() {
+	local needle="$1"
+	local haystack="$2"
+	local i=0
+
+
+	while [ "$i" -lt "${#haystack}" ]; do
+	  ch="${haystack:$i:1}"
+	  if [ "$ch" = "$needle" ]; then
+	    right="$i"
+	    return 0
+	  fi
+	  i=$((i + 1))
+	done
+
+	return 1
+
+}
+_surround_1() {
+	local _obj
+	_read_obj
+	_get_surround_target
+	_KEYS="v$_obj"
+
+}
+_surround_2() {
+	local start
+	local end
+	if [ "$_ANCHOR" -lt "$_CURSOR" ]; then
+	  start=$_ANCHOR
+	  end=$_CURSOR
+	else
+	  start=$_CURSOR
+	  end=$_ANCHOR
+	fi
+	end=$((end + 1))
+
+	delta=$((end - start))
+
+	left="${_BUFFER:0:$start}"
+	mid="${_BUFFER:$start:$delta}"
+	right="${_BUFFER:$end}"
+	_BUFFER="$left$_sl$mid$_sr$right"
+	_CURSOR=$start
+
+}
+_surround_del() {
+	_get_surround_target
+	local left_buf="${_BUFFER:0:$_CURSOR}"
+	local right_buf="${_BUFFER:$left}"
+	local left=""
+	local right=""
+	_scan_left $_sl "$left_buf"
+
+	if [ "$?" -ne 0 ]; then
+	  _scan_right $_sl "$right_buf"
+
+	  [ "$?" -ne 0 ] && return 1
+	  left=$right
+	fi
+
+	mid_start=$((left + 1))
+	right=""
+	left_buf="${_BUFFER:0:$left}"
+	right_buf="${_BUFFER:$mid_start}"
+	_scan_right $_sr "$right_buf"
+
+	[ "$?" -ne 0 ] && return 1
+
+	mid_end=$((mid_start + right))
+	right_start=$((mid_end + 1))
+	new_left_buf="${_BUFFER:0:$left}"
+	new_mid_buf="${_BUFFER:$mid_start:$right}"
+	new_right_buf="${_BUFFER:$right_start}"
+
+
+	_BUFFER="$new_left_buf$new_mid_buf$new_right_buf"
+
+}