21.1.07

Programmer's Progress



Cheers

UPDATE 21.01.2007: What does it say?

High School Student

10 PRINT "HELLO WORLD"
20 END

First Year Undergraduate

program Hello(input, output)
begin
writeln('Hello World')
end.

Final Year Undergraduate

(defun hello
(print
(cons 'Hello (list 'World))))

New professional

#include
void main(void)
{
char *message[] = {"Hello ", "World"}; int i;

for(i = 0; i < 2; ++i)
printf("%s", message[i]);
printf("\n");
}

Seasoned professional

#include
#include
>
class string
{
private:
int size;
char *ptr;

public:
string() : size(0), ptr(new char('\0')) {}

string(const string &s) : size(s.size) { ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}

~string()
{
delete [] ptr;
}

friend ostream &operator <<(ostream &, const string &);
string &operator=(const char *);
};

ostream &operator<<(ostream &stream, const string &s) { return(stream << s.ptr);
}

string &string::operator=(const char *chrs) { if (this != &chrs)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}

int main()
{
string str;

str = "Hello World";
cout << str << endl;

return(0);
}

Master Programmer

[
uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820) ] library LHello
{
// bring in the master library
importlib("actimp.tlb");
importlib("actexp.tlb");

// bring in my interfaces
#include "pshlo.idl"

[
uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820) ] cotype THello
{
interface IHello;
interface IPersistFile;
};
};

[
exe,
uuid(2573F890-CFEE-101A-9A9F-00AA00342820) ] module CHelloLib
{

// some code related header files
importheader();
importheader();
importheader();
importheader("pshlo.h");
importheader("shlo.hxx");
importheader("mycls.hxx");

// needed typelibs
importlib("actimp.tlb");
importlib("actexp.tlb");
importlib("thlo.tlb");

[
uuid(2573F891-CFEE-101A-9A9F-00AA00342820), aggregatable ]
coclass CHello
{
cotype THello;
};
};


#include "ipfix.hxx"

extern HANDLE hEvent;

class CHello : public CHelloBase
{
public:
IPFIX(CLSID_CHello);

CHello(IUnknown *pUnk);
~CHello();

HRESULT __stdcall PrintSz(LPWSTR pwszString);

private:
static int cObjRef;
};


#include
#include
#include
#include
#include "thlo.h"
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"

int CHello::cObjRef = 0;

CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk) { cObjRef++;
return;
}

HRESULT __stdcall CHello::PrintSz(LPWSTR pwszString) {
printf("%ws\n", pwszString);
return(ResultFromScode(S_OK));
}


CHello::~CHello(void)
{

// when the object count goes to zero, stop the server
cObjRef--;
if( cObjRef == 0 )
PulseEvent(hEvent);

return;
}

#include
#include
#include "pshlo.h"
#include "shlo.hxx"
#include "mycls.hxx"

HANDLE hEvent;

int _cdecl main(
int argc,
char * argv[]
) {
ULONG ulRef;
DWORD dwRegistration;
CHelloCF *pCF = new CHelloCF();

hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);

// Initialize the OLE libraries
CoInitializeEx(NULL, COINIT_MULTITHREADED);

CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,
REGCLS_MULTIPLEUSE, &dwRegistration);

// wait on an event to stop
WaitForSingleObject(hEvent, INFINITE);

// revoke and release the class object
CoRevokeClassObject(dwRegistration); ulRef = pCF->Release();

// Tell OLE we are going away.
CoUninitialize();

return(0); }

extern CLSID CLSID_CHello;
extern UUID LIBID_CHelloLib;

CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */
0x2573F891,
0xCFEE,
0x101A,
{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 } };

UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */
0x2573F890,
0xCFEE,
0x101A,
{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 } };

#include
#include
#include
#include
#include
#include "pshlo.h"
#include "shlo.hxx"
#include "clsid.h"

int _cdecl main(
int argc,
char * argv[]
) {
HRESULT hRslt;
IHello *pHello;
ULONG ulCnt;
IMoniker * pmk;
WCHAR wcsT[_MAX_PATH];
WCHAR wcsPath[2 * _MAX_PATH];

// get object path
wcsPath[0] = '\0';
wcsT[0] = '\0';
if( argc > 1) {
mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1); wcsupr(wcsPath); }
else {
fprintf(stderr, "Object path must be specified\n"); return(1); }

// get print string
if(argc > 2)
mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1); else
wcscpy(wcsT, L"Hello World");

printf("Linking to object %ws\n", wcsPath); printf("Text String %ws\n", wcsT);

// Initialize the OLE libraries
hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);

