Whiteknight's World

embeds

set_args callargs # A CallArguments PMC, which can be loaded from PBC as a constant
invokecc obj, meth

invokecc obj, meth, callargs

.pir sub foo
callcontext = get_params foo
callparams = get_param_defs foo
unpack_params callcontext, callparams

register = get_constant_p_i index

$I0 = 0
loop_top:
foo($I0, "bar")
inc $I0 
if $I0 < 100 goto loop_top

$I0 = get_constant 0
$S1 = get_constant 1
$I2 = get_constant 2
loop_top:
foo($I0, $S1)
inc $I0
if $I0 < $I2 goto loop_top

plumage install parrot-linear-algebra

git clone git://github.com/Whiteknight/parrot-linear-algebra.git pla
cd pla
parrot-nqp setup.nqp build
parrot-nqp setup.nqp test
parrot-nqp setup.nqp install 

git clone git://github.com/Whiteknight/kakapo.git kakapo
cd kakapo
checkout tag PLA-version-1
parrot-nqp setup.nqp build
parrot-nqp setup.nqp install

.HLL "MyLanguage"

.HLL "parrot"

INIT { pir::load_bytecode("pla_nqp.pbc"); }

my $A := NumMatrix2D.new();
$A.initialize_from_args(2, 2, 1, 2.0, "3", 4);
$A.transpose();
pir::say("A: " ~ $A);

my $B := ComplexMatrix2D.new();
$B.initialize_from_array(2, 2, [1, 2.0, "3+3i", "7+5i"]);
$B.conjugate();
pir::say("B: " ~ $B);

my $C := PMCMatrix2D.new();
$C.fill(4.4, 2, 2);
pir::say("C: " ~ $C);

my $D := $B.gemm(0.5, $A, $B, "1+2i", $C);
pir::say("D: " ~ $D);

t/sanity.t .............................................. ok
t/pmc/pmcmatrix2d.t ..................................... ok
t/pmc/nummatrix2d.t ..................................... ok
t/pmc/complexmatrix2d.t ................................. ok
t/methods/nummatrix2d/convert_to_complex_matrix.t ....... ok
t/methods/nummatrix2d/row_scale.t ....................... ok
t/methods/nummatrix2d/get_block.t ....................... ok
t/methods/nummatrix2d/mem_transpose.t ................... ok
t/methods/nummatrix2d/convert_to_number_matrix.t ........ ok
t/methods/nummatrix2d/initialize_from_args.t ............ ok
t/methods/nummatrix2d/row_swap.t ........................ ok
t/methods/nummatrix2d/iterate_function_inplace.t ........ ok
t/methods/nummatrix2d/fill.t ............................ ok
t/methods/nummatrix2d/initialize_from_array.t ........... ok
t/methods/nummatrix2d/iterate_function_external.t ....... ok
t/methods/nummatrix2d/transpose.t ....................... ok
t/methods/nummatrix2d/item_at.t ......................... ok
t/methods/nummatrix2d/gemm.t ............................ ok
t/methods/nummatrix2d/row_combine.t ..................... ok
t/methods/nummatrix2d/resize.t .......................... ok
t/methods/nummatrix2d/convert_to_pmc_matrix.t ........... ok
t/methods/nummatrix2d/set_block.t ....................... ok
t/methods/complexmatrix2d/convert_to_complex_matrix.t ... ok
t/methods/complexmatrix2d/row_scale.t ................... ok
t/methods/complexmatrix2d/get_block.t ................... ok
t/methods/complexmatrix2d/mem_transpose.t ............... ok
t/methods/complexmatrix2d/convert_to_number_matrix.t .... ok
t/methods/complexmatrix2d/initialize_from_args.t ........ ok
t/methods/complexmatrix2d/row_swap.t .................... ok
t/methods/complexmatrix2d/iterate_function_inplace.t .... ok
t/methods/complexmatrix2d/fill.t ........................ ok
t/methods/complexmatrix2d/initialize_from_array.t ....... ok
t/methods/complexmatrix2d/conjugate.t ................... ok
t/methods/complexmatrix2d/iterate_function_external.t ... ok
t/methods/complexmatrix2d/transpose.t ................... ok
t/methods/complexmatrix2d/item_at.t ..................... ok
t/methods/complexmatrix2d/gemm.t ........................ ok
t/methods/complexmatrix2d/row_combine.t ................. ok
t/methods/complexmatrix2d/resize.t ...................... ok
t/methods/complexmatrix2d/convert_to_pmc_matrix.t ....... ok
t/methods/complexmatrix2d/set_block.t ................... ok
t/methods/pmcmatrix2d/convert_to_complex_matrix.t ....... ok
t/methods/pmcmatrix2d/get_block.t ....................... ok
t/methods/pmcmatrix2d/mem_transpose.t ................... ok
t/methods/pmcmatrix2d/convert_to_number_matrix.t ........ ok
t/methods/pmcmatrix2d/initialize_from_args.t ............ ok
t/methods/pmcmatrix2d/iterate_function_inplace.t ........ ok
t/methods/pmcmatrix2d/fill.t ............................ ok
t/methods/pmcmatrix2d/initialize_from_array.t ........... ok
t/methods/pmcmatrix2d/iterate_function_external.t ....... ok
t/methods/pmcmatrix2d/transpose.t ....................... ok
t/methods/pmcmatrix2d/item_at.t ......................... ok
t/methods/pmcmatrix2d/resize.t .......................... ok
t/methods/pmcmatrix2d/convert_to_pmc_matrix.t ........... ok
t/methods/pmcmatrix2d/set_block.t ....................... ok
PASSED 356 tests in 55 files

