[BACK]Return to profile.c CVS log [TXT] [DIR] Up to [RetroPC.NET] / np2 / common

Diff for /np2/common/profile.c between versions 1.1.1.1 and 1.8

version 1.1.1.1, 2003/10/16 17:57:10 version 1.8, 2004/04/09 10:52:20
Line 1 Line 1
 #include        "compiler.h"  #include        "compiler.h"
   #include        "strres.h"
 #include        "dosio.h"  #include        "dosio.h"
 #include        "textfile.h"  #include        "textfile.h"
 #include        "profile.h"  #include        "profile.h"
Line 103  gden_err0: Line 104  gden_err0:
         return(r);          return(r);
 }  }
   
   
   // ----
   
   const char *profile_getarg(const char *str, char *buf, UINT leng) {
   
           UINT8   c;
   
           if (leng) {
                   leng--;
           }
           else {
                   buf = NULL;
           }
           if (str) {
                   c = (UINT8)*str;
                   while(((c - 1) & 0xff) < 0x20) {
                           str++;
                           c = (UINT8)*str;
                   }
                   if (c == 0) {
                           str = NULL;
                   }
           }
           if (str) {
                   c = (UINT8)*str;
                   while(c > 0x20) {
                           if (leng) {
                                   *buf++ = c;
                                   leng--;
                           }
                           str++;
                           c = (UINT8)*str;
                   }
           }
           if (buf) {
                   buf[0] = '\0';
           }
           return(str);
   }
   
   
   
   // ---- まだテスト
   
   typedef struct {
           UINT    applen;
           UINT    keylen;
           UINT    pos;
           UINT    size;
           UINT    apphit;
   const char      *data;
           UINT    datasize;
   } PFPOS;
   
   static char *delspace(const char *buf, UINT *len) {
   
           UINT    l;
   
           if ((buf != NULL) && (len != NULL)) {
                   l = *len;
                   while((l) && (buf[0] == ' ')) {
                           l--;
                           buf++;
                   }
                   while((l) && (buf[l - 1] == ' ')) {
                           l--;
                   }
                   *len = l;
           }
           return((char *)buf);
   }
   
   static BOOL seakey(PFILEH hdl, PFPOS *pfp, const char *app, const char *key) {
   
           PFPOS   ret;
           UINT    pos;
           UINT    size;
           char    *buf;
           UINT    len;
           UINT    cnt;
   
           if ((hdl == NULL) || (app == NULL) || (key == NULL)) {
                   return(FAILURE);
           }
           ZeroMemory(&ret, sizeof(ret));
           ret.applen = strlen(app);
           ret.keylen = strlen(key);
           if ((ret.applen == 0) || (ret.keylen == 0)) {
                   return(FAILURE);
           }
   
           pos = 0;
           size = hdl->size;
           while(size) {
                   buf = hdl->buffer + pos;
                   len = 0;
                   cnt = 0;
                   do {
                           if (buf[len] == '\r') {
                                   if (((len + 1) < size) && (buf[len + 1] == '\n')) {
                                           cnt = 2;
                                   }
                                   else {
                                           cnt = 1;
                                   }
                                   break;
                           }
                           if (buf[len] == '\n') {
                                   cnt = 1;
                                   break;
                           }
                           len++;
                   } while(len < size);
                   cnt += len;
                   buf = delspace(buf, &len);
                   if ((len >= 2) && (buf[0] == '[') && (buf[len - 1] == ']')) {
                           if (ret.apphit) {
                                   break;
                           }
                           buf++;
                           len -= 2;
                           buf = delspace(buf, &len);
                           if ((len == ret.applen) && (!milstr_memcmp(buf, app))) {
                                   ret.apphit = 1;
                           }
                   }
                   else if ((ret.apphit) && (len > ret.keylen) &&
                                   (!milstr_memcmp(buf, key))) {
                           buf += ret.keylen;
                           len -= ret.keylen;
                           buf = delspace(buf, &len);
                           if ((len) && (buf[0] == '=')) {
                                   buf++;
                                   len--;
                                   buf = delspace(buf, &len);
                                   ret.pos = pos;
                                   ret.size = cnt;
                                   ret.data = buf;
                                   ret.datasize = len;
                                   break;
                           }
                   }
                   if (len) {
                           ret.pos = pos + cnt;
                           ret.size = 0;
                   }
                   pos += cnt;
                   size -= cnt;
           }
           if (pfp) {
                   *pfp = ret;
           }
           return(SUCCESS);
   }
   
   static BOOL replace(PFILEH hdl, UINT pos, UINT size1, UINT size2) {
   
           UINT    cnt;
           UINT    size;
           char    *p;
           char    *q;
   
           size1 += pos;
           size2 += pos;
           if (size1 > hdl->size) {
                   return(FAILURE);
           }
           cnt = hdl->size - size1;
           if (size1 < size2) {
                   size = size2 - size1;
                   if ((hdl->size + size) > hdl->buffers) {
                           return(FAILURE);
                   }
                   hdl->size += size;
                   if (cnt) {
                           p = hdl->buffer + size1;
                           q = hdl->buffer + size2;
                           do {
                                   --cnt;
                                   q[cnt] = p[cnt];
                           } while(cnt);
                   }
           }
           else if (size1 > size2) {
                   hdl->size -= (size1 - size2);
                   if (cnt) {
                           p = hdl->buffer + size1;
                           q = hdl->buffer + size2;
                           do {
                                   *q++ = *p++;
                           } while(--cnt);
                   }
           }
           hdl->flag |= PFILEH_MODIFY;
           return(SUCCESS);
   }
   
   PFILEH profile_open(const char *filename, UINT flag) {
   
           FILEH   fh;
           UINT    filesize;
           UINT    size;
           PFILEH  ret;
   
           if (filename == NULL) {
                   goto pfore_err1;
           }
           fh = file_open(filename);
           filesize = 0;
           if (fh != FILEH_INVALID) {
                   filesize = file_getsize(fh);
           }
           else if (flag & PFILEH_READONLY) {
                   goto pfore_err1;
           }
           else {
                   fh = file_create(filename);
                   if (fh == FILEH_INVALID) {
                           goto pfore_err1;
                   }
           }
           size = filesize + 0x2000;
           ret = (PFILEH)_MALLOC(sizeof(_PFILEH) + size, filename);
           if (ret == NULL) {
                   goto pfore_err2;
           }
           if (filesize) {
                   if (file_read(fh, ret + 1, filesize) != filesize) {
                           goto pfore_err3;
                   }
           }
           file_close(fh);
           ret->buffer = (BYTE *)(ret + 1);
           ret->buffers = size;
           ret->size = filesize;
           ret->flag = flag;
           file_cpyname(ret->path, filename, sizeof(ret->path));
           return(ret);
   
   pfore_err3:
           _MFREE(ret);
   
   pfore_err2:
           file_close(fh);
   
   pfore_err1:
           return(NULL);
   }
   
   void profile_close(PFILEH hdl) {
   
           FILEH   fh;
   
           if (hdl) {
                   if (hdl->flag & PFILEH_MODIFY) {
                           fh = file_create(hdl->path);
                           if (fh != FILEH_INVALID) {
                                   file_write(fh, hdl->buffer, hdl->size);
                                   file_close(fh);
                           }
                   }
                   _MFREE(hdl);
           }
   }
   
   BOOL profile_read(const char *app, const char *key, const char *def,
                                                                                   char *ret, UINT size, PFILEH hdl) {
   
           PFPOS   pfp;
   
           if ((seakey(hdl, &pfp, app, key) != SUCCESS) || (pfp.data == NULL)) {
                   if (def == NULL) {
                           def = str_null;
                   }
                   milstr_ncpy(ret, def, size);
                   return(FAILURE);
           }
           else {
                   size = min(size, pfp.datasize + 1);
                   milstr_ncpy(ret, pfp.data, size);
                   return(SUCCESS);
           }
   }
   
   BOOL profile_write(const char *app, const char *key,
                                                                                           const char *data, PFILEH hdl) {
   
           PFPOS   pfp;
           UINT    newsize;
           UINT    datalen;
           char    *buf;
   
           if ((hdl == NULL) || (hdl->flag & PFILEH_READONLY) ||
                   (data == NULL) || (seakey(hdl, &pfp, app, key) != SUCCESS)) {
                   return(FAILURE);
           }
           if (!pfp.apphit) {
                   newsize = pfp.applen + 2;
   #if defined(OSLINEBREAK_CR) || defined(OSLINEBREAK_CRLF)
                   newsize++;
   #endif
   #if defined(OSLINEBREAK_LF) || defined(OSLINEBREAK_CRLF)
                   newsize++;
   #endif
                   if (replace(hdl, pfp.pos, 0, newsize) != SUCCESS) {
                           return(FAILURE);
                   }
                   buf = hdl->buffer + pfp.pos;
                   *buf++ = '[';
                   CopyMemory(buf, app, pfp.applen);
                   buf += pfp.applen;
                   *buf++ = ']';
   #if defined(OSLINEBREAK_CR) || defined(OSLINEBREAK_CRLF)
                   *buf++ = '\r';
   #endif
   #if defined(OSLINEBREAK_LF) || defined(OSLINEBREAK_CRLF)
                   *buf++ = '\n';
   #endif
                   pfp.pos += newsize;
           }
           datalen = strlen(data);
           newsize = pfp.keylen + 1 + datalen;
   #if defined(OSLINEBREAK_CR) || defined(OSLINEBREAK_CRLF)
           newsize++;
   #endif
   #if defined(OSLINEBREAK_LF) || defined(OSLINEBREAK_CRLF)
           newsize++;
   #endif
           if (replace(hdl, pfp.pos, pfp.size, newsize) != SUCCESS) {
                   return(FAILURE);
           }
           buf = hdl->buffer + pfp.pos;
           CopyMemory(buf, key, pfp.keylen);
           buf += pfp.keylen;
           *buf++ = '=';
           CopyMemory(buf, data, datalen);
           buf += datalen;
   #if defined(OSLINEBREAK_CR) || defined(OSLINEBREAK_CRLF)
           *buf++ = '\r';
   #endif
   #if defined(OSLINEBREAK_LF) || defined(OSLINEBREAK_CRLF)
           *buf++ = '\n';
   #endif
           return(SUCCESS);
   }
   
   
   // ----
   
   static void bitmapset(BYTE *ptr, UINT pos, BOOL set) {
   
           UINT8   bit;
   
           ptr += (pos >> 3);
           bit = 1 << (pos & 7);
           if (set) {
                   *ptr |= bit;
           }
           else {
                   *ptr &= ~bit;
           }
   }
   
   static BOOL bitmapget(const BYTE *ptr, UINT pos) {
   
           return((ptr[pos >> 3] >> (pos & 7)) & 1);
   }
   
   static void binset(BYTE *bin, UINT binlen, const char *src) {
   
           UINT    i;
           BYTE    val;
           BOOL    set;
           char    c;
   
           for (i=0; i<binlen; i++) {
                   val = 0;
                   set = FALSE;
                   while(*src == ' ') {
                           src++;
                   }
                   while(1) {
                           c = *src;
                           if ((c == '\0') || (c == ' ')) {
                                   break;
                           }
                           else if ((c >= '0') && (c <= '9')) {
                                   val <<= 4;
                                   val += c - '0';
                                   set = TRUE;
                           }
                           else {
                                   c |= 0x20;
                                   if ((c >= 'a') && (c <= 'f')) {
                                           val <<= 4;
                                           val += c - 'a' + 10;
                                           set = TRUE;
                                   }
                           }
                           src++;
                   }
                   if (set == FALSE) {
                           break;
                   }
                   bin[i] = val;
           }
   }
   
   static void binget(char *work, int size, const BYTE *bin, UINT binlen) {
   
           UINT    i;
           char    tmp[8];
   
           if (binlen) {
                   SPRINTF(tmp, "%.2x", bin[0]);
                   milstr_ncpy(work, tmp, size);
           }
           for (i=1; i<binlen; i++) {
                   SPRINTF(tmp, " %.2x", bin[i]);
                   milstr_ncat(work, tmp, size);
           }
   }
   
   
   void profile_iniread(const char *path, const char *app,
                                                                   const PFTBL *tbl, UINT count, PFREAD cb) {
   
           PFILEH  pfh;
   const PFTBL     *p;
   const PFTBL     *pterm;
           char    work[512];
   
           pfh = profile_open(path, 0);
           if (pfh == NULL) {
                   return;
           }
           p = tbl;
           pterm = tbl + count;
           while(p < pterm) {
                   if (profile_read(app, p->item, NULL, work, sizeof(work), pfh)
                                                                                                                                   == SUCCESS) {
                           switch(p->itemtype & PFITYPE_MASK) {
                                   case PFTYPE_STR:
                                           milstr_ncpy(p->value, work, p->arg);
                                           break;
   
                                   case PFTYPE_BOOL:
                                           *((UINT8 *)p->value) = (!milstr_cmp(work, str_true))?1:0;
                                           break;
   
                                   case PFTYPE_BITMAP:
                                           bitmapset((BYTE *)p->value, p->arg,
                                                                           (!milstr_cmp(work, str_true))?TRUE:FALSE);
                                           break;
   
                                   case PFTYPE_BIN:
                                           binset((BYTE *)p->value, p->arg, work);
                                           break;
   
                                   case PFTYPE_SINT8:
                                   case PFTYPE_UINT8:
                                           *(UINT8 *)p->value = (UINT32)milstr_solveINT(work);
                                           break;
   
                                   case PFTYPE_SINT16:
                                   case PFTYPE_UINT16:
                                           *(UINT16 *)p->value = (UINT32)milstr_solveINT(work);
                                           break;
   
                                   case PFTYPE_SINT32:
                                   case PFTYPE_UINT32:
                                           *(UINT32 *)p->value = (UINT32)milstr_solveINT(work);
                                           break;
   
                                   case PFTYPE_HEX8:
                                           *(UINT8 *)p->value = (UINT8)milstr_solveHEX(work);
                                           break;
   
                                   case PFTYPE_HEX16:
                                           *(UINT16 *)p->value = (UINT16)milstr_solveHEX(work);
                                           break;
   
                                   case PFTYPE_HEX32:
                                           *(UINT32 *)p->value = (UINT32)milstr_solveHEX(work);
                                           break;
   
                                   default:
                                           if (cb != NULL) {
                                                   (*cb)(p, work);
                                           }
                                           break;
                           }
                   }
                   p++;
           }
           profile_close(pfh);
   }
   
   void profile_iniwrite(const char *path, const char *app,
                                                                   const PFTBL *tbl, UINT count, PFWRITE cb) {
   
           PFILEH  pfh;
   const PFTBL     *p;
   const PFTBL     *pterm;
   const char      *set;
           char    work[512];
   
           pfh = profile_open(path, 0);
           if (pfh == NULL) {
                   return;
           }
           p = tbl;
           pterm = tbl + count;
           while(p < pterm) {
                   if (!(p->itemtype & PFFLAG_RO)) {
                           work[0] = '\0';
                           set = work;
                           switch(p->itemtype & PFITYPE_MASK) {
                                   case PFTYPE_STR:
                                           set = (char *)p->value;
                                           break;
   
                                   case PFTYPE_BOOL:
                                           set = (*((UINT8 *)p->value))?str_true:str_false;
                                           break;
   
                                   case PFTYPE_BITMAP:
                                           set = (bitmapget((BYTE *)p->value, p->arg))?
                                                                                                                   str_true:str_false;
                                           break;
   
                                   case PFTYPE_BIN:
                                           binget(work, sizeof(work), (BYTE *)p->value, p->arg);
                                           break;
   
                                   case PFTYPE_SINT8:
                                           SPRINTF(work, str_d, *((SINT8 *)p->value));
                                           break;
   
                                   case PFTYPE_SINT16:
                                           SPRINTF(work, str_d, *((SINT16 *)p->value));
                                           break;
   
                                   case PFTYPE_SINT32:
                                           SPRINTF(work, str_d, *((SINT32 *)p->value));
                                           break;
   
                                   case PFTYPE_UINT8:
                                           SPRINTF(work, str_u, *((UINT8 *)p->value));
                                           break;
   
                                   case PFTYPE_UINT16:
                                           SPRINTF(work, str_u, *((UINT16 *)p->value));
                                           break;
   
                                   case PFTYPE_UINT32:
                                           SPRINTF(work, str_u, *((UINT32 *)p->value));
                                           break;
   
                                   case PFTYPE_HEX8:
                                           SPRINTF(work, str_x, *((UINT8 *)p->value));
                                           break;
   
                                   case PFTYPE_HEX16:
                                           SPRINTF(work, str_x, *((UINT16 *)p->value));
                                           break;
   
                                   case PFTYPE_HEX32:
                                           SPRINTF(work, str_x, *((UINT32 *)p->value));
                                           break;
   
                                   default:
                                           if (cb != NULL) {
                                                   set = (*cb)(p, work, sizeof(work));
                                           }
                                           else {
                                                   set = NULL;
                                           }
                                           break;
                           }
                           if (set) {
                                   profile_write(app, p->item, set, pfh);
                           }
                   }
                   p++;
           }
           profile_close(pfh);
   }
   
Removed from v.1.1.1.1  
changed lines
  Added in v.1.8

RetroPC.NET-CVS <cvs@retropc.net>