Convert-UUlib/UUlib.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "uulib/fptools.h"
#include "uulib/uudeview.h"
#include "uulib/uuint.h"

static int
not_here (char *s)
{
    croak("%s not implemented", s);
    return -1;
}

static int
constant (char *name)
{
    errno = 0;
    switch (*name) {
    case 'A':
        if (strEQ(name, "ACT_COPYING")) return UUACT_COPYING;
        if (strEQ(name, "ACT_DECODING")) return UUACT_DECODING;
        if (strEQ(name, "ACT_ENCODING")) return UUACT_ENCODING;
        if (strEQ(name, "ACT_IDLE")) return UUACT_IDLE;
        if (strEQ(name, "ACT_SCANNING")) return UUACT_SCANNING;
    case 'F':
        if (strEQ(name, "FILE_DECODED")) return UUFILE_DECODED;
        if (strEQ(name, "FILE_ERROR")) return UUFILE_ERROR;
        if (strEQ(name, "FILE_MISPART")) return UUFILE_MISPART;
        if (strEQ(name, "FILE_NOBEGIN")) return UUFILE_NOBEGIN;
        if (strEQ(name, "FILE_NODATA")) return UUFILE_NODATA;
        if (strEQ(name, "FILE_NOEND")) return UUFILE_NOEND;
        if (strEQ(name, "FILE_OK")) return UUFILE_OK;
        if (strEQ(name, "FILE_READ")) return UUFILE_READ;
        if (strEQ(name, "FILE_TMPFILE")) return UUFILE_TMPFILE;
        break;
    case 'M':
        if (strEQ(name, "MSG_ERROR")) return UUMSG_ERROR;
        if (strEQ(name, "MSG_FATAL")) return UUMSG_FATAL;
        if (strEQ(name, "MSG_MESSAGE")) return UUMSG_MESSAGE;
        if (strEQ(name, "MSG_NOTE")) return UUMSG_NOTE;
        if (strEQ(name, "MSG_PANIC")) return UUMSG_PANIC;
        if (strEQ(name, "MSG_WARNING")) return UUMSG_WARNING;
    case 'O':
        if (strEQ(name, "OPT_VERSION")) return UUOPT_VERSION;
        if (strEQ(name, "OPT_FAST")) return UUOPT_FAST;
        if (strEQ(name, "OPT_DUMBNESS")) return UUOPT_DUMBNESS;
        if (strEQ(name, "OPT_BRACKPOL")) return UUOPT_BRACKPOL;
        if (strEQ(name, "OPT_VERBOSE")) return UUOPT_VERBOSE;
        if (strEQ(name, "OPT_DESPERATE")) return UUOPT_DESPERATE;
        if (strEQ(name, "OPT_IGNREPLY")) return UUOPT_IGNREPLY;
        if (strEQ(name, "OPT_OVERWRITE")) return UUOPT_OVERWRITE;
        if (strEQ(name, "OPT_SAVEPATH")) return UUOPT_SAVEPATH;
        if (strEQ(name, "OPT_IGNMODE")) return UUOPT_IGNMODE;
        if (strEQ(name, "OPT_DEBUG")) return UUOPT_DEBUG;
        if (strEQ(name, "OPT_ERRNO")) return UUOPT_ERRNO;
        if (strEQ(name, "OPT_PROGRESS")) return UUOPT_PROGRESS;
        if (strEQ(name, "OPT_USETEXT")) return UUOPT_USETEXT;
        if (strEQ(name, "OPT_PREAMB")) return UUOPT_PREAMB;
        if (strEQ(name, "OPT_TINYB64")) return UUOPT_TINYB64;
        if (strEQ(name, "OPT_ENCEXT")) return UUOPT_ENCEXT;
        if (strEQ(name, "OPT_REMOVE")) return UUOPT_REMOVE;
        if (strEQ(name, "OPT_MOREMIME")) return UUOPT_MOREMIME;
        if (strEQ(name, "OPT_DOTDOT")) return UUOPT_DOTDOT;
    case 'R':
        if (strEQ(name, "RET_CANCEL")) return UURET_CANCEL;
        if (strEQ(name, "RET_CONT")) return UURET_CONT;
        if (strEQ(name, "RET_EXISTS")) return UURET_EXISTS;
        if (strEQ(name, "RET_ILLVAL")) return UURET_ILLVAL;
        if (strEQ(name, "RET_IOERR")) return UURET_IOERR;
        if (strEQ(name, "RET_NODATA")) return UURET_NODATA;
        if (strEQ(name, "RET_NOEND")) return UURET_NOEND;
        if (strEQ(name, "RET_NOMEM")) return UURET_NOMEM;
        if (strEQ(name, "RET_OK")) return UURET_OK;
        if (strEQ(name, "RET_UNSUP")) return UURET_UNSUP;
    case 'B':
        if (strEQ(name, "B64_ENCODED")) return B64ENCODED;
        if (strEQ(name, "BH_ENCODED")) return BH_ENCODED;
    case 'P':
        if (strEQ(name, "PT_ENCODED")) return PT_ENCODED;
    case 'Q':
        if (strEQ(name, "QP_ENCODED")) return QP_ENCODED;
    case 'U':
        if (strEQ(name, "UU_ENCODED")) return UU_ENCODED;
    case 'X':
        if (strEQ(name, "XX_ENCODED")) return XX_ENCODED;
    case 'Y':
        if (strEQ(name, "YENC_ENCODED")) return YENC_ENCODED;
    }
    errno = EINVAL;
    return 0;
}

