[svn:parrot] r39641 - branches/cindent

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Thu Jun 18 01:53:51 UTC 2009


Author: jkeenan
Date: Thu Jun 18 01:53:50 2009
New Revision: 39641
URL: https://trac.parrot.org/parrot/changeset/39641

Log:
Remove two dummy files used in testing and update MANIFEST.

Deleted:
   branches/cindent/idealpmc.txt
   branches/cindent/workpmc.txt
Modified:
   branches/cindent/MANIFEST

Modified: branches/cindent/MANIFEST
==============================================================================
--- branches/cindent/MANIFEST	Thu Jun 18 01:52:22 2009	(r39640)
+++ branches/cindent/MANIFEST	Thu Jun 18 01:53:50 2009	(r39641)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jun 17 23:40:51 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Thu Jun 18 01:53:13 2009 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -927,7 +927,6 @@
 ext/SQLite3/gen_sqlite3.pl                                  []
 ext/SQLite3/t/test.p6                                       [test]
 ext/SQLite3/test.pir                                        []
-idealpmc.txt                                                []
 include/parrot/atomic.h                                     [main]include
 include/parrot/atomic/fallback.h                            [main]include
 include/parrot/atomic/gcc_pcc.h                             [main]include
@@ -2155,7 +2154,6 @@
 tools/util/release.json                                     []
 tools/util/templates.json                                   []
 tools/util/update_copyright.pl                              []
-workpmc.txt                                                 []
 xconf/samples/testfoobar                                    []
 xconf/samples/yourfoobar                                    []
 # Local variables:

Deleted: branches/cindent/idealpmc.txt
==============================================================================
--- branches/cindent/idealpmc.txt	Thu Jun 18 01:53:50 2009	(r39640)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,69 +0,0 @@
-#include "../src/io/io_private.h"
-
-#ifdef PARROT_HAS_READLINE
-#ifdef __cplusplus
-extern "C" {
-#endif
-    char *readline(const char *);
-    void add_history(const char*);
-#ifdef __cplusplus
-}
-#endif
-#endif
-
-pmclass FileHandle extends Handle {
-    ATTR INTVAL flags;                /* Filehandle flags             */
-    ATTR STRING *filename;            /* The opened path and filename */
-    ATTR STRING *mode;                /* The mode string used in open */
-    ATTR STRING *encoding;            /* The encoding for read/write  */
-    ATTR INTVAL process_id;           /* Child process on pipes       */
-    ATTR PIOOFF_T file_size;          /* Current file size            */
-    ATTR PIOOFF_T file_pos;           /* Current real file pointer    */
-    ATTR PIOOFF_T last_pos;           /* Last file position           */
-    ATTR size_t buffer_size;          /* Buffer size                  */
-    ATTR INTVAL buffer_flags;         /* Buffer flags                 */
-    ATTR unsigned char *buffer_start; /* Start of buffer              */
-    ATTR unsigned char *buffer_end;   /* End of buffer                */
-    ATTR unsigned char *buffer_next;  /* Current read/write pointer   */
-
-/*
-
-=item C<METHOD readline_interactive(STRING *prompt)>
-
-Read a line from the filehandle and return it in a string.
-
-=cut
-
-*/
-
-    METHOD readline_interactive(STRING *prompt :optional, INTVAL got_prompt :opt_flag) {
-        STRING *string_result = NULL;
-#ifdef PARROT_HAS_READLINE
-        char * const r = readline(got_prompt ? prompt->strstart : NULL);
-
-        if (r) {
-            if (*r)
-                add_history(r);
-
-            string_result = Parrot_str_new(INTERP, r, 0);
-            mem_sys_free(r);
-        }
-#else
-        if (got_prompt)
-            fprintf(stderr, "%s", prompt->strstart);
-
-#endif
-        if (string_result)
-            RETURN(STRING *string_result);
-        else
-            RETURN(PMC *PMCNULL);
-    }
-} /* end pmclass */
-
-
-/*
- * Local variables:
- *   c-file-style: "parrot"
- * End:
- * vim: expandtab shiftwidth=4:
- */

Deleted: branches/cindent/workpmc.txt
==============================================================================
--- branches/cindent/workpmc.txt	Thu Jun 18 01:53:50 2009	(r39640)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,69 +0,0 @@
-#include "../src/io/io_private.h"
-
-#ifdef PARROT_HAS_READLINE
-#ifdef __cplusplus
-extern "C" {
-#endif
-    char *readline(const char *);
-    void add_history(const char*);
-#ifdef __cplusplus
-}
-#endif
-#endif
-
-pmclass FileHandle extends Handle {
-    ATTR INTVAL flags;                /* Filehandle flags             */
-    ATTR STRING *filename;            /* The opened path and filename */
-    ATTR STRING *mode;                /* The mode string used in open */
-    ATTR STRING *encoding;            /* The encoding for read/write  */
-    ATTR INTVAL process_id;           /* Child process on pipes       */
-    ATTR PIOOFF_T file_size;          /* Current file size            */
-    ATTR PIOOFF_T file_pos;           /* Current real file pointer    */
-    ATTR PIOOFF_T last_pos;           /* Last file position           */
-    ATTR size_t buffer_size;          /* Buffer size                  */
-    ATTR INTVAL buffer_flags;         /* Buffer flags                 */
-    ATTR unsigned char *buffer_start; /* Start of buffer              */
-    ATTR unsigned char *buffer_end;   /* End of buffer                */
-    ATTR unsigned char *buffer_next;  /* Current read/write pointer   */
-
-/*
-
-=item C<METHOD readline_interactive(STRING *prompt)>
-
-Read a line from the filehandle and return it in a string.
-
-=cut
-
-*/
-
-    METHOD readline_interactive(STRING *prompt :optional, INTVAL got_prompt :opt_flag) {
-        STRING *string_result = NULL;
-#ifdef PARROT_HAS_READLINE
-    /* 4-column indent to get c_indent.t to DTRT */
-        char * const r = readline(got_prompt ? prompt->strstart : NULL);
-
-        if (r) {
-            if (*r)
-                add_history(r);
-
-            string_result = Parrot_str_new(INTERP, r, 0);
-            mem_sys_free(r);
-        }
-#else
-        if (got_prompt)
-            fprintf(stderr, "%s", prompt->strstart);
-
-#endif
-        if (string_result)
-            RETURN(STRING *string_result);
-        else
-            RETURN(PMC *PMCNULL);
-    }
-} /* end pmclass */
-
-/*
- * Local variables:
- *   c-file-style: "parrot"
- * End:
- * vim: expandtab shiftwidth=4:
- */


More information about the parrot-commits mailing list