haileys

#!/usr/bin/env ruby

# Changes file extension, e.g:
# $ cext some/file/deeply/nested/file.png .jpg
# $ ls some/file/deeply/nested
# file.jpg

nametokens = ARGV.first.split '.'
newext = ARGV[1].split '.'
File.rename ARGV.first, (nametokens[-newext.length, newext.length] + newext).join '.'

haileys

if defined? ActiveRecord
  def explain(query)
    query = query.to_sql if query.respond_to? :to_sql

    ActiveRecord::Base.connection
      .execute("EXPLAIN ANALYZE #{query}") 
      .to_a
      .each { |hash| puts hash["QUERY PLAN"] }

    nil

haileys

Harbour.registerPlugin({
    name: "Harbour HTTP",
    foo: function(...) { ... },
    ....
});

haileys

Harbour.prototype.parseTargets = function(callback) {
	var longestIP, longestHost;
	var newTargets = [];
	var oldTargets = this.options.targets.split(',');
	var remaining = oldTargets.length;

	oldTargets.forEach(function(target){
		if(net.isIP(target)){
			dns.reverse(target, function(err, domains){
				newTargets.push([(domains ? domains[0] : ''), target]);

haileys

class Animal
  def walk(distance, unit)
    sleep 0.1
    puts "walked #{distance} #{unit}"
  end
end

class Dog < Animal
end

haileys

monthWeight m = do
    putStr $ "input weight for month #" ++ show m ++ ": "
    readLn

main = do
    weights <- mapM monthWeight [1..12]
    putStrLn $ "average weight is: " ++ (show $ sum weights `div` length weights)

haileys

document = cookie: "hello=world;this=that;what=which"

getCookie = (name) ->
    if document.cookie
        for [_, k, v] in (/^(.*?)=(.*)$/.exec kv for kv in document.cookie.split ";")
            if k is name
                return decodeURIComponent v
                
console.log getCookie "this"

haileys

<?php
require_once("../CoreSection/database.inc.php");
require_once("RequireFunctions.php");
function UpdateTimeStamp($TimeStamp, $TableName, $idCompany, $DatabaseObject)
{
    $QueryCondition = "idCompany = " . $idCompany ." and TableName = " . $TableName;
    $SelectStatus   = $DatabaseObject->select("tablestimestamp", "TimeStamp", $QueryCondition);
	/*
	$Error = $DatabaseObject->getError();
	if(isset($Error) && !empty($Error))//if(!$SelectStatus)

haileys

require 'formula'

class Sphinx < Formula
  url 'http://sphinxsearch.com/downloads/sphinx-0.9.9.tar.gz'
  homepage 'http://www.sphinxsearch.com'
  md5 '7b9b618cb9b378f949bb1b91ddcc4f54'
  head 'http://sphinxsearch.googlecode.com/svn/trunk/'

  fails_with_llvm "fails with: ld: rel32 out of range in _GetPrivateProfileString from /usr/lib/libodbc.a(SQLGetPrivateProfileString.o)"

haileys

module Kernel
  def int(mid)
    meth = instance_method(mid)
    define_method(mid) { |*args, &bk|
      val = meth.bind(self).call(*args, &bk)
      raise TypeError, "#{mid} did not return an Integer" unless val.is_a? Integer
      val
    }
    mid
  end