Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
remove some leftover debugging code from File/Spec/Win32.pir
git-svn-id: https://svn.parrot.org/parrot/trunk@9790 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information
particle committed Nov 4, 2005
1 parent 69ef977 commit 7e61d25
Showing 1 changed file with 0 additions and 52 deletions.
52 changes: 0 additions & 52 deletions runtime/parrot/library/File/Spec/Win32.pir
Expand Up @@ -232,10 +232,6 @@ do_match_1:
substr path, $I0, $I1, $S0
no_match_1:
print "-1 "
print path
print "\n"
match_2:
## $path =~ s|/|\\|g;
rulesub= p6rule( "/" )
Expand All @@ -250,10 +246,6 @@ do_match_2:
goto do_match_2
no_match_2:
print "-2 "
print path
print "\n"
match_3:
## $path =~ s|([^\\])\\+|$1\\|g;
## xx\\\\xx -> xx\xx
Expand All @@ -270,10 +262,6 @@ do_match_3:
goto do_match_3
no_match_3:
print "-3 "
print path
print "\n"
match_4:
## $path =~ s|(\\\.)+\\|\\|g;
## xx\.\.\xx -> xx\xx
Expand All @@ -289,10 +277,6 @@ do_match_4:
goto do_match_4
no_match_4:
print "-4 "
print path
print "\n"
match_5:
## $path =~ s|^(\.\\)+||s unless $path eq ".\\";
## .\xx -> xx
Expand All @@ -312,10 +296,6 @@ do_match_5:
substr path, $I0, $I1, $S0
no_match_5:
print "-5 "
print path
print "\n"
match_6:
## $path =~ s|\\\Z(?!\n)||
## unless $path =~ m{^([A-Z]:)?\\\Z(?!\n)}s;
Expand All @@ -335,10 +315,6 @@ match_6:
substr path, $I0, $I1, $S0
no_match_6:
print "-6 "
print path
print "\n"
match_7:
## $path =~ s|\\\.\.\.\\|\\\.\.\\\.\.\\|g;
## \...\ is 2 levels up
Expand All @@ -354,10 +330,6 @@ do_match_7:
goto do_match_7
no_match_7:
print "-7 "
print path
print "\n"
match_8:
## $path =~ s|^\.\.\.\\|\.\.\\\.\.\\|g;
## ...\ is 2 levels up
Expand All @@ -373,10 +345,6 @@ do_match_8:
goto do_match_8
no_match_8:
print "-8 "
print path
print "\n"
match_9:
## return $path if $path =~ m|^\.\.|;
## skip relative paths
Expand All @@ -386,10 +354,6 @@ do_match_9:
if match, return
no_match_9:
print "-9 "
print path
print "\n"
match_10:
## return $path unless $path =~ /\.\./;
## too few .'s to cleanup
Expand All @@ -399,10 +363,6 @@ do_match_10:
unless match, return
no_match_10:

print "10 "
print path
print "\n"

match_11:
## return $path if $path =~ /\.\.\.\./;
## too many .'s to cleanup
Expand All @@ -412,10 +372,6 @@ do_match_11:
if match, return
no_match_11:

print "11 "
print path
print "\n"

match_12:
## $path =~ s{^\\\.\.$}{\\};
## \.. -> \
Expand All @@ -430,10 +386,6 @@ do_match_12:
substr path, $I0, $I1, $S0
no_match_12:

print "12 "
print path
print "\n"

match_13:
## 1 while $path =~ s{^\\\.\.}{};
## \..\xx -> \xx
Expand All @@ -449,10 +401,6 @@ do_match_13:
goto match_13
no_match_13:

print "13 "
print path
print "\n"

# my ($vol,$s_dirs,$file) = $self->splitpath($path);
.local string vol, s_dirs, file
( vol, s_dirs, file )= self.'splitpath'( path )
Expand Down

0 comments on commit 7e61d25

Please sign in to comment.