Eure besten Quellcode Kommentare...

[ToFaceTeKilla]

Zwar nicht unbedingt lustig, aber gruselig ^^
Stammt aus einem Programm, welches ich gerade überarbeite:

Delphi-Quellcode:

procedure AddNewErgASkripte (...)
procedure AddNewErgASkript (...)

Was jetzt - deutsch oder englisch? Und dann noch fast identische Namen :kotz:
grauenvoll

[Fridolin Walther]

Meine persönlichen Highlights aus mehr oder weniger öffentlichen Quellen:

Linux Kernel (SATA Treiber) ... Cargo Cult Programming at it's best!

Code:

static void pdc_host_init(unsigned int chip_id, struct ata_probe_ent *pe)
{
   void *mmio = pe->mmio_base;
   u32 tmp;
   /*
    * Except for the hotplug stuff, this is voodoo from the
    * Promise driver. Label this entire section
    * "TODO: figure out why we do this"
    */
   
   /* change FIFO_SHD to 8 dwords, enable BMR_BURST */
   tmp = readl(mmio + PDC_FLASH_CTL);
   tmp |= 0x12000; /* bit 16 (fifo 8 dw) and 13 (bmr burst?) */
   writel(tmp, mmio + PDC_FLASH_CTL);
   /* clear plug/unplug flags for all ports */
   tmp = readl(mmio + PDC_SATA_PLUG_CSR);
   writel(tmp | 0xff, mmio + PDC_SATA_PLUG_CSR);
   ...
}

Auch sehr schön und ebenfalls aus dem SATA Treiber von Linux:

Code:

/* software reset. causes dev0 to be selected */
if (ap->flags & ATA_FLAG_MMIO) {
   writeb(ap->ctl, (void __iomem *) ioaddr->ctl_addr);
   udelay(20); /* FIXME: flush */
   writeb(ap->ctl | ATA_SRST, (void __iomem *) ioaddr->ctl_addr);
   udelay(20); /* FIXME: flush */
   writeb(ap->ctl, (void __iomem *) ioaddr->ctl_addr);

Aus einem eher unfreiwillig veröffentlichtem Stück MS Source Code:

Code:

/*
 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 *   !!!!!!!IF YOU CHANGE TABS TO SPACES, YOU WILL BE KILLED!!!!!!!
 *   !!!!!!!!!!!!!!DOING SO FUCKS THE BUILD PROCESS!!!!!!!!!!!!!!!!
 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 *   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 */

Ebenfalls von dort entnommen:

Code:

// the fucking alpha cpp compiler seems to fuck up the goddam type "LPITEMIDLIST", so to work
// around the fucking peice of shit compiler we pass the last param as an void *instead of a LPITEMIDLIST

Last but not least: Woran erkennt man einen wirklich üblen Hack? Daran das der Programmierer sich dazu genötigt fühlte eine Art ASCII Banner drum herum zu bauen, wie hier in geleakten IE Sourcen perfekt demonstriert:

Code:

/////////////////////////////////////////////////////////
//
// !!HACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACK
//
// Again, because of the nasty break on empty bits in
// ui-generated elements, we must ignore simulated text
// then certain elements are nested. For example,
// <blockquote> and <div>.
//

if (_textInScope == TIG_FAKE &&
   (bsTop.pNodeBlock->Tag() == ETAG_BLOCKQUOTE ||
    bsTop.pNodeBlock->Tag() == ETAG_DIV))
{
   fBreak = NO_BREAK;
}

//
// !!HACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACKHACK
//
/////////////////////////////////////////////////////////

Wenn man übrigens mal lachen möchte, einfach mal in bekannten Open Source Projekten nach diversen Schimpfworten greppen. Linux Kernel, Open Office, Firefox ... genug Stoff um sich Wochenlang zu amüsieren! Ansonsten kann man sich einige weitere Perlen aus dem geleakten MS Source Paket hier anschauen: http://www.kuro5hin.org/story/2004/2/15/71552/7795.

DISCLAIMER: Sollte jemandem sein Firefox am Herzen liegen, tut Euch selbst den Gefallen und schaut Euch den Firefox Source lieber nicht an. Ihr werdet ihn danach ansonsten nicht mehr verwenden wollen. Ähnlich verhält es sich mit Open Office.

[Tonic1024]

Mach ich öfter und kanns mir dann auch irgendwie nicht verkneifen :stupid:

Delphi-Quellcode:

// This is where the magic happens...
procedure MessageSink(var Msg: TCstmMsg);

Oder der hier. An logischen Übergängen wie zum Beispiel bei Hilfs- und exportierten Funktionen.

Delphi-Quellcode:

// And now for something completely different...
// --- Public stuff-----------------------------------------------------------------------------------

Toni

[Billi Berserker]

Delphi-Quellcode:

procedure TSharpEEditText.SetAutoComplete;
[...]
begin
  // THIS SHIT IS LEAKING! SOMEONE FIX IT! :)
  exit;
  [...]

immer wieder schön wenn man sowas 3 Jahre später wieder findet und sich nur erinnert "ups, da war ja was" :D
Mein fix damals bestand darin nen "exit;" und den Kommentar rein zu packen und zu vergessen das das feature jemals existierte ;)

[mleyen]

Grad in einer alten Unit gefunden: :lol:

Delphi-Quellcode:

  Result := not Active;

if not Result then // doppelt genotted hält besser 
  Exit;
//...

[matashen]

grad drübergestolpert, klassiker

Delphi-Quellcode:

//Keine Ahnung warum folgende Zeile eingetragen war

[himitsu]

Zitat:

Zitat von matashen

Delphi-Quellcode:

//Keine Ahnung warum folgende Zeile eingetragen war

passend dazu find ich auch sowas toll

Delphi-Quellcode:

// Keine Ahnung warum, aber folgende Zeile funktioniert wirklich

(in etwa so mal irgendwo gesehn)

[Neutral General]

Hi,

Zwar kein Code Kommentar aber ein "normaler", den ich in der FAT Spezifikation von Microsoft gefunden habe und lustig fand:

Zitat:

Do not spend too much time trying to figure out why this math works. The basis for the computation is complicated; the important point is that this is how Microsoft operating systems do it, and it works.

Hört sich so an, als wüssten sie selbst nicht so genau warum es funktioniert :mrgreen:

[Mikescher]

Da muss ich hier auch mal was beitragen:

Delphi-Quellcode:

/* no comment */

:mrgreen:

[himitsu]

tut mir Leid, aber ich konnt nimmer anders

Delphi-Quellcode:

{$IF Declared(UnicodeString)}

  Function AnsiLowerCase(Const S: AnsiString): AnsiString;
    Begin
      Result := AnsiStrings.AnsiLowerCase(S);
    End;

  Function UnicodeLowerCase(Const S: UnicodeString): UnicodeString;
    Begin
      Result := SysUtils.AnsiLowerCase(S);  // ich weiß, D2009 ist besch***
    End;

{$IFEND}

(WideLowerCase ist wenigstens noch OK)