INIT { pir::load_bytecode("pla.pbc"); }

method test_METHOD_iterate_function_inplace_TRANSPOSE() {
    my $m := self.fancymatrix2x2();
    $m.transpose();
    my $n := self.matrix2x2(self.fancyvalue(0) * 2, self.fancyvalue(2) * 2,
                            self.fancyvalue(1) * 2, self.fancyvalue(3) * 2);
    my $sub := -> $matrix, $value, $x, $y {
        return ($value * 2);
    };
    $m.iterate_function_inplace($sub);
    assert_equal($m, $n, "external iteration does not respect transpose");
}

my $sub := -> $matrix, $value, $x, $y {
    return ($value * 2);
};

my $sub := sub ($matrix, $value, $x, $y) {
    return ($value * 2);
}; 

typedef struct _array {
  int length;
  int *values;
} array;

void push( array *ary, int x) { 
  array->length++; 
  realloc(array->values, newlen * sizeof(int));
  array->values[array->length - 1] = x;
}

foo = i++;

Mutex *m;
AQUIRE_MUTEX(m);
// critical section code
RELEASE_MUTEX(m);

Mutex m;

int pop(array* a) {
  ACQUIRE_MUTEX(m);
  int item = a->values[a->length - 1];
  a->length--;
  RELEASE_MUTEX(m);
  return item;
}

void push(array* a, int item) {
  a->values[a-length] = item; 
  a->length++;
}

$P0 = syncronize $P1

propagate thread, obj

- Core
  + Various long-standing bugs in IMCC were fixed
  + STRINGs are now immutable.
  + use STRINGNULL instead of NULL when working with strings
  + Fixed storage of methods in the NameSpace PMC
  + Added :nsentry flag to force method to be stored in the NameSpace
  + Added StringBuilder and PackfileDebug PMCs
  + Added experimental opcodes find_codepoint and unroll
- Compilers
  + Fixed reporting of line numbers in IMCC
  + Removed deprecated NQP compiler, replaced with new NQP-RX
  + Removed NCIGen compiler
- Deprecations
  + Tools to distribute on CPAN were removed
  + Deprecated dynpmcs have been removed to external repositories
  + Removed RetContinuation PMC
  + Removed CGoto, CGP, and Switch runcores