if(SUCCEEDED(hRslt)) {


hRslt = CreateFileMoniker(wcsPath, &pmk);
if(SUCCEEDED(hRslt)) hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&pHello);

if(SUCCEEDED(hRslt)) {

// print a string out
pHello->PrintSz(wcsT);

Sleep(2000);
ulCnt = pHello->Release();
}
else
printf("Failure to connect, status: %lx", hRslt);

// Tell OLE we are going away.
CoUninitialize();
}

return(0);
}

Apprentice Hacker

#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n"; print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n"; }
} else {
print ($msg);
}
1;

Experienced Hacker

#include
#define S "Hello, World\n"
main(){exit(printf(S) == strlen(S) ? 0 : 1);}

Seasoned Hacker

% cc -o a.out ~/src/misc/hw/hw.c
% a.out

Guru Hacker

% cat
Hello, world.
^D

Ultra High Level Programmer

system.uhdl =
SYSTEM
CREATE ScreenWin
SIZE 200000000 /Unit=One
DESTINATION Order.dest[One]
OUTPUT CHARACTER['Hello World']
END
END.

New Manager

10 PRINT "HELLO WORLD"
20 END

Middle Manager

mail -s "Hello, world." bob@b12
Bob, could you please write me a program that prints "Hello, world."?
I need it by tomorrow.
^D

Senior Manager

% zmail jim
I need a "Hello, world." program by this afternoon.

Chief Executive Officer

% message
message: Command not found
% pm
pm: Command not found
% letter
letter: Command not found.
% mail
To: ^X ^F ^C
> help mail
help: Command not found.
>what
what: Command not found
>need help
need: Command not found
> damn!
!: Event unrecognized
>exit
exit: Unknown
>quit
%
% logout
Bipppp ! Mrs. Thompson?
Please page Tommy for me.
NOW!


~various sources

19.1.07

So she went into the garden to cut a cabbage-leaf

panjandrum \pan-JAN-druhm\, noun:
An important personage or pretentious official.

Panjandrum was coined by Samuel Foote (1720-1777) in a piece of nonsense writing:

So she went into the garden to cut a cabbage-leaf to make an apple-pie; and at the same time a great she-bear, coming up the street, pops its head into the shop. "What! No soap?" So he died, and she very imprudently married the barber: and there were present the Picninnies, and the Joblillies, and the Garyulies, and the grand Panjandrum himself, with the little round button at top, and they all fell to playing the game of catch-as-catch-can till the gunpowder ran out at the heels of their boots.

It was composed on the spot to challenge actor Charles Macklin's claim that he could memorize anything. Macklin is said to have refused to repeat a word of it.

Dictionary.com features a unique word each day since 1999. Check it out here.

Svaj

18.1.07

Song of the Day - Police and Thieves

Junior Murvin

This song was apparently an international hit during the summer of 1976. I didn't know that, I just found the song to be pretty cool. Found a sing-a-long version on YouTube.

Take it easy, but take it ;-)



7.1.07

Conterfeit Goods



I took this picture on christmas day in NYC. You can see the Lois Vuitton store closed (like the rest of them on christmas day), and a street seller with counterfeit Louis Vuitton handbags attracting passersby.

It's funny how people can pay maybe $60-120 for these bags when, quite frankly some look like they could come with a mickey mouse logo instead. I mean, those bags probably take $5 to manufacture in China. You probably get a better real-value/sale-price ratio buying the real thing, but, of course, they cost much more.

Don't get me wrong I'm not trashing counterfeit goods. I can't say I'm sorry for Lois Vuitton. Sure, it's unethical, but I couldn't care less is he sells or not. He's ripping people off in his own way too.

The only real problem I see is that you'll never know if that bag was made so cheap at the expense of child labor, because it's an illegal product that has passed no regulations. Actually it probably WAS made by children.

I guess the main issue behind this is that people just want the name, not caring about the quality of the product and if it means child labor well, they'll just look the other way... Everybody else does it.

Oil Cooled PC


If you're a tech enthusiast and you got your recommended daily dose of tech news about a year ago, then you're probably aware of Tom's Hardware Oil Cooled PC.

Markus Leonhardt had actually tried it before (pictures of the oil computer), but Tom's Hardware took it further. I'd like to try it when I have the time, but I'd use baby oil to keep it clear.

Anyway, here's Tom Hardware's video of the Oil Cooled PC for those of you who haven't seen it yet.


5.1.07

Song of the Day - Black Hole Sun

Soundgarden

Definitely a great song (way up on Soundgarden's Top 10) accompanied by an excellent video. A must watch!


Svaj

Design by Dzelque

Svaj Malizo - Design by Dzelque