Отправлено S_agent 09 апреля 2003 г. 18:49

>
> Here's a nice laugh for you. I've verified that
> the programs are correct for the most part (except
> some weird things within the OLE server.
> Anyway, here it goes:
>
> > The Evolution of a Programmer
> > -----------------------------
> >
> >
> > High School/Jr.High
> > ===================
> >
> > 10 PRINT "HELLO WORLD"
> > 20 END
> >
> > First year in College
> > =====================
> > program Hello(input, output)
> > begin
> > writeln('Hello World')
> > end.
> >
> > Senior year in College
> > ======================
> > (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
> >
> >
> >
> > 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
> > ===================
> > % letter
> > letter: Command not found.
> > % mail
> > To: ^X ^F ^C
> > % help mail
> > help: Command not found.
> > % damn!
> > !: Event unrecognized
> > % logout
> >