/*
    Copyright (C) 1995-2001, The AROS Development Team. All rights reserved.

    SAS/C function stcl_h().
*/

#include <stdio.h>

/*****************************************************************************

    NAME */
#include <string.h>

        int stcl_h (

/*  SYNOPSIS */
        char            * out,
        long        lvalue)

/*  FUNCTION
        Convert an long integer to a hex string

    INPUTS
        out     - Result will be put into this string
        uivalue - the value to convert

    RESULT
        The number of characters written into the string

    NOTES
        SAS/C specific
        
    EXAMPLE

    BUGS

    SEE ALSO

    INTERNALS

******************************************************************************/
{
    return sprintf(out, "%lx", lvalue);
} /* stcl_h */
