walkure

public static class ControlInvokerEx
{
    public static object InvokeEx(this Control ctl, Delegate act)
    {
        return InvokeEx(ctl,act,null);
    }

    public static object InvokeEx(this Control ctl, Delegate act,params object[] args)
    {
        if (!ctl.InvokeRequired)

walkure

diff --git a/wmr100.c b/wmr100.c
index 9b43c21..d6f3153 100644
--- a/wmr100.c
+++ b/wmr100.c
@@ -271,6 +271,7 @@ void wmr_output_stdout(WMR *wmr, char *msg) {
 }

 void wmr_output_zmq(WMR *wmr, char *topic, char *msg) {
+       zmq_msg_t zmsg;
     int len = strlen(topic) + 1 + strlen(msg);

walkure

#!/usr/bin/env perl

use strict;
use warnings;
use Date::Parse;
use Net::Twitter::Lite;

my $nt = Net::Twitter::Lite->new(
	consumer_key    => 'consumer key',
	consumer_secret => 'consumer secret',

walkure

#!/usr/bin/env perl

use strict;
use warnings;

use Encode;
use OAuth::Lite::Consumer;
use IO::Socket::SSL;
use JSON;
use Date::Parse;

walkure

#!/usr/bin/env perl

use strict;
use warnings;

use AnyEvent::Twitter;
use AnyEvent::Twitter::Stream;
use Encode;
use Date::Parse;

walkure

#!/usr/bin/env perl

use strict;
use Device::SerialPort;
use IO::Socket;
use IO::Pipe;
use IO::Select;

my $pipe = IO::Pipe->new();
my $pid = fork();

walkure

package IRCSay;

use strict;
use warnings;
use IO::Socket;
use Encode;

sub new
{
  my $class = shift;

walkure

#!/usr/bin/env perl
#cf. http://d.hatena.ne.jp/W53SA/20130109/1357750514

use strict;

use LWP::Simple;
use XML::Atom::Feed;
use URI;
use File::Basename;
use Digest::HMAC_SHA1;

walkure

package URIShorten;

use strict;
use warnings;

use LWP::UserAgent;
use JSON::XS qw(decode_json);
use URI::Escape;

sub new

walkure

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using System.Net;
using System.IO;
using System.Threading;

namespace KCB2