#!/bin/bash

set -u
C_SCRIPT_NAME=`basename $0`
C_SCRIPT_FULL_PATH=`realpath $0`
C_SCRIPT_PATH=`dirname ${C_SCRIPT_FULL_PATH}`

#---------------------------------------------------------------------
#--- functions
#---------------------------------------------------------------------

function printUsage() {
    local scriptName=$1

    cat << USG
${scriptName}の使い方は……
    ${scriptName}    [ -T 起点とする<日付> ]
            [ -Y "年"の<差分値>  ] [ -M "月"の<差分値>  ] [ -D "日"の<差分値>  ]
            [ -h ]
    <日付>        := YYYYMMDD
    <差分値>    := [+|-] 数値

    例1:    ${scriptName} -Y 2  -D 10   (本日から)2年と10日後の日付を求める
    例2:    ${scriptName} -Y -2 -D +10  (本日から)2年前の日付から、更に10日後の日付を求める
    例3:    ${scriptName} -T 21120903 -Y -100 -D +10    2112/9/3("ドラえもん"の製造日)から100年前の日付から、更に10日後の日付を求める
    例4:    ${scriptName} -h   使い方(=現在表示してる内容)を表示する

    特記事項    -Tのパラメータ指定の無い場合は、当日を起点とする日付として扱う

USG
    return 0
}

function isDate() {
    local val=$1
    local year month day

    if [ ${#val} -ne 8 ]; then
        return 255
    fi
    if [[ ! ${val} =~ ^[0-9][0-9][0-9][0-9][0-1][0-9][0-3][0-9]$ ]];then
        return 255
    fi
#    year=${val:0:4}
    month=${val:4:2}
    day=${val:6:2}
    month=${month#0}    # 2桁が前提なので先頭1文字に0があったら削除
    day=${day#0}        # (同上)
    if [ ${month} -lt 1 \
      -o ${month} -gt 12 ]; then
        return 255
    fi
    if [ ${day} -lt 1 \
      -o ${day} -gt 31 ]; then
        return 255
    fi
    return 0
}

function isNum() {
    local val=$1

    if [[ ${val} =~ ^[+\-]*[0-9]+$ ]];then
        return 0
    else
        return 255
    fi
}

function suppressZero() {
    local val=$1

    if [[ $val =~ ^(0+)(.*)$ ]]; then
        val=${BASH_REMATCH[2]}
    fi

    echo $val
}

#---------------------------------------------------------------------
#--- main
#---------------------------------------------------------------------

targetDate=""
formatString=""

declare -a deltaVals
deltaVals[0]="";deltaVals[1]="";deltaVals[2]="";
declare -a deltaMessages
deltaMessages[0]="年";deltaMessages[1]="ヶ月";deltaMessages[2]="日";
declare -a units
units[0]="years";units[1]="months";units[2]="days"

while getopts ':T:Y:M:D:h' OPT ; do 
    case ${OPT} in
    T)    isDate ${OPTARG}
        if [ $? -ne 0 ]; then
            echo "-${OPT}には日付を指定してください。"$'\n'
            printUsage ${C_SCRIPT_NAME}
            exit 255
        fi
        targetDate=${OPTARG}
        ;;
    Y)  isNum ${OPTARG}
        if [ $? -ne 0 ]; then
            echo "-${OPT}には年数を指定してください。"$'\n'
            printUsage ${C_SCRIPT_NAME}
            exit 255
        fi
        deltaVals[0]=${OPTARG}
        ;;
    M)  isNum ${OPTARG}
        if [ $? -ne 0 ]; then
            echo "-${OPT}には月数を指定してください。"$'\n' 
            printUsage ${C_SCRIPT_NAME}
            exit 255
        fi
        deltaVals[1]=${OPTARG}
        ;;
    D)  isNum ${OPTARG}
        if [ $? -ne 0 ]; then
            echo "-${OPT}には日数を指定してください。"$'\n' 
            printUsage ${C_SCRIPT_NAME}
            exit 255
        fi
        deltaVals[2]=${OPTARG}
        ;;
    h|*)    printUsage ${C_SCRIPT_NAME}
            exit 255
            ;;
    esac
done


# 差分のパラメータが指定されない時には"-D 0"として解釈させる
if [ "${deltaVals[0]}" == "" \
  -a "${deltaVals[1]}" == "" \
  -a "${deltaVals[2]}" == "" ];then
    deltaVals[0]="0"
fi

# パラメータを解釈する
valueRaw="";valueNum="";valueAbs="";string=""
message="";formerMessage=""
for (( i=$((${#deltaVals[@]}-1)); i>=0; i-- )) ; do    # 降順ループ(日→月→年)
    if [ "${deltaVals[${i}]}" != "" ]; then
        valueRaw=${deltaVals[${i}]}
        case ${valueRaw:0:1} in
        -)    valueAbs=${valueRaw:1}
            valueAbs=`suppressZero ${valueAbs}`
            valueNum=$((0-${valueAbs}))
            ;;
        +)    valueAbs=${valueRaw:1}
            valueAbs=`suppressZero ${valueAbs}`
            valueNum=$((${valueAbs}+0))
            ;;
        *)    valueAbs=${valueRaw}
            valueAbs=`suppressZero ${valueAbs}`
            valueNum=$((${valueAbs}+0))
            ;;
        esac
        message=${deltaMessages[${i}]}
        if [ ${valueNum} -ge 0 ]; then
            formatString=${formatString}${valueAbs}" "${units[${i}]}" "
            message=${valueAbs}${message}"後"
        else
            formatString=${formatString}${valueAbs}" "${units[${i}]}" ago "
            message=${valueAbs}${message}"前"
        fi
        if [ "${formerMessage}" != "" ]; then
            message=${message}"の、そこから"
        fi
        formerMessage=${message}
    else
        message=""
    fi
    deltaMessages[${i}]=${message}
done

if [ "${targetDate}" == "" ]; then
    targetDate="now"
    targetDateMessage="起点日付[本日]"
else
    targetDateMessage="起点日付"   
fi

dateTarget=`date --date "${targetDate}" +%Y/%m/%d`
targetDateMessage=${targetDateMessage}"("${dateTarget}")"
dateTargetCal=${dateTarget//\//-}
dateTargets=(`echo ${dateTarget//\// }`)

dateRaw=${dateTarget##\/}

# 日付を計算する
if [ "${formatString}"  != "" ]; then
    dateRaw=`date --date "${dateRaw} ${formatString}" +%Y%m%d`
fi

dateResult=`date --date ${dateRaw} +%Y/%m/%d`
dateResultCal=${dateResult//\//-}
dateResults=(`echo ${dateResult//\// }`)

# カレンダー表示(起算日分)
echo "≪${targetDateMessage}のカレンダー≫"
cal ${dateTargets[1]} ${dateTargets[0]} -H ${dateTargetCal}
echo ""

# 結果日付表示
cat <<EOF
あなたが知りたい日付は、
${targetDateMessage}から ${deltaMessages[0]} ${deltaMessages[1]} ${deltaMessages[2]} の
    ${dateResult}
です

EOF

# カレンダー表示(結果分)
echo "≪${dateResult}のカレンダー≫"
cal ${dateResults[1]} ${dateResults[0]} -H ${dateResultCal}
echo ""

exit 0