The Perl binding

The generated Perl API uses a compiled XS bridge to the robot core. Subsystems are objects, records are hash references, and controls take named fields. Region records also expose their core methods. Absent results are undef. Later controls merge with earlier ones in the same tick.

Install with make install SDK=/opt/clunkyard/sdk. Run with PERL5LIB=/opt/clunkyard/sdk/bindings/perl perl bot.pl. The bridge loads libclunkyard.so.2; no compiler is needed at run time.

A tiny robot

use strict;
use warnings;
use Clunkyard;
package Tiny;
use parent -norequire, 'Clunkyard::Robot';
sub on_turn {
  my($self)=@_;my$target=$self->sensors->nearest;
  if(!defined$target){
    $self->drive->set(throttle=>0.75,turn=>0.25);
    $self->scanner->set(heading=>$self->me->heading,arc=>40);
    $self->status->set(text=>'SEARCH',value=>$self->scanner->last->{arc});
    return;
  }
  my$power=$self->gun->power_for_flight_time($target->{range},1);
  my$aim=$self->gun->lead($target,$power);
  $self->gun->aim(heading=>$aim?$aim->{heading}:$target->{bearing},pitch=>$aim?$aim->{pitch}:$target->{elevation});
  $self->gun->fire(power=>$power)if$self->gun->can_fire($power,10);
  $self->drive->set(throttle=>0.5,turn=>Clunkyard::angles()->clamp(Clunkyard::angles()->angle_diff($target->{bearing},$self->me->heading)));
  $self->scanner->set(heading=>$target->{bearing},arc=>10);
  $self->status->set(text=>'TRACK',value=>$target->{range});
}
package main;
Clunkyard::run(Tiny->new);

make test SDK=... checks the actual generated API against every core vector, including exact floating-point results and act lines. Core errors raise a language error carrying their status. A core fault during input sends its empty act and continues with the next state. User exceptions are logged and send the controls already set. Use the binding’s forfeit helper to give up a match; play runs protocol lines in memory for tests.

Names

Every entry of the robot API 2.0.0 in Perl. names.md has every language side by side.

Download this page as Markdown