From ARUTA@comptek.mhs.compuserve.com Thu Nov 17 11:21:42 1994
Received: from PACIFIC-CARRIER-ANNEX.MIT.EDU by po6.MIT.EDU (5.61/4.7) id AA12637; Thu, 17 Nov 94 11:23:56 EST
Received: from arl-img-2.compuserve.com by MIT.EDU with SMTP
	id AA26505; Thu, 17 Nov 94 11:23:44 EST
Received: by arl-img-2.compuserve.com (8.6.9/5.940406sam)
	id LAA00895; Thu, 17 Nov 1994 11:23:41 -0500
Date: 17 Nov 94 11:21:42 EST
From: "Aruta, John" <ARUTA@comptek.mhs.compuserve.com>
To: <yoav@MIT.EDU>, <wilsont@vt.edu>, <c.w.huling@larc.nasa.gov>,
        <srz@MIT.EDU>, <raruta@tycho.cs.uah.edu>, <ARUTA@idx.com>,
        <stephenson@nrlvax.nrl.navy.mil>, <72636.2073@CompuServe.COM>,
        <plasket@infi.net>
Subject: Evolution of a programmer
Message-Id: <941117162141_555063.0_EHF58-1@CompuServe.COM>
Status: R

     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 <stdio.h
     void main(void)
     {
       char *message[] = {"Hello ", "World"};
       int i;
    
       for(i = 0; i < 2; ++i)
         printf("%s", message[i]);
       printf("\n");
     }
    
     Seasoned professional
     =====================
     #include <iostream.h
     #include <string.h
    
     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(<windows.h);
         importheader(<ole2.h);
         importheader(<except.hxx);
         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 <windows.h
     #include <ole2.h
     #include <stdio.h
     #include <stdlib.h
     #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 <windows.h
     #include <ole2.h
     #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 <windows.h
     #include <ole2.h
     #include <stdlib.h
     #include <string.h
     #include <stdio.h
     #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 <stdio.h
     #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
    
    
-------------------------------------------------------------------

Mark Cresswell
3D labs Ltd.