afprintf(stdout, "This word is ~&110RED~&R!\n");

/* ansi.h */
#ifndef __ANSI_H__
#define __ANSI_H__

#include <stdio.h>
#include <stdarg.h>

/**
 *      Simple ANSI sequences in C.
 *      example:  aprintf("This word is ~&110RED~&R!\n");
 *
 *      Commands:
 *      ~&R     Reset to defaults
 *      ~&C     Clear screen
 *      ~&111   Sets colors with attr,fg,bg.
 *              attr 0 is normal, attr 1 is bold, others are terminal-dependent.
 *              Colors are
 *              1=red 2=green 4=blue 3=yellow 5=mauve 6=cyan 7=grey/white
 */

int vafprintf(FILE *fp, const char *cmdstr, va_list ap);
int vasprintf(char *buf, const char *cmdstr, va_list ap);
int asprintf(char *buf, const char *cmdstr, ...);
int afprintf(FILE *fp, const char *cmdstr, ...);
int aprintf(const char *cmdstr, ...);
int aprintf(const char *cmdstr, ...);

#endif/*__ANSI_H__*/

/* ansi.c */

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

#include "ansi.h"

#define ESC     "\x1b["

#if 0
int main(void){ afprintf(stdout, "This word is ~&110RED~&R!\n"); }
#endif

// Convert ~&R into \x1b[0m, etc
static void translate_ansi(char *lcmdstr, const char *cmdstr)
{
        int opos=0;

        while(*cmdstr)
        {
                const char *esc=NULL;
                int a,f,b;

                if(cmdstr[0] == '~')
                if(cmdstr[1] == '&')
                {
                        switch(toupper(cmdstr[2]))
                        {
                        // Can add other single-char sequences here
                        case 'R':       esc=ESC"0m";    break;
                        case 'C':       esc=ESC"2J";    break;
                        default:                        break;
                        }

                        if(esc)
                        {
                                opos+=sprintf(lcmdstr+opos, "%s", esc);
                                cmdstr+=3;
                                continue;
                        }

                        if(sscanf(cmdstr, "~&%01d%01d%01d", &a, &f, &b) == 3)
                        {
                                opos+=sprintf(lcmdstr+opos,
                                        ESC "%d;3%d;4%dm",
                                        a, f%8, b%8);
                                cmdstr += 5;
                                continue;
                        }
                }

                lcmdstr[opos++]=*(cmdstr++);
        }

        lcmdstr[opos]='\0';
}

int vafprintf(FILE *fp, const char *cmdstr, va_list ap)
{
        char lcmdstr[4096];
        translate_ansi(lcmdstr, cmdstr);
        return(vfprintf(fp, lcmdstr, ap));
}


int vasprintf(char *buf, const char *cmdstr, va_list ap)
{
        char lcmdstr[16384];
        translate_ansi(lcmdstr, cmdstr);
        return(vsprintf(buf, lcmdstr, ap));
}

int asprintf(char *buf, const char *cmdstr, ...)
{
        int ret;
        va_list ap;
        va_start(ap, cmdstr);
                ret=vasprintf(buf, cmdstr, ap);
        va_end(ap);

        return(ret);
}

int afprintf(FILE *fp, const char *cmdstr, ...)
{
        char buf[16384];
        int ret;
        va_list ap;

        va_start(ap, cmdstr);
                ret=vafprintf(fp, cmdstr, ap);
        va_end(ap);

        return(ret);
}

int aprintf(const char *cmdstr, ...)
{
        int ret;
        va_list ap;

        va_start(ap, cmdstr);
                ret=vafprintf(stdout, cmdstr, ap);
        va_end(ap);

        return(ret);
}