src/ 40777 632 12 0 6434665454 10377 5ustar rubiniwheelsrc/bloom.c100664 632 12 6127 6407470205 11740 0ustar rubiniwheel/* bloom.c: Binary Loader for Outrageously Ostentatious Modules */ /* This code is released under the GPL license */ /* ------------------------------------------- */ #ifndef __KERNEL__ # define __KERNEL__ #endif #ifndef MODULE # define MODULE #endif #include #include #include /* * the viewer can be modified at load time */ static char *viewer = "/usr/bin/X11/xv"; /* * this is the base name, calculated at first invocation */ static char *viewer_name; static inline int do_load_bloom_binary(struct linux_binprm *bprm, struct pt_regs *regs) { int retval=-ENOEXEC; unsigned char *b = bprm->buf; /* Accept the following formats (/usr/lib/magic): * * PBMPLUS * 0 string P1 PBM image text * 0 string P2 PGM image text * 0 string P3 PPM image text * 0 string P4 PBM "rawbits" image data * 0 string P5 PGM "rawbits" image data * 0 string P6 PPM "rawbits" image data * TIFF * 0 string MM\x00\x2a TIFF image data, big-endian * 0 string II\x2a\x00 TIFF image data, little-endian * GIF * 0 string GIF8 GIF image data * JPEG images * 0 beshort 0xffd8 JPEG image data * */ if (((b[0]=='P') && ((b[2]==' ') || (b[2]=='\n')) \ && (b[1]>'0') && (b[1]<'7')) || ((b[0]==b[1]) && (b[2]+b[3]==0x2a) && (b[2]*b[3]==0) \ && ((b[0]=='M') || (b[0]=='I'))) || (*(u32 *)b == *(u32 *)"GIF8") || ((b[0]==0xff) && (b[1]==0xd8)) ) retval=0; else return retval; if (!viewer_name) /* calculate the base name */ viewer_name = strrchr(viewer,'/')+1; /* release the inode, it will be opened as argument */ iput(bprm->inode); bprm->dont_iput=1; /* replace argv0 with the full pathname */ remove_arg_zero(bprm); bprm->p = copy_strings(1, &bprm->filename, bprm->page, bprm->p, 2); bprm->argc++; /* and push the viewer's basename to the top of the command line */ bprm->p = copy_strings(1, &viewer_name, bprm->page, bprm->p, 2); bprm->argc++; /* very unlikely it's more than 32 pages... */ if (!bprm->p) return -E2BIG; /* ok, now open the interpreter, and reenter the loop */ retval = open_namei(viewer, 0, 0, &bprm->inode, NULL); if (retval) return retval; bprm->dont_iput=0; retval=prepare_binprm(bprm); if(retval<0) return retval; return search_binary_handler(bprm,regs); } int load_bloom_binary(struct linux_binprm *bprm, struct pt_regs *regs) { int retval; MOD_INC_USE_COUNT; retval = do_load_bloom_binary(bprm,regs); MOD_DEC_USE_COUNT; return retval; } struct linux_binfmt bloom_format = { NULL, &mod_use_count_, /* next, count */ load_bloom_binary, NULL, NULL /* bin, lib, core */ }; int init_module (void) { return register_binfmt(&bloom_format); } void cleanup_module(void) { unregister_binfmt(&bloom_format); } src/bluff.c100664 632 12 1005 6407277430 11721 0ustar rubiniwheel/* bluff.c: Binary Loader for an Ultimately Fallacious Format */ #ifndef __KERNEL__ # define __KERNEL__ #endif #ifndef MODULE # define MODULE #endif #include /* NULL */ #include #include struct linux_binfmt bluff_format = { NULL, &mod_use_count_, /* next, count */ NULL, NULL, NULL /* bin, lib, core */ }; int init_module (void) { return register_binfmt(&bluff_format); } void cleanup_module(void) { unregister_binfmt(&bluff_format); } src/Makefile100664 632 12 171 6434663167 12110 0ustar rubiniwheelCFLAGS = -O -Wall all: bluff.o bloom.o fail.o clean: rm -f bluff.o bloom.o fail.o *~ %: %.el ./lisp-compiler $< $@ src/fail.c100664 632 12 5160 6434642614 11544 0ustar rubiniwheel/* fail.c: Format for Automatically Iinterpreting Lisp */ /* This code is released under the GPL license */ /* ------------------------------------------- */ #ifndef __KERNEL__ # define __KERNEL__ #endif #ifndef MODULE # define MODULE #endif #include #include #include /* the viewer can be modified at load time */ static char *lisper = "/usr/bin/emacs"; /* this is "emacs -batch -l", "emacs" is derived from above */ #define NR_ARGS 3 static char *xtra_args[NR_ARGS]={NULL,"-batch","-l"}; static inline int do_load_fail_binary(struct linux_binprm *bprm, struct pt_regs *regs) { int retval=-ENOEXEC; unsigned char *b = bprm->buf; /* A lisp file is identifiied by these magic sequences: * * 0 string ;; Lisp/Scheme program text * 0 string \012( byte-compiled Emacs-Lisp program data * 0 string ;ELC\023\000\000\000 byte-compiled Emacs-Lisp program data */ if (((b[0]==';') && (b[1]==';')) || ((b[0]=='\012') && (b[1]=='(')) || ((b[0]==';') && (b[1]=='E') && (b[2]=='L') && (b[3]=='C') \ && (b[4]=='\023') && (b[5]=='\0')) ) retval=0; else return retval; if (!xtra_args[0]) /* calculate the base name */ xtra_args[0] = strrchr(lisper,'/')+1; /* release the inode, it will be opened as argument */ iput(bprm->inode); bprm->dont_iput=1; /* replace argv0 with the full pathname */ remove_arg_zero(bprm); bprm->p = copy_strings(1, &bprm->filename, bprm->page, bprm->p, 2); bprm->argc++; /* add "emacs -batch" in front of it */ bprm->p = copy_strings(NR_ARGS, xtra_args, bprm->page, bprm->p, 2); bprm->argc+=NR_ARGS; /* very unlikely it's more than 32 pages... */ if (!bprm->p) return -E2BIG; /* ok, now open the interpreter, and reenter the loop */ retval = open_namei(lisper, 0, 0, &bprm->inode, NULL); if (retval) return retval; bprm->dont_iput=0; retval=prepare_binprm(bprm); if(retval<0) return retval; return search_binary_handler(bprm,regs); } int load_fail_binary(struct linux_binprm *bprm, struct pt_regs *regs) { int retval; MOD_INC_USE_COUNT; retval = do_load_fail_binary(bprm,regs); MOD_DEC_USE_COUNT; return retval; } struct linux_binfmt fail_format = { NULL, &mod_use_count_, /* next, count */ load_fail_binary, NULL, NULL /* bin, lib, core */ }; int init_module (void) { return register_binfmt(&fail_format); } void cleanup_module(void) { unregister_binfmt(&fail_format); } src/runme100775 632 12 1006 6434665135 11537 0ustar rubiniwheel;ELC ;;; compiled by rubini@amelia on Thu Nov 20 00:27:55 1997 ;;; from file /morgana/home/staff/rubini/kk/binfmt/src/runme.el ;;; emacs version 19.25.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/morgana/home/staff/rubini/kk/binfmt/src/runme.el' was compiled for Emacs 19")) (message "Hello, Emacs") src/README100664 632 12 2717 6434665454 11361 0ustar rubiniwheelTo compile the modules under Linux 2.0 run "make". The "bluff" source file is the one printed in the kk article The "bloom" module is the one in charge of executing TIFF images The "fail" module uses emacs as a binary loader, and deserves some explanation. FAIL ---- This section describes the sample files that can be used with emacs. Try ``insmod fail lisper="/usr/local/bin/emacs'' if your emacs doesn't live in /usr/bin. After loading fail.o, try the following. Try "./runme.el". The program is an "hello, emacs" source file, which gets executed by emacs. There's no need actually to have a trailing .el in the file name: any name will work. The program "runme", for example (without the trailing .el) is a compiled lisp file. Try "./runme". To compile a lisp program, use the "lisp-compiler" executable file in this directory. Its syntax is ./lisp-compiler [] The Makefile is instructed to use "lisp-compiler" to compile .el files. Try "make runme" to compile "runme.el". All the source files are newer than the compiled ones, so you can play with make. The last sample file is "lisper". If invoked with no arguments, it executes Lisp code it finds in its standard input. If it receives arguments, they are executed as Lisp statements. For example: print "hi": ./lisper '(message "hi")' create "runme.elc": ./lisper '(byte-compile-file "./runme.el")' print current pid echo '(message "%d" (emacs-pid))' | ./lisper Enjoy /alessandro src/runme.el100775 632 12 71 6434665350 12076 0ustar rubiniwheel;; sample file to test out fail (message "Hello, Emacs") src/lisper.el100775 632 12 572 6434665350 12274 0ustar rubiniwheel;; a program execute the command-line as lisp ;; discard argv[0] (setq args (cdr command-line-args-left)) ;; if there are no arguments, read stdin and evaluate it (or args (progn (find-file "/proc/self/fd/0") (eval-buffer))) ;; if there are arguments, evaluate them (while (car args) (eval (car (read-from-string (car args)))) (setq args (cdr args))) src/lisper100775 632 12 1201 6434665206 11703 0ustar rubiniwheel;ELC ;;; compiled by rubini@amelia on Thu Nov 20 00:28:37 1997 ;;; from file /morgana/home/staff/rubini/kk/binfmt/src/lisper.el ;;; emacs version 19.25.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/morgana/home/staff/rubini/kk/binfmt/src/lisper.el' was compiled for Emacs 19")) (byte-code "A‰„ÂÃ!ˆÄ ˆ @ƒ\"ÅÆ @!@!ˆ A‰‚‡" [command-line-args-left args find-file "/proc/self/fd/0" eval-buffer eval read-from-string] 4) src/lisp-compiler.el100775 632 12 1474 6434665350 13577 0ustar rubiniwheel;; a program to compile an elisp file. ;; I would like to use stdin and stdout by it's past the deadline, ;; and I have to time to refresh my E-Lisp knowledge ;; the current file name is still in the cmd line, so remove it ;; the second item is the source, ;; the third item, if any is the target (setq myname (car command-line-args-left)) (setq args (cdr command-line-args-left)) (setq source (car args)) (setq args (cdr args)) (setq target (car args)) (or source (message "Usage: %s []" myname)) (and source (byte-compile-file source)) (and target (progn (rename-file (concat source "c") target t) (message "Renamed output file to \"%s\"" target))) (or target (setq target (concat source "c"))) ;; finally, give execute permission to the target (call-process "chmod" nil nil nil "+x" target) src/lisp-compiler100775 632 12 1426 6434665225 13176 0ustar rubiniwheel;ELC ;;; compiled by rubini@amelia on Thu Nov 20 00:28:51 1997 ;;; from file /morgana/home/staff/rubini/kk/binfmt/src/lisp-compiler.el ;;; emacs version 19.25.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/morgana/home/staff/rubini/kk/binfmt/src/lisp-compiler.el' was compiled for Emacs 19")) (byte-code "@A‰@\nA‰@ „ÅÆ \"ˆ ƒ Ç !ˆ\fƒ1È ÉP\fÊ#ˆÅË\f\"ˆ\f„9 ÉPÌÍΉ‰Ï\f&‡" [command-line-args-left myname args source target message "Usage: %s []" byte-compile-file rename-file "c" t "Renamed output file to \"%s\"" call-process "chmod" nil "+x"] 8)