[dumbo] Re: Hello World (era Consiglio Nazionale Ingegneri)

  • From: Stefano Della Puppa <sdellapuppa@xxxxxxxx>
  • To: dumbo@xxxxxxxxxxxxx
  • Date: Fri, 30 Mar 2001 09:34:21 +0200

Mauro Colorio wrote:
> 
> e allora alleniamoci:
> http://www.latech.edu/~acm/HelloWorld.shtml

Miiiiiiiiiiitico!!!!!! Tra i vari linguaggi che penso vengano anche da marte,
c'e` anche in POP11!!!!!! :-DDDDD

Comunque penso che a noi interessino di piu` questi (non fermatevi ai primi
non e` quella che girava qualche anno fa :-)) ):

> > Subject: Hello World
> >
> >
> >
> > ===================
> > Scuola Media
> > ===================
> >
> > 10 PRINT "HELLO WORLD"
> > 20 END
> >
> > =====================
> > Scuola superiore (1° anno)
> > =====================
> >
> > program Hello(input, output)
> >   begin
> >     writeln('Hello World');
> >   end.
> >
> > ======================
> > Scuola superiore (ultimo anno)
> > ======================
> >
> > (defun hello
> >    (print
> >     (cons 'Hello (list 'World))))
> >
> > ================
> > Università
> > ================
> >
> > #include
> > void main(void)
> >
>
> >   char *message[] = {"Hello ", "World"};
> >   int i;
> >
> >   for(i = 0; i < 2; ++i)
> >     printf("%s", message[i]);
> >   printf("\n");
> > }
> >
> > ====================
> > Consulente informatico
> > esperto
> > =====================
> >
> > #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);
> >   }
> >
> > =================
> > Programmatore con
> > grande esperienza
> > =================
> >
> >
>
> >   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
>

> >   int argc,
> >   char * argv[]
> >   )

> >   ULONG ulRef;
> >   DWORD dwRegistration;
> >   CHelloCF *pCF = new CHelloCF();
> >
> >   hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
> >
> >   // Initialize the OLE libraries
> >   CoInitiali, 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
n(
> >   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, "O
> bject 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);
> >   }
> >
> > =================
> > Hacker alle prime armi
> > =================
> >
> > #!/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;
> >
> > ==================
> > Hacker esperto
> > ==================
> >
> > #include
> > #define S "Hello, World\n"
> > main(){exit(printf(S) == strlen(S) ? 0 : 1);}
> >
> > ===============
> > Hacker "stagionato"
> > ===============
> >


