Artifact edfb9cfb1eb6e72efd614a31c5e1e4bf05219e0e:
File
tools/lib/log.tcl
part of check-in
[ebb94f75cb]
- Semantics of the progress display extended to allow an empty maximum to signal use of an infinite (open-ended) display.
by
aku on
2007-09-17 01:41:58.
0000: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
0010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0050: 23 20 54 6f 6f 6c 20 70 61 63 6b 61 67 65 73 2e # Tool packages.
0060: 20 4c 6f 67 67 69 6e 67 20 28 61 6b 61 20 55 73 Logging (aka Us
0070: 65 72 20 66 65 65 64 62 61 63 6b 29 2e 0a 0a 23 er feedback)...#
0080: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
0090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 --------------.#
00d0: 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a 0a 70 Requirements..p
00e0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 ackage require T
00f0: 63 6c 20 38 2e 34 0a 6e 61 6d 65 73 70 61 63 65 cl 8.4.namespace
0100: 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 74 6f 6f 6c eval ::vc::tool
0110: 73 3a 3a 6c 6f 67 20 7b 7d 0a 0a 23 20 2d 2d 2d s::log {}..# ---
0120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 41 50 49 ----------.# API
0170: 0a 0a 23 20 46 65 65 64 62 61 63 6b 20 67 65 6e ..# Feedback gen
0180: 65 72 61 74 69 6f 6e 2e 0a 23 0a 23 09 76 63 3a eration..#.#.vc:
0190: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 77 72 69 :tools::log::wri
01a0: 74 65 20 20 20 20 76 65 72 62 6f 73 69 74 79 20 te verbosity
01b0: 73 79 73 74 65 6d 20 74 65 78 74 20 20 2d 20 57 system text - W
01c0: 72 69 74 65 20 6d 65 73 73 61 67 65 20 74 6f 20 rite message to
01d0: 74 68 65 20 6c 6f 67 2e 0a 23 09 76 63 3a 3a 74 the log..#.vc::t
01e0: 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 70 72 6f 67 72 ools::log::progr
01f0: 65 73 73 20 76 65 72 62 6f 73 69 74 79 20 73 79 ess verbosity sy
0200: 73 74 65 6d 20 6e 20 6d 61 78 20 2d 20 44 72 69 stem n max - Dri
0210: 76 65 20 61 20 70 72 6f 67 72 65 73 73 20 64 69 ve a progress di
0220: 73 70 6c 61 79 2e 0a 23 0a 23 20 20 20 20 20 20 splay..#.#
0230: 20 4e 6f 74 65 3a 20 6d 61 78 20 65 6d 70 74 79 Note: max empty
0240: 20 3d 3e 20 69 6e 66 69 6e 69 74 65 20 70 72 6f => infinite pro
0250: 67 72 65 73 73 20 64 69 73 70 6c 61 79 2c 20 6f gress display, o
0260: 74 68 65 72 77 69 73 65 20 61 20 66 69 6e 69 74 therwise a finit
0270: 65 20 64 69 73 70 6c 61 79 2e 0a 0a 23 20 41 64 e display...# Ad
0280: 6d 69 6e 69 73 74 72 61 74 69 76 65 20 6f 70 65 ministrative ope
0290: 72 61 74 69 6f 6e 73 2e 0a 23 0a 23 09 76 63 3a rations..#.#.vc:
02a0: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 76 65 72 :tools::log::ver
02b0: 62 6f 73 69 74 79 20 6c 65 76 65 6c 20 20 2d 20 bosity level -
02c0: 53 65 74 20 74 68 65 20 76 65 72 62 6f 73 69 74 Set the verbosit
02d0: 79 20 6c 65 76 65 6c 20 6f 66 20 74 68 65 20 61 y level of the a
02e0: 70 70 6c 69 63 61 74 69 6f 6e 2e 0a 23 09 76 63 pplication..#.vc
02f0: 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 76 65 ::tools::log::ve
0300: 72 62 6f 73 69 74 79 3f 20 20 20 20 20 20 20 2d rbosity? -
0310: 20 51 75 65 72 79 20 74 68 65 20 76 65 72 62 6f Query the verbo
0320: 73 69 74 79 20 6c 65 76 65 6c 20 6f 66 20 74 68 sity level of th
0330: 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 0a 23 e application..#
0340: 09 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a .vc::tools::log:
0350: 3a 73 65 74 43 6d 64 20 63 6d 64 70 72 65 66 69 :setCmd cmdprefi
0360: 78 20 2d 20 53 65 74 20 63 61 6c 6c 62 61 63 6b x - Set callback
0370: 20 66 6f 72 20 6f 75 74 70 75 74 0a 23 09 76 63 for output.#.vc
0380: 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 73 79 ::tools::log::sy
0390: 73 74 65 6d 20 6e 61 6d 65 20 20 20 20 20 20 2d stem name -
03a0: 20 52 65 67 69 73 74 65 72 20 61 20 73 79 73 74 Register a syst
03b0: 65 6d 20 28 65 6e 61 62 6c 65 73 20 74 61 62 75 em (enables tabu
03c0: 6c 61 72 20 6c 6f 67 20 66 6f 72 6d 61 74 74 69 lar log formatti
03d0: 6e 67 29 2e 0a 0a 23 20 43 61 6c 6c 62 61 63 6b ng)...# Callback
03e0: 20 41 50 49 20 28 20 45 78 65 63 75 74 65 64 20 API ( Executed
03f0: 61 74 20 74 68 65 20 67 6c 6f 62 61 6c 20 6c 65 at the global le
0400: 76 65 6c 29 2e 0a 23 0a 23 09 63 6d 64 70 72 65 vel)..#.#.cmdpre
0410: 66 69 78 20 27 77 72 69 74 65 27 20 20 20 20 73 fix 'write' s
0420: 79 73 74 65 6d 20 74 65 78 74 0a 23 09 63 6d 64 ystem text.#.cmd
0430: 70 72 65 66 69 78 20 27 70 72 6f 67 72 65 73 73 prefix 'progress
0440: 27 20 73 79 73 74 65 6d 20 6e 20 6d 61 78 0a 0a ' system n max..
0450: 23 20 53 74 61 6e 64 61 72 64 20 63 61 6c 6c 62 # Standard callb
0460: 61 63 6b 73 20 64 65 66 69 6e 65 64 20 62 79 20 acks defined by
0470: 74 68 65 20 70 61 63 6b 61 67 65 20 69 74 73 65 the package itse
0480: 6c 66 20 77 72 69 74 65 20 74 6f 20 73 74 64 6f lf write to stdo
0490: 75 74 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ut...# ---------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 0a 23 20 41 50 49 20 49 6d 70 6c 65 ----.# API Imple
04f0: 6d 65 6e 74 61 74 69 6f 6e 20 2d 20 46 65 65 64 mentation - Feed
0500: 62 61 63 6b 20 67 65 6e 65 72 61 74 69 6f 6e 2e back generation.
0510: 0a 0a 23 20 57 72 69 74 65 20 74 68 65 20 6d 65 ..# Write the me
0520: 73 73 61 67 65 20 27 74 65 78 74 27 20 74 6f 20 ssage 'text' to
0530: 6c 6f 67 2c 20 66 6f 72 20 74 68 65 20 6e 61 6d log, for the nam
0540: 65 64 20 27 73 79 73 74 65 6d 27 2e 20 54 68 65 ed 'system'. The
0550: 20 6d 65 73 73 61 67 65 0a 23 20 69 73 20 77 72 message.# is wr
0560: 69 74 74 65 6e 20 69 66 20 61 6e 64 20 6f 6e 6c itten if and onl
0570: 79 20 69 66 20 74 68 65 20 6d 65 73 73 61 67 65 y if the message
0580: 20 76 65 72 62 6f 73 69 74 79 20 69 73 20 6c 65 verbosity is le
0590: 73 73 20 6f 72 20 65 71 75 61 6c 20 74 68 65 0a ss or equal the.
05a0: 23 20 63 68 6f 73 65 6e 20 76 65 72 62 6f 73 69 # chosen verbosi
05b0: 74 79 2e 20 41 20 6d 65 73 73 61 67 65 20 6f 66 ty. A message of
05c0: 20 76 65 72 62 6f 73 69 74 79 20 30 20 63 61 6e verbosity 0 can
05d0: 6e 6f 74 20 62 65 20 62 6c 6f 63 6b 65 64 2e 0a not be blocked..
05e0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c .proc ::vc::tool
05f0: 73 3a 3a 6c 6f 67 3a 3a 77 72 69 74 65 20 7b 76 s::log::write {v
0600: 65 72 62 6f 73 69 74 79 20 73 79 73 74 65 6d 20 erbosity system
0610: 74 65 78 74 7d 20 7b 0a 20 20 20 20 76 61 72 69 text} {. vari
0620: 61 62 6c 65 20 6c 6f 67 6c 65 76 65 6c 0a 20 20 able loglevel.
0630: 20 20 76 61 72 69 61 62 6c 65 20 6c 6f 67 63 6d variable logcm
0640: 64 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 73 d. variable s
0650: 79 73 66 6d 74 0a 20 20 20 20 69 66 20 7b 24 76 ysfmt. if {$v
0660: 65 72 62 6f 73 69 74 79 20 3e 20 24 6c 6f 67 6c erbosity > $logl
0670: 65 76 65 6c 7d 20 72 65 74 75 72 6e 0a 20 20 20 evel} return.
0680: 20 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c 69 6e uplevel #0 [lin
0690: 73 65 72 74 20 24 6c 6f 67 63 6d 64 20 65 6e 64 sert $logcmd end
06a0: 20 77 72 69 74 65 20 5b 66 6f 72 6d 61 74 20 24 write [format $
06b0: 73 79 73 66 6d 74 20 24 73 79 73 74 65 6d 5d 20 sysfmt $system]
06c0: 24 74 65 78 74 5d 0a 20 20 20 20 72 65 74 75 72 $text]. retur
06d0: 6e 0a 7d 0a 0a 23 20 53 69 6d 69 6c 61 72 20 74 n.}..# Similar t
06e0: 6f 20 77 72 69 74 65 2c 20 65 73 70 65 63 69 61 o write, especia
06f0: 6c 6c 79 20 69 6e 20 74 68 65 20 68 61 6e 64 6c lly in the handl
0700: 69 6e 67 20 6f 66 20 74 68 65 20 76 65 72 62 6f ing of the verbo
0710: 73 69 74 79 2c 20 74 6f 0a 23 20 64 72 69 76 65 sity, to.# drive
0720: 20 70 72 6f 67 72 65 73 73 20 64 69 73 70 6c 61 progress displa
0730: 79 73 2e 20 49 74 20 73 69 67 6e 61 6c 73 20 74 ys. It signals t
0740: 68 61 74 20 66 6f 72 20 73 6f 6d 65 20 6c 6f 6e hat for some lon
0750: 67 20 72 75 6e 6e 69 6e 67 0a 23 20 6f 70 65 72 g running.# oper
0760: 61 74 69 6f 6e 20 77 65 20 61 72 65 20 61 74 20 ation we are at
0770: 74 69 63 6b 20 27 6e 27 20 6f 66 20 61 74 20 6d tick 'n' of at m
0780: 6f 73 74 20 27 6d 61 78 27 20 74 69 63 6b 73 2e ost 'max' ticks.
0790: 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f ..proc ::vc::too
07a0: 6c 73 3a 3a 6c 6f 67 3a 3a 70 72 6f 67 72 65 73 ls::log::progres
07b0: 73 20 7b 76 65 72 62 6f 73 69 74 79 20 73 79 73 s {verbosity sys
07c0: 74 65 6d 20 6e 20 6d 61 78 7d 20 7b 0a 20 20 20 tem n max} {.
07d0: 20 76 61 72 69 61 62 6c 65 20 6c 6f 67 6c 65 76 variable loglev
07e0: 65 6c 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 el. variable
07f0: 6c 6f 67 63 6d 64 0a 20 20 20 20 76 61 72 69 61 logcmd. varia
0800: 62 6c 65 20 73 79 73 66 6d 74 0a 20 20 20 20 69 ble sysfmt. i
0810: 66 20 7b 24 76 65 72 62 6f 73 69 74 79 20 3e 20 f {$verbosity >
0820: 24 6c 6f 67 6c 65 76 65 6c 7d 20 72 65 74 75 72 $loglevel} retur
0830: 6e 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 23 30 n. uplevel #0
0840: 20 5b 6c 69 6e 73 65 72 74 20 24 6c 6f 67 63 6d [linsert $logcm
0850: 64 20 65 6e 64 20 70 72 6f 67 72 65 73 73 20 5b d end progress [
0860: 66 6f 72 6d 61 74 20 24 73 79 73 66 6d 74 20 24 format $sysfmt $
0870: 73 79 73 74 65 6d 5d 20 24 6e 20 24 6d 61 78 5d system] $n $max]
0880: 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 . return.}..#
0890: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
08a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 --------------.#
08e0: 20 41 50 49 20 49 6d 70 6c 65 6d 65 6e 74 61 74 API Implementat
08f0: 69 6f 6e 20 2d 20 41 64 6d 69 6e 69 73 74 72 61 ion - Administra
0900: 74 69 76 65 20 6f 70 65 72 61 74 69 6f 6e 73 2e tive operations.
0910: 0a 0a 23 20 53 65 74 20 76 65 72 62 6f 73 69 74 ..# Set verbosit
0920: 79 20 74 6f 20 74 68 65 20 63 68 6f 73 65 6e 20 y to the chosen
0930: 27 6c 65 76 65 6c 27 2e 20 4f 6e 6c 79 20 6d 65 'level'. Only me
0940: 73 73 61 67 65 73 20 77 69 74 68 20 61 20 6c 65 ssages with a le
0950: 76 65 6c 20 6c 65 73 73 0a 23 20 6f 72 20 65 71 vel less.# or eq
0960: 75 61 6c 20 74 6f 20 74 68 69 73 20 6f 6e 65 20 ual to this one
0970: 77 69 6c 6c 20 62 65 20 73 68 6f 77 6e 2e 0a 0a will be shown...
0980: 70 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 proc ::vc::tools
0990: 3a 3a 6c 6f 67 3a 3a 76 65 72 62 6f 73 69 74 79 ::log::verbosity
09a0: 20 7b 6c 65 76 65 6c 7d 20 7b 0a 20 20 20 20 76 {level} {. v
09b0: 61 72 69 61 62 6c 65 20 6c 6f 67 6c 65 76 65 6c ariable loglevel
09c0: 0a 20 20 20 20 69 66 20 7b 24 6c 65 76 65 6c 20 . if {$level
09d0: 3c 20 31 7d 20 7b 73 65 74 20 6c 65 76 65 6c 20 < 1} {set level
09e0: 30 7d 0a 20 20 20 20 73 65 74 20 6c 6f 67 6c 65 0}. set logle
09f0: 76 65 6c 20 24 6c 65 76 65 6c 0a 20 20 20 20 72 vel $level. r
0a00: 65 74 75 72 6e 0a 7d 0a 0a 23 20 51 75 65 72 79 eturn.}..# Query
0a10: 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 73 the currently s
0a20: 65 74 20 76 65 72 62 6f 73 69 74 79 2e 0a 0a 70 et verbosity...p
0a30: 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a roc ::vc::tools:
0a40: 3a 6c 6f 67 3a 3a 76 65 72 62 6f 73 69 74 79 3f :log::verbosity?
0a50: 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 {} {. variab
0a60: 6c 65 20 6c 6f 67 6c 65 76 65 6c 0a 20 20 20 20 le loglevel.
0a70: 72 65 74 75 72 6e 20 20 24 6c 6f 67 6c 65 76 65 return $logleve
0a80: 6c 0a 7d 0a 0a 23 20 53 65 74 20 74 68 65 20 6c l.}..# Set the l
0a90: 6f 67 20 63 61 6c 6c 62 61 63 6b 20 68 61 6e 64 og callback hand
0aa0: 6c 69 6e 67 20 74 68 65 20 61 63 74 75 61 6c 20 ling the actual
0ab0: 6f 75 74 70 75 74 20 6f 66 20 6d 65 73 73 61 67 output of messag
0ac0: 65 73 20 67 6f 69 6e 67 0a 23 20 74 68 72 6f 75 es going.# throu
0ad0: 67 68 20 74 68 65 20 70 61 63 6b 61 67 65 2e 0a gh the package..
0ae0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c .proc ::vc::tool
0af0: 73 3a 3a 6c 6f 67 3a 3a 73 65 74 43 6d 64 20 7b s::log::setCmd {
0b00: 63 6d 64 70 72 65 66 69 78 7d 20 7b 0a 20 20 20 cmdprefix} {.
0b10: 20 76 61 72 69 61 62 6c 65 20 6c 6f 67 63 6d 64 variable logcmd
0b20: 20 24 63 6d 64 70 72 65 66 69 78 0a 20 20 20 20 $cmdprefix.
0b30: 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 52 65 67 69 return.}..# Regi
0b40: 73 74 65 72 20 61 20 73 79 73 74 65 6d 20 6e 61 ster a system na
0b50: 6d 65 2c 20 74 6f 20 65 6e 61 62 6c 65 20 74 61 me, to enable ta
0b60: 62 75 6c 61 72 20 66 6f 72 6d 61 74 74 69 6e 67 bular formatting
0b70: 2e 20 54 68 69 73 20 69 73 20 64 6f 6e 65 0a 23 . This is done.#
0b80: 20 62 79 20 73 65 74 74 69 6e 67 20 75 70 20 61 by setting up a
0b90: 20 66 6f 72 6d 61 74 20 73 70 65 63 69 66 69 65 format specifie
0ba0: 72 20 77 69 74 68 20 61 20 70 72 6f 70 65 72 20 r with a proper
0bb0: 77 69 64 74 68 2e 20 54 68 69 73 20 69 73 0a 23 width. This is.#
0bc0: 20 68 61 6e 64 6c 65 64 20 69 6e 20 74 68 65 20 handled in the
0bd0: 67 65 6e 65 72 61 74 69 6f 6e 20 63 6f 6d 6d 61 generation comma
0be0: 6e 64 2c 20 62 65 66 6f 72 65 20 74 68 65 20 6f nd, before the o
0bf0: 75 74 70 75 74 20 63 61 6c 6c 62 61 63 6b 20 69 utput callback i
0c00: 73 0a 23 20 69 6e 76 6f 6b 65 64 2e 0a 0a 70 72 s.# invoked...pr
0c10: 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a oc ::vc::tools::
0c20: 6c 6f 67 3a 3a 73 79 73 74 65 6d 20 7b 6e 61 6d log::system {nam
0c30: 65 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c e} {. variabl
0c40: 65 20 73 79 73 66 6d 74 0a 20 20 20 20 76 61 72 e sysfmt. var
0c50: 69 61 62 6c 65 20 73 79 73 6c 65 6e 0a 0a 20 20 iable syslen..
0c60: 20 20 73 65 74 20 6e 6c 65 6e 20 5b 73 74 72 69 set nlen [stri
0c70: 6e 67 20 6c 65 6e 67 74 68 20 24 6e 61 6d 65 5d ng length $name]
0c80: 0a 20 20 20 20 69 66 20 7b 24 6e 6c 65 6e 20 3c . if {$nlen <
0c90: 20 24 73 79 73 6c 65 6e 7d 20 72 65 74 75 72 6e $syslen} return
0ca0: 0a 0a 20 20 20 20 73 65 74 20 73 79 73 6c 65 6e .. set syslen
0cb0: 20 24 6e 6c 65 6e 0a 20 20 20 20 73 65 74 20 73 $nlen. set s
0cc0: 79 73 66 6d 74 20 25 2d 24 7b 73 79 73 6c 65 6e ysfmt %-${syslen
0cd0: 7d 73 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a }s. return.}.
0ce0: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .# -------------
0cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 0a 23 20 49 6e 74 65 72 6e 61 6c 20 6f 70 65 72 .# Internal oper
0d40: 61 74 69 6f 6e 73 20 2d 20 53 74 61 6e 64 61 72 ations - Standar
0d50: 64 20 6f 75 74 70 75 74 20 6f 70 65 72 61 74 69 d output operati
0d60: 6f 6e 0a 0a 23 20 44 69 73 70 61 74 63 68 20 74 on..# Dispatch t
0d70: 6f 20 74 68 65 20 68 61 6e 64 6c 65 72 73 20 6f o the handlers o
0d80: 66 20 74 68 65 20 70 6f 73 73 69 62 6c 65 20 6f f the possible o
0d90: 70 65 72 61 74 69 6f 6e 73 2e 0a 0a 70 72 6f 63 perations...proc
0da0: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f ::vc::tools::lo
0db0: 67 3a 3a 4f 55 54 20 7b 6f 70 20 61 72 67 73 7d g::OUT {op args}
0dc0: 20 7b 0a 20 20 20 20 65 76 61 6c 20 5b 6c 69 6e {. eval [lin
0dd0: 73 65 72 74 20 24 61 72 67 73 20 30 20 3a 3a 76 sert $args 0 ::v
0de0: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 4f c::tools::log::O
0df0: 55 54 2f 24 6f 70 5d 0a 20 20 20 20 72 65 74 75 UT/$op]. retu
0e00: 72 6e 0a 7d 0a 0a 23 20 57 72 69 74 65 20 68 61 rn.}..# Write ha
0e10: 6e 64 6c 65 72 2e 20 45 61 63 68 20 6d 65 73 73 ndler. Each mess
0e20: 61 67 65 20 69 73 20 61 20 6c 69 6e 65 2e 0a 0a age is a line...
0e30: 70 72 6f 63 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 proc ::vc::tools
0e40: 3a 3a 6c 6f 67 3a 3a 4f 55 54 2f 77 72 69 74 65 ::log::OUT/write
0e50: 20 7b 73 79 73 74 65 6d 20 74 65 78 74 7d 20 7b {system text} {
0e60: 0a 20 20 20 20 70 75 74 73 20 22 24 73 79 73 74 . puts "$syst
0e70: 65 6d 20 24 74 65 78 74 22 0a 20 20 20 20 72 65 em $text". re
0e80: 74 75 72 6e 0a 7d 0a 0a 23 20 50 72 6f 67 72 65 turn.}..# Progre
0e90: 73 73 20 68 61 6e 64 6c 65 72 2e 20 55 73 65 73 ss handler. Uses
0ea0: 20 5c 72 20 74 6f 20 72 65 74 75 72 6e 20 74 6f \r to return to
0eb0: 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f the beginning o
0ec0: 66 20 74 68 65 20 63 75 72 72 65 6e 74 0a 23 20 f the current.#
0ed0: 6c 69 6e 65 20 77 69 74 68 6f 75 74 20 61 64 76 line without adv
0ee0: 61 6e 63 69 6e 67 2e 0a 0a 70 72 6f 63 20 3a 3a ancing...proc ::
0ef0: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a vc::tools::log::
0f00: 4f 55 54 2f 70 72 6f 67 72 65 73 73 20 7b 73 79 OUT/progress {sy
0f10: 73 74 65 6d 20 6e 20 6d 61 78 7d 20 7b 0a 20 20 stem n max} {.
0f20: 20 20 69 66 20 7b 24 6d 61 78 20 65 71 20 7b 7d if {$max eq {}
0f30: 7d 20 7b 0a 09 70 75 74 73 20 2d 6e 6f 6e 65 77 } {..puts -nonew
0f40: 6c 69 6e 65 20 22 24 73 79 73 74 65 6d 20 24 6e line "$system $n
0f50: 5c 72 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b \r". } else {
0f60: 0a 09 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e ..puts -nonewlin
0f70: 65 20 22 24 73 79 73 74 65 6d 20 5b 66 6f 72 6d e "$system [form
0f80: 61 74 20 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 at %[string leng
0f90: 74 68 20 24 6d 61 78 5d 73 20 24 6e 5d 2f 24 6d th $max]s $n]/$m
0fa0: 61 78 5c 72 22 0a 20 20 20 20 7d 0a 20 20 20 20 ax\r". }.
0fb0: 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20 flush stdout.
0fc0: 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d return.}..# ---
0fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 6e 61 6d 65 ----------..name
1020: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a space eval ::vc:
1030: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 7b 0a 20 20 :tools::log {.
1040: 20 20 76 61 72 69 61 62 6c 65 20 6c 6f 67 6c 65 variable logle
1050: 76 65 6c 20 30 20 20 20 20 20 20 20 20 20 20 20 vel 0
1060: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 41 6c ; # Al
1070: 6c 6f 77 20 6f 6e 6c 79 20 75 6e 69 6e 74 65 72 low only uninter
1080: 75 70 74 69 62 6c 65 20 6d 65 73 73 61 67 65 73 uptible messages
1090: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c .. variable l
10a0: 6f 67 63 6d 64 20 20 20 3a 3a 76 63 3a 3a 74 6f ogcmd ::vc::to
10b0: 6f 6c 73 3a 3a 6c 6f 67 3a 3a 4f 55 54 20 3b 20 ols::log::OUT ;
10c0: 23 20 53 74 61 6e 64 61 72 64 20 6f 75 74 70 75 # Standard outpu
10d0: 74 20 74 6f 20 73 74 64 6f 75 74 2e 0a 20 20 20 t to stdout..
10e0: 20 76 61 72 69 61 62 6c 65 20 73 79 73 66 6d 74 variable sysfmt
10f0: 20 25 73 20 20 20 20 20 20 20 20 20 20 20 20 20 %s
1100: 20 20 20 20 20 20 20 20 20 3b 20 23 20 4e 6f 6e ; # Non
1110: 2d 74 61 62 75 6c 61 72 20 66 6f 72 6d 61 74 74 -tabular formatt
1120: 69 6e 67 2e 0a 20 20 20 20 76 61 72 69 61 62 6c ing.. variabl
1130: 65 20 73 79 73 6c 65 6e 20 30 20 20 20 20 20 20 e syslen 0
1140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1150: 20 3b 20 23 20 44 69 74 74 6f 2e 0a 0a 20 20 20 ; # Ditto...
1160: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
1170: 74 20 77 72 69 74 65 20 70 72 6f 67 72 65 73 73 t write progress
1180: 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .}..# ----------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11d0: 2d 2d 2d 0a 23 20 52 65 61 64 79 0a 0a 70 61 63 ---.# Ready..pac
11e0: 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 3a kage provide vc:
11f0: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 31 2e 30 0a :tools::log 1.0.
1200: 72 65 74 75 72 6e 0a return.