static void
uu_msg_callback (void *cb, char *msg, int level)
{
  dSP;
  
  ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);

  PUSHs (sv_2mortal (newSVpv (msg, 0)));
  PUSHs (sv_2mortal (newSViv (level)));

  PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN;
  PUTBACK; FREETMPS; LEAVE;
}

static int
uu_busy_callback (void *cb, uuprogress *uup)
{
  dSP;
  int count;
  int retval;
  
  ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 6);

  PUSHs (sv_2mortal (newSViv (uup->action)));
  PUSHs (sv_2mortal (newSVpv (uup->curfile, 0)));
  PUSHs (sv_2mortal (newSViv (uup->partno)));
  PUSHs (sv_2mortal (newSViv (uup->numparts)));
  PUSHs (sv_2mortal (newSViv (uup->fsize)));
  PUSHs (sv_2mortal (newSViv (uup->percent)));

  PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;

  if (count != 1)
    croak ("busycallback perl callback returned more than one argument");

  retval = POPi;

  PUTBACK; FREETMPS; LEAVE;

  return retval;
}

static char *
uu_fnamefilter_callback (void *cb, char *fname)
{
  dSP;
  int count;
  static char *str;
  
  ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 1);

  PUSHs (sv_2mortal (newSVpv (fname, 0)));

  PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;

  if (count != 1)
    croak ("fnamefilter perl callback returned more than one argument");

  _FP_free(str); str = _FP_strdup (POPp);

  PUTBACK; FREETMPS; LEAVE;

  return str;
}

static int
uu_file_callback (void *cb, char *id, char *fname, int retrieve)
{
  dSP;
  int count;
  int retval;
  SV *xfname = newSVpv ("", 0);
  STRLEN dc;
  
  ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 3);

  PUSHs (sv_2mortal (newSVpv (id, 0)));
  PUSHs (sv_2mortal (xfname));
  PUSHs (sv_2mortal (newSViv (retrieve)));

  PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;

  if (count != 1)
    croak ("filecallback perl callback returned more than one argument");

  strcpy (fname, SvPV (xfname, dc));

  retval = POPi;

  PUTBACK; FREETMPS; LEAVE;

  return retval;
}

static char *
uu_filename_callback (void *cb, char *subject, char *filename)
{
  dSP;
  int count;
  SV *retval;
  STRLEN dc;
  
  ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3);

  PUSHs(sv_2mortal(newSVpv(subject, 0)));
  PUSHs(filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef);

  PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN;

  if (count > 1)
    croak ("filenamecallback perl callback returned more than one argument");

  if (count)
    {
      _FP_free (filename);

      retval = POPs;

      if (SvOK (retval))
        {
          STRLEN len;
          char *fn = SvPV (retval, len);

          filename = malloc (len + 1);

          if (filename)
            {
              memcpy (filename, fn, len);
              filename[len] = 0;
            }
        }
      else
        filename = 0;
    }

  PUTBACK; FREETMPS; LEAVE;

  return filename;
}

static SV *uu_msg_sv, *uu_busy_sv, *uu_file_sv, *uu_fnamefilter_sv, *uu_filename_sv;

#define FUNC_CB(cb) (void *)(sv_setsv (cb ## _sv, func), cb ## _sv), func ? cb ## _callback : NULL

static int
uu_info_file (void *cb, char *info)
{
  dSP;
  int count;
  int retval;
  
  ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1);

  PUSHs(sv_2mortal(newSVpv(info,0)));

  PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;

  if (count != 1)
    croak ("info_file perl callback returned more than one argument");

  retval = POPi;

  PUTBACK; FREETMPS; LEAVE;

  return retval;
}

static int
uu_opt_isstring (int opt)
{
  switch (opt)
    {
      case UUOPT_VERSION:
      case UUOPT_SAVEPATH:
      case UUOPT_ENCEXT:
         return 1;
      default:
         return 0;
    }
}

static int uu_initialized;

MODULE = Convert::UUlib         PACKAGE = Convert::UUlib                PREFIX = UU

PROTOTYPES: ENABLE

int
constant (name)
        char *          name


void
UUInitialize ()
        CODE:
        if (!uu_initialized)
          {
            int retval;
            
            if ((retval = UUInitialize ()) != UURET_OK)
              croak ("unable to initialize uudeview library (%s)", UUstrerror (retval));
 
            uu_initialized = 1;
          }

void
UUCleanUp ()
        CODE:
        if (uu_initialized)
          UUCleanUp ();

        uu_initialized = 0; 

SV *
UUGetOption (opt)
        int     opt
        CODE:
        {
                if (opt == UUOPT_PROGRESS)
                  croak ("GetOption(UUOPT_PROGRESS) is not yet implemented");
                else if (uu_opt_isstring (opt))
                  {
                    char cval[8192];

                    UUGetOption (opt, 0, cval, sizeof cval);
                    RETVAL = newSVpv (cval, 0);
                  }
                else
                  {
                    RETVAL = newSViv (UUGetOption (opt, 0, 0, 0));
                  }
        }
        OUTPUT:
        RETVAL

int
UUSetOption (opt, val)
        int     opt
        SV *    val
        CODE:
        {
                STRLEN dc;

                if (uu_opt_isstring (opt))
                  RETVAL = UUSetOption (opt, 0, SvPV (val, dc));
                else
                  RETVAL = UUSetOption (opt, SvIV (val), (void *)0);
        }
        OUTPUT:
        RETVAL

char *
UUstrerror (errcode)
        int     errcode

void
UUSetMsgCallback (func = 0)
        SV *    func
        CODE:
        UUSetMsgCallback (FUNC_CB(uu_msg));

void
UUSetBusyCallback (func = 0,msecs = 1000)
        SV *    func
        long    msecs
        CODE:
        UUSetBusyCallback (FUNC_CB(uu_busy), msecs);

void
UUSetFileCallback (func = 0)
        SV *    func
        CODE:
        UUSetFileCallback (FUNC_CB(uu_file));

void
UUSetFNameFilter (func = 0)
        SV *    func
        CODE:
        UUSetFNameFilter (FUNC_CB(uu_fnamefilter));

void
UUSetFileNameCallback (func = 0)
        SV *    func
        CODE:
        UUSetFileNameCallback (FUNC_CB(uu_filename));

char *
UUFNameFilter (fname)
        char *  fname

void
UULoadFile (fname, id = 0, delflag = 0, partno = -1)
        char *  fname
        char *  id
        int     delflag
        int     partno
        PPCODE:
        {       
                int count;
                
                XPUSHs (sv_2mortal (newSViv (UULoadFileWithPartNo (fname, id, delflag, partno, &count))));
                if (GIMME_V == G_ARRAY)
                  XPUSHs (sv_2mortal (newSViv (count)));
        }

int
UUSmerge (pass)
        int     pass

int
UUQuickDecode(datain,dataout,boundary,maxpos)
        FILE *  datain
        FILE *  dataout
        char *  boundary
        long    maxpos

int
UUEncodeMulti(outfile,infile,infname,encoding,outfname,mimetype,filemode)
        FILE *  outfile
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        char *  mimetype
        int     filemode

int
UUEncodePartial(outfile,infile,infname,encoding,outfname,mimetype,filemode,partno,linperfile)
        FILE *  outfile
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        char *  mimetype
        int     filemode
        int     partno
        long    linperfile

int
UUEncodeToStream(outfile,infile,infname,encoding,outfname,filemode)
        FILE *  outfile
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        int     filemode

int
UUEncodeToFile(infile,infname,encoding,outfname,diskname,linperfile)
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        char *  diskname
        long    linperfile

int
UUE_PrepSingle(outfile,infile,infname,encoding,outfname,filemode,destination,from,subject,isemail)
        FILE *  outfile
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        int     filemode
        char *  destination
        char *  from
        char *  subject
        int     isemail

int
UUE_PrepPartial(outfile,infile,infname,encoding,outfname,filemode,partno,linperfile,filesize,destination,from,subject,isemail)
        FILE *  outfile
        FILE *  infile
        char *  infname
        int     encoding
        char *  outfname
        int     filemode
        int     partno
        long    linperfile
        long    filesize
        char *  destination
        char *  from
        char *  subject
        int     isemail

uulist *
UUGetFileListItem (num)
        int     num

MODULE = Convert::UUlib         PACKAGE = Convert::UUlib::Item

int
rename (item, newname)
        uulist *item
        char *  newname
        CODE:
        RETVAL = UURenameFile (item, newname);
        OUTPUT:
        RETVAL

int
decode_temp (item)
        uulist *item
        CODE:
        RETVAL = UUDecodeToTemp (item);
        OUTPUT:
        RETVAL

int
remove_temp (item)
        uulist *item
        CODE:
        RETVAL = UURemoveTemp (item);
        OUTPUT:
        RETVAL

int
decode (item, target = 0)
        uulist *item
        char *  target
        CODE:
        RETVAL = UUDecodeFile (item, target);
        OUTPUT:
        RETVAL

void
info (item, func)
        uulist *item
        SV *    func
        CODE:
        UUInfoFile (item,(void *)func, uu_info_file);

short
state(li)
        uulist *li
        CODE:
        RETVAL = li->state;
        OUTPUT:
        RETVAL

short
mode(li,newmode=0)
        uulist *li
        short   newmode
        CODE:
        if (newmode)
          li->mode = newmode;
        RETVAL = li->mode;
        OUTPUT:
        RETVAL

short
uudet(li)
        uulist *li
        CODE:
        RETVAL = li->uudet;
        OUTPUT:
        RETVAL

long
size(li)
        uulist *li
        CODE:
        RETVAL = li->size;
        OUTPUT:
        RETVAL

char *
filename (li, newfilename = 0)
        uulist *li
        char *  newfilename
        CODE:
        if (newfilename)
          {
            _FP_free (li->filename);
            li->filename = _FP_strdup (newfilename);
          }
        RETVAL = li->filename;
        OUTPUT:
        RETVAL

char *
subfname (li)
        uulist *li
        CODE:
        RETVAL = li->subfname;
        OUTPUT:
        RETVAL

char *
mimeid (li)
        uulist *li
        CODE:
        RETVAL = li->mimeid;
        OUTPUT:
        RETVAL

char *
mimetype (li)
        uulist *li
        CODE:
        RETVAL = li->mimetype;
        OUTPUT:
        RETVAL

char *
binfile (li)
        uulist *li
        CODE:
        RETVAL = li->binfile;
        OUTPUT:
        RETVAL

# methods accessing internal data(!)

void
parts (li)
        uulist *li
        PPCODE:
        {
                struct _uufile *p = li->thisfile;

                while (p)
                  {
                    HV *pi = newHV ();

                    hv_store (pi, "partno"  , 6, newSViv (p->partno)         , 0);

                    if (p->filename)
                      hv_store (pi, "filename", 8, newSVpv (p->filename, 0)    , 0);
                    if(p->subfname)
                      hv_store (pi, "subfname", 8, newSVpv (p->subfname, 0)    , 0);
                    if(p->mimeid)
                      hv_store (pi, "mimeid"  , 6, newSVpv (p->mimeid  , 0)    , 0);
                    if(p->mimetype)
                      hv_store (pi, "mimetype", 8, newSVpv (p->mimetype, 0)    , 0);
                    if (p->data->subject)
                      hv_store (pi, "subject" , 7, newSVpv (p->data->subject,0), 0);
                    if (p->data->origin)
                      hv_store (pi, "origin"  , 6, newSVpv (p->data->origin ,0), 0);
                    if (p->data->sfname)
                      hv_store (pi, "sfname"  , 6, newSVpv (p->data->sfname ,0), 0);

                    XPUSHs (sv_2mortal (newRV_noinc ((SV *)pi)));

                    p = p->NEXT;
                  }
        }

BOOT:
  uu_msg_sv             = newSVsv(&PL_sv_undef);
  uu_busy_sv            = newSVsv(&PL_sv_undef);
  uu_file_sv            = newSVsv(&PL_sv_undef);
  uu_fnamefilter_sv     = newSVsv(&PL_sv_undef);
  uu_filename_sv        = newSVsv(&PL_sv_undef);

