Some Ways To Say Hello World

10 PRINT "HELLO WORLD"
20 END

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

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

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

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

#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)
{
 rettream << 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);
}

#!/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;

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

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

% cat
Hello, world.
^D

10 PRINT "HELLO WORLD"
20 END

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

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

% letter
letter: Command not found.
% mail
To: ^X ^F ^C
% help mail
help: Command not found.
% damn!
!: Event unrecognized
% logout

 [
 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
    importlibctimp.tlb");
    importlib("actexp.tlb");
    importlib("thlo.tlb");
 
    [
    uuid(2573F891-CFEE-101A-9A9F-00AA00342820),>
 
 #include "ipfix.hxx"
 
 extern HANDLE hEvent;
 
 class CHello : public CHelloBase
 {
 public:
    IPFIX(CLSID_CHello);
 
    CHello(IUnknown *pUnk);
    ~CHello();
 
    HRESULT  __stdcall PrintSz(LPWSTR pwszString);
 
    aggregatable
    ]
    coclass CHello
 {
 cotype THello;
 };
 };
 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 <olctimp.tlb");
    importlib("actexp.tlb");
    importlib("thlo.tlb");
 
    [
    uuid(2573F891-CFEE-101A-9A9F-00AA00342820),>
 
 #include "ipfix.hxx"
 
 extern HANDLE hEvent;
 
 class CHello : public CHelloBase
 {
 public:
    IPFIX(CLSID_CHello);
 
    CHello(IUnknown *pUnk);
    ~CHello();
 
    HRESULT  __stdcall PrintSz(LPWSTR pwszString);
 
    aggregatable
    ]
    coclass CHello
 {
 cotype THello;
 };
 };
 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 "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,
 
 #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
 
                
 
 CEEDED(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);
 }

학과장이 웃기네요..

See also HelloWorld