/*
 * Main interface to scanf-type routines, independent of integer/float
 *
 * scanf(controlstring, arg, arg, ...)  or 
 * sscanf(string, controlstring, arg, arg, ...) or
 * fscanf(file, controlstring, arg, arg, ...) --  formatted read
 *        operates as described by Kernighan & Ritchie
 */


#include <stdio.h>
#include <ctype.h>

#define EOF (-1)

#pragma proto HDRPRTYPE
extern sscanf();
#pragma unproto HDRPRTYPE


#define EOF (-1)


#asm
        LIB     scanf1
        LIB     getarg
        XREF    smc_sf_string1
        XREF    smc_sgoioblk
#endasm



extern unsigned char *sf_string1;

sscanf(args)
int args ;
{
        int *nxtarg ;

        nxtarg = getarg() + &args - 1 ;
        sf_string1 = *nxtarg ;
        return( scanf1( stdout, --nxtarg ) ) ;
}