- Tests
  + Many tests for the extend/embed interface were added
  + done_testing() is now implemented in Test::More
- Tools
  + The fakexecutable tapir is renamed parrot-prove
  + Performance fixes to the pbc_to_exe tool
  + Fix data_json to work outside of trunk
  + The dynpmc GzipHandle (zlib wrapper) was added
  + The library Archive/Tar.pir was added.
  + The library Archive/Zip.pir was added.
  + The libraries LWP.pir, HTTP/Message.pir & URI.pir were added.
- Miscellaneous
  + Six Parrot-related projects accepted to GSoC
  + Improve use of const and other compiler hints

JimmyZ: trunk with old nqp-rx real:8m5.546s user:7m37.561s sys:0m10.281s
JimmyZ: trunk with new nqp-rx real:7m48.292s user:7m11.795s sys:0m10.585s
JimmyZ: codestring with new nqp-rx real:6m58.873s user:6m22.732s sys:0m6.356s

using System;
using System.Text;
using System.Runtime.InteropServices;

public static class Program {
    [DllImport("parrot")]
    private static extern System.IntPtr Parrot_new(System.IntPtr parent);

    [DllImport("parrot")]
    private static extern void Parrot_destroy(System.IntPtr interp);

    [DllImport("parrot", CharSet=CharSet.Ansi)]
    private static extern System.IntPtr Parrot_new_string(System.IntPtr interp,
        string text, int length, System.IntPtr whatever, int whatever2);

    [DllImport("parrot", CharSet=CharSet.Ansi)]
    private static extern System.IntPtr Parrot_compile_string(System.IntPtr interp,
        System.IntPtr compiler_name, string code, StringBuilder errmsg);

    [DllImport("parrot", CharSet=CharSet.Ansi)]
    private static extern void Parrot_ext_call(System.IntPtr interp,
        System.IntPtr sub, string sig);

    public static void Main(string[] args) {
        Console.WriteLine("Hello World from C#");

        System.IntPtr interp = Parrot_new(System.IntPtr.Zero);
        System.IntPtr pir = Parrot_new_string(interp, "PIR", 3, System.IntPtr.Zero, 0);
        System.IntPtr sub = Parrot_compile_string(interp, pir, @"
            .sub 'foo'
                say 'Hello from PIR'
            .end",
            new StringBuilder(256)
        );

        Parrot_ext_call(interp, sub, "->");
        Parrot_destroy(interp);

        Console.WriteLine("Hello again from C#");
    }
}

darbelo: less than 9450 seconds to 'SOCKHOP' deadline. Everyone panic!
moritz panics 

BEGIN_OPS_PREAMBLE

opcode_t *
Parrot_pir_op_lib_wrapper_func(opcode_t *cur_opcode, PARROT_INTERP)
{
    // TODO: Set dest to the address of the next instruction, after all arguments.
    //       need to parse the number of args from the op signature
    opcode_t * dest = cur_opcode + 3;
    INTVAL opnum = (INTVAL)(*cur_opcode);
    char * const opname = interp->op_info_table[opnum]->name;
    STRING * name = string_make(interp, opname, 8, "ascii",
        PObj_constant_FLAG|PObj_external_FLAG);
    PMC * const root_ns = interp->root_namespace;
    PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, CONST_STRING(interp, "pir_op_lib"));
    PMC * sub = VTABLE_get_pmc_keyed_str(interp, ns, name);

    // TODO: Need to convert the op signature into a PCC signature here
    PMC * call_sig = Parrot_pcc_build_sig_object_from_op(interp, PMCNULL, signature,
        cur_opcode);
    Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
    interp->current_cont   = NEED_CONTINUATION;

    dest = VTABLE_invoke(interp, sub, dest);
    goto ADDRESS(dest);
}

END_OPS_PREAMBLE

