The source code mentioned in the article is well documented and an interesting read too; e.g.:

https://github.com/emacs-mirror/emacs/blob/master/src/ccl.c