[svn:parrot] r9466 - in trunk: examples/library languages languages/parakeet src t/native_pbc

[coke]

Author: coke
Date: Wed Oct 12 05:51:56 2005
New Revision: 9466

Modified:
   trunk/examples/library/getopt_demo.imc
   trunk/languages/LANGUAGES.STATUS
   trunk/languages/parakeet/parakeet.imc
   trunk/src/pmc_freeze.c
   trunk/t/native_pbc/header.t
Log:
Nothing too much to this patch. A fix to a couple of typos ('unimplemented' and 
'too') and a few paths in examples.

Courtesy Nick Glencross <[EMAIL PROTECTED]>

Also note Parakeet's current status.



Modified: trunk/examples/library/getopt_demo.imc
==============================================================================
--- trunk/examples/library/getopt_demo.imc      (original)
+++ trunk/examples/library/getopt_demo.imc      Wed Oct 12 05:51:56 2005
@@ -3,13 +3,13 @@
 
 =head1 NAME
 
-examples/assembly/getopt_demo.imc - demonstrating library/Getopt/Long.pir
+examples/library/getopt_demo.imc - demonstrating library/Getopt/Long.pir
 
 =head1 SYNOPSIS
 
-    % ./parrot examples/assembly/getopt_demo.imc --help
-    % ./parrot examples/assembly/getopt_demo.imc --version
-    % ./parrot examples/assembly/getopt_demo.imc --string=asdf --bool 
--integer=42 some thing
+    % ./parrot examples/library/getopt_demo.imc --help
+    % ./parrot examples/library/getopt_demo.imc --version
+    % ./parrot examples/library/getopt_demo.imc --string=asdf --bool 
--integer=42 some thing
 
 =head1 DESCRIPTION
 

Modified: trunk/languages/LANGUAGES.STATUS
==============================================================================
--- trunk/languages/LANGUAGES.STATUS    (original)
+++ trunk/languages/LANGUAGES.STATUS    Wed Oct 12 05:51:56 2005
@@ -135,7 +135,7 @@ D: Parakeet also has a lot of features n
 D: variables, nested words and classes and (as a result) nested
 D: compile-time and run-time lexical word, class and variable scopes.
 S: Under development;
-S: Not in Parrot CVS
+S: Broken in respect to recent (and upcoming) DEPRECATED items
 W: http://www.daca.net:8080/Parakeet-0.1.tgz
 V: 0.0.11
 

Modified: trunk/languages/parakeet/parakeet.imc
==============================================================================
--- trunk/languages/parakeet/parakeet.imc       (original)
+++ trunk/languages/parakeet/parakeet.imc       Wed Oct 12 05:51:56 2005
@@ -404,10 +404,10 @@
 
   .addCore("open", _OPEN, "unimplemented.")
   .addCore("close", _CLOSE, "unimplemented.")
-  .addCore("peek", _PEEK, "unimplimented.")
-  .addCore("stat", _STAT, "unimplimented.")
-  .addCore("seek", _SEEK, "unimplimented.")
-  .addCore("tell", _TELL, "unimplimented.")
+  .addCore("peek", _PEEK, "unimplemented.")
+  .addCore("stat", _STAT, "unimplemented.")
+  .addCore("seek", _SEEK, "unimplemented.")
+  .addCore("tell", _TELL, "unimplemented.")
 
   # stackies
 

Modified: trunk/src/pmc_freeze.c
==============================================================================
--- trunk/src/pmc_freeze.c      (original)
+++ trunk/src/pmc_freeze.c      Wed Oct 12 05:51:56 2005
@@ -712,7 +712,7 @@ ft_init(Parrot_Interp interpreter, visit
     else {
         if (string_length(interpreter, s) < PACKFILE_HEADER_BYTES) {
             real_exception(interpreter, NULL, E_IOError,
-                    "bad string too thaw");
+                    "bad string to thaw");
         }
         mem_sys_memcopy(pf->header, s->strstart, PACKFILE_HEADER_BYTES);
         PackFile_assign_transforms(pf);

Modified: trunk/t/native_pbc/header.t
==============================================================================
--- trunk/t/native_pbc/header.t (original)
+++ trunk/t/native_pbc/header.t Wed Oct 12 05:51:56 2005
@@ -1,6 +1,6 @@
 #! perl -w
 # Copyright: 2001-2005 The Perl Foundation.  All Rights Reserved.
-# $Id: number.t 7803 2005-04-11 13:37:27Z leo $
+# $Id$
 
 =head1 NAME
 
@@ -26,7 +26,7 @@ use Test::More;
 use Parrot::Config;
 
 SKIP: {
-    skip "new header format not yet implimented", 8;
+    skip "new header format not yet implemented", 8;
     # idea stolen from t/pmc/sub.t
     my $tmppasm = File::Temp->new(UNLINK => 1, SUFFIX => '.pasm');
     print $tmppasm <<END;