http://enrique.barbeito.org/blog/be-void-my-friend/ http://enrique.barbeito.org/blog/be-void-my-friend/#comments Tue, 31 Oct 2006 16:48:05 +0000 Enrique Barbeito García Humor C/C++ http://enrique.barbeito.org/blog/humor/be-void-my-friend/

Don’t get set into one form, adapt it and build your own, and let it grow, be like void*. Empty your mind, be formless, shapeless — like void*. If you put an int into a void*, it becomes the int. You put float into a void* it becomes the float. You put in a char it becomes the char. Now, void* can flow or it can overflow. Be void* my friend.

Comentario en Barrapunto. De McPolu — Martes, 31 de Octubre 2006 (link)

]]> http://enrique.barbeito.org/blog/be-void-my-friend/feed/

Se trata de The Evolution of a Programmer, un elocuente manifiesto en clave de humor que refleja el ciclo de vida de todo buen programador que se precie. Desde los más dulces inicios en tiempos de instituto y acné facial, enamorado del Spectrum y BASIC, hasta la decadencia del propio ser en el lado oscuro de la fuerza ;-) Cuando lo leáis, entenderéis mejor de lo qué estoy hablando jaja.

Aunque el texto apareció publicado originalmente en la página web de Iavor S. Diatchki, está firmado de forma anónima, por lo que a priori se desconoce el autor del mismo.

No revelo más, espero que disfruten del genuino (y sano, aunque no lo parezca :P) humor informático. Con todos ustedes, las etapas del un programador:

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;
 
  string() : size(0), ptr(new char[1]) { ptr[0] = 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", 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

% echo "Hello, world."

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

Impresionante ¿eh? Yo me quedo con la última etapa, es genial :-D Y además de una gran verdad; en el momento que dejas de practicar, comienza tu proceso de oxidación (y, éste, tiene límites insospechados como se puede observar jajaja). Y la cosa no queda aquí, para quien quiera más dosis que no se pierda la sección de jokes, chistes, de Iavor.

Y para terminar, también os dejo con The Evolution of a Haskell Programmer, un enlace a un texto en la misma línea pero enfocado a programadores de Haskell y bastante más trabajado por cierto.

Anotaciones relacionadas:

• ¡El código fuente de Windows publicado!
• The Hello World Collection

http://enrique.barbeito.org/blog/gmail-infinity-1-gb/ http://enrique.barbeito.org/blog/gmail-infinity-1-gb/#comments Fri, 01 Apr 2005 11:08:27 +0000 Enrique Barbeito García Humor /?p=504 Al parecer, hoy 1 de abril es el, digamos, Día de los Santos Inocentes homólogo en Estados Unidos (no sé si lo es además en otros sitios; por favor corregirme si es necesario). Lo llaman April Fool’s Day y hoy Gmail, el servicio de correo electrónico gratuito de Google, ha amanecido con la siguiente imagen en su página inicial:

Ya lo veis, ¡hasta el infinito y más allá! Concretamente un gigabyte más. Este diagrama de barras no tiene despercicio alguno, al loro con la marca de agua al más puro estilo posa vasos.

Vía Ceklog. [ AVISO: que nadie me toque los cojones pidiendo invitaciones para abrir una cuenta en Gmail. En serio, ya tuve bastante. Ya aprendí la lección :-) ] [ por si no ha quedado claro, enfatizo en mi súplica: NO hay invitaciones ]

]]> http://enrique.barbeito.org/blog/gmail-infinity-1-gb/feed/

http://enrique.barbeito.org/blog/calico-electronico/ http://enrique.barbeito.org/blog/calico-electronico/#comments Sun, 20 Feb 2005 23:01:43 +0000 Enrique Barbeito García Humor /?p=494

Hace unos días, vía la bitácora de BlueBird en Barrapunto, llegué hasta el sitio web de una mini serie animada en español que me llamó mucho la atención ;-)

