ex12.tcl

很不错的tcl编程实例

# Copyright 1996


# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# [e-mail]

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# [e-mail]

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 


# scan_ex1.tcl - extract values into given variables
#     behaves similar to ANSI sscanf
#
# bb  contains Boundingbox:
# a   contains 0.0
# ...
# d   contains 670.0
#
scan "Boundingbox: 0 0 450 670" "%s %f %f %f %f" bb a b c d
puts $tout "bb is $bb\n"
puts $tout "a is $a\n"
puts $tout "b is $b\n"
puts $tout "c is $c\n"
puts $tout "d is $d\n"
#
# red contains 127
#
scan 7f "%x" red
puts $tout "$red \n"