// this comment included for the benefit of anyone grepping for swearwords: shit.

在拉丁语中，从但丁的《神曲》中进入这里的人，请放弃希望。

struct core_unlocker
{
    core_unlocker(lock)
    {
        m_lock = lock
        unlock(lock)  //Abandon All Locks, Ye Who Enter Core!
    }
    ~core_unlocker()
    {
        lock(m_lock)
    }  
    private:
    Corelock m_lock;
}

#define SHIT_HAPPENED (BASE + 1)   /* generic shit happened */

//When I wrote this, only God and I understood what I was doing
//Now, God only knows

在几年前编写Perl时，我在顶部和底部添加了这些注释:

# <magic type="voodoo">

...

# </magic>

下一个研究它的人在Perl中并不是那么热门，他花了一段时间搜索文档，看看“魔法”和“巫毒”是怎么做的。从那以后，我试着添加更多有用的评论……