nakal

#!/bin/sh

IRCSERVER="$1"
CHANNEL="$2"
TEXT="$3"

WEECHAT_PID=`pgrep -U weechatuser weechat`
WEECHAT_PIPE="/home/weechatuser/.weechat/weechat_fifo_${WEECHAT_PID}"
if [ -p "$WEECHAT_PIPE" ]; then
        echo "irc.$IRCSERVER.$CHANNEL *$TEXT" > "$WEECHAT_PIPE"

nakal

#!/bin/sh
#
# $FreeBSD$

# PROVIDE: phabricator_aphlict
# REQUIRE: phabricator_phd 
# KEYWORD: shutdown

. /etc/rc.subr

nakal

#!/bin/sh
#
# $FreeBSD$

# PROVIDE: phabricator_phd
# REQUIRE: DAEMON mysql
# KEYWORD: shutdown

. /etc/rc.subr

nakal

#!/bin/sh
#
# $FreeBSD$

# PROVIDE: phabricator_sshd
# REQUIRE: DAEMON
# KEYWORD: shutdown

. /etc/rc.subr

nakal

#include <stdio.h>
#include <stdlib.h>

int main(void)
{
	int found_non_ascii = 0;

	while (!ferror(stdin) && !feof(stdin)) {
		size_t s;

nakal

#include <stdio.h>

int is_little_endian(void)
{
        char buf[sizeof(unsigned int)];

        *(unsigned int *)buf = 1u;
        return (int)buf[0];
}

nakal

" ***** Start project directory local vimrc files

let s:start_dir=getcwd()

while s:start_dir != '/' && empty(glob(s:start_dir . '/.git'))
	let s:start_dir=fnamemodify( s:start_dir, ':h')
endwhile

if s:start_dir != '/'
	let s:vimrc_path = s:start_dir . '/.vimrc'

nakal

-- return the nth fibonacci number
fib n = fst $ (foldr1 (.) (replicate n $ \(f1, f2) -> (f2, f1 + f2) )) (0,1)

nakal

# generates mails 1.eml, 2.eml,... from a single mbox file
# when (e.g.) procmailrc is flawed and everything was delivered
# locally
#
# then you can feed these files into the LDA one-by-one

awk '/^From / {nr += 1; getline }; { print $0 >> ( nr".eml" ) }' /var/mail/$USER

nakal

import System.IO.Error
import System.Posix.Process
import Graphics.X11.Xft
import Graphics.X11.Xlib.Context
import Graphics.X11.Xlib.Display
import Graphics.X11.Xlib.Event
import Graphics.X11.Xlib.Misc
import Graphics.X11.Xlib.Screen
import Graphics.X11.Types
import Graphics.X11.Xlib.Window