Artifact ab205caa271f62f7fb5db9f1ad7995b746da5853:

File tools/tclfossil/lib/vc/fossil/ui-1.0.tm part of check-in [2b9c6df430] - tclfossil: initial directory structure and package split up by mjanssen on 2008-02-19 18:05:51.

0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0d 0a  ## -*- tcl -*-..
0010: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23  # # ## ### #####
0020: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23   ######## ######
0030: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23  ####### ########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 23  #############..#
0050: 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20  # Copyright (c) 
0060: 32 30 30 38 20 4d 61 72 6b 20 4a 61 6e 73 73 65  2008 Mark Jansse
0070: 6e 2e 0d 0a 23 0d 0a 23 20 54 68 69 73 20 73 6f  n...#..# This so
0080: 66 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73  ftware is licens
0090: 65 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20  ed as described 
00a0: 69 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45  in the file LICE
00b0: 4e 53 45 2c 20 77 68 69 63 68 0d 0a 23 20 79 6f  NSE, which..# yo
00c0: 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65  u should have re
00d0: 63 65 69 76 65 64 20 61 73 20 70 61 72 74 20 6f  ceived as part o
00e0: 66 20 74 68 69 73 20 64 69 73 74 72 69 62 75 74  f this distribut
00f0: 69 6f 6e 2e 0d 0a 23 0d 0a 23 20 54 68 69 73 20  ion...#..# This 
0100: 73 6f 66 74 77 61 72 65 20 63 6f 6e 73 69 73 74  software consist
0110: 73 20 6f 66 20 76 6f 6c 75 6e 74 61 72 79 20 63  s of voluntary c
0120: 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 6d 61 64  ontributions mad
0130: 65 20 62 79 20 6d 61 6e 79 0d 0a 23 20 69 6e 64  e by many..# ind
0140: 69 76 69 64 75 61 6c 73 2e 20 20 46 6f 72 20 65  ividuals.  For e
0150: 78 61 63 74 20 63 6f 6e 74 72 69 62 75 74 69 6f  xact contributio
0160: 6e 20 68 69 73 74 6f 72 79 2c 20 73 65 65 20 74  n history, see t
0170: 68 65 20 72 65 76 69 73 69 6f 6e 0d 0a 23 20 68  he revision..# h
0180: 69 73 74 6f 72 79 20 61 6e 64 20 6c 6f 67 73 2c  istory and logs,
0190: 20 61 76 61 69 6c 61 62 6c 65 20 61 74 20 68 74   available at ht
01a0: 74 70 3a 2f 2f 66 6f 73 73 69 6c 2d 73 63 6d 2e  tp://fossil-scm.
01b0: 68 77 61 63 69 2e 63 6f 6d 2f 66 6f 73 73 69 6c  hwaci.com/fossil
01c0: 0d 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23  ..# # ## ### ###
01d0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23  ## ######## ####
01e0: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23  ######### ######
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0200: 0a 0d 0a 23 23 20 43 6f 6d 6d 61 6e 64 20 6c 69  ...## Command li
0210: 6e 65 20 75 73 65 72 20 69 6e 74 65 72 66 61 63  ne user interfac
0220: 65 20 66 6f 72 20 74 63 6c 66 6f 73 73 69 6c 2e  e for tclfossil.
0230: 0d 0a 0d 0a 23 20 23 20 23 23 20 23 23 23 20 23  ....# # ## ### #
0240: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23  #### ######## ##
0250: 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23  ########### ####
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0270: 23 0d 0a 23 23 20 52 65 71 75 69 72 65 6d 65 6e  #..## Requiremen
0280: 74 73 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65  ts....package re
0290: 71 75 69 72 65 20 54 63 6c 20 38 2e 35 20 20 20  quire Tcl 8.5   
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02b0: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 52 65            ; # Re
02c0: 71 75 69 72 65 64 20 72 75 6e 74 69 6d 65 2e 0d  quired runtime..
02d0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
02e0: 20 73 6e 69 74 20 20 20 20 20 20 20 20 20 20 20   snit           
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0300: 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 79 73 74       ; # OO syst
0310: 65 6d 2e 0d 0a 70 61 63 6b 61 67 65 20 72 65 71  em...package req
0320: 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a  uire vc::fossil:
0330: 3a 63 6d 64 3a 3a 63 6c 6f 6e 65 20 31 2e 30 20  :cmd::clone 1.0 
0340: 20 20 20 20 20 20 20 20 20 3b 20 23 20 43 6c 6f           ; # Clo
0350: 6e 65 20 63 6f 6d 6d 61 6e 64 0d 0a 0d 0a 70 61  ne command....pa
0360: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63  ckage provide vc
0370: 3a 3a 66 6f 73 73 69 6c 3a 3a 75 69 20 31 2e 30  ::fossil::ui 1.0
0380: 0d 0a 0d 0a 23 20 23 20 23 23 20 23 23 23 20 23  ....# # ## ### #
0390: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23  #### ######## ##
03a0: 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23  ########### ####
03b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03c0: 23 0d 0a 23 23 0d 0a 0d 0a 6e 61 6d 65 73 70 61  #..##....namespa
03d0: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f  ce eval ::vc::fo
03e0: 73 73 69 6c 20 7b 0d 0a 20 20 20 20 73 6e 69 74  ssil {..    snit
03f0: 3a 3a 74 79 70 65 20 75 69 20 7b 0d 0a 09 74 79  ::type ui {...ty
0400: 70 65 76 61 72 69 61 62 6c 65 20 61 72 67 76 0d  pevariable argv.
0410: 0a 09 74 79 70 65 76 61 72 69 61 62 6c 65 20 61  ..typevariable a
0420: 72 67 63 0d 0a 09 74 79 70 65 76 61 72 69 61 62  rgc...typevariab
0430: 6c 65 20 63 6f 6d 6d 61 6e 64 0d 0a 09 74 79 70  le command...typ
0440: 65 76 61 72 69 61 62 6c 65 20 66 53 71 6c 54 72  evariable fSqlTr
0450: 61 63 65 0d 0a 09 74 79 70 65 76 61 72 69 61 62  ace...typevariab
0460: 6c 65 20 66 55 73 65 72 0d 0a 0d 0a 09 74 79 70  le fUser.....typ
0470: 65 6d 65 74 68 6f 64 20 72 75 6e 20 7b 61 72 67  emethod run {arg
0480: 73 7d 20 7b 0d 0a 09 20 20 20 20 0d 0a 09 20 20  s} {...    ...  
0490: 20 20 23 20 54 4f 44 4f 20 70 61 72 73 65 20 6f    # TODO parse o
04a0: 70 74 69 6f 6e 73 0d 0a 09 20 20 20 20 73 65 74  ptions...    set
04b0: 20 61 72 67 76 20 24 61 72 67 73 0d 0a 09 20 20   argv $args...  
04c0: 20 20 73 65 74 20 61 72 67 63 20 5b 6c 6c 65 6e    set argc [llen
04d0: 67 74 68 20 24 61 72 67 73 5d 0d 0a 0d 0a 09 20  gth $args]..... 
04e0: 20 20 20 69 66 20 7b 24 61 72 67 63 20 3c 20 32     if {$argc < 2
04f0: 7d 20 7b 0d 0a 09 09 75 69 20 75 73 61 67 65 20  } {....ui usage 
0500: 22 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 0d 0a 09  "COMMAND ..."...
0510: 20 20 20 20 7d 0d 0a 0d 0a 09 20 20 20 20 23 20      }.....    # 
0520: 54 4f 44 4f 20 62 65 74 74 65 72 20 63 6f 6d 6d  TODO better comm
0530: 61 6e 64 20 73 65 61 72 63 68 69 6e 67 20 73 6f  and searching so
0540: 20 70 72 65 66 69 78 65 73 20 77 6f 72 6b 0d 0a   prefixes work..
0550: 09 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64  .    set command
0560: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 31   [lindex $argv 1
0570: 5d 0d 0a 09 20 20 20 20 73 65 74 20 63 6f 6d 6d  ]...    set comm
0580: 61 6e 64 73 20 5b 76 63 3a 3a 66 6f 73 73 69 6c  ands [vc::fossil
0590: 3a 3a 63 6d 64 20 6c 69 73 74 5d 0d 0a 09 20 20  ::cmd list]...  
05a0: 20 20 20 20 20 0d 0a 09 20 20 20 20 69 66 20 7b       ...    if {
05b0: 5b 6c 73 65 61 72 63 68 20 24 63 6f 6d 6d 61 6e  [lsearch $comman
05c0: 64 73 20 24 63 6f 6d 6d 61 6e 64 5d 20 3c 20 30  ds $command] < 0
05d0: 7d 20 7b 0d 0a 09 09 70 75 74 73 20 22 75 6e 6b  } {....puts "unk
05e0: 6e 6f 77 6e 20 63 6f 6d 6d 61 6e 64 3a 20 24 63  nown command: $c
05f0: 6f 6d 6d 61 6e 64 22 0d 0a 09 09 70 75 74 73 20  ommand"....puts 
0600: 7b 75 73 65 20 22 68 65 6c 70 22 20 66 6f 72 20  {use "help" for 
0610: 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  more information
0620: 7d 0d 0a 09 09 65 78 69 74 20 31 0d 0a 09 20 20  }....exit 1...  
0630: 20 20 7d 0d 0a 09 20 20 20 20 76 63 3a 3a 66 6f    }...    vc::fo
0640: 73 73 69 6c 3a 3a 63 6d 64 3a 3a 24 63 6f 6d 6d  ssil::cmd::$comm
0650: 61 6e 64 20 7b 2a 7d 5b 6c 72 61 6e 67 65 20 24  and {*}[lrange $
0660: 61 72 67 76 20 31 20 65 6e 64 5d 0d 0a 09 20 20  argv 1 end]...  
0670: 20 20 72 65 74 75 72 6e 0d 0a 09 7d 0d 0a 09 0d    return...}....
0680: 0a 09 74 79 70 65 6d 65 74 68 6f 64 20 75 73 61  ..typemethod usa
0690: 67 65 20 7b 73 74 72 7d 20 7b 0d 0a 09 20 20 20  ge {str} {...   
06a0: 20 70 75 74 73 20 73 74 64 65 72 72 20 22 55 73   puts stderr "Us
06b0: 61 67 65 3a 20 5b 6c 72 61 6e 67 65 20 24 61 72  age: [lrange $ar
06c0: 67 76 20 30 20 31 5d 20 24 73 74 72 22 0d 0a 09  gv 0 1] $str"...
06d0: 20 20 20 20 65 78 69 74 20 31 0d 0a 09 7d 0d 0a      exit 1...}..
06e0: 09 0d 0a 09 74 79 70 65 6d 65 74 68 6f 64 20 70  ....typemethod p
06f0: 61 6e 69 63 20 7b 73 74 72 7d 20 7b 0d 0a 09 20  anic {str} {... 
0700: 20 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22     puts stderr "
0710: 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 30 5d  [lindex $argv 0]
0720: 3a 20 24 73 74 72 22 0d 0a 09 20 20 20 20 65 78  : $str"...    ex
0730: 69 74 20 31 0d 0a 09 7d 0d 0a 09 20 20 20 20 0d  it 1...}...    .
0740: 0a 09 0d 0a 09 74 79 70 65 6d 65 74 68 6f 64 20  .....typemethod 
0750: 61 72 67 63 20 7b 7d 20 7b 0d 0a 09 20 20 20 20  argc {} {...    
0760: 72 65 74 75 72 6e 20 24 61 72 67 63 0d 0a 09 7d  return $argc...}
0770: 0d 0a 0d 0a 09 74 79 70 65 6d 65 74 68 6f 64 20  .....typemethod 
0780: 61 72 67 76 20 7b 7d 20 7b 0d 0a 09 20 20 20 20  argv {} {...    
0790: 72 65 74 75 72 6e 20 24 61 72 67 76 0d 0a 09 7d  return $argv...}
07a0: 0d 0a 20 20 20 20 7d 0d 0a 7d                    ..    }..}