home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tclsrc / compat.tcl < prev    next >
Encoding:
Text File  |  1993-11-19  |  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-1993 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 3.0 1993/11/19 07:00:13 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.