cvsuser 04/12/21 17:59:12
Modified: . parrotbug
classes bigint.pmc genclass.pl hash.pmc integer.pmc
parrotclass.pmc parrotlibrary.pmc sub.pmc
compilers/pge README pge_parseglob.c
docs embed.pod
docs/pdds pdd07_codingstd.pod
dynclasses pybuiltin.pmc pyint.pmc pystring.pmc tclarray.pmc
examples/assembly euclid.pasm hanoi.pasm xml_parser.pasm
examples/pni win32api.imc
examples/sdl/tetris app.imc block.imc blockdata.imc
board.imc
languages testall
languages/jako/lib/Jako Parser.pm
languages/m4/doc running.pod
languages/perl6/P6C/IMCC Sub.pm
languages/tcl TODO
languages/tcl/docs howto.pod
languages/tcl/lib interpret.imc
languages/tcl/lib/commands proc.imc
lib/Digest/Perl MD5.pm
lib/Parrot PakFile2.pm
lib/Parrot/Docs/Section Parrot.pm
lib/Parrot/IO Directory.pm File.pm
lib/Parrot/OpTrans C.pm CGP.pm CGoto.pm CPrederef.pm
Compiled.pm
lib/Parrot/Pmc2c Library.pm
lib/Parrot/Test Python.pm Tcl.pm
runtime/parrot/library/Data Replace.imc Sort.imc
runtime/parrot/library/Getopt Long.imc
runtime/parrot/library/PGE RegCounter.pir
runtime/parrot/library/SDL Button.imc LCD.imc StopWatch.imc
runtime/parrot/library/Stream Replay.imc Writer.imc
src inter_cb.c inter_misc.c inter_run.c
t/library getopt_long.t
t/op stringu.t
tools/dev genrpt.pl
Log:
Clean up all POD errors and many POD warnings.
Revision Changes Path
1.36 +1 -3 parrot/parrotbug
Index: parrotbug
===================================================================
RCS file: /cvs/public/parrot/parrotbug,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- parrotbug 16 Sep 2004 12:57:23 -0000 1.35
+++ parrotbug 22 Dec 2004 01:58:36 -0000 1.36
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: parrotbug,v 1.35 2004/09/16 12:57:23 jrieks Exp $
+# $Id: parrotbug,v 1.36 2004/12/22 01:58:36 chromatic Exp $
#
eval 'exec perl -w -S $0 ${1+"$@"}'
@@ -709,12 +709,10 @@
parrotbug - Parrot Bug Reporter
-
=head1 SYNOPSIS
% ./parrotbug [options] [actions]
-
=head1 DESCRIPTION
A program to help generate bug reports about parrot, and mail them.
1.21 +1 -4 parrot/classes/bigint.pmc
Index: bigint.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/bigint.pmc,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- bigint.pmc 16 Dec 2004 09:17:49 -0000 1.20
+++ bigint.pmc 22 Dec 2004 01:58:37 -0000 1.21
@@ -1,6 +1,6 @@
/*
Copyright: 2004 The Perl Foundation. All Rights Reserved.
-$Id: bigint.pmc,v 1.20 2004/12/16 09:17:49 leo Exp $
+$Id: bigint.pmc,v 1.21 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -359,9 +359,6 @@
=over 4
-*/
-/*
-
=item C<PMC* instantiate()>
Object constructor. SELF is a BigInt Class object. Return a new
1.23 +3 -3 parrot/classes/genclass.pl
Index: genclass.pl
===================================================================
RCS file: /cvs/public/parrot/classes/genclass.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- genclass.pl 22 Feb 2004 17:48:41 -0000 1.22
+++ genclass.pl 22 Dec 2004 01:58:37 -0000 1.23
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: genclass.pl,v 1.22 2004/02/22 17:48:41 mikescott Exp $
+# $Id: genclass.pl,v 1.23 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -9,7 +9,7 @@
=head1 SYNOPSIS
% perl classes/genclass.pl Foo > Foo.pmc
-
+
=head1 DESCRIPTION
Use this script to generate a template PMC file with stubs for all the
@@ -18,7 +18,7 @@
To see what a minimal PMC looks like, create a PMC template and compile
it to C.
-
+
cd classes
perl genclass.pl Foo > foo.pmc
perl pmc2c.pl foo.pmc
1.2 +1 -3 parrot/classes/hash.pmc
Index: hash.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/hash.pmc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- hash.pmc 13 Dec 2004 13:45:59 -0000 1.1
+++ hash.pmc 22 Dec 2004 01:58:37 -0000 1.2
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: hash.pmc,v 1.1 2004/12/13 13:45:59 leo Exp $
+$Id: hash.pmc,v 1.2 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -609,8 +609,6 @@
/*
-=item C<PMC* slice (PMC *key)>
-
Return a new iterator for the slice PMC C<key>
=item C<PMC *get_pmc_keyed(PMC *key)>
1.22 +1 -3 parrot/classes/integer.pmc
Index: integer.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/integer.pmc,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- integer.pmc 12 Dec 2004 23:03:45 -0000 1.21
+++ integer.pmc 22 Dec 2004 01:58:37 -0000 1.22
@@ -1,6 +1,6 @@
/*
Copyright: 2003 The Perl Foundation. All Rights Reserved.
-$Id: integer.pmc,v 1.21 2004/12/12 23:03:45 chromatic Exp $
+$Id: integer.pmc,v 1.22 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -640,8 +640,6 @@
=item C<void divide_int(INTVAL value, PMC *dest)>
-=item C<void floor_divide_int(INTVAL value, PMC *dest)>
-
Divides the integer by C<value> and returns the result in C<*dest>.
=cut
1.32 +2 -1 parrot/classes/parrotclass.pmc
Index: parrotclass.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotclass.pmc,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- parrotclass.pmc 15 Dec 2004 12:52:38 -0000 1.31
+++ parrotclass.pmc 22 Dec 2004 01:58:37 -0000 1.32
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: parrotclass.pmc,v 1.31 2004/12/15 12:52:38 leo Exp $
+$Id: parrotclass.pmc,v 1.32 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -312,6 +312,7 @@
}
/*
+
=back
=cut
1.12 +2 -2 parrot/classes/parrotlibrary.pmc
Index: parrotlibrary.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotlibrary.pmc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- parrotlibrary.pmc 16 Dec 2004 19:22:37 -0000 1.11
+++ parrotlibrary.pmc 22 Dec 2004 01:58:37 -0000 1.12
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: parrotlibrary.pmc,v 1.11 2004/12/16 19:22:37 chromatic Exp $
+$Id: parrotlibrary.pmc,v 1.12 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -18,7 +18,7 @@
_filename full path/file of lib
_ro true after init
-
+
All ParrotLibrary PMCs are in interpreter->iglobals.
When a dynamic library (pmc or ops) is loaded, the load function returns
1.70 +2 -2 parrot/classes/sub.pmc
Index: sub.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/sub.pmc,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- sub.pmc 11 Dec 2004 12:08:07 -0000 1.69
+++ sub.pmc 22 Dec 2004 01:58:37 -0000 1.70
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: sub.pmc,v 1.69 2004/12/11 12:08:07 leo Exp $
+$Id: sub.pmc,v 1.70 2004/12/22 01:58:37 chromatic Exp $
=head1 NAME
@@ -23,7 +23,7 @@
/*
-=item C<>
+=item C<sub_name>
Print name and location of subroutine, This should finally use the label
name of the frozen C<Sub> PMC image for now locate the C<Sub> name in
1.3 +1 -1 parrot/compilers/pge/README
Index: README
===================================================================
RCS file: /cvs/public/parrot/compilers/pge/README,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- README 1 Dec 2004 20:45:00 -0000 1.2
+++ README 22 Dec 2004 01:58:39 -0000 1.3
@@ -32,7 +32,7 @@
print - display the PIR cod generated for current rule
trace - toggle pattern execution tracing
next - repeat last match on target string
-
+
If you get errors about "cannot open shared object file", that usually
means that Parrot was unable to locate the pge.so object file.
1.4 +2 -0 parrot/compilers/pge/pge_parseglob.c
Index: pge_parseglob.c
===================================================================
RCS file: /cvs/public/parrot/compilers/pge/pge_parseglob.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- pge_parseglob.c 1 Dec 2004 20:42:20 -0000 1.3
+++ pge_parseglob.c 22 Dec 2004 01:58:39 -0000 1.4
@@ -67,6 +67,8 @@
the string in s, then calls pge_gen() to generate a PIR subroutine
from the expression tree.
+=back
+
=cut
*/
1.10 +5 -4 parrot/docs/embed.pod
Index: embed.pod
===================================================================
RCS file: /cvs/public/parrot/docs/embed.pod,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- embed.pod 9 Nov 2004 07:47:17 -0000 1.9
+++ embed.pod 22 Dec 2004 01:58:39 -0000 1.10
@@ -1,5 +1,5 @@
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: embed.pod,v 1.9 2004/11/09 07:47:17 leo Exp $
+# $Id: embed.pod,v 1.10 2004/12/22 01:58:39 chromatic Exp $
=head1 NAME
@@ -8,14 +8,14 @@
=head1 SYNOPSIS
#include "parrot/embed.h"
-
+
int main(int argc, char *argv[]) {
Parrot_Interp interp;
Parrot_PackFile pf;
char *bcfile="program.pbc";
argc--; argv++; /* skip the program name */
-
+
interp=Parrot_new(0);
Parrot_init(interp);
@@ -29,7 +29,7 @@
Parrot_runcode(interp, argc, argv); /* argc and argv as seen by the
bytecode file */
Parrot_destroy(interp);
-
+
return 0;
}
@@ -93,6 +93,7 @@
See F</include/parrot/interpreter.h> for a list of available cores
beside PARROT_PREDEREF_CORE, PARROT_JIT_CORE.
+=over
=item C<PARROT_PREDEREF_CORE>
1.12 +10 -10 parrot/docs/pdds/pdd07_codingstd.pod
Index: pdd07_codingstd.pod
===================================================================
RCS file: /cvs/public/parrot/docs/pdds/pdd07_codingstd.pod,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- pdd07_codingstd.pod 28 Feb 2004 09:16:37 -0000 1.11
+++ pdd07_codingstd.pod 22 Dec 2004 01:58:40 -0000 1.12
@@ -1,5 +1,5 @@
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: pdd07_codingstd.pod,v 1.11 2004/02/28 09:16:37 mikescott Exp $
+# $Id: pdd07_codingstd.pod,v 1.12 2004/12/22 01:58:40 chromatic Exp $
=head1 NAME
@@ -417,12 +417,12 @@
multiple-inclusion:
/* file header comments */
-
+
#if !defined(PARROT_<FILENAME>_H_GUARD)
#define PARROT_<FILENAME>_H_GUARD
-
+
/* body of file */
-
+
#endif /* PARROT_<FILENAME>_H_GUARD */
=item Names of code entities
@@ -688,13 +688,13 @@
Each comment should be of the form
/*
-
+
=item C<function(arguments)>
-
+
Description.
-
+
=cut
-
+
*/
This inline POD documentation is parsed to HTML by running:
@@ -823,9 +823,9 @@
simply swapping C<i> and C<j>.
int a[1000][1000];
-
+
... (a gets populated) ...
-
+
int i,j,k;
for (i=0; i<1000; i++) {
for (j=0; j<1000; j++) {
1.31 +2 -2 parrot/dynclasses/pybuiltin.pmc
Index: pybuiltin.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pybuiltin.pmc,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- pybuiltin.pmc 22 Dec 2004 00:02:13 -0000 1.30
+++ pybuiltin.pmc 22 Dec 2004 01:58:41 -0000 1.31
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pybuiltin.pmc,v 1.30 2004/12/22 00:02:13 rubys Exp $
+$Id: pybuiltin.pmc,v 1.31 2004/12/22 01:58:41 chromatic Exp $
=head1 NAME
@@ -311,7 +311,7 @@
=item C<PMC* "cmp"(PMC *value1, PMC *value2)>
-Returns the result of comparing C<*value1> with C<*value2).
+Returns the result of comparing C<*value1> with C<*value2>).
=cut
1.15 +4 -4 parrot/dynclasses/pyint.pmc
Index: pyint.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pyint.pmc,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- pyint.pmc 21 Dec 2004 00:09:30 -0000 1.14
+++ pyint.pmc 22 Dec 2004 01:58:41 -0000 1.15
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pyint.pmc,v 1.14 2004/12/21 00:09:30 rubys Exp $
+$Id: pyint.pmc,v 1.15 2004/12/22 01:58:41 chromatic Exp $
=head1 NAME
@@ -238,9 +238,9 @@
/*
-=item C<void bitwise_and_int(INTVAL value, PMC *dest)>
+=item C<void bitwise_and(INTVAL value, PMC *dest)>
-Calculates the bitwise C<AN> of the integer and C<*value> and returns
+Calculates the bitwise C<AND> of the integer and C<*value> and returns
the result in C<*dest>.
=cut
@@ -257,7 +257,7 @@
=item C<void bitwise_and_int(INTVAL value, PMC *dest)>
-Calculates the bitwise C<AN> of the integer and C<*value> and returns
+Calculates the bitwise C<AND> of the integer and C<*value> and returns
the result in C<*dest>.
=cut
1.12 +4 -2 parrot/dynclasses/pystring.pmc
Index: pystring.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pystring.pmc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- pystring.pmc 18 Dec 2004 03:51:47 -0000 1.11
+++ pystring.pmc 22 Dec 2004 01:58:41 -0000 1.12
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pystring.pmc,v 1.11 2004/12/18 03:51:47 rubys Exp $
+$Id: pystring.pmc,v 1.12 2004/12/22 01:58:41 chromatic Exp $
=head1 NAME
@@ -174,7 +174,7 @@
/*
-=item C<PMC *get_pmc_keyed_int(INTVAL key)>
+=item C<PMC *get_pmc_keyed(INTVAL key)>
Extracts a given character from the string.
@@ -277,9 +277,11 @@
}
/*
+
=item C<STRING *get_string()>
=cut
+
*/
STRING* get_string () {
1.6 +16 -1 parrot/dynclasses/tclarray.pmc
Index: tclarray.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclarray.pmc,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- tclarray.pmc 13 Dec 2004 13:46:10 -0000 1.5
+++ tclarray.pmc 22 Dec 2004 01:58:41 -0000 1.6
@@ -1,7 +1,7 @@
/* TclArray.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: tclarray.pmc,v 1.5 2004/12/13 13:46:10 leo Exp $
+ * $Id: tclarray.pmc,v 1.6 2004/12/22 01:58:41 chromatic Exp $
* Overview:
* These are the vtable functions for the TclArray base class
* Data Structure and Algorithms:
@@ -9,6 +9,21 @@
* Notes:
* Please remove unneeded entries.
* References:
+
+=head1 NAME
+
+dynclasses/tclarray.pmc - Tcl Array PMC
+
+=head1 DESCRIPTION
+
+This is the Array PMC for the Tcl implementation.
+
+=head2 Functions
+
+=over 4
+
+=cut
+
*/
#include "parrot/parrot.h"
1.3 +2 -2 parrot/examples/assembly/euclid.pasm
Index: euclid.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/euclid.pasm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- euclid.pasm 30 Jan 2004 11:25:04 -0000 1.2
+++ euclid.pasm 22 Dec 2004 01:58:45 -0000 1.3
@@ -1,7 +1,7 @@
# Copyright (C) 2001 Gregor N. Purdy. All rights reserved.
# This program is free software. It is subject to the same
# license as Perl itself.
-# $Id: euclid.pasm,v 1.2 2004/01/30 11:25:04 mikescott Exp $
+# $Id: euclid.pasm,v 1.3 2004/12/22 01:58:45 chromatic Exp $
=head1 NAME
@@ -24,7 +24,7 @@
I1: m
I2: n
I4: r
-
+
E1: Find remainder.
E2: Is it zero?
E3: Reduce.
1.10 +5 -5 parrot/examples/assembly/hanoi.pasm
Index: hanoi.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/hanoi.pasm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- hanoi.pasm 30 Jan 2004 11:25:04 -0000 1.9
+++ hanoi.pasm 22 Dec 2004 01:58:45 -0000 1.10
@@ -1,5 +1,5 @@
# Copyright (C) 2001-2003 The Perl Foundation. All rights reserved.
-# $Id: hanoi.pasm,v 1.9 2004/01/30 11:25:04 mikescott Exp $
+# $Id: hanoi.pasm,v 1.10 2004/12/22 01:58:45 chromatic Exp $
=head1 NAME
@@ -58,21 +58,21 @@
# move all but the largest disk from storage to target
move_stack(array, size, num-1, storage, target, start)
}
-
+
move(array, size, start, target) {
/* okay, so it's not pseudocode... */
# find the first non-empty slot on the start column (smallest disk)
for(i=0; i<size; i++) if(array[start_col][i]) break;
start_row = i;
-
+
# find the last empty slot on the target column
for(i=1; i<size; i++) if(array[dest_col][i]) break;
dest_row = i - 1;
-
+
# do the move
array[dest_col][dest_row] = array[start_col][start_row];
array[start_col][start_row] = 0;
-
+
#print the results
print(array, size);
}
1.5 +4 -4 parrot/examples/assembly/xml_parser.pasm
Index: xml_parser.pasm
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/xml_parser.pasm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- xml_parser.pasm 30 Jan 2004 11:25:05 -0000 1.4
+++ xml_parser.pasm 22 Dec 2004 01:58:45 -0000 1.5
@@ -1,5 +1,5 @@
# Copyright (C) 2001-2003 The Perl Foundation. All rights reserved.
-# $Id: xml_parser.pasm,v 1.4 2004/01/30 11:25:05 mikescott Exp $
+# $Id: xml_parser.pasm,v 1.5 2004/12/22 01:58:45 chromatic Exp $
=head1 NAME
@@ -12,12 +12,12 @@
Note that this example currently seems to be broken:
Couldn't open small.xml
-
+
=head1 DESCRIPTION
This is a rudimentary XML-ish parser in PASM. It currently handles only
well-formed XML, doesn't throw errors, etc...
-
+
Limitations:
=over 4
@@ -59,7 +59,7 @@
The stack is used all to hell. :)
Data is stored on the stack in type/value pairs:
-
+
-1 "" (uninitialized slot)
0 Element Name
1 Attribute Name
1.4 +2 -2 parrot/examples/pni/win32api.imc
Index: win32api.imc
===================================================================
RCS file: /cvs/public/parrot/examples/pni/win32api.imc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- win32api.imc 31 Jan 2004 16:09:17 -0000 1.3
+++ win32api.imc 22 Dec 2004 01:58:46 -0000 1.4
@@ -1,5 +1,5 @@
# Copyright (C) 2001-2003 The Perl Foundation. All rights reserved.
-# $Id: win32api.imc,v 1.3 2004/01/31 16:09:17 mikescott Exp $
+# $Id: win32api.imc,v 1.4 2004/12/22 01:58:46 chromatic Exp $
=head1 NAME
@@ -13,7 +13,7 @@
This example calls the MessageBoxA Win32 API using the Parrot Native
Call Interface. The function is defined as:-
-
+
int MessageBox(
HWND hWnd,
LPCTSTR lpText,
1.3 +3 -3 parrot/examples/sdl/tetris/app.imc
Index: app.imc
===================================================================
RCS file: /cvs/public/parrot/examples/sdl/tetris/app.imc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- app.imc 18 Nov 2004 14:10:31 -0000 1.2
+++ app.imc 22 Dec 2004 01:58:47 -0000 1.3
@@ -8,13 +8,13 @@
find_type $I0, "Tetris::App"
new app, $I0
-
+
app."run"()
app."shutdown"()
end
-
+
...
-
+
# create a new random C<next block> on board 3
app = find_global "Tetris::App", "app"
app."nextBlock"( 3 )
1.3 +1 -1 parrot/examples/sdl/tetris/block.imc
Index: block.imc
===================================================================
RCS file: /cvs/public/parrot/examples/sdl/tetris/block.imc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- block.imc 18 Nov 2004 14:10:31 -0000 1.2
+++ block.imc 22 Dec 2004 01:58:47 -0000 1.3
@@ -8,7 +8,7 @@
find_type $I0, "Tetris::Block"
new block, $I0
block."init"( board )
-
+
# let the block fall down fast
block."fall"()
1.2 +0 -4 parrot/examples/sdl/tetris/blockdata.imc
Index: blockdata.imc
===================================================================
RCS file: /cvs/public/parrot/examples/sdl/tetris/blockdata.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- blockdata.imc 3 Sep 2004 22:51:07 -0000 1.1
+++ blockdata.imc 22 Dec 2004 01:58:47 -0000 1.2
@@ -229,10 +229,6 @@
.pcc_end_return
.end
-=item
-
-=cut
-
.sub __set_pmc method
.param pmc data
1.3 +2 -2 parrot/examples/sdl/tetris/board.imc
Index: board.imc
===================================================================
RCS file: /cvs/public/parrot/examples/sdl/tetris/board.imc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- board.imc 18 Nov 2004 14:10:31 -0000 1.2
+++ board.imc 22 Dec 2004 01:58:47 -0000 1.3
@@ -6,11 +6,11 @@
# get the application singleton
app = global "Tetris::App"
-
+
# create a new board
find_type $I0, "Tetris::Board"
board = new $I0, app
-
+
# let the current block of the board fall down fast
board."fall"()
1.2 +2 -0 parrot/languages/testall
Index: testall
===================================================================
RCS file: /cvs/public/parrot/languages/testall,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- testall 8 Apr 2004 17:45:35 -0000 1.1
+++ testall 22 Dec 2004 01:58:48 -0000 1.2
@@ -27,6 +27,8 @@
e.g., C<cd languages/tcl && t/joe_test.t>
+=back
+
=for comment
We are assuming that we are running out of parrot/languages; we are being
1.16 +3 -3 parrot/languages/jako/lib/Jako/Parser.pm
Index: Parser.pm
===================================================================
RCS file: /cvs/public/parrot/languages/jako/lib/Jako/Parser.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- Parser.pm 9 Jan 2004 22:38:03 -0000 1.15
+++ Parser.pm 22 Dec 2004 01:58:48 -0000 1.16
@@ -5,7 +5,7 @@
# This program is free software. It is subject to the same license
# as Perl itself.
#
-# $Id: Parser.pm,v 1.15 2004/01/09 22:38:03 mikescott Exp $
+# $Id: Parser.pm,v 1.16 2004/12/22 01:58:48 chromatic Exp $
#
use strict;
@@ -949,11 +949,11 @@
# <label>: {
# {
#
-
+
if ($token->is_open_brace) {
my $label = $last_token->text
if $last_token->is_label;
-
+
$self->begin_block($label, 'bare', undef);
next;
1.5 +2 -2 parrot/languages/m4/doc/running.pod
Index: running.pod
===================================================================
RCS file: /cvs/public/parrot/languages/m4/doc/running.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- running.pod 2 Nov 2004 09:16:07 -0000 1.4
+++ running.pod 22 Dec 2004 01:58:49 -0000 1.5
@@ -1,4 +1,4 @@
-# $Id: running.pod,v 1.4 2004/11/02 09:16:07 leo Exp $
+# $Id: running.pod,v 1.5 2004/12/22 01:58:49 chromatic Exp $
=head1 TITLE
@@ -34,6 +34,6 @@
=head1 AUTHOR
-Bernhard Schmalhofer - L<[EMAIL PROTECTED]>
+Bernhard Schmalhofer - C<[EMAIL PROTECTED]>
=cut
1.6 +1 -1 parrot/languages/perl6/P6C/IMCC/Sub.pm
Index: Sub.pm
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/P6C/IMCC/Sub.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Sub.pm 1 Jun 2004 00:44:06 -0000 1.5
+++ Sub.pm 22 Dec 2004 01:58:50 -0000 1.6
@@ -1,4 +1,4 @@
-=head2 P6C::IMCC::Sub
+=head1 P6C::IMCC::Sub
The object representing the current compilation state, at least with
respect to the subroutine being currently compiled. Includes the
1.27 +6 -6 parrot/languages/tcl/TODO
Index: TODO
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/TODO,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- TODO 9 Dec 2004 06:54:16 -0000 1.26
+++ TODO 22 Dec 2004 01:58:51 -0000 1.27
@@ -8,7 +8,7 @@
=item update docs/*
-=back 4
+=back
=head1 Programming Issues
@@ -38,7 +38,7 @@
appropriately when doing this. Include proper numififcation of octal and
hex
-=back 4
+=back
=head2 PIR-level tasks
@@ -88,7 +88,7 @@
I<appropriate> code to the system.
-=back 4
+=back
=head2 Tests
@@ -108,7 +108,7 @@
=item pass tcl test suite
-=back 4
+=back
=head1 Uncategorized Issues
@@ -185,7 +185,7 @@
# Note this a change from _parse's current signature
(parsed_data_structure,tcl_status,error) = _parse(tcl_code)
(pir_code,tcl_status,error) = _compile(parsed_data_structure)
-
+
And now that we have the pir_code, we can either emit the necessary
PIR (ala parrot's -o option) or we can compile and run it.
@@ -238,6 +238,6 @@
complete [error] (need global var support)
-=back 4
+=back
=cut
1.4 +3 -3 parrot/languages/tcl/docs/howto.pod
Index: howto.pod
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/docs/howto.pod,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- howto.pod 9 Dec 2004 06:43:20 -0000 1.3
+++ howto.pod 22 Dec 2004 01:58:52 -0000 1.4
@@ -29,7 +29,7 @@
start documenting these in the TODO with sections like C<given Unicode>,
then listing the things that we can do once we have that.
-=back 4
+=back
=head1 DOCUMENTATION
@@ -46,7 +46,7 @@
verify that there are no missing chunks (if missing, write them, or
get them added to the C<TODO>), and that they are coherent.
-=back 4
+=back
=head1 PIR
@@ -78,7 +78,7 @@
To find a command to work on, just check out the TODO - several commands
are currently not implemented, and others are missing various subcommands.
-=back 4
+=back
=cut
1.12 +1 -1 parrot/languages/tcl/lib/interpret.imc
Index: interpret.imc
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/lib/interpret.imc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- interpret.imc 3 Dec 2004 00:50:29 -0000 1.11
+++ interpret.imc 22 Dec 2004 01:58:53 -0000 1.12
@@ -1,4 +1,4 @@
-=head1
+=head1 interpret.imc
Given a pre-parsed chunk of Tcl, interpret it.
1.11 +1 -1 parrot/languages/tcl/lib/commands/proc.imc
Index: proc.imc
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/lib/commands/proc.imc,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- proc.imc 4 Dec 2004 16:45:13 -0000 1.10
+++ proc.imc 22 Dec 2004 01:58:54 -0000 1.11
@@ -1,4 +1,4 @@
-=head2 [proc]
+=head1 [proc]
Create a PIR sub on the fly for this user defined proc.
1.3 +11 -11 parrot/lib/Digest/Perl/MD5.pm
Index: MD5.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Digest/Perl/MD5.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- MD5.pm 26 Feb 2004 19:53:14 -0000 1.2
+++ MD5.pm 22 Dec 2004 01:58:56 -0000 1.3
@@ -1,5 +1,5 @@
#! perl -w
-#$Id: MD5.pm,v 1.2 2004/02/26 19:53:14 mikescott Exp $
+#$Id: MD5.pm,v 1.3 2004/12/22 01:58:56 chromatic Exp $
package Digest::Perl::MD5;
use strict;
@@ -178,16 +178,16 @@
=over 4
-=item
+=item *
computers where you cannot install C<Digest::MD5> (e.g. lack of a C-Compiler)
-=item
+=item *
encrypting only small amounts of data (less than one million bytes). I use
it to
hash passwords.
-=item
+=item *
educational purposes
@@ -201,7 +201,7 @@
$hash = md5 $data;
$hash = md5_hex $data;
$hash = md5_base64 $data;
-
+
# OO style
use Digest::MD5;
@@ -256,12 +256,12 @@
checksum can also be calculated in OO style:
use Digest::MD5;
-
+
$md5 = Digest::MD5->new;
$md5->add('foo', 'bar');
$md5->add('baz');
$digest = $md5->hexdigest;
-
+
print "Digest is $digest\n";
=head1 LIMITATIONS
@@ -270,18 +270,18 @@
=over 4
-=item
+=item *
It's slow, very slow. I've done my very best but Digest::MD5 is still about
135 times faster.
You can only encrypt Data up to one million bytes in an acceptable time. But
it's very usefull
for encrypting small amounts of data like passwords.
-=item
+=item *
You can only encrypt up to 2^32 bits = 512 MB on 32bit archs. You should use
C<Digest::MD5>
for those amounts of data.
-=item
+=item *
C<Digest::Perl::MD5> loads all data to encrypt into memory. This is a todo.
@@ -311,7 +311,7 @@
=over 4
-=item
+=item *
Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
rights reserved.
1.3 +2 -2 parrot/lib/Parrot/PakFile2.pm
Index: PakFile2.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/PakFile2.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- PakFile2.pm 27 Mar 2004 22:22:36 -0000 1.2
+++ PakFile2.pm 22 Dec 2004 01:58:59 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2002 The Perl Foundation. All Rights Reserved.
-# $Id: PakFile2.pm,v 1.2 2004/03/27 22:22:36 mikescott Exp $
+# $Id: PakFile2.pm,v 1.3 2004/12/22 01:58:59 chromatic Exp $
=head1 NAME
@@ -10,7 +10,7 @@
use Parrot::PakFile2;
open (OUT, ">foo.pbc") or die $!;
-
+
Parrot::PakFile2::output_bytecode(
{
bytecode => $gibberish,
1.6 +3 -3 parrot/lib/Parrot/Docs/Section/Parrot.pm
Index: Parrot.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Docs/Section/Parrot.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Parrot.pm 27 Mar 2004 22:22:49 -0000 1.5
+++ Parrot.pm 22 Dec 2004 01:58:59 -0000 1.6
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: Parrot.pm,v 1.5 2004/03/27 22:22:49 mikescott Exp $
+# $Id: Parrot.pm,v 1.6 2004/12/22 01:58:59 chromatic Exp $
=head1 NAME
@@ -8,7 +8,7 @@
=head1 SYNOPSIS
use Parrot::Docs::Section::Parrot;
-
+
Parrot::Docs::Section::Parrot->new->write_html;
=head1 DESCRIPTION
@@ -152,4 +152,4 @@
=cut
-1;
\ No newline at end of file
+1;
1.10 +3 -3 parrot/lib/Parrot/IO/Directory.pm
Index: Directory.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/IO/Directory.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Directory.pm 27 Mar 2004 22:22:54 -0000 1.9
+++ Directory.pm 22 Dec 2004 01:59:00 -0000 1.10
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: Directory.pm,v 1.9 2004/03/27 22:22:54 mikescott Exp $
+# $Id: Directory.pm,v 1.10 2004/12/22 01:59:00 chromatic Exp $
=head1 NAME
@@ -168,7 +168,7 @@
Returns the directory's parent directory. The root directory returns
C<undef>.
-
+
=cut
sub parent
@@ -617,4 +617,4 @@
=cut
-1;
\ No newline at end of file
+1;
1.10 +3 -3 parrot/lib/Parrot/IO/File.pm
Index: File.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/IO/File.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- File.pm 27 Mar 2004 22:22:54 -0000 1.9
+++ File.pm 22 Dec 2004 01:59:00 -0000 1.10
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: File.pm,v 1.9 2004/03/27 22:22:54 mikescott Exp $
+# $Id: File.pm,v 1.10 2004/12/22 01:59:00 chromatic Exp $
=head1 NAME
@@ -87,7 +87,7 @@
=item C<parent($path)>
Returns the file's parent directory.
-
+
=cut
sub parent
@@ -311,4 +311,4 @@
=cut
-1;
\ No newline at end of file
+1;
1.24 +3 -1 parrot/lib/Parrot/OpTrans/C.pm
Index: C.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/C.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- C.pm 30 Oct 2004 09:15:43 -0000 1.23
+++ C.pm 22 Dec 2004 01:59:01 -0000 1.24
@@ -1,5 +1,5 @@
# Copyright: 2002 The Perl Foundation. All Rights Reserved.
-# $Id: C.pm,v 1.23 2004/10/30 09:15:43 leo Exp $
+# $Id: C.pm,v 1.24 2004/12/22 01:59:01 chromatic Exp $
=head1 NAME
@@ -198,6 +198,8 @@
=item C<Parrot::OpTrans::Compiled>
+=back
+
=cut
1;
1.15 +3 -1 parrot/lib/Parrot/OpTrans/CGP.pm
Index: CGP.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/CGP.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- CGP.pm 1 Nov 2004 11:52:53 -0000 1.14
+++ CGP.pm 22 Dec 2004 01:59:01 -0000 1.15
@@ -1,5 +1,5 @@
# Copyright: 2002 The Perl Foundation. All Rights Reserved.
-# $Id: CGP.pm,v 1.14 2004/11/01 11:52:53 leo Exp $
+# $Id: CGP.pm,v 1.15 2004/12/22 01:59:01 chromatic Exp $
=head1 NAME
@@ -175,6 +175,8 @@
=item C<Parrot::OpTrans::Compiled>
+=back
+
=cut
1;
1.31 +3 -1 parrot/lib/Parrot/OpTrans/CGoto.pm
Index: CGoto.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/CGoto.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- CGoto.pm 30 Oct 2004 09:15:43 -0000 1.30
+++ CGoto.pm 22 Dec 2004 01:59:01 -0000 1.31
@@ -1,5 +1,5 @@
# Copyright: 2002 The Perl Foundation. All Rights Reserved.
-# $Id: CGoto.pm,v 1.30 2004/10/30 09:15:43 leo Exp $
+# $Id: CGoto.pm,v 1.31 2004/12/22 01:59:01 chromatic Exp $
=head1 NAME
@@ -413,6 +413,8 @@
=item C<Parrot::OpTrans::Compiled>
+=back
+
=cut
1;
1.27 +3 -1 parrot/lib/Parrot/OpTrans/CPrederef.pm
Index: CPrederef.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/CPrederef.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- CPrederef.pm 1 Nov 2004 10:15:04 -0000 1.26
+++ CPrederef.pm 22 Dec 2004 01:59:01 -0000 1.27
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: CPrederef.pm,v 1.26 2004/11/01 10:15:04 leo Exp $
+# $Id: CPrederef.pm,v 1.27 2004/12/22 01:59:01 chromatic Exp $
=head1 NAME
@@ -230,6 +230,8 @@
=item C<Parrot::OpTrans::Compiled>
+=back
+
=cut
1;
1.17 +3 -1 parrot/lib/Parrot/OpTrans/Compiled.pm
Index: Compiled.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/Compiled.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- Compiled.pm 30 Oct 2004 09:15:43 -0000 1.16
+++ Compiled.pm 22 Dec 2004 01:59:01 -0000 1.17
@@ -1,5 +1,5 @@
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: Compiled.pm,v 1.16 2004/10/30 09:15:43 leo Exp $
+# $Id: Compiled.pm,v 1.17 2004/12/22 01:59:01 chromatic Exp $
=head1 NAME
@@ -246,6 +246,8 @@
=item C<Parrot::OpTrans::CSwitch>
+=back
+
=cut
1;
1.3 +2 -2 parrot/lib/Parrot/Pmc2c/Library.pm
Index: Library.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Pmc2c/Library.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Library.pm 11 Nov 2004 12:02:13 -0000 1.2
+++ Library.pm 22 Dec 2004 01:59:02 -0000 1.3
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: Library.pm,v 1.2 2004/11/11 12:02:13 nicholas Exp $
+# $Id: Library.pm,v 1.3 2004/12/22 01:59:02 chromatic Exp $
=head1 NAME
@@ -24,7 +24,7 @@
package Parrot::Pmc2c::Library;
use Parrot::Pmc2c qw(dynext_load_code dont_edit);
-=item C<new($opt, $vtable_dump, %pmcs)
+=item C<new($opt, $vtable_dump, %pmcs)>
$library = Parrot::Pmc2c::Library->new
( $options, # hash refernce, the same passet to other
constructors
1.8 +1 -1 parrot/lib/Parrot/Test/Python.pm
Index: Python.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test/Python.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- Python.pm 29 Nov 2004 04:47:05 -0000 1.7
+++ Python.pm 22 Dec 2004 01:59:03 -0000 1.8
@@ -2,7 +2,7 @@
use File::Basename;
-=head1
+=head1 Parrot::Test::Python
Provide language specific testing routines here...
1.5 +1 -1 parrot/lib/Parrot/Test/Tcl.pm
Index: Tcl.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test/Tcl.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Tcl.pm 23 Sep 2004 00:06:25 -0000 1.4
+++ Tcl.pm 22 Dec 2004 01:59:03 -0000 1.5
@@ -2,7 +2,7 @@
use File::Basename;
-=head1
+=head1 Parrot::Test::Tcl
Provide language specific testing routines here...
1.3 +0 -2 parrot/runtime/parrot/library/Data/Replace.imc
Index: Replace.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Data/Replace.imc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Replace.imc 13 Dec 2004 13:46:24 -0000 1.2
+++ Replace.imc 22 Dec 2004 01:59:04 -0000 1.3
@@ -216,8 +216,6 @@
=back
-=back
-
=head1 AUTHOR
Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
1.2 +5 -6 parrot/runtime/parrot/library/Data/Sort.imc
Index: Sort.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Data/Sort.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Sort.imc 25 May 2004 18:06:29 -0000 1.1
+++ Sort.imc 22 Dec 2004 01:59:04 -0000 1.2
@@ -7,16 +7,15 @@
...
load_bytecode "library/Data/Sort.imc"
-
+
.local pmc sort
-
+
sort = find_global "Data::Sort";, "simple"
-
+
sort( array_pmc )
-
+
...
-
-
+
=head1 DESCRIPTION
Sort the specified array.
1.7 +3 -3 parrot/runtime/parrot/library/Getopt/Long.imc
Index: Long.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Getopt/Long.imc,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Long.imc 16 Dec 2004 19:22:45 -0000 1.6
+++ Long.imc 22 Dec 2004 01:59:05 -0000 1.7
@@ -1,4 +1,4 @@
-# $Id: Long.imc,v 1.6 2004/12/16 19:22:45 chromatic Exp $
+# $Id: Long.imc,v 1.7 2004/12/22 01:59:05 chromatic Exp $
=head1 NAME
@@ -181,12 +181,12 @@
=head1 AUTHOR
-Bernhard Schmalhofer - L<[EMAIL PROTECTED]>
+Bernhard Schmalhofer - C<[EMAIL PROTECTED]>
=head1 SEE ALSO
The Perl5 module L<Getopt::Long>.
-F<examples/assembly/getopt_demo.imc
+F<examples/assembly/getopt_demo.imc>
=head1 COPYRIGHT
1.2 +2 -2 parrot/runtime/parrot/library/PGE/RegCounter.pir
Index: RegCounter.pir
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/PGE/RegCounter.pir,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- RegCounter.pir 29 Nov 2004 10:02:23 -0000 1.1
+++ RegCounter.pir 22 Dec 2004 01:59:06 -0000 1.2
@@ -1,6 +1,6 @@
=head1 NAME
- PGE::RegCounter - A register naming manager
+PGE::RegCounter - A register naming manager
=head1 SYNOPSIS
@@ -9,7 +9,7 @@
.local pmc rc
find_global new_rc, "PGE::RegCounter", "new"
rc = new_rc()
-
+
# declare the registers you're going to use
rc.declare("answer", "$I")
1.4 +3 -3 parrot/runtime/parrot/library/SDL/Button.imc
Index: Button.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/SDL/Button.imc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Button.imc 30 Nov 2004 09:53:50 -0000 1.3
+++ Button.imc 22 Dec 2004 01:59:07 -0000 1.4
@@ -7,7 +7,7 @@
# the image to use for the button
$P0 = new PerlString
$P0 = "filename/to/image.png"
-
+
# create the button
$I0 = find_type 'SDL::Button'
button = new $I0, $P0
@@ -15,13 +15,13 @@
# set the position
button.'xpos'( 10 )
button.'ypos'( 10 )
-
+
# set the number of states
button.'states'( 2 )
# activate the second status (first is 0)
button = 1
-
+
# draw the button
button."draw"( screen )
1.2 +5 -5 parrot/runtime/parrot/library/SDL/LCD.imc
Index: LCD.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/SDL/LCD.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- LCD.imc 4 Sep 2004 01:14:53 -0000 1.1
+++ LCD.imc 22 Dec 2004 01:59:07 -0000 1.2
@@ -7,14 +7,14 @@
# create an LCD
$I0 = find_type 'SDL::LCD'
lcd = new $I0
-
+
# set the LCD position
lcd."xpos"( 10 )
lcd."ypos"( 10 )
-
+
# set the LCD content
lcd = "-01:23.4"
-
+
# draw the LCD
lcd."draw"( screen )
@@ -25,7 +25,7 @@
Each digit is 10 pixels width, plus 2 pixels space between the digits.
The height of each digit is 21 pixels.
-
+
=head1 METHODS
An SDL::LCD object has the following methods:
@@ -289,7 +289,7 @@
Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
and maintainer.
Please send patches and suggestions to the Perl 6 Internals mailing list.
-
+
=head1 COPYRIGHT
Copyright (c) 2004, The Perl Foundation.
1.2 +2 -2 parrot/runtime/parrot/library/SDL/StopWatch.imc
Index: StopWatch.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/SDL/StopWatch.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- StopWatch.imc 6 Sep 2004 16:35:13 -0000 1.1
+++ StopWatch.imc 22 Dec 2004 01:59:07 -0000 1.2
@@ -7,14 +7,14 @@
# create the stopwatch
$I0 = find_type 'SDL::StopWatch'
watch = new $I0, screen
-
+
# set its position
watch.'xpos'( 5 )
watch.'ypos'( 5 )
# start it
watch.'start'()
-
+
=head1 DESCRIPTION
You can start, stop and reset this stopwatch. You do not need
1.4 +5 -7 parrot/runtime/parrot/library/Stream/Replay.imc
Index: Replay.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Stream/Replay.imc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Replay.imc 26 Nov 2004 23:02:59 -0000 1.3
+++ Replay.imc 22 Dec 2004 01:59:08 -0000 1.4
@@ -8,23 +8,21 @@
=head1 SYNOPSIS
-
load_bytecode "library/Stream/Replay.imc"
-
+
$I0 = find_type "Stream::Replay"
$P0 = new $I0
assign $P0, other_stream
-
+
# .. read from $P0 ..
$P1 = clone $P0
-
+
# .. read further ..
-
+
$P0 = $P1
# now, if you read from $P0, you get the same data as after the clone
-
-
+
=head1 DESCRIPTION
By using C<clone>, you can read data from a stream as often as you want.
1.7 +1 -0 parrot/runtime/parrot/library/Stream/Writer.imc
Index: Writer.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Stream/Writer.imc,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Writer.imc 26 Nov 2004 23:02:59 -0000 1.6
+++ Writer.imc 22 Dec 2004 01:59:08 -0000 1.7
@@ -28,6 +28,7 @@
=head1 DESCRIPTION
=cut
+
.include "interpinfo.pasm"
.namespace ["Stream::Writer"]
1.5 +2 -3 parrot/src/inter_cb.c
Index: inter_cb.c
===================================================================
RCS file: /cvs/public/parrot/src/inter_cb.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- inter_cb.c 28 Oct 2004 11:24:38 -0000 1.4
+++ inter_cb.c 22 Dec 2004 01:59:09 -0000 1.5
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: inter_cb.c,v 1.4 2004/10/28 11:24:38 leo Exp $
+$Id: inter_cb.c,v 1.5 2004/12/22 01:59:09 chromatic Exp $
=head1 NAME
@@ -232,7 +232,6 @@
/*
=item C<void
-
Parrot_run_callback(Parrot_Interp interpreter, PMC* user_data, void*
external_data)>
Run a callback function. The PMC* user_data holds all
@@ -352,7 +351,7 @@
=head1 SEE ALSO
-F<include/parrot/interpreter.h>, L<docs/pdds/pdd16_native_call.pod>.
+F<include/parrot/interpreter.h>, F<docs/pdds/pdd16_native_call.pod>.
=cut
1.16 +2 -2 parrot/src/inter_misc.c
Index: inter_misc.c
===================================================================
RCS file: /cvs/public/parrot/src/inter_misc.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- inter_misc.c 13 Dec 2004 13:46:25 -0000 1.15
+++ inter_misc.c 22 Dec 2004 01:59:09 -0000 1.16
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: inter_misc.c,v 1.15 2004/12/13 13:46:25 leo Exp $
+$Id: inter_misc.c,v 1.16 2004/12/22 01:59:09 chromatic Exp $
=head1 NAME
@@ -97,7 +97,7 @@
/*
=item C<void
-Parrot_compreg(Parrot_Interp interpreter, STRING *type,
Parrot_compiler_func_t func);
+Parrot_compreg(Parrot_Interp interpreter, STRING *type,
Parrot_compiler_func_t func);>
Register a parser/compiler function.
1.27 +1 -5 parrot/src/inter_run.c
Index: inter_run.c
===================================================================
RCS file: /cvs/public/parrot/src/inter_run.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- inter_run.c 17 Dec 2004 09:58:16 -0000 1.26
+++ inter_run.c 22 Dec 2004 01:59:09 -0000 1.27
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: inter_run.c,v 1.26 2004/12/17 09:58:16 leo Exp $
+$Id: inter_run.c,v 1.27 2004/12/22 01:59:09 chromatic Exp $
=head1 NAME
@@ -163,10 +163,6 @@
Parrot_runops_fromc_args(Parrot_Interp interpreter, PMC *sub,
const char *sig, ...)>
-=item C<void *
-Parrot_runops_fromc_args(Parrot_Interp interpreter, PMC *sub,
- const char *sig, ...)>
-
=item C<INTVAL
Parrot_runops_fromc_args_reti(Parrot_Interp interpreter, PMC *sub,
const char *sig, ...)>
1.2 +1 -3 parrot/t/library/getopt_long.t
Index: getopt_long.t
===================================================================
RCS file: /cvs/public/parrot/t/library/getopt_long.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- getopt_long.t 28 Oct 2004 09:43:03 -0000 1.1
+++ getopt_long.t 22 Dec 2004 01:59:10 -0000 1.2
@@ -1,5 +1,5 @@
# Copyright (C) 2001-2003 The Perl Foundation. All rights reserved.
-# $Id: getopt_long.t,v 1.1 2004/10/28 09:43:03 leo Exp $
+# $Id: getopt_long.t,v 1.2 2004/12/22 01:59:10 chromatic Exp $
=head1 NAME
@@ -138,8 +138,6 @@
All args have been parsed.
OUT
-=back
-
=head1 AUTHOR
Bernhard Schmalhofer <[EMAIL PROTECTED]>
1.5 +2 -1 parrot/t/op/stringu.t
Index: stringu.t
===================================================================
RCS file: /cvs/public/parrot/t/op/stringu.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- stringu.t 24 May 2004 13:46:57 -0000 1.4
+++ stringu.t 22 Dec 2004 01:59:11 -0000 1.5
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: stringu.t,v 1.4 2004/05/24 13:46:57 leo Exp $
+# $Id: stringu.t,v 1.5 2004/12/22 01:59:11 chromatic Exp $
=head1 NAME
@@ -15,6 +15,7 @@
Tests Parrot's unicode string system.
=cut
+
#'
use Parrot::Test tests => 14;
1.3 +2 -2 parrot/tools/dev/genrpt.pl
Index: genrpt.pl
===================================================================
RCS file: /cvs/public/parrot/tools/dev/genrpt.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- genrpt.pl 20 Jan 2004 19:01:43 -0000 1.2
+++ genrpt.pl 22 Dec 2004 01:59:12 -0000 1.3
@@ -1,7 +1,7 @@
#! perl -w
################################################################################
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: genrpt.pl,v 1.2 2004/01/20 19:01:43 mikescott Exp $
+# $Id: genrpt.pl,v 1.3 2004/12/22 01:59:12 chromatic Exp $
################################################################################
=head1 NAME
@@ -13,7 +13,7 @@
To make an 'OK' report:
% perl tools/dev/genrpt.pl --ok --File parrot.ok
-
+
To make an 'Not OK' report:
% perl tools/dev/genrpt.pl --nok --File parrot.nok