Se trata de Cálico Electrónico, una animación humorística que presenta a un super héroe típico americano, del estilo de Superman o Batman, con ese toque de frikismo / tópico español. Para ser exagerado, digamos que es algo así como una mezcla entre Spiderman y Torrente (ya he dicho que es exagerarlo un “poco”). La serie se presenta en un conjunto de pequeños capítulos en los que Cálico Electrónico se enfrentará al super villano de turno. Aunque las historias son bastante simplonas, la animación creada está muy trabajada, además de los diálogos que en muchas ocasiones no tienen desperdicio :-D

Por el momento ya se encuentran disponibles cinco episodios, a la espera de una sexta entrega:

1. El enemigo digital
2. Los Rix-Txars Invasores
3. El lobombre
4. Los niños Mutantantes de SanIdelfonso
5. Historia de amor

El dibujo está muy bien hecho, es del estilo de las super nenas (el episodio de Los niños Mutantantes de SanIdelfonso tiene mucho aire a dicha serie jeje) y la sincronización entre la imagen y el sonido está bastante conseguida. Los detalles también muy cuidados, siempre se sigue el mismo patrón en donde se presenta el capítulo, posteriormente al super villano de marras, la aparición del héroe, primer contacto villano Vs. héroe, resolución del problema y finalización / despedida. Aunque la estructura puede ser siempre la misma, cada capítulo guarda algún gag con el que sacarte una carcajada en cada una de las partes citadas ;-) Personalmente lo que más me ha gustado fue la forma que termina cada capítulo, con una serie de “tomas falsas“: están geniales en serio :-D

Encima en cada capítulo se hace propaganda subliminal de Electronic Web, una tienda de electrónica y componentes de informática de Barcelona. Qué queréis que os diga, no se me ocurre forma más original y creativa de darse a conocer y expandir el negocio en Internet; ¡muy bien hecho! ;-)

Se nota bastante que es de producción española. Tal vez algunas partes están bastante ligadas a este país por lo que gente que no viva por aquí puede que no le encuentre la gracia a según que cosas (aunque, lo dudo ;-)). De todos modos, visita muy recomendada para todos los públicos. Y no se pierde mucho tiempo en echarle un vistazo.

]]> http://enrique.barbeito.org/blog/calico-electronico/feed/

http://enrique.barbeito.org/blog/a-fatal-exception-has-ocurred/ http://enrique.barbeito.org/blog/a-fatal-exception-has-ocurred/#comments Wed, 20 Oct 2004 18:09:19 +0000 Enrique Barbeito García Humor /?p=441

Un poco de humor ácido-informático, encontrado vía Eguerrero.com ;-)

Las lápidas del fondo tampoco tienen desperdicio alguno. La de la izquierda con el típico icono de “error crítico” y todo. Muy original jeje.

]]> http://enrique.barbeito.org/blog/a-fatal-exception-has-ocurred/feed/

http://enrique.barbeito.org/blog/techno-homo-sapiens/ http://enrique.barbeito.org/blog/techno-homo-sapiens/#comments Sun, 20 Jun 2004 00:05:00 +0000 Enrique Barbeito García Humor /?p=404

]]> http://enrique.barbeito.org/blog/techno-homo-sapiens/feed/

#include "Win30.h"
#include "Win31.h"
#include "Win95.h"
#include "AlgoMas.h"
#include "CodigoAntiguo.h"
#include "NormasDeBillGates.h"
#include "CosasDeRelleno.h"
#include "Monopoly.h"
 
#define INSTALAR TODO_SIN_EXCEPCION_Y_A_LO_BESTIA
#define CASCAR -5483021548692487811456214478252114545621
 
static char Escritorio[16000000]; /* 16 Mb */
static char Accesorios[8000000]; /* 8 Mb */
static char Explorer4[4000000]; /* 4 Mb */
static char ProgramasDeUsuario[2000000]; /* 2 Mb */
static char MemoriaLibre[2000000]; /* 2 Mb */
 