op register_op_sub(IN STR, IN STR, IN PMC) {
    PMC * const root_ns = interp->root_namespace;
    PMC * const sub = $3;
    PMC * const key = Parrot_pmc_new(interp, enum_class_ResizableStringArray);
    STRING * const opname = $1;
    STRING * const sig = $2;
    PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, CONST_STRING(interp, "pir_op_lib"));
    INTVAL argcount = 3; // TODO: Count number of args in signature
    STRING * const separator = CONST_STRING(interp, "_");
    STRING * longname = Parrot_str_append(interp, opname, separator);
    longname = Parrot_str_append(interp, longname, sig);

    VTABLE_set_string_keyed_int(interp, key, 0, );

    VTABLE_set_pmc_keyed_str(interp, ns, $2, sub);
    op_info_t * new_op = (op_info_t *)malloc(sizeof(op_info_t));
    new_op->name = Parrot_str_to_cstring(interp, opname);
    new_op->full_name = Parrot_str_to_cstring(interp, longname);
    new_op->jump = 0;
    new_op->opcount = argcount + 1;

    // TODO: Initialize ->type based on what's in signature
    new_op->type = (arg_type_t *)malloc(sizeof(arg_type_t) * PARROT_MAX_ARGS);

    // TODO: Initialize based on the signature
    new_op->dirs = (arg_dir_t *)malloc(sizeof(arg_dir_t) * PARROT_MAX_ARGS);

    // TODO: what is this?
    new_op->labels = (char *)malloc(sizeof(char) * PARROT_MAX_ARGS);

    // TODO: Insert the new op into the optable.
}
public void Foo<T>() where T : new() {
   T bar = new T(new Baz());
}

private method ShowMDIChild<TForm>() where TForm : Form {
  if (IsSingleton<TForm>() && this.SingletonCache.ContainsKey(typeof(TForm)))
    return;
  TForm form = new TForm(...);
  form.Show()
}

public interface ISingletonMDIChild {}

...

