seanbamforth

// Used to perform any After Find logic.

Procedure mAfter_Find
    Send OnChange of grpStage
End_Procedure

// Augmented to implement mAfter_Find.
Procedure Request_Find Integer eFindMode Integer iFile Integer
iIndex

seanbamforth

Craftsperson or Engineer? Maybe neither.

Prolog(ue)

If you're a programmer, and you follow the blogs, then you've probably drifted into one of the many articles discussing if you're an craftsperson or an Engineer. If you haven't, then here's a couple random links.

• http://stackoverflow.com/questions/235738/do-we-need-to-become-craftsmen-instead-of-engineers
• http://sachmet.livejournal.com/150950.html
• http://www.ericsink.com/Are_Programmers_Engineers.html

seanbamforth

#!/usr/bin/env bash
apt-get -y update
apt-get -y install build-essential zlib1g-dev libssl-dev libreadline5-dev libyaml-dev
cd /tmp
wget ftp://ftp.ruby-lang.org/pub/ruby/1.9/ruby-1.9.3-p125.tar.gz
tar -xvzf ruby-1.9.3-p125.tar.gz
cd ruby-1.9.3-p125/
./configure --prefix=/usr/local
make
make install

seanbamforth

Some random thoughts on using Agile in Government Projects.

• In response to Tweet from Tim Swift: https://twitter.com/TimSwift/status/328501366186180608
• See http://cartesianproduct.wordpress.com/2013/04/28/universal-credit-death-march-goes-on/

Safety

I believe that Agile is just as safe as Waterfall. Nuclear Reactors, etc may use Waterfall methodologies, but it's Formal methods that make them safe. You'd think Waterfall would be safer for development because everything is always having to be signed off, but really - it's not. BTW - Formal methods are hideously expensive and are probably overkill for this type of project.

seanbamforth

Object oTestSave is a BusinessProcess
    Object oVendor_DD is a Vendor_DataDictionary
    End_Object

    Object oInvt_DD is a Invt_DataDictionary
        Set DDO_Server to oVendor_DD
    End_Object

    Object oCustomer_DD is a Customer_DataDictionary
        Send DefineAllExtendedFields

seanbamforth

Struct tIndexFinder
    Integer iFile 
    Integer iField 
    Integer iIndex
    String sColumn 
End_Struct

Object oIndexID is a cObject 
    Property tIndexFinder[] pIndexFinderList
    Property tIndexFinder pLastItem

seanbamforth

<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed');

if ( ! function_exists('toOADate'))
{

    function toOADate($timestamp) {
        $from_date = new DateTime("1899-12-30");
        $to_date = new DateTime($timestamp);
        $interval = $from_date->diff($to_date);
        return $interval -> days;

seanbamforth

//*****************************************************************************
//*** json.pkg                                                              ***
//***                                                                       ***
//*** Author: Sean Bamforth                                                 ***
//***         SELECT Computer Systems Ltd                                   ***
//***         April / May 2011                                              ***
//***                                                                       ***
//*** Purpose:                                                              ***
//***    JSON Client interface for talking to JSON / restful services.      ***
//***                                                                       ***

seanbamforth

Use Windows
Use cSelectMailer.pkg
Use emailAudit.pkg

//register a new SELECT emailer. This knows how to send emails. 
//But we also need to tell it how to audit those emails and read system flags.

Object oChilkatMailer is a cSELECTMailer
    //ghEmailObject is a global variable for your convenience. It's used as a bridge between 
    //global emailing functions and the emailing option.

seanbamforth

#Calculates an eTag for a local file that should match the S3 eTag of the uploaded file. 

$md5 = new-object -TypeName System.Security.Cryptography.MD5CryptoServiceProvider

$blocksize = (1024*1024*5)
$startblocks = (1024*1024*16)

function AmazonEtagHashForFile($filename) {
    $lines = 0
    [byte[]] $binHash = @()