develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34535 - in trunk: . src

From:
coke
Date:
December 28, 2008 18:01
Subject:
[svn:parrot] r34535 - in trunk: . src
Message ID:
20081229020102.65C42CB9FA@x12.develooper.com
Author: coke
Date: Sun Dec 28 18:01:01 2008
New Revision: 34535

Modified:
   trunk/DEPRECATED.pod
   trunk/src/io.c

Log:
Remove [DEPRECATED] open file modes.



Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Sun Dec 28 18:01:01 2008
@@ -51,11 +51,6 @@
 
 See RT #58410.
 
-=item * C<open> opcode mode string [post 0.8.2]
-
-The C<open> opcode will change from Perl-style mode-strings to 'r' for read,
-'w' for write, 'a' for append, and 'p' for pipe.
-
 =item * C<infix> and C<n_infix> opcodes [post 0.8.2]
 
 These opcodes were only used by the old MMD system. See TT #7.

Modified: trunk/src/io.c
==============================================================================
--- trunk/src/io.c	(original)
+++ trunk/src/io.c	Sun Dec 28 18:01:01 2008
@@ -73,51 +73,6 @@
         }
     }
 
-    /* These comparisons are put in place for backward compatibility, and will
-     * be removed after a deprecation cycle. */
-    if (flags == 0) {
-        INTVAL first = string_index(interp, mode_str, 0);
-        INTVAL second = string_index(interp, mode_str, 1);
-        switch (first) {
-            case '+':
-                flags |= (PIO_F_WRITE | PIO_F_READ);
-                switch (second) {
-                    case '<':
-                        break;
-                    case '>':
-                        flags |= PIO_F_TRUNC;
-                        break;
-                    default:
-                        return 0;
-                }
-                break;
-            case '<':
-                flags |= PIO_F_READ;
-                break;
-            case '>':
-                flags |= PIO_F_WRITE;
-                if (second == '>') {
-                    flags |= PIO_F_APPEND;
-                }
-                else {
-                    flags |= PIO_F_TRUNC;
-                }
-                break;
-            case '-':       /* -| read from pipe */
-                if (second == '|') {
-                    flags |= PIO_F_PIPE | PIO_F_READ;
-                }
-                break;
-            case '|':       /* |- write to pipe */
-                if (second == '-') {
-                    flags |= PIO_F_PIPE | PIO_F_WRITE;
-                }
-                break;
-            default:
-                return 0;
-        }
-    }
-
     return flags;
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About