Return to parray.tcl CVS log

Up to [Micropolis - Activity] / micropolis / res

Annotation of micropolis/res/parray.tcl, revision 1.1

1.1     ! root        1: # parray:
        !             2: # Print the contents of a global array on stdout.
        !             3: #
        !             4: # $Header: /sprite/src/lib/tcl/scripts/RCS/parray.tcl,v 1.1 91/09/26 09:55:03 ouster Exp $ SPRITE (Berkeley)
        !             5: #
        !             6: # Copyright 1991 Regents of the University of California
        !             7: # Permission to use, copy, modify, and distribute this
        !             8: # software and its documentation for any purpose and without
        !             9: # fee is hereby granted, provided that this copyright
        !            10: # notice appears in all copies.  The University of California
        !            11: # makes no representations about the suitability of this
        !            12: # software for any purpose.  It is provided "as is" without
        !            13: # express or implied warranty.
        !            14: #
        !            15: 
        !            16: proc parray a {
        !            17:     global $a
        !            18:     set maxl 0
        !            19:     foreach name [lsort [array names $a]] {
        !            20:        if {[string length $name] > $maxl} {
        !            21:            set maxl [string length $name]
        !            22:        }
        !            23:     }
        !            24:     set maxl [expr {$maxl + [string length $a] + 2}]
        !            25:     foreach name [lsort [array names $a]] {
        !            26:        set nameString [format %s(%s) $a $name]
        !            27:        puts stdout [format "%-*s = %s" $maxl $nameString [set ${a}($name)]]
        !            28:     }
        !            29: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.