kmwallio

#!/usr/bin/env perl6
use v6;
use NativeCall;


constant LIB = ($*DISTRO.name eq 'macosx') ?? './OpenCL' !! 'OpenCL';

constant cl_int = int32;
constant cl_uint = uint32;
constant cl_char = int8;

kmwallio

#!/usr/bin/env coffee

natural = require 'natural'
sylvester = require 'sylvester'
fs = require 'fs'

if process.argv[2]? and process.argv[3]?
  # Read in the given file
  fs.readFile process.argv[2], (err, data) ->
    # Tokenize into sentences

kmwallio

#!/usr/bin/perl

use File::Copy "cp";
use File::Path qw(make_path remove_tree);

my $file_name = $ARGV[0];
my $out_file = $ARGV[1] eq '' ? 'text.txt' : $ARGV[1];

if ($file_name eq '') {
  print "\n\n" . 'Usage:' . "\n";

kmwallio

// use for patterns:
//   *live.com*
//   *outlook.com*
 
var playBeep = true;
 
window.fluid.dockBadge = '';
var numMessages = 0;
 
setTimeout(updateDockBadge, 1000);