Revision:	1.11
Committed:	Fri Dec 5 13:57:25 2003 UTC (20 years, 5 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_04, rel-1_05
Changes since 1.10:	+2 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#include "EXTERN.h"
2			#include "perl.h"
3			#include "XSUB.h"
4
5			#include "uulib/fptools.h"
6	root	1.2	#include "uulib/uudeview.h"
7	root	1.1	#include "uulib/uuint.h"
8
9			static int
10	root	1.8	not_here (char *s)
11	root	1.1	{
12	root	1.8	croak("%s not implemented", s);
13	root	1.1	return -1;
14			}
15
16			static int
17	root	1.8	constant (char *name)
18	root	1.1	{
19			errno = 0;
20			switch (*name) {
21			case 'A':
22			if (strEQ(name, "ACT_COPYING")) return UUACT_COPYING;
23			if (strEQ(name, "ACT_DECODING")) return UUACT_DECODING;
24			if (strEQ(name, "ACT_ENCODING")) return UUACT_ENCODING;
25			if (strEQ(name, "ACT_IDLE")) return UUACT_IDLE;
26			if (strEQ(name, "ACT_SCANNING")) return UUACT_SCANNING;
27			case 'F':
28			if (strEQ(name, "FILE_DECODED")) return UUFILE_DECODED;
29			if (strEQ(name, "FILE_ERROR")) return UUFILE_ERROR;
30			if (strEQ(name, "FILE_MISPART")) return UUFILE_MISPART;
31			if (strEQ(name, "FILE_NOBEGIN")) return UUFILE_NOBEGIN;
32			if (strEQ(name, "FILE_NODATA")) return UUFILE_NODATA;
33			if (strEQ(name, "FILE_NOEND")) return UUFILE_NOEND;
34			if (strEQ(name, "FILE_OK")) return UUFILE_OK;
35			if (strEQ(name, "FILE_READ")) return UUFILE_READ;
36			if (strEQ(name, "FILE_TMPFILE")) return UUFILE_TMPFILE;
37			break;
38			case 'M':
39			if (strEQ(name, "MSG_ERROR")) return UUMSG_ERROR;
40			if (strEQ(name, "MSG_FATAL")) return UUMSG_FATAL;
41			if (strEQ(name, "MSG_MESSAGE")) return UUMSG_MESSAGE;
42			if (strEQ(name, "MSG_NOTE")) return UUMSG_NOTE;
43			if (strEQ(name, "MSG_PANIC")) return UUMSG_PANIC;
44			if (strEQ(name, "MSG_WARNING")) return UUMSG_WARNING;
45			case 'O':
46	root	1.7	if (strEQ(name, "OPT_VERSION")) return UUOPT_VERSION;
47			if (strEQ(name, "OPT_FAST")) return UUOPT_FAST;
48			if (strEQ(name, "OPT_DUMBNESS")) return UUOPT_DUMBNESS;
49	root	1.1	if (strEQ(name, "OPT_BRACKPOL")) return UUOPT_BRACKPOL;
50	root	1.7	if (strEQ(name, "OPT_VERBOSE")) return UUOPT_VERBOSE;
51	root	1.1	if (strEQ(name, "OPT_DESPERATE")) return UUOPT_DESPERATE;
52			if (strEQ(name, "OPT_IGNREPLY")) return UUOPT_IGNREPLY;
53			if (strEQ(name, "OPT_OVERWRITE")) return UUOPT_OVERWRITE;
54	root	1.7	if (strEQ(name, "OPT_SAVEPATH")) return UUOPT_SAVEPATH;
55			if (strEQ(name, "OPT_IGNMODE")) return UUOPT_IGNMODE;
56			if (strEQ(name, "OPT_DEBUG")) return UUOPT_DEBUG;
57			if (strEQ(name, "OPT_ERRNO")) return UUOPT_ERRNO;
58			if (strEQ(name, "OPT_PROGRESS")) return UUOPT_PROGRESS;
59			if (strEQ(name, "OPT_USETEXT")) return UUOPT_USETEXT;
60	root	1.1	if (strEQ(name, "OPT_PREAMB")) return UUOPT_PREAMB;
61			if (strEQ(name, "OPT_TINYB64")) return UUOPT_TINYB64;
62	root	1.7	if (strEQ(name, "OPT_ENCEXT")) return UUOPT_ENCEXT;
63	root	1.2	if (strEQ(name, "OPT_REMOVE")) return UUOPT_REMOVE;
64			if (strEQ(name, "OPT_MOREMIME")) return UUOPT_MOREMIME;
65	root	1.6	if (strEQ(name, "OPT_DOTDOT")) return UUOPT_DOTDOT;
66	root	1.1	case 'R':
67			if (strEQ(name, "RET_CANCEL")) return UURET_CANCEL;
68			if (strEQ(name, "RET_CONT")) return UURET_CONT;
69			if (strEQ(name, "RET_EXISTS")) return UURET_EXISTS;
70			if (strEQ(name, "RET_ILLVAL")) return UURET_ILLVAL;
71			if (strEQ(name, "RET_IOERR")) return UURET_IOERR;
72			if (strEQ(name, "RET_NODATA")) return UURET_NODATA;
73			if (strEQ(name, "RET_NOEND")) return UURET_NOEND;
74			if (strEQ(name, "RET_NOMEM")) return UURET_NOMEM;
75			if (strEQ(name, "RET_OK")) return UURET_OK;
76			if (strEQ(name, "RET_UNSUP")) return UURET_UNSUP;
77			case 'B':
78	root	1.7	if (strEQ(name, "B64_ENCODED")) return B64ENCODED;
79	root	1.1	if (strEQ(name, "BH_ENCODED")) return BH_ENCODED;
80			case 'P':
81			if (strEQ(name, "PT_ENCODED")) return PT_ENCODED;
82			case 'Q':
83			if (strEQ(name, "QP_ENCODED")) return QP_ENCODED;
84			case 'U':
85			if (strEQ(name, "UU_ENCODED")) return UU_ENCODED;
86			case 'X':
87			if (strEQ(name, "XX_ENCODED")) return XX_ENCODED;
88	root	1.3	case 'Y':
89			if (strEQ(name, "YENC_ENCODED")) return YENC_ENCODED;
90	root	1.1	}
91			errno = EINVAL;
92			return 0;
93			}
94
95	root	1.8	static void
96			uu_msg_callback (void cb, char msg, int level)
97	root	1.1	{
98			dSP;
99
100	root	1.10	ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);
101	root	1.1
102	root	1.10	PUSHs (sv_2mortal (newSVpv (msg, 0)));
103			PUSHs (sv_2mortal (newSViv (level)));
104	root	1.1
105			PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID\|G_DISCARD); SPAGAIN;
106			PUTBACK; FREETMPS; LEAVE;
107			}
108
109	root	1.8	static int
110			uu_busy_callback (void cb, uuprogress uup)
111	root	1.1	{
112			dSP;
113			int count;
114			int retval;
115
116	root	1.10	ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 6);
117	root	1.1
118	root	1.10	PUSHs (sv_2mortal (newSViv (uup->action)));
119			PUSHs (sv_2mortal (newSVpv (uup->curfile, 0)));
120			PUSHs (sv_2mortal (newSViv (uup->partno)));
121			PUSHs (sv_2mortal (newSViv (uup->numparts)));
122			PUSHs (sv_2mortal (newSViv (uup->fsize)));
123			PUSHs (sv_2mortal (newSViv (uup->percent)));
124	root	1.1
125			PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
126
127			if (count != 1)
128			croak ("busycallback perl callback returned more than one argument");
129
130			retval = POPi;
131
132			PUTBACK; FREETMPS; LEAVE;
133
134			return retval;
135			}
136
137	root	1.8	static char *
138			uu_fnamefilter_callback (void cb, char fname)
139	root	1.1	{
140			dSP;
141			int count;
142			static char *str;
143
144	root	1.10	ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 1);
145	root	1.1
146	root	1.10	PUSHs (sv_2mortal (newSVpv (fname, 0)));
147	root	1.1
148			PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
149
150			if (count != 1)
151			croak ("fnamefilter perl callback returned more than one argument");
152
153	root	1.4	_FP_free(str); str = _FP_strdup (POPp);
154	root	1.1
155			PUTBACK; FREETMPS; LEAVE;
156
157			return str;
158			}
159
160	root	1.8	static int
161			uu_file_callback (void cb, char id, char *fname, int retrieve)
162	root	1.1	{
163			dSP;
164			int count;
165			int retval;
166			SV *xfname = newSVpv ("", 0);
167			STRLEN dc;
168
169	root	1.10	ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 3);
170	root	1.1
171	root	1.10	PUSHs (sv_2mortal (newSVpv (id, 0)));
172			PUSHs (sv_2mortal (xfname));
173			PUSHs (sv_2mortal (newSViv (retrieve)));
174	root	1.1
175			PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
176
177			if (count != 1)
178			croak ("filecallback perl callback returned more than one argument");
179
180			strcpy (fname, SvPV (xfname, dc));
181
182			retval = POPi;
183
184			PUTBACK; FREETMPS; LEAVE;
185
186			return retval;
187			}
188
189	root	1.8	static char *
190			uu_filename_callback (void cb, char subject, char *filename)
191	root	1.5	{
192			dSP;
193			int count;
194			SV *retval;
195			STRLEN dc;
196
197			ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3);
198
199			PUSHs(sv_2mortal(newSVpv(subject, 0)));
200			PUSHs(filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef);
201
202			PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN;
203
204			if (count > 1)
205			croak ("filenamecallback perl callback returned more than one argument");
206
207			if (count)
208			{
209			_FP_free (filename);
210
211			retval = POPs;
212
213			if (SvOK (retval))
214			{
215			STRLEN len;
216			char *fn = SvPV (retval, len);
217
218			filename = malloc (len + 1);
219
220			if (filename)
221			{
222			memcpy (filename, fn, len);
223			filename[len] = 0;
224			}
225			}
226			else
227			filename = 0;
228			}
229
230			PUTBACK; FREETMPS; LEAVE;
231
232			return filename;
233			}
234
235			static SV uu_msg_sv, uu_busy_sv, uu_file_sv, uu_fnamefilter_sv, *uu_filename_sv;
236	root	1.1
237			#define FUNC_CB(cb) (void *)(sv_setsv (cb ## _sv, func), cb ## _sv), func ? cb ## _callback : NULL
238
239	root	1.8	static int
240			uu_info_file (void cb, char info)
241	root	1.1	{
242			dSP;
243			int count;
244			int retval;
245
246			ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1);
247
248			PUSHs(sv_2mortal(newSVpv(info,0)));
249
250			PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
251
252			if (count != 1)
253			croak ("info_file perl callback returned more than one argument");
254
255			retval = POPi;
256
257			PUTBACK; FREETMPS; LEAVE;
258
259			return retval;
260			}
261
262			static int
263			uu_opt_isstring (int opt)
264			{
265			switch (opt)
266			{
267			case UUOPT_VERSION:
268			case UUOPT_SAVEPATH:
269			case UUOPT_ENCEXT:
270			return 1;
271			default:
272			return 0;
273			}
274			}
275
276			static int uu_initialized;
277
278			MODULE = Convert::UUlib PACKAGE = Convert::UUlib PREFIX = UU
279
280			PROTOTYPES: ENABLE
281
282			int
283	root	1.8	constant (name)
284	root	1.1	char * name
285
286
287			void
288	root	1.8	UUInitialize ()
289	root	1.1	CODE:
290			if (!uu_initialized)
291			{
292			int retval;
293
294			if ((retval = UUInitialize ()) != UURET_OK)
295			croak ("unable to initialize uudeview library (%s)", UUstrerror (retval));
296
297			uu_initialized = 1;
298			}
299
300			void
301	root	1.8	UUCleanUp ()
302	root	1.1	CODE:
303			if (uu_initialized)
304			UUCleanUp ();
305
306			uu_initialized = 0;
307
308			SV *
309	root	1.8	UUGetOption (opt)
310	root	1.1	int opt
311			CODE:
312			{
313			if (opt == UUOPT_PROGRESS)
314			croak ("GetOption(UUOPT_PROGRESS) is not yet implemented");
315			else if (uu_opt_isstring (opt))
316			{
317			char cval[8192];
318
319			UUGetOption (opt, 0, cval, sizeof cval);
320			RETVAL = newSVpv (cval, 0);
321			}
322			else
323			{
324			RETVAL = newSViv (UUGetOption (opt, 0, 0, 0));
325			}
326			}
327			OUTPUT:
328			RETVAL
329
330			int
331	root	1.8	UUSetOption (opt, val)
332	root	1.1	int opt
333			SV * val
334			CODE:
335			{
336			STRLEN dc;
337
338			if (uu_opt_isstring (opt))
339			RETVAL = UUSetOption (opt, 0, SvPV (val, dc));
340			else
341			RETVAL = UUSetOption (opt, SvIV (val), (void *)0);
342			}
343			OUTPUT:
344			RETVAL
345
346			char *
347	root	1.8	UUstrerror (errcode)
348	root	1.1	int errcode
349
350			void
351	root	1.8	UUSetMsgCallback (func = 0)
352	root	1.1	SV * func
353			CODE:
354			UUSetMsgCallback (FUNC_CB(uu_msg));
355
356			void
357	root	1.8	UUSetBusyCallback (func = 0,msecs = 1000)
358	root	1.1	SV * func
359			long msecs
360			CODE:
361			UUSetBusyCallback (FUNC_CB(uu_busy), msecs);
362
363			void
364	root	1.8	UUSetFileCallback (func = 0)
365	root	1.1	SV * func
366			CODE:
367			UUSetFileCallback (FUNC_CB(uu_file));
368
369			void
370	root	1.8	UUSetFNameFilter (func = 0)
371	root	1.1	SV * func
372			CODE:
373			UUSetFNameFilter (FUNC_CB(uu_fnamefilter));
374
375	root	1.5	void
376	root	1.8	UUSetFileNameCallback (func = 0)
377	root	1.5	SV * func
378			CODE:
379			UUSetFileNameCallback (FUNC_CB(uu_filename));
380
381	root	1.1	char *
382	root	1.8	UUFNameFilter (fname)
383	root	1.1	char * fname
384
385			void
386	root	1.11	UULoadFile (fname, id = 0, delflag = 0, partno = -1)
387	root	1.1	char * fname
388			char * id
389			int delflag
390	root	1.11	int partno
391	root	1.1	PPCODE:
392			{
393			int count;
394
395	root	1.10	XPUSHs (sv_2mortal (newSViv (UULoadFileWithPartNo (fname, id, delflag, partno, &count))));
396	root	1.1	if (GIMME_V == G_ARRAY)
397	root	1.10	XPUSHs (sv_2mortal (newSViv (count)));
398	root	1.1	}
399
400			int
401	root	1.8	UUSmerge (pass)
402	root	1.1	int pass
403
404			int
405			UUQuickDecode(datain,dataout,boundary,maxpos)
406			FILE * datain
407			FILE * dataout
408			char * boundary
409			long maxpos
410
411			int
412			UUEncodeMulti(outfile,infile,infname,encoding,outfname,mimetype,filemode)
413			FILE * outfile
414			FILE * infile
415			char * infname
416			int encoding
417			char * outfname
418			char * mimetype
419			int filemode
420
421			int
422			UUEncodePartial(outfile,infile,infname,encoding,outfname,mimetype,filemode,partno,linperfile)
423			FILE * outfile
424			FILE * infile
425			char * infname
426			int encoding
427			char * outfname
428			char * mimetype
429			int filemode
430			int partno
431			long linperfile
432
433			int
434			UUEncodeToStream(outfile,infile,infname,encoding,outfname,filemode)
435			FILE * outfile
436			FILE * infile
437			char * infname
438			int encoding
439			char * outfname
440			int filemode
441
442			int
443			UUEncodeToFile(infile,infname,encoding,outfname,diskname,linperfile)
444			FILE * infile
445			char * infname
446			int encoding
447			char * outfname
448			char * diskname
449			long linperfile
450
451			int
452			UUE_PrepSingle(outfile,infile,infname,encoding,outfname,filemode,destination,from,subject,isemail)
453			FILE * outfile
454			FILE * infile
455			char * infname
456			int encoding
457			char * outfname
458			int filemode
459			char * destination
460			char * from
461			char * subject
462			int isemail
463
464			int
465			UUE_PrepPartial(outfile,infile,infname,encoding,outfname,filemode,partno,linperfile,filesize,destination,from,subject,isemail)
466			FILE * outfile
467			FILE * infile
468			char * infname
469			int encoding
470			char * outfname
471			int filemode
472			int partno
473			long linperfile
474			long filesize
475			char * destination
476			char * from
477			char * subject
478			int isemail
479
480			uulist *
481	root	1.8	UUGetFileListItem (num)
482	root	1.1	int num
483
484	root	1.8	MODULE = Convert::UUlib PACKAGE = Convert::UUlib::Item
485
486	root	1.1	int
487	root	1.8	rename (item, newname)
488	root	1.1	uulist *item
489			char * newname
490	root	1.8	CODE:
491			RETVAL = UURenameFile (item, newname);
492			OUTPUT:
493			RETVAL
494	root	1.1
495			int
496	root	1.8	decode_temp (item)
497	root	1.1	uulist *item
498	root	1.8	CODE:
499			RETVAL = UUDecodeToTemp (item);
500			OUTPUT:
501			RETVAL
502	root	1.1
503			int
504	root	1.8	remove_temp (item)
505	root	1.1	uulist *item
506	root	1.8	CODE:
507			RETVAL = UURemoveTemp (item);
508			OUTPUT:
509			RETVAL
510	root	1.1
511			int
512	root	1.8	decode (item, target = 0)
513	root	1.1	uulist *item
514			char * target
515	root	1.8	CODE:
516			RETVAL = UUDecodeFile (item, target);
517			OUTPUT:
518			RETVAL
519	root	1.1
520			void
521	root	1.8	info (item, func)
522	root	1.1	uulist *item
523			SV * func
524			CODE:
525	root	1.8	UUInfoFile (item,(void *)func, uu_info_file);
526	root	1.1
527			short
528			state(li)
529			uulist *li
530			CODE:
531			RETVAL = li->state;
532			OUTPUT:
533			RETVAL
534
535			short
536			mode(li,newmode=0)
537			uulist *li
538			short newmode
539			CODE:
540			if (newmode)
541			li->mode = newmode;
542			RETVAL = li->mode;
543			OUTPUT:
544			RETVAL
545
546			short
547			uudet(li)
548			uulist *li
549			CODE:
550			RETVAL = li->uudet;
551			OUTPUT:
552			RETVAL
553
554			long
555			size(li)
556			uulist *li
557			CODE:
558			RETVAL = li->size;
559			OUTPUT:
560			RETVAL
561
562			char *
563	root	1.8	filename (li, newfilename = 0)
564	root	1.1	uulist *li
565			char * newfilename
566			CODE:
567			if (newfilename)
568			{
569	root	1.4	_FP_free (li->filename);
570			li->filename = _FP_strdup (newfilename);
571	root	1.1	}
572			RETVAL = li->filename;
573			OUTPUT:
574			RETVAL
575
576			char *
577	root	1.8	subfname (li)
578	root	1.1	uulist *li
579			CODE:
580			RETVAL = li->subfname;
581			OUTPUT:
582			RETVAL
583
584			char *
585	root	1.8	mimeid (li)
586	root	1.1	uulist *li
587			CODE:
588			RETVAL = li->mimeid;
589			OUTPUT:
590			RETVAL
591
592			char *
593	root	1.8	mimetype (li)
594	root	1.1	uulist *li
595			CODE:
596			RETVAL = li->mimetype;
597			OUTPUT:
598			RETVAL
599
600			char *
601	root	1.8	binfile (li)
602	root	1.1	uulist *li
603			CODE:
604			RETVAL = li->binfile;
605			OUTPUT:
606			RETVAL
607
608	root	1.8	# methods accessing internal data(!)
609	root	1.1
610			void
611	root	1.8	parts (li)
612	root	1.1	uulist *li
613			PPCODE:
614			{
615			struct _uufile *p = li->thisfile;
616
617			while (p)
618			{
619			HV *pi = newHV ();
620
621			hv_store (pi, "partno" , 6, newSViv (p->partno) , 0);
622
623			if (p->filename)
624			hv_store (pi, "filename", 8, newSVpv (p->filename, 0) , 0);
625			if(p->subfname)
626			hv_store (pi, "subfname", 8, newSVpv (p->subfname, 0) , 0);
627			if(p->mimeid)
628			hv_store (pi, "mimeid" , 6, newSVpv (p->mimeid , 0) , 0);
629			if(p->mimetype)
630			hv_store (pi, "mimetype", 8, newSVpv (p->mimetype, 0) , 0);
631			if (p->data->subject)
632			hv_store (pi, "subject" , 7, newSVpv (p->data->subject,0), 0);
633			if (p->data->origin)
634			hv_store (pi, "origin" , 6, newSVpv (p->data->origin ,0), 0);
635			if (p->data->sfname)
636			hv_store (pi, "sfname" , 6, newSVpv (p->data->sfname ,0), 0);
637
638			XPUSHs (sv_2mortal (newRV_noinc ((SV *)pi)));
639
640			p = p->NEXT;
641			}
642			}
643
644			BOOT:
645	root	1.5	uu_msg_sv = newSVsv(&PL_sv_undef);
646			uu_busy_sv = newSVsv(&PL_sv_undef);
647			uu_file_sv = newSVsv(&PL_sv_undef);
648			uu_fnamefilter_sv = newSVsv(&PL_sv_undef);
649			uu_filename_sv = newSVsv(&PL_sv_undef);
650	root	1.1