private method ShowMDIChild<TForm>() {
  if (typeof(TForm).GetInterface(typeof(ISingletonMDIChild).FullName) == null) {
    this.ShowMDIChildSingleton<TForm>();
  ...
}

ContextMenu menu = currNode.Tag.GetContextMenu();

switch (currNode.Tag is) {
  case ClassFoo:
  ...
  break;
case ClassBar:
  ...
  break;
}

switch (currNode.Tag.GetType().FullName) {
  case "MyNamespace.ClassFoo":
  ...

if (currNode.Tag is ClassFoo) {
  ...
} else if (currNode.Tag is ClassBar) {
  ...
} 
...

switch (whatever) {
  case 1:
    ...
  goto _2;
  case 2:
_2:
    ...
}

Priorities
1 = blocking something;
2 = not blocking, but I strongly feel this is needed;
3 = nice to have;
4 = I'm not sure of the status.

ticket priority summary
1497 1 Expose 'meth_cache' attribute of class.pmc1492 1 Get_class namespace) confuses NSes that have same final name.
1473 1 Handle PMC type is broken
1520 1 P6metaclass cannot derive from already-`register`ed PMC type
1429 2 Add -L support to parrot-nqp
1515 2 Duplicate named args cause fatal error in subs
1133 2 MMD matching does not match 'scalar' with primitive types
1448 2 Modify `throw` opcode to pass through pre-configured resume continuation
1514 2 NQP-rx doesn't check storage mode for contextuals
1510 2 NQP-rx doesn't create PMC for string // expressions
1464 2 NQP-rx doesn't handle bare "return" from nested block correctly.
809 2 Opcode 'isa' does not accept RSA PMC for class
1431 2 Register assigned to .local string variable is mis-remembered
1430 3 Change trace offset numbers to hex format
799 3 Configure should explicitly check for symbolic link capability on Linux
1138 3 Create a 'vivify' opcode
1455 3 Exception 'birthtime' attribute not accessible
1446 3 Exception PMC 'clone' does not work
1088 3 Multidispatch 'concatenate_str' does not handle LHS undef
1109 3 MultiSub PMC does not support get_namespace method
1512 3 NQP-rx generates bad access code for non-twigiled attribute
1308 3 NQPrx does not vivify globals in all cases
1107 3 Opcode get_class has failed assertion with garbage input
1481 3 P6metaclass.register does not catch second registration of PMC Class
1437 3 pbc_dump: don't skip varargs words in -d mode
1438 3 pbc_dump: Indicate sub/method boundaries in -d mode
1065 3 PGE should emit inline PIR with Grammar namespace
741 3 PIR line numbers in backtraces are substantially wrong.
816 3 PMC 'Undef' does not support logical_not
1273 3 Provide a parrot 'backtrace' with assertion failures.
1442 3 Sub PMC should support getattribute
1513 3 Test::Builder formats TODO tests wrong/poorly
1439 3 pbc_dump: Mark branch targets in -d mode

VTABLE_add_i(interp, pmc, 5);

pmc->vtable->add_i(interp, pmc, 5);

pmc->vtable->base_type;  // type number
pmc->vtable->whoami;     // type name (Parrot STRING)
pmc->vtable->class;          // Class or PMCProxy PMC for the type

VTABLE * tbl = interp->vtable[index];

$P0 = new ['Foo']
$P1 = find_method $P0, "bar"
callmethodcc $P0, $P1

PMC * p0 = Parrot_pmc_new(interp, type_Foo);
PMC * p1 = VTABLE_find_method(interp, p0, "bar");
setup_method_call(interp, p0);
VTABLE_invoke(interp, p1);

PMC * class = pmc->vtable->class;
PMC * methods = class->data->methods;
PMC * method = VTABLE_get_pmc_keyed_str(interp, methods, "bar");

Whiteknight's World

Blogger Blog is Closed

Blog Migration

Case Study: Parrot Critique

Taking a new Job

Product Management Team

Parrot Teams

Know Your Fundamentals

Offline

PDD03 Calling Conventions Critique

PLA: Release 1

Parrot Fundamentals: Design

Woe Is Parrot!

Parrot as a Mature Platform

Parrot has Smolder Again!

PLA Documentation Is Up

PLA Release Is Near

Parrot Foundation: Current Work

Parrot Foundation Board

Code Anthem: What Can Change

Code Anthem

PLA Planning: Next Steps

GSoC Threads: Chandon's Results

PLA: More New Methods

PLA Test Suite Redux

Github Wikis and EmbedVideo

PLA Status Updates

Kakapo Fixed!! (Mostly)

Sic Semper VisualBasicus

Silverlight Website

Kakapo and Parrot-Linear-Algebra

VisualStudio 2010

Lorito: A Design

EmbedVideo Version 1.0 Released

Parrot-Linear-Algebra: Change of Course

BLAS, LAPACK, and Parrot-Linear-Algebra

Parrot's Deprecation Policy

ParrotTheory: Locks and Synchonization

Lost Finale: Redux

EmbedVideo Extension Pre-Release

ParrotTheory: Green Threads

The AOT Advantage

Compilers Targetting Parrot

Lost Finale

The Fitness of Parrot as a Target Platform

Bright Blue Yonder

Parrot 2.4.0 "Sulfur Crest" Released!

Immutable Strings branch performance

EmbedVideo MediaWiki extension

The Merits of a Distributed Workflow

SVN or Git

Been away for a while

Online Parrot Developer Summit

MediaWiki PeerReview Extension

Parrot in C#

GSoC: The Contenders

GSoC Deadline Approaching

Writing Ops in PIR

Parrot Virtual Developer Meeting

GSoC Proposal Deadline: Friday

Problems with C#

Austin's Tickets.

Potential GSoC students

Parrot is In GSoC!!

Lean and Mean Parrot.

GSoC Idea: GMP Bindings

Weekend Hackathon

GSoC: Parrot in Summer 2010

Difference between PMCs and Objects

NQ-NQP Blog