lib/pvl/log.sh
author Tero Marttila <tero.marttila@aalto.fi>
Mon, 02 Mar 2015 20:35:29 +0200
changeset 703 6fb97fcf0999
parent 632 711be783d0a1
child 718 f1c352644c2a
permissions -rw-r--r--
update: pvl/log: fix no-tty execution
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     1
# Logging output
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     2
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
     3
log_GETOPTS="qvDV"
624
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
     4
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
     5
LOG=y
624
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
     6
LOG_ERROR=y
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
     7
LOG_WARN=y
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
     8
LOG_FORCE=y
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
     9
LOG_APPLY=y
632
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
    10
LOG_CHECK=
624
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    11
LOG_NOOP=y
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    12
LOG_SKIP=
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    13
LOG_DEBUG=
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    14
LOG_CMD=
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    15
LOG_DIFF=y
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    16
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    17
# use color output?
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    18
IS_TTY=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    19
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    20
function log_help {
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    21
    cat <<END
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    22
Logging:    
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    23
    -q      quiet
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    24
    -v      verbose
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    25
    -D      debug
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    26
    -V      debug commands
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    27
END
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    28
}
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    29
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    30
function log_opt {
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    31
    local opt=$1
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    32
    local optarg="$2"
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    33
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    34
    case $opt in
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    35
        q)  
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    36
            LOG= 
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    37
            LOG_WARN=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    38
            LOG_APPLY=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    39
            LOG_FORCE=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    40
            LOG_NOOP=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    41
            LOG_DIFF=
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    42
            ;;
632
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
    43
        v)  
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
    44
            LOG_CHECK=y
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
    45
            LOG_SKIP=y
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
    46
            ;;
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    47
        D)  
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    48
            LOG_DEBUG=y
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    49
            LOG_INFO=y
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    50
            ;;
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    51
        V)  LOG_CMD=y ;;
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    52
628
b10ad946d01d update: refactor into modularized lib/pvl/**.sh layout
Tero Marttila <tero.marttila@aalto.fi>
parents: 627
diff changeset
    53
        n)  LOG_NOOP=y ;;
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    54
        *)  return 1
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    55
    esac
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    56
}
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    57
624
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    58
function log_init {
703
6fb97fcf0999 update: pvl/log: fix no-tty execution
Tero Marttila <tero.marttila@aalto.fi>
parents: 632
diff changeset
    59
    if [ -t 1 ]; then
6fb97fcf0999 update: pvl/log: fix no-tty execution
Tero Marttila <tero.marttila@aalto.fi>
parents: 632
diff changeset
    60
        IS_TTY=y
6fb97fcf0999 update: pvl/log: fix no-tty execution
Tero Marttila <tero.marttila@aalto.fi>
parents: 632
diff changeset
    61
    fi
624
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    62
}
889ecd6dcb4e split LOG_* and UPDATE_* from lib/update.args into lib/update.*; fixup check_link and do_link for relative targets
Tero Marttila <terom@paivola.fi>
parents: 613
diff changeset
    63
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    64
# Output message to stderr.
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    65
function log_msg {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    66
    echo "$*" >&2
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    67
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    68
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    69
# Output message to stderr, optionally with given color, if TTY.
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    70
function log_color {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    71
    local code=$1; shift
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    72
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    73
    if [ $IS_TTY ]; then
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    74
        echo $'\e['${code}'m'"$*"$'\e[00m' >&2
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    75
    else
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    76
        echo "$*" >&2
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    77
    fi
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    78
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    79
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    80
## Log at various log-levels
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    81
# plain
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    82
function log {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    83
    [ $LOG          ] && log_msg            "$*"            || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    84
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    85
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    86
function log_error {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    87
    [ $LOG_ERROR    ] && log_color '31'     "$*"            || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    88
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    89
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    90
function log_warn {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    91
    [ $LOG_WARN     ] && log_color '33'     "$*"            || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    92
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    93
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    94
function log_force {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    95
    [ $LOG_FORCE    ] && log_color '2;33'   "  $*"          || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    96
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    97
627
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    98
function log_apply {
Tero Marttila <tero.marttila@aalto.fi>
parents: 624
diff changeset
    99
    [ $LOG_APPLY    ] && log_color '36'     "  $*"          || true
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   100
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   101
613
5b33ccac38ad update_zone --include-path, log_check
Tero Marttila <terom@paivola.fi>
parents: 608
diff changeset
   102
function log_check {
632
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
   103
    [ $LOG_CHECK    ] && log_color '32'     "  $*"          || true
613
5b33ccac38ad update_zone --include-path, log_check
Tero Marttila <terom@paivola.fi>
parents: 608
diff changeset
   104
}
5b33ccac38ad update_zone --include-path, log_check
Tero Marttila <terom@paivola.fi>
parents: 608
diff changeset
   105
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   106
function log_noop {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   107
    [ $LOG_NOOP     ] && log_color '2;34'   "  $*"          || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   108
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   109
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   110
function log_skip {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   111
    [ $LOG_SKIP     ] && log_color '1;34'   "  $*"          || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   112
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   113
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   114
function log_debug {
632
711be783d0a1 update lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 631
diff changeset
   115
    [ $LOG_DEBUG    ] && log_color '34'     "    $*"        || true
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   116
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   117
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   118
function log_cmd {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   119
    [ $LOG_CMD      ] && log_color '35'     "        \$ $*" || true
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   120
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   121
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   122
# Output stacktrace, broken.
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   123
function log_stack {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   124
    local level=1
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   125
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   126
    while info=$(caller $level); do
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   127
        echo $info | read line sub file
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   128
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   129
        log_msg "$file:$lineno $sub()"
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   130
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   131
        level=$(($level + 1))
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   132
    done
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   133
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   134
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   135
### High-level logging output
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   136
# Log with func_caller at log_debug
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   137
function debug {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   138
    printf -v prefix "%s" $(func_caller)
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   139
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   140
    log_debug "$prefix: $*"
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   141
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   142
608
4ad9c9b7cd0e update: many things
Tero Marttila <terom@paivola.fi>
parents: 605
diff changeset
   143
function warn {
4ad9c9b7cd0e update: many things
Tero Marttila <terom@paivola.fi>
parents: 605
diff changeset
   144
    log_warn "$(func_caller): $*"
4ad9c9b7cd0e update: many things
Tero Marttila <terom@paivola.fi>
parents: 605
diff changeset
   145
}
4ad9c9b7cd0e update: many things
Tero Marttila <terom@paivola.fi>
parents: 605
diff changeset
   146
631
5eebbda7be91 lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 628
diff changeset
   147
function error {
5eebbda7be91 lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 628
diff changeset
   148
    log_error "$(func_caller): $*"
5eebbda7be91 lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 628
diff changeset
   149
}
5eebbda7be91 lib: fixfix
Tero Marttila <tero.marttila@aalto.fi>
parents: 628
diff changeset
   150
605
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   151
# Log with func_caller at log_error and exit, intended for internal errors...
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   152
function fail {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   153
    log_error "$(func_caller): $*"
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   154
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   155
    exit 2
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   156
}
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   157
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   158
# Log at log_error and exit
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   159
function die {
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   160
    log_error "$*"
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   161
    exit 1
26a307558602 update update
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   162
}