s1n

Processor Information:
    Vendor:  AuthenticAMD
    Speed: 3210 Mhz
    6 logical processors
    6 physical processors
    HyperThreading:  Unsupported
    FCMOV:  Supported
    SSE2:  Supported
    SSE3:  Supported
    SSSE3:  Supported

s1n

#!/usr/bin/perl

use IO::Socket::INET;

# flush after every write
$| = 1;

my ($socket,$data);

#  We call IO::Socket::INET->new() to create the UDP Socket

s1n

sub unsetenv ($key) is export {
   Q:PIR {
      .local pmc env
      env = new ['Env']
      $P0 = find_lex "$key"
      delete env[$P0]
   };
}

sub getenv ($key) is export {

s1n

#include <iostream>
#include <boost/variant.hpp>
#include <boost/mpl/push_front.hpp> 
#include <boost/mpl/vector.hpp>

typedef boost::mpl::vector<int, long, float, double, long double> types;
typedef boost::make_variant_over<types>::type all_sorts;

class op_eq : public boost::static_visitor<bool> {
   public:

s1n

role foo_command {
}

module FooDispatch {
    my @commands;
    multi trait_auxiliary:<is>(foo_command $trait, $block, $arg) is export {
        @commands.push({:command($arg[0]), :block($block)});
    }

    sub dispatch(Str $line) is export {

s1n

# Makefile.in generated by automake 1.10.2 from Makefile.am.
# src/Makefile.  Generated from Makefile.in by configure.

# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
# 2003, 2004, 2005, 2006, 2007, 2008  Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.

# This program is distributed in the hope that it will be useful,

s1n

## Process this file with automake to produce Makefile.in

## Created by Anjuta

AM_CPPFLAGS = \
	-DPACKAGE_LOCALE_DIR=\""$(prefix)/$(DATADIRNAME)/locale"\" \
	-DPACKAGE_SRC_DIR=\""$(srcdir)"\" \
	-DPACKAGE_DATA_DIR=\""$(datadir)"\"

INCLUDES = /usr/include/boost-1_37

s1n

s1n@citadel november $ make test
prove -e '/home/s1n/sandbox/proto/projects/rakudo/parrot/parrot /home/s1n/sandbox/proto/projects/rakudo/perl6.pbc'\
	      -r --nocolor t/
t/cgi/01-cgi.t ................................ ok     
t/config.t .................................... ok   
t/dispatcher/01-basics.t ...................... ok   
t/dispatcher/02-add_rules.t ................... ok   
t/dispatcher/03-whatever.t .................... ok   
t/dispatcher/04-regex.t ....................... ok   
t/dispatcher/05-junctions.t ................... ok   

s1n

    1 Merge branch 'master' of git://github.com/rakudo/rakudo into rt_work
    2 
    3 Conflicts:
    4     build/PARROT_REVISION
    5 #
    6 # It looks like you may be committing a MERGE.
    7 # If this is not correct, please remove the file
    8 #   .git/MERGE_HEAD
    9 # and try again.
   10 #

s1n

s1n@citadel s1n $ git status
# On branch rt_work
# Changes to be committed:
#   (use "git reset HEAD <file>..." to unstage)
#
#	modified:   CREDITS
#	modified:   build/Makefile.in
#	modified:   build/PARROT_REVISION
#	modified:   docs/spectest-progress.csv
#	modified:   src/classes/Str.pir