Ticket #200: catchall.diff

File catchall.diff, 7.7 KB (added by coke, 13 years ago)

  • examples/sdl/minesweeper/field.pir

     
    2626This is an implementation of a Minesweeper game field. 
    2727It draws the field onto a SDL surface. 
    2828 
     29=head1 BUGS 
     30 
     31WARNING: This file doesn't currently compile. 
     32 
    2933=head1 METHODS 
    3034 
    3135An Mines::Field object has the following methods: 

  • examples/sdl/tetris/board.pir

     
    1313    # let the current block of the board fall down fast 
    1414    board."fall"() 
    1515 
     16=head1 BUGS 
     17 
     18WARNING: This file doesn't currently compile. 
     19 
    1620=cut 
    1721 
    1822.include "library/dumper.pir" 

  • examples/sdl/tetris/blocks.pir

     
    22 
    33blocks.pir - tetris block classes 
    44 
     5=head1 BUGS 
     6 
     7WARNING: This file doesn't currently compile. 
     8 
    59=cut 
    610 
    711.namespace ["Tetris::Blocks"] 

  • examples/sdl/tetris/eventhandler.pir

     
    22 
    33eventhandler.pir - a tetris event handler class 
    44 
     5=head1 BUGS 
     6 
     7WARNING: This file doesn't currently compile. 
     8 
    59=cut 
    610 
    711.namespace ["Tetris::EventHandler"] 

  • examples/sdl/tetris/app.pir

     
    2323This is the main tetris class. Neither has 
    2424it parent classes nor is it subclassed. 
    2525 
     26=head1 BUGS 
     27 
     28WARNING: This file doesn't currently compile. 
     29 
    2630=cut 
    2731 
    2832 

  • examples/pasm/nanoforth2.pasm

     
    1616 : x  compile single-letter word x 
    1717 ; end compile 
    1818 
     19=head1 BUGS 
     20 
     21WARNING: This file doesn't currently compile. 
     22 
    1923=cut 
    2024 
    2125.macro core(op, label) 

  • examples/pasm/xml_parser.pasm

     
    6565      99 Data associated with this element 
    6666    1000 (no data) sentinel for the bottom of the stack 
    6767 
     68=head1 BUGS 
     69 
     70WARNING: This file doesn't currently compile. 
     71 
    6872=cut 
    6973 
    7074# A functions-first kinda guy 

  • examples/pasm/nanoforth.pasm

     
    1919to branch into different code segments, or better it works only if bounds 
    2020checking is disabled. 
    2121 
     22=head1 BUGS 
     23 
     24WARNING: This file doesn't currently compile. 
     25 
    2226=cut 
    2327 
    2428.macro core(op, label) 

  • examples/past/blocktype_immediate.pir

     
    2626 
    2727F<docs/pdds/pdd26_ast.pod> 
    2828 
     29=head1 BUGS 
     30 
     31WARNING: This file doesn't currently compile. 
     32 
    2933=cut 
    3034 
    3135.namespace [] 

  • examples/io/echo_client.pir

     
    2020Shortly we will create an echo server in Parrot and combine these 2 into 
    2121a test suite. 
    2222 
     23=head1 BUGS 
     24 
     25WARNING: This file doesn't currently compile. 
     26 
    2327=cut 
    2428 
    2529.sub _main 

  • examples/io/http.pir

     
    1717set C<PARROT_NET_DEVEL> to 1 in F<io/io_private.h> and rebuld Parrot or 
    1818the network layer won't exist. 
    1919 
     20=head1 BUGS 
     21 
     22WARNING: This file doesn't currently compile. 
     23 
    2024=cut 
    2125 
    2226.sub example :main 

  • examples/io/net_smtp.pasm

     
    1818set C<PARROT_NET_DEVEL> to 1 in F<io/io_private.h> and rebuld Parrot or 
    1919the network layer won't exist. 
    2020 
     21=head1 BUGS 
     22 
     23WARNING: This file doesn't currently compile. 
     24 
    2125=cut 
    2226 
    2327    print "Creating socket.\n" 

  • examples/io/httpd.pir

     
    8282Original author is Markus Amsler - <markus.amsler@oribi.org> 
    8383The code was heavily hacked by bernhard and leo. 
    8484 
     85=head1 BUGS 
     86 
     87WARNING: This file doesn't currently compile. 
     88 
    8589=cut 
    8690 
    8791.const string CRLF     = "\r\n" 

  • examples/nci/sdl_blue_rectangle.pir

     
    11# $Id$ 
    22 
     3 
     4=head1 BUGS 
     5 
     6WARNING: This file doesn't currently compile. 
     7 
     8=cut 
     9 
    310.sub _main :main 
    411    _init() 
    512    _MAIN() 

  • examples/nci/ls.pir

     
    99 
    1010List the content of the directory 'docs'. 
    1111 
     12=head1 BUGS 
     13 
     14WARNING: This file doesn't currently compile. 
     15 
    1216=cut 
    1317 
    1418.sub _main :main 

  • examples/nci/xlibtest.pir

     
    1515 
    1616Press Escape key to exit. 
    1717 
     18=head1 BUGS 
     19 
     20WARNING: This file doesn't currently compile. 
     21 
    1822=cut 
    1923 
    2024 

  • examples/pge/simple.pir

     
     1 
     2=head1 BUGS 
     3 
     4WARNING: This file doesn't currently compile. 
     5 
     6=cut 
     7 
    18.namespace [ "Simple" ] 
    29 
    310.sub "__onload" 

  • examples/pge/benchmarks/ambs1/main.pir

     
     1 
     2=head1 BUGS 
     3 
     4WARNING: This file doesn't currently compile. 
     5 
     6=cut 
     7 
    18.sub main :main 
    29    load_bytecode 'PGE.pbc' 
    310    load_bytecode 'dumper.pbc' 

  • t/examples/catchall.t

     
    1010use File::Spec qw(); 
    1111use Test::More; 
    1212use Parrot::Config qw(%PConfig); 
     13use Parrot::Test; 
    1314 
    1415=head1 NAME 
    1516 
    … …  
    3738 
    3839plan tests => scalar keys %files; 
    3940 
     41# All these must be fixed before 1.0! 
     42my $todo_check = qr/WARNING: This file doesn't currently compile\./m; 
     43 
    4044foreach my $file (sort keys %files) { 
    41     my $cmd = File::Spec->curdir() . $PConfig{slash} .  
     45 
     46   my $contents = slurp_file($file); 
     47 
     48   my $cmd = File::Spec->curdir() . $PConfig{slash} .  
    4249              $PConfig{test_prog} . " -o " . File::Spec->devnull() . " " . 
    4350              $file; 
    44  
     51TODO: { 
     52    local $TODO = "documented as broken" if ($contents =~ $todo_check); 
    4553    is(system($cmd), 0 , $file); 
     54  } 
    4655} 
    4756 
    4857# Local Variables: