/* $File: //member/autrijus/Locale-Hebrew/Hebrew.xs $ $Author: autrijus $
   $Revision: #2 $ $Change: 11166 $ $DateTime: 2004/09/17 21:16:27 $ */

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

MODULE = Locale::Hebrew		PACKAGE = Locale::Hebrew		

SV *
_hebrewflip(s)
SV * s
CODE:
    int l;
    char *src, *dst;
    SV *r;

    r = newSVsv(s);
    src = SvPV(r, l);
    bidimain(src, l);
    RETVAL = r;
    OUTPUT:
    RETVAL