00001 00002 /* 00003 * THIS FILE IS UNDER RCS - DO NOT MODIFY UNLESS YOU HAVE 00004 * CHECKED IT OUT USING THE COMMAND CHECKOUT. 00005 * 00006 * $Id: decode_8h-source.html 2161 2006-05-19 16:55:03Z paulf $ 00007 * 00008 * Revision history: 00009 * $Log$ 00009 * Revision 1.1 2006/05/19 16:55:01 paulf 00009 * first inclusion 00009 * 00010 * Revision 1.1 2000/02/14 20:05:54 lucky 00011 * Initial revision 00012 * 00013 * 00014 */ 00015 00016 #ifndef DECODE_H 00017 #define DECODE_H 00018 00019 #ifndef MAXBUF 00020 #define MAXBUF 20 00021 #endif 00022 00023 char dcbuf[MAXBUF]; 00024 00025 /* ASCII-to-number conversion (for Fortran-like formatted reading) */ 00026 /* char *s is beginning of field */ 00027 /* int j is field length */ 00028 /* f is conversion function */ 00029 #define DECODE(s, j, f) (dcbuf[j]='\0', f(strncpy(dcbuf, s, j))) 00030 #define HASDECPT index(dcbuf, '.') 00031 00032 #endif