home *** CD-ROM | disk | FTP | other *** search
- /*
- Module wrapping for FS
- Source for printf module code
- Version 0.01 (30-Mar-93)
- By Brian Brunswick & Nick Smith, 1991-3
- */
-
- #include <stdlib.h>
- #include "kernel.h"
-
- /*
- This is the finalisation code
- */
- static void fs_finalise(void)
- {
- _kernel_swi_regs r;
- r.r[0] = 0; /* To keep compiler quiet */
- }
-
- /*
- This is the initialisation code
- */
- _kernel_oserror *fs_initialise(char *cmd_tail,
- int podule_base, void *private_word)
- {
- _kernel_oserror *err = NULL;
- /*
- These keep the compiler quiet.
- */
- cmd_tail = cmd_tail;
- podule_base = podule_base;
- private_word = private_word;
-
- if ( !err )
- atexit( fs_finalise );
-
- return err;
- }
-
- /*
- This is the SWI handler
- */
- _kernel_oserror *fs_swi(int swi_number,
- _kernel_swi_regs *r, void *private_word)
- {
- _kernel_oserror *err = NULL;
-
- r = r;
- private_word = private_word;
-
- switch ( swi_number )
- {
- case 0:
- printf(*r);
- default:
- err = NULL;
- break;
- }
-
- return err;
- }
-