Fossil

Hex Artifact Content
Login

Artifact 7f36cbf30a82ef3cec30c1917a96415fa7d76eeb:


0000: 3c 64 69 76 20 63 6c 61 73 73 3d 22 66 6f 6f 74  <div class="foot
0010: 65 72 22 3e 0a 20 20 3c 74 68 31 3e 0a 20 20 70  er">.  <th1>.  p
0020: 72 6f 63 20 67 65 74 54 63 6c 56 65 72 73 69 6f  roc getTclVersio
0030: 6e 20 7b 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b  n {} {.    if {[
0040: 63 61 74 63 68 20 7b 74 63 6c 45 76 61 6c 20 69  catch {tclEval i
0050: 6e 66 6f 20 70 61 74 63 68 6c 65 76 65 6c 7d 20  nfo patchlevel} 
0060: 74 63 6c 56 65 72 73 69 6f 6e 5d 20 3d 3d 20 30  tclVersion] == 0
0070: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
0080: 20 22 3c 61 20 68 72 65 66 3d 5c 22 68 74 74 70   "<a href=\"http
0090: 3a 2f 2f 77 77 77 2e 74 63 6c 2e 74 6b 2f 5c 22  ://www.tcl.tk/\"
00a0: 3e 54 63 6c 3c 2f 61 3e 20 76 65 72 73 69 6f 6e  >Tcl</a> version
00b0: 20 24 74 63 6c 56 65 72 73 69 6f 6e 22 0a 20 20   $tclVersion".  
00c0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 22    }.    return "
00d0: 22 0a 20 20 7d 0a 20 20 70 72 6f 63 20 67 65 74  ".  }.  proc get
00e0: 56 65 72 73 69 6f 6e 20 7b 20 76 65 72 73 69 6f  Version { versio
00f0: 6e 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 6c 65  n } {.    set le
0100: 6e 67 74 68 20 5b 73 74 72 69 6e 67 20 6c 65 6e  ngth [string len
0110: 67 74 68 20 24 76 65 72 73 69 6f 6e 5d 0a 20 20  gth $version].  
0120: 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67    return [string
0130: 20 72 61 6e 67 65 20 24 76 65 72 73 69 6f 6e 20   range $version 
0140: 31 20 5b 65 78 70 72 20 7b 24 6c 65 6e 67 74 68  1 [expr {$length
0150: 20 2d 20 32 7d 5d 5d 0a 20 20 7d 0a 20 20 73 65   - 2}]].  }.  se
0160: 74 20 76 65 72 73 69 6f 6e 20 5b 67 65 74 56 65  t version [getVe
0170: 72 73 69 6f 6e 20 24 6d 61 6e 69 66 65 73 74 5f  rsion $manifest_
0180: 76 65 72 73 69 6f 6e 5d 0a 20 20 73 65 74 20 74  version].  set t
0190: 63 6c 56 65 72 73 69 6f 6e 20 5b 67 65 74 54 63  clVersion [getTc
01a0: 6c 56 65 72 73 69 6f 6e 5d 0a 20 20 73 65 74 20  lVersion].  set 
01b0: 66 6f 73 73 69 6c 55 72 6c 20 68 74 74 70 73 3a  fossilUrl https:
01c0: 2f 2f 77 77 77 2e 66 6f 73 73 69 6c 2d 73 63 6d  //www.fossil-scm
01d0: 2e 6f 72 67 0a 20 20 73 65 74 20 66 6f 73 73 69  .org.  set fossi
01e0: 6c 44 61 74 65 20 5b 73 74 72 69 6e 67 20 72 61  lDate [string ra
01f0: 6e 67 65 20 24 6d 61 6e 69 66 65 73 74 5f 64 61  nge $manifest_da
0200: 74 65 20 30 20 39 5d 54 5b 73 74 72 69 6e 67 20  te 0 9]T[string 
0210: 72 61 6e 67 65 20 24 6d 61 6e 69 66 65 73 74 5f  range $manifest_
0220: 64 61 74 65 20 31 31 20 65 6e 64 5d 0a 20 20 3c  date 11 end].  <
0230: 2f 74 68 31 3e 0a 20 20 54 68 69 73 20 70 61 67  /th1>.  This pag
0240: 65 20 77 61 73 20 67 65 6e 65 72 61 74 65 64 20  e was generated 
0250: 69 6e 20 61 62 6f 75 74 0a 20 20 3c 74 68 31 3e  in about.  <th1>
0260: 70 75 74 73 20 5b 65 78 70 72 20 7b 28 5b 75 74  puts [expr {([ut
0270: 69 6d 65 5d 2b 5b 73 74 69 6d 65 5d 2b 31 30 30  ime]+[stime]+100
0280: 30 29 2f 31 30 30 30 2a 30 2e 30 30 31 7d 5d 3c  0)/1000*0.001}]<
0290: 2f 74 68 31 3e 73 20 62 79 0a 20 20 3c 61 20 68  /th1>s by.  <a h
02a0: 72 65 66 3d 22 24 66 6f 73 73 69 6c 55 72 6c 2f  ref="$fossilUrl/
02b0: 22 3e 46 6f 73 73 69 6c 3c 2f 61 3e 0a 20 20 76  ">Fossil</a>.  v
02c0: 65 72 73 69 6f 6e 20 24 72 65 6c 65 61 73 65 5f  ersion $release_
02d0: 76 65 72 73 69 6f 6e 20 24 74 63 6c 56 65 72 73  version $tclVers
02e0: 69 6f 6e 0a 20 20 3c 61 20 68 72 65 66 3d 22 24  ion.  <a href="$
02f0: 66 6f 73 73 69 6c 55 72 6c 2f 69 6e 64 65 78 2e  fossilUrl/index.
0300: 68 74 6d 6c 2f 69 6e 66 6f 2f 24 76 65 72 73 69  html/info/$versi
0310: 6f 6e 22 3e 24 6d 61 6e 69 66 65 73 74 5f 76 65  on">$manifest_ve
0320: 72 73 69 6f 6e 3c 2f 61 3e 0a 20 20 3c 61 20 68  rsion</a>.  <a h
0330: 72 65 66 3d 22 24 66 6f 73 73 69 6c 55 72 6c 2f  ref="$fossilUrl/
0340: 69 6e 64 65 78 2e 68 74 6d 6c 2f 74 69 6d 65 6c  index.html/timel
0350: 69 6e 65 3f 63 3d 24 66 6f 73 73 69 6c 44 61 74  ine?c=$fossilDat
0360: 65 26 61 6d 70 3b 79 3d 63 69 22 3e 24 6d 61 6e  e&amp;y=ci">$man
0370: 69 66 65 73 74 5f 64 61 74 65 3c 2f 61 3e 0a 3c  ifest_date</a>.<
0380: 2f 64 69 76 3e 0a 3c 2f 62 6f 64 79 3e 3c 2f 68  /div>.</body></h
0390: 74 6d 6c 3e 0a                                   tml>.