home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / gbmsrc.zip / gbmxbm.c < prev    next >
C/C++ Source or Header  |  1996-12-15  |  14KB  |  584 lines
  1. /*
  2.  
  3. gbmxbm.c - X Windows Bitmap support
  4.  
  5. Reads and writes most X bitmaps
  6.  
  7. */
  8.  
  9. /*...sincludes:0:*/
  10. #include <stdio.h>
  11. #include <ctype.h>
  12. #include <stddef.h>
  13. #include <stdlib.h>
  14. #include <string.h>
  15. #include <memory.h>
  16. #include <malloc.h>
  17. #include "gbm.h"
  18. #include "gbmhelp.h"
  19.  
  20. /*...vgbm\46\h:0:*/
  21. /*...vgbmhelp\46\h:0:*/
  22. /*...e*/
  23.  
  24. static GBMFT xbm_gbmft =
  25.     {
  26.     "XBitmap",
  27.     "X Windows Bitmap",
  28.     "XBM",
  29.     GBM_FT_R1|
  30.     GBM_FT_W1,
  31.     };
  32.  
  33. #define    GBM_ERR_XBM_EXP_ID    ((GBM_ERR) 1300)
  34. #define    GBM_ERR_XBM_UNEXP_EOF    ((GBM_ERR) 1301)
  35. #define    GBM_ERR_XBM_EXP_CHAR    ((GBM_ERR) 1302)
  36. #define    GBM_ERR_XBM_EXP_LSQR    ((GBM_ERR) 1303)
  37. #define    GBM_ERR_XBM_EXP_RSQR    ((GBM_ERR) 1304)
  38. #define    GBM_ERR_XBM_EXP_EQUALS    ((GBM_ERR) 1305)
  39. #define    GBM_ERR_XBM_EXP_LCUR    ((GBM_ERR) 1306)
  40. #define    GBM_ERR_XBM_EXP_RCUR    ((GBM_ERR) 1307)
  41. #define    GBM_ERR_XBM_EXP_COMMA    ((GBM_ERR) 1308)
  42. #define    GBM_ERR_XBM_EXP_NUMBER    ((GBM_ERR) 1309)
  43. #define    GBM_ERR_XBM_EXP_SEMI    ((GBM_ERR) 1310)
  44.  
  45. #define    MAX_BUF    1024
  46. #define    MAX_ID    100
  47.  
  48. typedef struct
  49.     {
  50.     int fd;
  51.     int inx, cnt;
  52.     byte buf[MAX_BUF];
  53.     byte id[MAX_ID+1];
  54.     int number;
  55.     int size;
  56.     } XBM_PRIV;
  57.  
  58. /*...srev:0:*/
  59. static byte rev[0x100] =
  60.     {
  61.     0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
  62.     0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
  63.     0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
  64.     0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
  65.     0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
  66.     0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
  67.     0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
  68.     0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
  69.     0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
  70.     0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
  71.     0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
  72.     0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
  73.     0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
  74.     0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
  75.     0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
  76.     0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
  77.     0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
  78.     0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
  79.     0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
  80.     0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
  81.     0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
  82.     0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
  83.     0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
  84.     0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
  85.     0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
  86.     0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
  87.     0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
  88.     0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
  89.     0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
  90.     0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
  91.     0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
  92.     0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
  93.     };
  94. /*...e*/
  95. /*...sbuffered text read:0:*/
  96. static int nextbuf(XBM_PRIV *xbm_priv)
  97.     {
  98.     int cnt;
  99.     if ( (cnt = gbm_file_read(xbm_priv->fd, xbm_priv->buf, MAX_BUF)) <= 0 )
  100.         return -1;
  101.     xbm_priv->cnt = cnt;
  102.     xbm_priv->inx = 1;
  103.     return xbm_priv->buf[0];
  104.     }
  105.  
  106. #define    nextchar(x) ( ((x)->inx<(x)->cnt) ? \
  107.     (int) (unsigned int) ((x)->buf[((x)->inx)++]) : nextbuf(x) )
  108.  
  109. static void pushchar(XBM_PRIV *xbm_priv, int c)
  110.     {
  111.     if ( c != -1 )
  112.         xbm_priv->buf[--(xbm_priv->inx)] = (byte) c;
  113.     }
  114.  
  115. typedef byte SYM;
  116. #define    S_DEFINE    ((SYM)  1)
  117. #define    S_ID        ((SYM)  2)
  118. #define    S_NUMBER    ((SYM)  3)
  119. #define    S_STATIC    ((SYM)  4)
  120. #define    S_CHAR        ((SYM)  5)
  121. #define    S_SHORT        ((SYM)  6)
  122. #define    S_LSQR        ((SYM)  7)
  123. #define    S_RSQR        ((SYM)  8)
  124. #define    S_LCUR        ((SYM)  9)
  125. #define    S_RCUR        ((SYM) 10)
  126. #define    S_COMMA        ((SYM) 11)
  127. #define    S_SEMI        ((SYM) 12)
  128. #define    S_EQUALS    ((SYM) 13)
  129. #define    S_EOF        ((SYM) 14)
  130. #define    S_ERROR_ID    ((SYM) 15)
  131. #define    S_ERROR_MINUS    ((SYM) 16)
  132. #define    S_ERROR_PLUS    ((SYM) 17)
  133. #define    S_ERROR_NUMBER    ((SYM) 18)
  134. #define    S_UNSIGNED    ((SYM) 19)
  135. #define    S_SIGNED    ((SYM) 20)
  136.  
  137. /*...svalof:0:*/
  138. static int valof(char c)
  139.     {
  140.     if ( c >= 'a' && c <= 'f' )
  141.         return c - 'a' + 10;
  142.     if ( c >= 'A' && c <= 'F' )
  143.         return c - 'A' + 10;
  144.     return c - '0';
  145.     }
  146. /*...e*/
  147. /*...sskipit:0:*/
  148. /* Skip whitespace and comments,
  149.    returning -1 or the first interesting character. */
  150.  
  151. static int skipit(XBM_PRIV *xbm_priv)
  152.     {
  153.     int c;
  154.     for ( ;; )
  155.         {
  156.         while ( (c = nextchar(xbm_priv)) != -1 && isspace(c) )
  157.             ;
  158.         if ( c == -1 )
  159.             return -1;
  160.  
  161.         if ( c != '/' )
  162.             break;
  163.  
  164.         if ( (c = nextchar(xbm_priv)) != '*' )
  165.             return -1;
  166.  
  167.         if ( (c = nextchar(xbm_priv)) == -1 )
  168.             return -1;
  169.  
  170.         do
  171.             while ( c != '*' )
  172.                 if ( (c = nextchar(xbm_priv)) == -1 )
  173.                     return S_EOF;
  174.         while ( (c = nextchar(xbm_priv)) != -1 && c != '/' );
  175.         if ( c == -1 )
  176.             return -1;
  177.         }
  178.     return c;
  179.     }
  180. /*...e*/
  181.  
  182. static SYM nextsym(XBM_PRIV *xbm_priv)
  183.     {
  184.     int c, i, sign = 1;
  185.  
  186.     if ( (c = skipit(xbm_priv)) == -1 )
  187.         return S_EOF;
  188.  
  189.     switch ( c )
  190.         {
  191.         case '[':    return S_LSQR  ;
  192.         case ']':    return S_RSQR  ;
  193.         case '{':    return S_LCUR  ;
  194.         case '}':    return S_RCUR  ;
  195.         case ',':    return S_COMMA ;
  196.         case ';':    return S_SEMI  ;
  197.         case '=':    return S_EQUALS;
  198.         }
  199.  
  200.     if ( isdigit(c) || c == '-' || c == '+' )
  201.         {
  202.         if ( c == '-' )
  203.             {
  204.             sign = -1;
  205.             if ( (c = nextchar(xbm_priv)) == -1 )
  206.                 return S_ERROR_MINUS;
  207.             if ( !isdigit(c) )
  208.                 return S_ERROR_NUMBER;
  209.             }
  210.         else if ( c == '+' )
  211.             {
  212.             if ( (c = nextchar(xbm_priv)) == -1 )
  213.                 return S_ERROR_PLUS;
  214.             if ( !isdigit(c) )
  215.                 return S_ERROR_NUMBER;
  216.             }
  217.         if ( c == '0' )
  218.             {
  219.             xbm_priv->number = 0;
  220.             if ( (c = nextchar(xbm_priv)) == 'x' || c == 'X' )
  221.                 /* Hex number */
  222.                 {
  223.                 while ( (c = nextchar(xbm_priv)) != -1 && isxdigit(c) )
  224.                     {
  225.                     xbm_priv->number <<= 4;
  226.                     xbm_priv->number += valof((char) c);
  227.                     }
  228.                 }
  229.             else
  230.                 /* Octal number */
  231.                 while ( c != -1 && c >= '0' && c <= '7' )
  232.                     {
  233.                     xbm_priv->number <<= 3;
  234.                     xbm_priv->number += ( c - '0' );
  235.                     c = nextchar(xbm_priv);
  236.                     }
  237.             }
  238.         else
  239.             {
  240.             xbm_priv->number = ( c - '0' );
  241.             while ( (c = nextchar(xbm_priv)) != -1 && isdigit(c) )
  242.                 {
  243.                 xbm_priv->number *= 10;
  244.                 xbm_priv->number += ( c - '0' );
  245.                 }
  246.             }
  247.  
  248.         xbm_priv->number *= sign;
  249.  
  250.         pushchar(xbm_priv, c);
  251.         return S_NUMBER;
  252.         }
  253.  
  254.     i = 0;
  255.     do
  256.         xbm_priv->id[i++] = c;
  257.     while ( (c = nextchar(xbm_priv)) != -1 && (isalnum(c) || c == '_') && i < MAX_ID );
  258.     xbm_priv->id[i] = '\0';
  259.  
  260.     pushchar(xbm_priv, c);
  261.  
  262.     if ( !strcmp(xbm_priv->id, "#define" ) ) return S_DEFINE  ;
  263.     if ( !strcmp(xbm_priv->id, "static"  ) ) return S_STATIC  ;
  264.     if ( !strcmp(xbm_priv->id, "char"    ) ) return S_CHAR    ;
  265.     if ( !strcmp(xbm_priv->id, "short"   ) ) return S_SHORT   ;
  266.     if ( !strcmp(xbm_priv->id, "unsigned") ) return S_UNSIGNED;
  267.     if ( !strcmp(xbm_priv->id, "signed"  ) ) return S_SIGNED  ;
  268.  
  269.     if ( !isalnum(xbm_priv->id[0]) )
  270.         return S_ERROR_ID;
  271.  
  272.     return S_ID;
  273.     }
  274.  
  275. static SYM nextid(XBM_PRIV *xbm_priv)
  276.     {
  277.     int c, i;
  278.  
  279.     if ( (c = skipit(xbm_priv)) == -1 )
  280.         return S_EOF;
  281.  
  282.     i = 0;
  283.     do
  284.         xbm_priv->id[i++] = c;
  285.     while ( (c = nextchar(xbm_priv)) != -1 && !isspace(c) && c != '[' && i < MAX_ID );
  286.  
  287.     xbm_priv->id[i] = '\0';
  288.  
  289.     pushchar(xbm_priv, c);
  290.  
  291.     return S_ID;
  292.     }
  293. /*...e*/
  294.  
  295. /*...sxbm_qft:0:*/
  296. GBM_ERR xbm_qft(GBMFT *gbmft)
  297.     {
  298.     *gbmft = xbm_gbmft;
  299.     return GBM_ERR_OK;
  300.     }
  301. /*...e*/
  302. /*...sxbm_rhdr:0:*/
  303. GBM_ERR xbm_rhdr(char *fn, int fd, GBM *gbm, char *opt)
  304.     {
  305.     XBM_PRIV *xbm_priv = (XBM_PRIV *) gbm->priv;
  306.     SYM sym;
  307.  
  308.     fn=fn; opt=opt; /* Suppress 'unref arg' compiler warnings */
  309.  
  310.     xbm_priv->fd  = fd;
  311.     xbm_priv->inx = 0;
  312.     xbm_priv->cnt = 0;
  313.  
  314.     gbm->w   = -1;
  315.     gbm->h   = -1;
  316.     gbm->bpp = 1;
  317.  
  318.     while ( (sym = nextsym(xbm_priv)) == S_DEFINE )
  319.         {
  320.         char *p;
  321.  
  322.         if ( (sym = nextid(xbm_priv)) != S_ID )
  323.             return GBM_ERR_XBM_EXP_ID;
  324.         if ( (p = strrchr(xbm_priv->id, '_')) != NULL )
  325.             p++;
  326.         else
  327.             p = (char *) (xbm_priv->id);
  328.  
  329.         if ( !strcmp(p, "width") )
  330.             {
  331.             if ( (sym = nextsym(xbm_priv)) != S_NUMBER )
  332.                 return GBM_ERR_XBM_EXP_NUMBER;
  333.             gbm->w = xbm_priv->number;
  334.             }
  335.         else if ( !strcmp(p, "height") )
  336.             {
  337.             if ( (sym = nextsym(xbm_priv)) != S_NUMBER )
  338.                 return GBM_ERR_XBM_EXP_NUMBER;
  339.             gbm->h = xbm_priv->number;
  340.             }
  341.         else
  342.             {
  343.             if ( (sym = nextsym(xbm_priv)) != S_NUMBER )
  344.                 return GBM_ERR_XBM_EXP_NUMBER;
  345.             }
  346.  
  347.         }
  348.  
  349.     if ( gbm->w == -1 || gbm->h == -1 )
  350.         return GBM_ERR_BAD_SIZE;
  351.  
  352.     if ( sym == S_STATIC )
  353.         sym = nextsym(xbm_priv);
  354.  
  355.     if ( sym == S_EOF )
  356.         return GBM_ERR_XBM_UNEXP_EOF;
  357.  
  358.     if ( sym == S_UNSIGNED )
  359.         sym = nextsym(xbm_priv);
  360.  
  361.     if ( sym == S_SIGNED )
  362.         sym = nextsym(xbm_priv);
  363.  
  364.     if ( sym == S_EOF )
  365.         return GBM_ERR_XBM_UNEXP_EOF;
  366.  
  367.     switch ( sym )
  368.         {
  369.         case S_CHAR:
  370.             xbm_priv->size = 8;
  371.             break;
  372.         case S_SHORT:
  373.             xbm_priv->size = 16;
  374.             break;
  375.         default:
  376.             return GBM_ERR_XBM_EXP_CHAR;
  377.         }
  378.  
  379.     if ( nextid(xbm_priv) != S_ID )
  380.         return GBM_ERR_XBM_EXP_ID;
  381.  
  382.     if ( nextsym(xbm_priv) != S_LSQR )
  383.         return GBM_ERR_XBM_EXP_LSQR;
  384.  
  385.     if ( nextsym(xbm_priv) != S_RSQR )
  386.         return GBM_ERR_XBM_EXP_RSQR;
  387.  
  388.     if ( nextsym(xbm_priv) != S_EQUALS )
  389.         return GBM_ERR_XBM_EXP_EQUALS;
  390.  
  391.     if ( nextsym(xbm_priv) != S_LCUR )
  392.         return GBM_ERR_XBM_EXP_LCUR;
  393.  
  394.     return GBM_ERR_OK;
  395.     }
  396. /*...e*/
  397. /*...sxbm_rpal:0:*/
  398. GBM_ERR xbm_rpal(int fd, GBM *gbm, GBMRGB *gbmrgb)
  399.     {
  400.     fd=fd; gbm=gbm; /* Suppress 'unref arg' compiler warnings */
  401.  
  402.     gbmrgb[0].r = 0xff;
  403.     gbmrgb[0].g = 0xff;
  404.     gbmrgb[0].b = 0xff; /* White background */
  405.     gbmrgb[1].r = 0x00;
  406.     gbmrgb[1].g = 0x00;
  407.     gbmrgb[1].b = 0x00; /* Black background */
  408.     return GBM_ERR_OK;
  409.     }
  410. /*...e*/
  411. /*...sxbm_rdata:0:*/
  412. GBM_ERR xbm_rdata(int fd, GBM *gbm, byte *data)
  413.     {
  414.     XBM_PRIV *xbm_priv = (XBM_PRIV *) gbm->priv;
  415.     int stride = ( ( gbm->w * gbm->bpp + 31 ) / 32 ) * 4;
  416.     int x, y;
  417.     SYM sym;
  418.     BOOLEAN keep_going = TRUE;
  419.  
  420.     fd=fd; /* Suppres 'unref arg' compiler warning */
  421.  
  422.     memset(data, 0, gbm->h * stride);
  423.     data += ( (gbm->h - 1) * stride );
  424.  
  425.     switch ( xbm_priv->size )
  426.         {
  427. /*...s8:16:*/
  428. case 8:
  429.     for ( y = gbm->h - 1; keep_going && y >= 0; y--, data -= stride )
  430.         for ( x = 0; keep_going && x < (int) ((unsigned)(gbm->w + 7) >> 3); x++ )
  431.             if ( (sym = nextsym(xbm_priv)) == S_RCUR )
  432.                 keep_going = FALSE;
  433.             else if ( sym != S_NUMBER )
  434.                 return GBM_ERR_XBM_EXP_NUMBER;
  435.             else
  436.                 {
  437.                 data[x] = rev[xbm_priv->number];
  438.  
  439.                 sym = nextsym(xbm_priv);
  440.                 if ( sym == S_RCUR )
  441.                     keep_going = FALSE;
  442.                 else if ( sym != S_COMMA )
  443.                     return GBM_ERR_XBM_EXP_COMMA;
  444.                 }
  445.     break;
  446. /*...e*/
  447. /*...s16:16:*/
  448. case 16:
  449.     for ( y = gbm->h - 1; keep_going && y >= 0; y--, data -= stride )
  450.         for ( x = 0; keep_going && x < (int) ((unsigned)(gbm->w + 15) >> 4); x++ )
  451.             if ( (sym = nextsym(xbm_priv)) == S_RCUR )
  452.                 keep_going = FALSE;
  453.             else if ( sym != S_NUMBER )
  454.                 return GBM_ERR_XBM_EXP_NUMBER;
  455.             else
  456.                 {
  457.                 data[x * 2    ] = rev[          xbm_priv->number & 0xffU];
  458.                 data[x * 2 + 1] = rev[(unsigned)xbm_priv->number >> 8   ];
  459.  
  460.                 sym = nextsym(xbm_priv);
  461.                 if ( sym == S_RCUR )
  462.                     keep_going = FALSE;
  463.                 else if ( sym != S_COMMA )
  464.                     return GBM_ERR_XBM_EXP_COMMA;
  465.                 }
  466.     break;
  467. /*...e*/
  468.         }
  469.  
  470.     if ( keep_going )
  471.         if ( nextsym(xbm_priv) != S_RCUR )
  472.             return GBM_ERR_XBM_EXP_RCUR;
  473.  
  474.     if ( nextsym(xbm_priv) != S_SEMI )
  475.         return GBM_ERR_XBM_EXP_SEMI;
  476.  
  477.     return GBM_ERR_OK;
  478.     }
  479. /*...e*/
  480. /*...sxbm_w:0:*/
  481. /*
  482. Write darkest colour as 1s, lightest colour with 0s.
  483. */
  484.  
  485. GBM_ERR xbm_w(char *fn, int fd, const GBM *gbm, const GBMRGB *gbmrgb, const byte *data, char *opt)
  486.     {
  487.     int stride = ((gbm->w * gbm->bpp + 31) / 32) * 4;
  488.     int x, y, col = 0;
  489.     char s[100+1], name[100+1], *dot, *p;
  490.     int k0, k1, xor;
  491.  
  492.     opt=opt; /* Suppress 'unref arg' compiler warning */
  493.  
  494.     /* Normally palette entry 0 brightest is usual */
  495.     /* If not reverse all the bits */
  496.  
  497.     k0 = gbmrgb[0].r * 77 + gbmrgb[0].g * 150 + gbmrgb[0].b * 29;
  498.     k1 = gbmrgb[1].r * 77 + gbmrgb[1].g * 150 + gbmrgb[1].b * 29;
  499.  
  500.     xor = ( k0 > k1 ) ? 0 : 0xff;
  501.  
  502.     /* Make the name from the filename, without the extension */
  503.  
  504.     strncpy(name, fn, 100);
  505.     if ( (dot = strrchr(name, '.')) != NULL )
  506.         *dot = '\0';
  507.  
  508.     /* Nobble any potentially nasty characters */
  509.  
  510.     if ( !isalpha(*name) )
  511.         *name = '_';
  512.     for ( p = name + 1; *p; p++ )
  513.         if ( !isalnum(*p) )
  514.             *p = '_';
  515.  
  516.     sprintf(s, "#define %s_width %d\r\n" , name, gbm->w);
  517.     if ( (size_t) gbm_file_write(fd, s, strlen(s)) != strlen(s) )
  518.         return GBM_ERR_WRITE;
  519.     sprintf(s, "#define %s_height %d\r\n", name, gbm->h);
  520.     if ( (size_t) gbm_file_write(fd, s, strlen(s)) != strlen(s) )
  521.         return GBM_ERR_WRITE;
  522.     sprintf(s, "static char %s_bits[] = {\r\n", name);
  523.     if ( (size_t) gbm_file_write(fd, s, strlen(s)) != strlen(s) )
  524.         return GBM_ERR_WRITE;
  525.  
  526.     data += (gbm->h - 1) * stride;
  527.     for ( y = gbm->h - 1; y >= 0; y--, data -= stride )
  528.         for ( x = 0; x < (int) ((unsigned)(gbm->w + 7) >> 3); x++ )
  529.             {
  530.             sprintf(s, "0x%02x,", rev[data[x]] ^ xor);
  531.             col += 5;
  532.             if ( col > 70 )
  533.                 {
  534.                 strcat(s, "\r\n");
  535.                 col = 0;
  536.                 }
  537.             if ( (size_t) gbm_file_write(fd, s, strlen(s)) != strlen(s) )
  538.                 return GBM_ERR_WRITE;
  539.             }
  540.  
  541.     if ( col )
  542.         {
  543.         if ( gbm_file_write(fd, "\r\n", 2) != 2 )
  544.             return GBM_ERR_WRITE;
  545.         }        
  546.  
  547.     if ( gbm_file_write(fd, "};\r\n", 4) != 4 )
  548.         return GBM_ERR_WRITE;
  549.  
  550.     return GBM_ERR_OK;
  551.     }
  552. /*...e*/
  553. /*...sxbm_err:0:*/
  554. const char *xbm_err(GBM_ERR rc)
  555.     {
  556.     switch ( (int) rc )
  557.         {
  558.         case GBM_ERR_XBM_EXP_ID:
  559.             return "expected identifier";
  560.         case GBM_ERR_XBM_UNEXP_EOF:
  561.             return "unexpected end of file";
  562.         case GBM_ERR_XBM_EXP_CHAR:
  563.             return "expected char or short";
  564.         case GBM_ERR_XBM_EXP_LSQR:
  565.             return "expected[";
  566.         case GBM_ERR_XBM_EXP_RSQR:
  567.             return "expected ]";
  568.         case GBM_ERR_XBM_EXP_EQUALS:
  569.             return "expected =";
  570.         case GBM_ERR_XBM_EXP_LCUR:
  571.             return "expected {";
  572.         case GBM_ERR_XBM_EXP_RCUR:
  573.             return "expected }";
  574.         case GBM_ERR_XBM_EXP_COMMA:
  575.             return "expected ,";
  576.         case GBM_ERR_XBM_EXP_NUMBER:
  577.             return "expected number";
  578.         case GBM_ERR_XBM_EXP_SEMI:
  579.             return "expected ;";
  580.         }
  581.     return NULL;
  582.     }
  583. /*...e*/
  584.