/*
     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;
}
