home *** CD-ROM | disk | FTP | other *** search
/ Serving the Web / ServingTheWeb1995.disc1of1.iso / linux / slacksrce / tcl / tcl+tk+t / tclx7.3bl / tclx7 / tclX7.3b / tclsrc / compat.tcl < prev    next >
Encoding:
Text File  |  1994-07-16  |  1.1 KB  |  31 lines
  1. #
  2. # compat --
  3. #
  4. # This file provides commands compatible with older versions of Extended Tcl.
  5. # 
  6. #------------------------------------------------------------------------------
  7. # Copyright 1992-1994 Karl Lehenbauer and Mark Diekhans.
  8. #
  9. # Permission to use, copy, modify, and distribute this software and its
  10. # documentation for any purpose and without fee is hereby granted, provided
  11. # that the above copyright notice appear in all copies.  Karl Lehenbauer and
  12. # Mark Diekhans make no representations about the suitability of this
  13. # software for any purpose.  It is provided "as is" without express or
  14. # implied warranty.
  15. #------------------------------------------------------------------------------
  16. # $Id: compat.tcl,v 4.0 1994/07/16 05:29:27 markd Rel $
  17. #------------------------------------------------------------------------------
  18. #
  19.  
  20. #@package: TclX-Compatibility execvp assign_fields
  21.  
  22. proc execvp {progname args} {
  23.     error "The execvp command is outdated, use the execl command directly"
  24. }
  25. proc assign_fields {list args} {
  26.     if [lempty $args] {
  27.         return
  28.     }
  29.     return [uplevel lassign [list $list] $args]
  30. }
  31.