Artifact 64ed240c1f70588bf1131f5ede480d5c1362fd73:
File
tools/lib/fossil.tcl
part of check-in
[df91d389d5]
- First semi-complete app for import from CVS. Trunk only, wholesale only.
by
aku on
2007-09-04 05:36:56.
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 52 65 70 6f 73 69 74 6f 72 79 20 6d 61 6e # Repository man
0060: 61 67 65 6d 65 6e 74 20 28 46 4f 53 53 49 4c 29 agement (FOSSIL)
0070: 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..# ------------
0080: 2d 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 0a 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 -.# Requirements
00d0: 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
00e0: 65 20 54 63 6c 20 38 2e 34 0a 0a 6e 61 6d 65 73 e Tcl 8.4..names
00f0: 70 61 63 65 20 65 76 61 6c 20 3a 3a 66 6f 73 73 pace eval ::foss
0100: 69 6c 20 7b 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d il {}..# -------
0110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 23 20 41 50 49 0a 0a 23 20 ------.# API..#
0160: 44 65 66 69 6e 65 20 72 65 70 6f 73 69 74 6f 72 Define repositor
0170: 79 20 66 69 6c 65 2c 20 61 6e 64 20 63 6f 6e 6e y file, and conn
0180: 65 63 74 20 74 6f 20 77 6f 72 6b 73 70 61 63 65 ect to workspace
0190: 20 69 6e 20 43 57 44 2e 0a 0a 70 72 6f 63 20 3a in CWD...proc :
01a0: 3a 66 6f 73 73 69 6c 3a 3a 6e 65 77 20 7b 7d 20 :fossil::new {}
01b0: 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 {. variable f
01c0: 72 20 20 20 20 20 5b 66 69 6c 65 20 6e 6f 72 6d r [file norm
01d0: 61 6c 69 7a 65 20 5b 66 69 6c 65 75 74 69 6c 3a alize [fileutil:
01e0: 3a 74 65 6d 70 66 69 6c 65 20 69 6d 70 6f 72 74 :tempfile import
01f0: 32 5f 66 73 6c 5f 72 70 5f 5d 5d 0a 20 20 20 20 2_fsl_rp_]].
0200: 76 61 72 69 61 62 6c 65 20 66 6f 73 73 69 6c 0a variable fossil.
0210: 0a 20 20 20 20 23 20 70 77 64 20 3d 20 77 6f 72 . # pwd = wor
0220: 6b 73 70 61 63 65 0a 20 20 20 20 65 78 65 63 20 kspace. exec
0230: 24 66 6f 73 73 69 6c 20 6e 65 77 20 20 24 66 72 $fossil new $fr
0240: 20 3b 20 23 20 63 72 65 61 74 65 20 61 6e 64 0a ; # create and.
0250: 20 20 20 20 65 78 65 63 20 24 66 6f 73 73 69 6c exec $fossil
0260: 20 6f 70 65 6e 20 24 66 72 20 3b 20 23 20 63 6f open $fr ; # co
0270: 6e 6e 65 63 74 0a 0a 20 20 20 20 4c 6f 67 20 69 nnect.. Log i
0280: 6e 66 6f 20 22 20 20 20 20 46 6f 73 73 69 6c 3a nfo " Fossil:
0290: 20 20 20 20 24 66 72 22 0a 0a 20 20 20 20 72 65 $fr".. re
02a0: 74 75 72 6e 20 24 66 72 0a 7d 0a 0a 23 20 44 65 turn $fr.}..# De
02b0: 66 69 6e 65 20 6c 6f 67 67 69 6e 67 20 63 61 6c fine logging cal
02c0: 6c 62 61 63 6b 20 63 6f 6d 6d 61 6e 64 0a 0a 70 lback command..p
02d0: 72 6f 63 20 3a 3a 66 6f 73 73 69 6c 3a 3a 66 65 roc ::fossil::fe
02e0: 65 64 62 61 63 6b 20 7b 6c 6f 67 63 6d 64 7d 20 edback {logcmd}
02f0: 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c {. variable l
0300: 63 20 24 6c 6f 67 63 6d 64 0a 20 20 20 20 72 65 c $logcmd. re
0310: 74 75 72 6e 0a 7d 0a 0a 23 20 4d 6f 76 65 20 67 turn.}..# Move g
0320: 65 6e 65 72 61 74 65 64 20 66 6f 73 73 69 6c 20 enerated fossil
0330: 72 65 70 6f 73 69 74 6f 72 79 20 74 6f 20 66 69 repository to fi
0340: 6e 61 6c 20 64 65 73 74 69 6e 61 74 69 6f 6e 0a nal destination.
0350: 0a 70 72 6f 63 20 3a 3a 66 6f 73 73 69 6c 3a 3a .proc ::fossil::
0360: 64 65 73 74 69 6e 61 74 69 6f 6e 20 7b 70 61 74 destination {pat
0370: 68 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c h} {. variabl
0380: 65 20 66 72 0a 20 20 20 20 66 69 6c 65 20 72 65 e fr. file re
0390: 6e 61 6d 65 20 24 66 72 20 24 70 61 74 68 0a 20 name $fr $path.
03a0: 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 6e 61 6d return.}..nam
03b0: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 66 6f espace eval ::fo
03c0: 73 73 69 6c 20 7b 0a 20 20 20 20 23 20 52 65 70 ssil {. # Rep
03d0: 6f 73 69 74 6f 72 79 20 66 69 6c 65 0a 20 20 20 ository file.
03e0: 20 76 61 72 69 61 62 6c 65 20 66 72 20 7b 7d 0a variable fr {}.
03f0: 0a 20 20 20 20 23 20 46 6f 73 73 69 6c 20 61 70 . # Fossil ap
0400: 70 6c 69 63 61 74 69 6f 6e 0a 20 20 20 20 76 61 plication. va
0410: 72 69 61 62 6c 65 20 66 6f 73 73 69 6c 20 5b 61 riable fossil [a
0420: 75 74 6f 5f 65 78 65 63 6f 6b 20 66 6f 73 73 69 uto_execok fossi
0430: 6c 5d 0a 7d 0a 0a 0a 70 72 6f 63 20 3a 3a 66 6f l].}...proc ::fo
0440: 73 73 69 6c 3a 3a 63 6f 6d 6d 69 74 20 7b 61 70 ssil::commit {ap
0450: 70 6e 61 6d 65 20 6e 6f 73 69 67 6e 20 6d 65 74 pname nosign met
0460: 61 20 69 67 6e 6f 72 65 7d 20 7b 0a 20 20 20 20 a ignore} {.
0470: 76 61 72 69 61 62 6c 65 20 66 6f 73 73 69 6c 0a variable fossil.
0480: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c 61 73 variable las
0490: 74 75 75 69 64 0a 0a 20 20 20 20 23 20 43 6f 6d tuuid.. # Com
04a0: 6d 69 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 mit the current
04b0: 73 74 61 74 65 20 6f 66 20 74 68 65 20 77 6f 72 state of the wor
04c0: 6b 73 70 61 63 65 2e 20 53 63 61 6e 20 66 6f 72 kspace. Scan for
04d0: 20 6e 65 77 20 61 6e 64 0a 20 20 20 20 23 20 72 new and. # r
04e0: 65 6d 6f 76 65 64 20 66 69 6c 65 73 20 61 6e 64 emoved files and
04f0: 20 69 73 73 75 65 20 74 68 65 20 61 70 70 72 6f issue the appro
0500: 70 72 69 61 74 65 20 66 6f 73 73 69 6c 20 61 64 priate fossil ad
0510: 64 2f 72 6d 20 63 6f 6d 6d 61 6e 64 73 0a 20 20 d/rm commands.
0520: 20 20 23 20 62 65 66 6f 72 65 20 61 63 74 75 61 # before actua
0530: 6c 6c 79 20 63 6f 6d 69 74 74 69 6e 67 2e 0a 0a lly comitting...
0540: 20 20 20 20 23 20 4d 6f 64 69 66 69 65 64 2f 52 # Modified/R
0550: 65 6d 6f 76 65 64 20 66 69 6c 65 73 20 66 69 72 emoved files fir
0560: 73 74 2c 20 74 68 61 74 20 77 61 79 20 74 68 65 st, that way the
0570: 72 65 20 77 6f 6e 27 74 20 62 65 20 61 6e 79 20 re won't be any
0580: 41 44 44 45 44 0a 20 20 20 20 23 20 69 6e 64 69 ADDED. # indi
0590: 63 61 74 6f 72 73 2e 20 4e 6f 72 20 52 45 4d 4f cators. Nor REMO
05a0: 56 45 44 2c 20 6f 6e 6c 79 20 45 44 49 54 45 44 VED, only EDITED
05b0: 2e 20 52 65 6d 6f 76 65 64 20 66 69 6c 65 73 20 . Removed files
05c0: 73 68 6f 77 20 75 70 20 61 73 0a 20 20 20 20 23 show up as. #
05d0: 20 45 44 49 54 45 44 20 77 68 69 6c 65 20 74 68 EDITED while th
05e0: 65 79 20 61 72 65 20 6e 6f 74 20 72 65 67 69 73 ey are not regis
05f0: 74 65 72 65 64 20 61 73 20 72 65 6d 6f 76 65 64 tered as removed
0600: 2e 0a 0a 20 20 20 20 73 65 74 20 61 64 64 65 64 ... set added
0610: 20 20 20 30 0a 20 20 20 20 73 65 74 20 72 65 6d 0. set rem
0620: 6f 76 65 64 20 30 0a 20 20 20 20 73 65 74 20 63 oved 0. set c
0630: 68 61 6e 67 65 64 20 30 0a 0a 20 20 20 20 66 6f hanged 0.. fo
0640: 72 65 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 reach line [spli
0650: 74 20 5b 65 78 65 63 20 24 66 6f 73 73 69 6c 20 t [exec $fossil
0660: 63 68 61 6e 67 65 73 5d 20 5c 6e 5d 20 7b 0a 09 changes] \n] {..
0670: 72 65 67 73 75 62 20 7b 5e 5c 73 2a 45 44 49 54 regsub {^\s*EDIT
0680: 45 44 5c 73 2a 7d 20 24 6c 69 6e 65 20 7b 7d 20 ED\s*} $line {}
0690: 70 61 74 68 0a 09 69 66 20 7b 5b 49 47 4e 4f 52 path..if {[IGNOR
06a0: 45 20 24 69 67 6e 6f 72 65 20 24 70 61 74 68 5d E $ignore $path]
06b0: 7d 20 63 6f 6e 74 69 6e 75 65 0a 0a 09 69 66 20 } continue...if
06c0: 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 {![file exists $
06d0: 70 61 74 68 5d 7d 20 7b 0a 09 20 20 20 20 65 78 path]} {.. ex
06e0: 65 63 20 24 66 6f 73 73 69 6c 20 72 6d 20 24 70 ec $fossil rm $p
06f0: 61 74 68 0a 09 20 20 20 20 69 6e 63 72 20 72 65 ath.. incr re
0700: 6d 6f 76 65 64 0a 09 20 20 20 20 4c 6f 67 20 69 moved.. Log i
0710: 6e 66 6f 20 22 20 20 20 20 20 20 20 20 2a 2a 20 nfo " **
0720: 2d 20 24 70 61 74 68 22 0a 09 7d 20 65 6c 73 65 - $path"..} else
0730: 20 7b 0a 09 20 20 20 20 69 6e 63 72 20 63 68 61 {.. incr cha
0740: 6e 67 65 64 0a 09 20 20 20 20 4c 6f 67 20 69 6e nged.. Log in
0750: 66 6f 20 22 20 20 20 20 20 20 20 20 2a 2a 20 2a fo " ** *
0760: 20 24 70 61 74 68 22 0a 09 7d 0a 20 20 20 20 7d $path"..}. }
0770: 0a 0a 20 20 20 20 23 20 4e 6f 77 20 6c 6f 6f 6b .. # Now look
0780: 20 66 6f 72 20 75 6e 72 65 67 69 73 74 65 72 65 for unregistere
0790: 64 20 61 64 64 65 64 20 66 69 6c 65 73 2e 0a 0a d added files...
07a0: 20 20 20 20 66 6f 72 65 61 63 68 20 70 61 74 68 foreach path
07b0: 20 5b 73 70 6c 69 74 20 5b 65 78 65 63 20 24 66 [split [exec $f
07c0: 6f 73 73 69 6c 20 65 78 74 72 61 5d 20 5c 6e 5d ossil extra] \n]
07d0: 20 7b 0a 09 69 66 20 7b 5b 49 47 4e 4f 52 45 20 {..if {[IGNORE
07e0: 24 69 67 6e 6f 72 65 20 24 70 61 74 68 5d 7d 20 $ignore $path]}
07f0: 63 6f 6e 74 69 6e 75 65 0a 09 65 78 65 63 20 24 continue..exec $
0800: 66 6f 73 73 69 6c 20 61 64 64 20 24 70 61 74 68 fossil add $path
0810: 0a 09 69 6e 63 72 20 61 64 64 65 64 0a 09 4c 6f ..incr added..Lo
0820: 67 20 69 6e 66 6f 20 22 20 20 20 20 20 20 20 20 g info "
0830: 2a 2a 20 2b 20 24 70 61 74 68 22 0a 20 20 20 20 ** + $path".
0840: 7d 0a 0a 20 20 20 20 23 20 4e 6f 77 20 63 6f 6d }.. # Now com
0850: 6d 69 74 2c 20 75 73 69 6e 67 20 74 68 65 20 70 mit, using the p
0860: 72 6f 76 69 64 65 64 20 6d 65 74 61 20 64 61 74 rovided meta dat
0870: 61 2c 20 61 6e 64 20 63 61 70 74 75 72 65 20 74 a, and capture t
0880: 68 65 20 75 75 69 64 0a 20 20 20 20 23 20 6f 66 he uuid. # of
0890: 20 74 68 65 20 6e 65 77 20 62 61 73 65 6c 69 6e the new baselin
08a0: 65 2e 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 e... foreach
08b0: 7b 75 73 65 72 20 6d 65 73 73 61 67 65 20 74 73 {user message ts
08c0: 74 61 6d 70 7d 20 24 6d 65 74 61 20 62 72 65 61 tamp} $meta brea
08d0: 6b 0a 0a 20 20 20 20 73 65 74 20 6d 65 73 73 61 k.. set messa
08e0: 67 65 20 5b 6a 6f 69 6e 20 5b 6c 69 73 74 20 5c ge [join [list \
08f0: 0a 09 09 09 20 20 20 22 2d 2d 20 4f 72 69 67 69 .... "-- Origi
0900: 6e 61 6c 6c 79 20 62 79 20 24 75 73 65 72 20 40 nally by $user @
0910: 20 24 74 73 74 61 6d 70 22 20 5c 0a 09 09 09 20 $tstamp" \....
0920: 20 20 22 2d 2d 20 49 6d 70 6f 72 74 65 64 20 62 "-- Imported b
0930: 79 20 24 61 70 70 6e 61 6d 65 22 20 5c 0a 09 09 y $appname" \...
0940: 09 20 20 20 24 6d 65 73 73 61 67 65 5d 20 5c 6e . $message] \n
0950: 5d 0a 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 ].. if {[catc
0960: 68 20 7b 0a 09 69 66 20 7b 24 6e 6f 73 69 67 6e h {..if {$nosign
0970: 7d 20 7b 0a 09 20 20 20 20 65 78 65 63 20 24 66 } {.. exec $f
0980: 6f 73 73 69 6c 20 63 6f 6d 6d 69 74 20 2d 6d 20 ossil commit -m
0990: 24 6d 65 73 73 61 67 65 20 2d 2d 6e 6f 73 69 67 $message --nosig
09a0: 6e 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 n..} else {..
09b0: 20 65 78 65 63 20 24 66 6f 73 73 69 6c 20 63 6f exec $fossil co
09c0: 6d 6d 69 74 20 2d 6d 20 24 6d 65 73 73 61 67 65 mmit -m $message
09d0: 0a 09 7d 0a 20 20 20 20 7d 20 6c 69 6e 65 5d 7d ..}. } line]}
09e0: 20 7b 0a 09 69 66 20 7b 21 5b 73 74 72 69 6e 67 {..if {![string
09f0: 20 6d 61 74 63 68 20 22 2a 6e 6f 74 68 69 6e 67 match "*nothing
0a00: 20 68 61 73 20 63 68 61 6e 67 65 64 2a 22 20 24 has changed*" $
0a10: 6c 69 6e 65 5d 7d 20 7b 0a 09 20 20 20 20 72 65 line]} {.. re
0a20: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
0a30: 20 24 6c 69 6e 65 0a 09 7d 0a 0a 09 23 20 27 4e $line..}...# 'N
0a40: 6f 74 68 69 6e 67 20 63 68 61 6e 67 65 64 27 20 othing changed'
0a50: 63 61 6e 20 68 61 70 70 65 6e 20 66 6f 72 20 63 can happen for c
0a60: 68 61 6e 67 65 73 65 74 73 20 63 6f 6e 74 61 69 hangesets contai
0a70: 6e 69 6e 67 20 6f 6e 6c 79 0a 09 23 20 64 65 61 ning only..# dea
0a80: 64 2d 66 69 72 73 74 20 72 65 76 69 73 69 6f 6e d-first revision
0a90: 73 20 6f 66 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 s of one or more
0aa0: 20 66 69 6c 65 73 2e 20 46 6f 72 20 66 6f 73 73 files. For foss
0ab0: 69 6c 20 77 65 0a 09 23 20 72 65 2d 75 73 65 20 il we..# re-use
0ac0: 74 68 65 20 6c 61 73 74 20 62 61 73 65 6c 69 6e the last baselin
0ad0: 65 2e 20 54 4f 44 4f 3a 20 4d 61 72 6b 20 74 68 e. TODO: Mark th
0ae0: 65 6d 20 61 73 20 62 72 61 6e 63 68 70 6f 69 6e em as branchpoin
0af0: 74 2c 0a 09 23 20 61 6e 64 20 66 6f 72 20 77 68 t,..# and for wh
0b00: 61 74 20 66 69 6c 65 2e 0a 0a 09 4c 6f 67 20 69 at file....Log i
0b10: 6e 66 6f 20 22 20 20 20 20 20 20 20 20 55 4e 43 nfo " UNC
0b20: 48 41 4e 47 45 44 2c 20 6b 65 65 70 69 6e 67 20 HANGED, keeping
0b30: 6c 61 73 74 22 0a 0a 09 72 65 74 75 72 6e 20 5b last"...return [
0b40: 6c 69 73 74 20 24 6c 61 73 74 75 75 69 64 20 30 list $lastuuid 0
0b50: 20 30 20 30 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 0 0]. }..
0b60: 20 73 65 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e set line [strin
0b70: 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 0a 20 20 g trim $line].
0b80: 20 20 72 65 67 73 75 62 20 2d 6e 6f 63 61 73 65 regsub -nocase
0b90: 20 2d 2d 20 7b 5e 5c 73 2a 4e 65 77 5f 56 65 72 -- {^\s*New_Ver
0ba0: 73 69 6f 6e 3a 5c 73 2a 7d 20 24 6c 69 6e 65 20 sion:\s*} $line
0bb0: 7b 7d 20 75 75 69 64 0a 0a 20 20 20 20 73 65 74 {} uuid.. set
0bc0: 20 6c 61 73 74 75 75 69 64 20 24 75 75 69 64 0a lastuuid $uuid.
0bd0: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 return [list
0be0: 20 24 75 75 69 64 20 24 61 64 64 65 64 20 24 72 $uuid $added $r
0bf0: 65 6d 6f 76 65 64 20 24 63 68 61 6e 67 65 64 5d emoved $changed]
0c00: 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .}..# ----------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c50: 2d 2d 2d 0a 23 20 49 6e 74 65 72 6e 61 6c 20 68 ---.# Internal h
0c60: 65 6c 70 65 72 20 63 6f 6d 6d 61 6e 64 73 0a 0a elper commands..
0c70: 70 72 6f 63 20 3a 3a 66 6f 73 73 69 6c 3a 3a 49 proc ::fossil::I
0c80: 47 4e 4f 52 45 20 7b 69 67 6e 6f 72 65 20 70 61 GNORE {ignore pa
0c90: 74 68 7d 20 7b 0a 20 20 20 20 72 65 74 75 72 6e th} {. return
0ca0: 20 5b 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c 69 [uplevel #0 [li
0cb0: 6e 73 65 72 74 20 24 69 67 6e 6f 72 65 20 65 6e nsert $ignore en
0cc0: 64 20 24 70 61 74 68 5d 5d 0a 7d 0a 0a 70 72 6f d $path]].}..pro
0cd0: 63 20 3a 3a 66 6f 73 73 69 6c 3a 3a 4c 6f 67 20 c ::fossil::Log
0ce0: 7b 6c 65 76 65 6c 20 74 65 78 74 7d 20 7b 0a 20 {level text} {.
0cf0: 20 20 20 76 61 72 69 61 62 6c 65 20 6c 63 0a 20 variable lc.
0d00: 20 20 20 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c uplevel #0 [l
0d10: 69 6e 73 65 72 74 20 24 6c 63 20 65 6e 64 20 24 insert $lc end $
0d20: 6c 65 76 65 6c 20 24 74 65 78 74 5d 0a 20 20 20 level $text].
0d30: 20 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 return.}..proc
0d40: 3a 3a 66 6f 73 73 69 6c 3a 3a 4e 6f 70 20 7b 61 ::fossil::Nop {a
0d50: 72 67 73 7d 20 7b 7d 0a 0a 6e 61 6d 65 73 70 61 rgs} {}..namespa
0d60: 63 65 20 65 76 61 6c 20 3a 3a 66 6f 73 73 69 6c ce eval ::fossil
0d70: 20 7b 0a 20 20 20 20 23 20 4c 6f 67 67 69 6e 67 {. # Logging
0d80: 20 63 61 6c 6c 62 61 63 6b 2e 20 4e 6f 20 6c 6f callback. No lo
0d90: 67 67 69 6e 67 20 62 79 20 64 65 66 61 75 6c 74 gging by default
0da0: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c .. variable l
0db0: 63 20 3a 3a 66 6f 73 73 69 6c 3a 3a 4e 6f 70 0a c ::fossil::Nop.
0dc0: 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }..# -----------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e10: 2d 2d 0a 23 20 52 65 61 64 79 0a 0a 70 61 63 6b --.# Ready..pack
0e20: 61 67 65 20 70 72 6f 76 69 64 65 20 66 6f 73 73 age provide foss
0e30: 69 6c 20 31 2e 30 0a 72 65 74 75 72 6e 0a il 1.0.return.