Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl -w --
# generated by wxGlade 0.6.3 on Sun Apr 24 21:53:14 2011
# To get wxPerl visit http://wxPerl.sourceforge.net/
use Wx 0.15 qw[:allclasses];
use strict;
package MyUnicorns;
use base qw(Wx::App);
use strict;
#define __DBL_MIN_EXP__ (-1021)
#define __UINT_LEAST16_MAX__ 65535
#define __FLT_MIN__ 1.17549435082228750797e-38F
#define __UINT_LEAST8_TYPE__ unsigned char
#define __INTMAX_C(c) c ## L
#define __CHAR_BIT__ 8
#define __UINT8_MAX__ 255
#define __WINT_MAX__ 4294967295U
#define __SIZE_MAX__ 18446744073709551615UL
#define __WCHAR_MAX__ 2147483647
#!/usr/bin/env perl
# circe - Perl replacement for Redis
# Copyright 2011 Alexandria M. Wolcott <alyx@sporksmoo.net>
# Released under the same terms as Perl itself.
use warnings;
use strict;
package Circe;
use Tree::RB;
************* Module bot
F: 10: Unable to import 'eventlet'
F: 11: Unable to import 'eventlet.green'
C: 17: Invalid name "cg" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 18: Invalid name "cfile" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 21: Invalid name "cg" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 22: Invalid name "cfile" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 24: Invalid name "conf" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
W: 62:IRCCli.onjoin: No exception type(s) specified
E: 61:IRCCli.onjoin: Class 'events' has no 'join' member
************* Module bot
C: 17: Invalid name "cg" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 18: Invalid name "cfile" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 21: Invalid name "cg" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 22: Invalid name "cfile" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
C: 24: Invalid name "conf" (should match (([A-Z_][A-Z0-9_]*)|(__.*__))$)
W: 62:IRCCli.onjoin: No exception type(s) specified
E: 61:IRCCli.onjoin: Class 'events' has no 'join' member
C: 62:IRCCli.onjoin: More than one statement on a single line
W: 66:IRCCli.onpart: No exception type(s) specified
use strict;
use warnings;
use Data::Dumper;
my %people = (
cody => {
friends => ['aaron', 'alyx', 'foo', 'cow']
},
aaron => {
friends => ['alyx', 'cody', 'foo', 'bar', 'moo', 'cow']
@alyx
alyx / tokenize.c
Created October 9, 2011 23:11
tokenizer with memory asplosion
/* Sigyn - A reasonably sane IRC bot.
* Copyright (c) Alexandria Wolcott <alyx@malkier.net>
* Released under the BSD license.
*/
#include "sigyn.h"
int tokenize(char *message, char **parv)
{
int i;
/* Sigyn - A reasonably sane IRC bot.
* Copyright (c) Alexandria Wolcott <alyx@malkier.net>
* Released under the BSD license.
*/
#include "sigyn.h"
mowgli_heap_t *command_heap;
mowgli_list_t commands;
@alyx
alyx / free.pl
Created November 18, 2011 03:31
#!/usr/bin/perl
##
## freebsd-memory -- List Total System Memory Usage
## Copyright (c) 2003-2004 Ralf S. Engelschall <rse@engelschall.com>
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
## 1. Redistributions of source code must retain the above copyright
## notice, this list of conditions and the following disclaimer.
From 330f22ee350a8dd843f2c7ca80f1b67a928ad446 Mon Sep 17 00:00:00 2001
From: Alyx <alyx@malkier.net>
Date: Sun, 19 Feb 2012 04:47:50 -0700
Subject: [PATCH] Remove a double-declared typedef, create
mowgli_pollevent_dispatch_func_t. Things compile now.
---
src/libmowgli/eventloop/eventloop.h | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)