path: root/%HOME%/.bash_utils/text.sh

#!/usr/bin/env bash

# Copyright (c) 2016 Egor Tensin <Egor.Tensin@gmail.com>
# This file is part of the "Cygwin configuration files" project.
# For details, see https://github.com/egor-tensin/cygwin-home.
# Distributed under the MIT License.

alias dos2eol='sed --binary --in-place -- '"'"'s/\(\r\?\)$//'"'"
alias eol2dos='sed --binary --in-place -- '"'"'s/\r\?$/\r/'"'"

alias trim='sed --binary --in-place -- '"'"'s/[[:blank:]]*\(\r\?\)$/\1/'"'"

alias trimeol='sed --binary --in-place -e :a -e '"'"'/^\n*$/{$d;N;ba}'"'"' --'
alias trimdoseol='sed --binary --in-place -e :a -e '"'"'/^\(\r\n\)*\r$/{$d;N;ba}'"'"' --'

alias eol='sed --binary --in-place -- '"'"'$a\'"'"
alias doseol='sed --binary --in-place -- '"'"'$s/\r\?$/\r/;a\'"'"

alias trimbom='sed --binary --in-place -- '"'"'1 s/^\xef\xbb\xbf//'"'"

lint() {
    trim "$@" && trimeol "$@" && eol "$@"
}

doslint() {
    trim "$@" && trimdoseol "$@" && doseol "$@"
}

escape_pattern_sed() (
    set -o errexit -o nounset -o pipefail

    # Only $^*./\[] need to be escaped according to this:
    # https://unix.stackexchange.com/a/33005/60124
    local pattern
    for pattern; do
        pattern="${pattern//'\'/'\\'}"
        pattern="${pattern//'/'/'\/'}"
        pattern="${pattern//'$'/'\$'}"
        pattern="${pattern//'^'/'\^'}"
        pattern="${pattern//'*'/'\*'}"
        pattern="${pattern//'.'/'\.'}"
        pattern="${pattern//'['/'\['}"
        pattern="${pattern//']'/'\]'}"
        pattern="${pattern//$'\n'/'\n'}"
        echo "$pattern"
    done
)

escape_substitution_sed() (
    set -o errexit -o nounset -o pipefail

    local pattern
    for pattern; do
        pattern="${pattern//'\'/'\\'}"
        pattern="${pattern//'/'/'\/'}"
        pattern="${pattern//'&'/'\&'}"
        pattern="${pattern//$'\n'/'\n'}"
        echo "$pattern"
    done
)

str_replace() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -lt 3 ]; then
        echo "usage: ${FUNCNAME[0]} OLD NEW PATH..." >&2
        return 1
    fi

    local old="$1"
    old="$( escape_pattern_sed "$old" )"
    shift
    local new="$1"
    new="$( escape_substitution_sed "$new" )"
    shift

    sed --binary --in-place -- "s/$old/$new/g" "$@"
)

str_replace_word() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -lt 3 ]; then
        echo "usage: ${FUNCNAME[0]} OLD NEW PATH..." >&2
        return 1
    fi

    local old="$1"
    old="$( escape_pattern_sed "$old" )"
    shift
    local new="$1"
    new="$( escape_substitution_sed "$new" )"
    shift

    sed --binary --in-place -- "s/\\b$old\\b/$new/g" "$@"
)

str_tolower() (
    set -o errexit -o nounset -o pipefail

    local s
    for s; do
        echo "${s,,}"
    done
)

str_toupper() (
    set -o errexit -o nounset -o pipefail

    local s
    for s; do
        echo "${s^^}"
    done
)

escape_pattern_bash() (
    set -o errexit -o nounset -o pipefail

    # Only *?\[] need to be escaped according to:
    # http://wiki.bash-hackers.org/syntax/pattern#normal_pattern_language
    local pattern
    for pattern; do
        pattern="${pattern//'\'/'\\'}"
        pattern="${pattern//'*'/'\*'}"
        pattern="${pattern//'?'/'\?'}"
        pattern="${pattern//'['/'\['}"
        pattern="${pattern//']'/'\]'}"
        echo "$pattern"
    done
)

str_contains() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -ne 2 ]; then
        echo "usage: ${FUNCNAME[0]} STR SUB" >&2
        return 1
    fi

    local str="$1"
    local sub="$2"

    [ -z "$sub" ] && return 0
    sub="$( escape_pattern_bash "$sub" )"

    test "$str" != "${str#*$sub}"
)

str_starts_with() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -ne 2 ]; then
        echo "usage: ${FUNCNAME[0]} STR SUB" >&2
        return 1
    fi

    local str="$1"
    local sub="$2"

    [ -z "$sub" ] && return 0
    sub="$( escape_pattern_bash "$sub" )"

    test "$str" != "${str#$sub}"
)

str_ends_with() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -ne 2 ]; then
        echo "usage: ${FUNCNAME[0]} STR SUB" >&2
        return 1
    fi

    local str="$1"
    local sub="$2"

    [ -z "$sub" ] && return 0
    sub="$( escape_pattern_bash "$sub" )"

    test "$str" != "${str%$sub}"
)

str_split() (
    set -o errexit -o nounset -o pipefail

    local fmt='%s\n'
    local -a args

    while [ "$#" -ne 0 ]; do
        local key="$1"
        shift
        case "$key" in
            -h|--help)
                echo "usage: ${FUNCNAME[0]} [-h|--help] [-0|--null|-z|--zero] [--] STR DELIM"
                return 0
                ;;
            -0|--null|-z|--zero)
                fmt='%s\0'
                ;;
            --)
                break
                ;;
            -*)
                echo "${FUNCNAME[0]}: unrecognized parameter: $key" >&2
                return 1
                ;;
            *)
                args+=("$key")
                ;;
        esac
    done

    args+=("$@")

    if [ "${#args[@]}" -ne 2 ]; then
        echo "usage: ${FUNCNAME[0]} [-h|--help] [-0|--null|-z|--zero] [--] STR DELIM" >&2
        return 1
    fi

    local str="${args[0]}"
    local old_delim="${args[1]}"

    local -a xs
    local x

    IFS="$old_delim" read -a xs -r <<< "$str"

    for x in ${xs[@]+"${xs[@]}"}; do
        printf -- "$fmt" "$x"
    done
)

str_join() (
    set -o errexit -o nounset -o pipefail

    if [ "$#" -lt 1 ]; then
        echo "usage: ${FUNCNAME[0]} DELIM [STR]..." >&2
        return 1
    fi

    local delim="$1"
    shift

    case "$#" in
        0)
            ;;
        1)
            echo "$@"
            ;;
        *)
            local s="$1"
            shift
            printf -- '%s' "$s"

            for s; do
                printf -- '%s%s' "$delim" "$s"
            done
            ;;
    esac
)