int main()
{
  while (NoCasque()) {
   MostrarMensajeCopyright();
   MostrarMensajeNormasBillGates();
   DesactivarBotonReset();
   BucleParaNoHacerNada();
 
   if (PRIMERA_INSTALACION) {
     while (TamanyoDiscoSwap()
      (ESPACIO_PARA_WINDOWS_ENTERITO * 5)) {
       Ocupar50MbParaDiscoDeSwap();
       BucleParaNoHacerNada();
     }
 
     EliminarSistemaDeArchivosHPFS();
     EliminarCualquierRastroDeOS2();
 
     DeshabilitarInstalacionDeNetscape();
 
     DeshabilitarInstalacionDeRealPlayer();
 
     if (QuedaAlgunRastroSospechoso())
      ColgarSistema();
   }
 
   MostrarAlgunaCosaBonitaPeroInutil();
   MostrarMensajeCopyrightOtraVez();
   BucleParaNoHacerNada();
   HacerVerQueHaceAlgo();
 
   if (SigueSinCascar()) {
     MostrarMensajeCopyrightOtraVez();
     BucleParaNoHacerNada();
     EjecutarWin31();
 
     if (AunSigueSinCascar())
      EjecutarWin30();
 
     BucleParaNoHacerNada_1();
     BucleParaNoHacerNada_2();
     BucleParaNoHacerNada_3();
 
     BucleParaNoHacerNada_Etcetera();
   }
 
   if (UsuarioNoAceptaWindowsComoAlgoUtil())
     goto VETE_A_SABER_DONDE;
 
   if (SeHaDetectadoCache())
     DeshabilitarCache();
 
   if (CPU_Rapida()) {
     EstablecerEstadosDeEspera(MUCHISIMOS);
 
     EstablecerRaton(VELOCIDAD, MUY_LENTO);
     EstablecerRaton(ACCION, DESPLAZARSE_A_SALTOS);
     EstablecerRaton(REACCION, A_VECES);
 
     EstablecerTeclado(VELOCIDAD_PARPADEO, MUY_LENTO);
 
     EstablecerTeclado(VELOCIDAD_REPETICION, MUY_LENTO);
   }
 
   /* printf("Bienvenido a Windows 3.0"); */
   /* printf("Bienvenido a Windows 3.1"); */
   /* printf("Bienvenido a Windows 95"); */
   printf("Bienvenido a Windows 98");
 
   if (CPU != INTEL) {
     DeshabilitarRaton();
     DesconfigurarTeclado();
 
     ColgarSistema(INDICADOR_MSDOS);
   } else {
     MemoriaDeSistema = open("a:swp0001.swp", O_CREATE);
 
     while (NoHayaSuficienteEspacioEnDisco())
      printf("Inserte un nuevo disco en la unidad A:");
   }
 
   while (NOS_SALGA_DE_LOS_HUEVOS) {
     sleep(5000);
     ObtenerEntradaUsuario();
     sleep(5000);
     ReaccionarAPeticionUsuario();
   }
 
   if (ObtenerNumeroAlAzar() != BINGOOOO)
     GenerarErrorDeProteccionGeneral();
 
   /* Fin de bucle principal */
  }
 
  /* Finalizar sesión */
 
  if (AunNoHaCascadoDelTodo()) {
   if (ObtenerOtroNumeroAlAzar() != BINGOOOO) {
     MandarExplorerALaMierda();
 
     if (HayAlgoAbierto()) {
         Accion = MostrarMensaje("¿Desea guardar los datos?");
         if (Accion == SI)
          GuardarDatos_JAJAJA();
 
         MandarloTodoAlCarajo();
     }
   }
 
   printf("Windows se está cerrando");
 
   while (HAYA_PRISA)
   sleep(5000);
 
   if (UsuarioYaLlegaTardeDondeTeniaQueIr())
     printf("Ahora puede apagar el equipo.");
  }
 
  return ((int)((long)((float)((double)((re double)CASCAR)))));
}