#include <stdlib.h>
#include <strings.h>

#include "plot.h"
#include "dir-font.h"

DIRRV dir_font(void **privp __attribute__((__unused__)), DIROP op, ...)
{
 va_list ap;
 char *fpn;

 va_start(ap,op);
 switch (op)
  { default:
       abort();
       break;
    case DIROP_INIT:
       return(DIRRV_MORE);
       break;
    case DIROP_ARG:
       fpn = va_arg(ap,char *);
       if (!strcmp(fpn,"-")) fpn = 0;
       plot_set_font(fpn);
       return(DIRRV_NOMORE);
       break;
  }
 va_end(ap);
 abort();
}