head

Net::OSC::Server::UDP - A convenient platform for OSC communication over UDP.


Does Net::OSC::Server - look there for additional methods.


code

=begin code
method new(
  Bool :$!is64bit = True,
  Str :listening-address,
  Int :listening-port,
  Str :send-to-address,
  Int :send-to-port,
)
=end code


Set :is64bit to false to force messages to be packed to 32bit types
 this option may be required to talk to some versions of Max and other old OSC implementations.
The send-to-* parameters are not required but allow for convenient semantics if you are only communicating with a single host.



unit class Net::OSC::Server::UDP does Net::OSC::Server;
use Net::OSC::Message;
use Net::OSC::Types;

has IO::Socket::Async $!udp;
has Tap               $!listener;
has Str               $.listening-address;
has Int               $.listening-port;
has Str               $.send-to-address is rw;
has Int               $.send-to-port is rw;

submethod BUILD(:$!listening-address, :$!listening-port, :$!send-to-address, :$!send-to-port, :$!is64bit = True, :@actions) {
  self.add-actions(@actions);
  self!listen;
}

method send(OSCPath $path, *%params)
#= Send a UDP message to a specific host and port.
#= This method extends the Net::OSC::Server version and adds the :address and :port
#=  Named arguments to support UDP message sending.
#= If :address or :port are not provided the Server's relevant send-to-* attribute will be used instead.
{
  if %params<address>:exists or %params<port>:exists {
    self.transmit-message(
      Net::OSC::Message.new(
        :$path
        :args( (%params<args>:exists and %params<args>.defined) ?? %params<args> !! () )
        :is64bit($!is64bit)
      ),
      (%params<address>:exists ?? %params<address> !! $!send-to-address),
      (%params<port>:exists    ?? %params<port>    !! $!send-to-port)
    )
  }
  else {
    self.transmit-message(
      Net::OSC::Message.new(
        :$path
        :args( (%params<args>:exists and %params<args>.defined) ?? %params<args> !! () )
        :is64bit($!is64bit)
      )
    )
  }
}

method !listen()
#= Start listening for OSC messages
{
  $!udp  .= bind-udp($!listening-address, $!listening-port);

  $!listener = $!udp.Supply(:bin).grep( *.elems > 0 ).tap: -> $buf {
    self!on-message-recieved: Net::OSC::Message.unpackage($buf)
  }
}

method !on-close()
#= Clean up listener and sender objects
{
  $!listener.close;
}

multi method transmit-message(Net::OSC::Message:D $message)
#= Transmit an OSC message.
#= This implementation will send the provided message to the server's send-to-* attributes.
{
  await $!udp.write-to($!send-to-address, $!send-to-port, $message.package);
}

multi method transmit-message(Net::OSC::Message:D $message, Str $address, Int $port)
#= Transmit an OSC message to a specified host and port.
#= This implementation sends the provided message to the specified address and port.
{
  await $!udp.write-to($address, $port, $message.package);
}


root

Server

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


UDP

NAME

METHODS