From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 Perl/Zinc/TraceUtils.pm | 111 ------------------------------------------------
 1 file changed, 111 deletions(-)
 delete mode 100644 Perl/Zinc/TraceUtils.pm

(limited to 'Perl/Zinc/TraceUtils.pm')

diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
deleted file mode 100644
index 8a3bc76..0000000
--- a/Perl/Zinc/TraceUtils.pm
+++ /dev/null
@@ -1,111 +0,0 @@
-package Tk::Zinc::TraceUtils;
-
-use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
-
-use Tk;
-use Tk::Font;
-use Tk::Photo;
-
-require Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(printItem printArray printList Item Array List);
-
-use strict;
-
-sub printItem {
-    print &Item (@_);
-}
-
-sub printArray {
-    print &Array (@_);
-}
-
-sub printList {
-    print &List (@_);
-}
-
-
-### to print something
-sub Item {
-    my ($value) = @_;
-    my $ref = ref($value);
-#    print "VALUE=$value REF=$ref\n";
-    if ($ref eq 'ARRAY') {
-	return Array ( @{$value} );
-    } elsif ($ref eq 'CODE') {
-	return "{CODE}";
-    } elsif ($ref eq 'Tk::Photo') {
-#	print " **** $value ***** ";
-	return "Tk::Photo(\"". scalar $value->cget('-file') . "\")";
-    } elsif ($ref eq 'Tk::Font') {
-	return "'$value'";
-    } elsif ($ref eq '') {  # scalar 
-	if (defined $value) {
-	    if ($value =~ /^-?\d+(\.\d*(e[+-]?\d+)?)?$/ or # -1. or 1.0
-		$value =~ /^-[a-zA-Z]([\w])*$/ # -option1 or -option-1
-		) {
-		return $value;
-	    } elsif ($value eq ''
-		     or $value =~ /\s/
-		     or $value =~ /^[a-zA-Z]/
-		     or $value =~ /^[\W]/
-		     ) {
-		return "'$value'";
-	    } else {
-		return $value;
-	    }
-	} else {
-	    return "_undef";
-	}
-    } else { # some  class instance
-	return $value;
-    }
-    
-} # end Item
-
-
-### to print a list of something
-sub Array {
-    my (@values) = @_;
-    if (! scalar @values) {
-	return "[]";
-    }
-    else {  # the list is not empty
-	my $res = "[";
-	while (@values) {
-	    my $value = shift @values;
-	    $res .= &Item ($value);
-	    $res .= ", " if (@values);
-	}
-	return $res. "]" ;
-    }
-    
-} # end Array
-
-
-sub List {
-    my $res = "(";
-    while (@_) {
-	my $v = shift @_;
-	$res .= Item ($v);
-	if (@_ > 0) {
-	    ## still some elements
-	    if ($v =~ /^-\d+$/) {
-		$res .= ", ";
-	    } elsif ($v =~ /^-\w+$/) {
-		$res .= " => ";
-	    } else {
-		$res .= ", ";
-	    }
-	}
-    }
-    return $res. ")";
-    
-} # end List
-
-
-1;
-
-
-
-- 
cgit v1.1