> > % cc -o a.out ~/src/misc/hw/hw.c
> > % a.out
> >
> > ===========
> > Guru Hacker
> > ===========
> >
> > % cat
> > Hello, world.
> > ^D
> >
> > =====================
> > Programmatore di sistema
> > =====================
> >
> > LL0:
> >         .seg    "data"
> >         .seg    "text"
> >         .proc 04
> >         .global _main
> > _main:
> >         !#PROLOGUE# 0
> >         sethi   %hi(LF26),%g1
> >         add     %g1,%lo(LF26),%g1
> >         save    %sp,%g1,%sp
> >         !#PROLOGUE# 1
> >         .seg    "data1"
> > L30:
> >         .ascii  "Hello, World\012\0"
> >         .seg    "text"
> >         .seg    "data1"
> > L32:
> >         .ascii  "Hello, World\012\0"
> >         .seg    "text"
> >         set     L32,%o0
> >         call    _strlen,1
> >         nop
> >         mov     %o0,%i5
> >         set     L30,%o0
> >         call    _printf,1
> >         nop
> >         cmp     %o0,%i5
> >         bne     L2000000
> >         nop
> >         mov     0,%o0
> >         b       L2000001
> >         nop
> > L2000000:
> >         mov     0x1,%o0
> > L2000001:
> >         call    _exit,1
> >         nop
> > LE26:
> >         ret
> >         restore
> >        LF26 = -96
> >         LP26 = 96
> >         LST26 = 96
> >         LT26 = 96
> >         .seg    "data"
> >
> > 0000000 0103 0107 0000 0060 0000 0020 0000 0000
> > 0000020 0000 0030 0000 0000 0000 0054 0000 0000
> > 0000040 033f ffff 8200 63a0 9de3 8001 1100 0000
> > 0000060 9012 2000 4000 0000 0100 0000 ba10 0008
> > 0000100 1100 0000 9012 2000 4000 0000 0100 00 ba10 0008
> > 0000100 1100 0000 9012 2000 4000 0000 0100 0000
> > 0000120 80a2 001d 1280 0005 0100 0000 9010 2000
> > 0000140 1080 0003 0100 0000 9010 2001 4000 0000
> > 0000160 0100 0000 81c7 e008 81e8 0000 0000 0000
> > 0000200 4865 6c6c 6f2c 2057 6f72 6c64 0a00 4865
> > 0000220 6c6c 6f2c 2057 6f72 6c64 0a00 0000 0000
> > 0000240 0000 000c 0000 0608 0000 006e 0000 0010
> > 0000260 0000 060b 0000 006e 0000 0014 0000 0286
> > 0000300 ffff ffec 0000 0020 0000 0608 0000 0060
> > 0000320 0000 0024 0000 060b 0000 0060 0000 0028
> > 0000340 0000 0186 ffff ffd8 0000 004c 0000 0386
> > 0000360 ffff ffb4 0000 0004 0500 0000 0000 0000
> > 0000400 0000 000a 0100 0000 0000 0000 0000 0012
> > 0000420 0100 0000 0000 0000 0000 001a 0100 0000
> > 0000440 0000 0000 0000 0020 5f6d 6169 6e00 5f70
> > 0000460 7269 6e74 6600 5f73 7472 6c65 6e00 5f65
> > 0000500 7869 7400
> > 0000504
> >
> > % axe_generate -f system.uhdl
> > Application 'Exchange' generated
> > 2324042350000000 source code lines
> > No Errors detected.
> > Hardware retrieval...done OK
> > Certification Test...done OK
> > Packing..............done OK
> > Delivery.............done OK
> > Application 'Exchange' delivered to customer
> > 23456000 bytes/sec.
> > End processing, 2345 seconds.
> >
> > ===========================
> > Programmatore di altissimo livello
> > ===========================
> >
> > system.uhdl :
> >
> > SYSTEM
> >   CREATE ScreenWin
> >     SIZE 20000000/Unit=One
> >     DESTINATION Order.dest[One]
> >     OUTPUT CHARACTER['Hello world']
> >   END
> > END
> >
> > ===========
> > Dirigente di
> > basso profilo
> > ===========
> >
> > 10 PRINT "HELLO WORLD"
> > 20 END
> >
> > ==============
> > Dirigente di medio
> > livello
> > ==============
> >
> > mail -s "Hello, world." sergio.rossi@xxxxxxx
> >
> >  Sergio, potresti scrivermi un programma che stampi
> >  "Hello, world."? Ne ho bisogno per domani pomeriggio..
> >
> > ^D
> >
> > ==============
> > Dirigente di lungo
> > corso
> > ==============
> >
> > % zmail all
> >
> >   Ho assolutamente bisogno di un programma per stampare "Hello, world."
> > per questo pomeriggio.
> >
> > ===============
> > Amministratore
> > Delegato
> > ===============
> >
> >   % 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 ! Sig.a Rossi ? Chiami immediatamente qualcuno dei Sistemi
> > Informativi. SUBITO !!!



Ciao
s
--
Stefano Della Puppa

Per (de)iscriversi spedire un messaggio con SOGGETTO
"subscribe" (o "unsubscribe") a mailto:dumbo-request@xxxxxxxxxxxxx  
HomePage/Archivio lista http://www.freelists.org/cgi-bin/list?list_id=dumbo

Other related posts: