Ludwig Von Anon nous envoie un code issu d'un composant graphique d'un large système multiplateforme avec lequel il a eu le plaisir de travailler. A première vue, le code ne semble pas si mauvais que ça...

procedure SelectFontIntoDC(Integer a) begin
 declare fonthandle fh;
 if (gRedraw is not false) then begin
   fh = CreateFontIndirect(gDC);
   SelectObject(gDC, fh);
   DeleteObject(fh);
 end;
end;

Plutôt normal non? Certainement rien qui ne corresponde à nos .... standards. Par contre quand on voit que le nom des fichiers se termine par .c et que les entêtes de tous les fichiers incluent  "pascal.c", je pense que l'on rentre dans le domaine du Wiskey Tango Foxtrot.

Ci-dessous le contenu du fichier pascal.c

#define procedure void
#define then
#define is
#define not !=
#define begin {
#define end }