00001
00002
00003
00004
00005
00006 #include "strings_utils.h"
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 char *make_one_line (char *st)
00020 {
00021 char *res;
00022 int size, i, j, space, nl;
00023
00024
00025
00026
00027
00028 size = strlen(st);
00029 res = (char*) malloc(sizeof(char) * (size + 1));
00030 if (res == NULL) { return NULL; }
00031
00032
00033
00034
00035
00036 j = 0;
00037 space = 0;
00038 nl = 0;
00039
00040 for (i=0; i<size; i++)
00041 {
00042 if (st[i] == ' ')
00043 {
00044 if (space == 0) { res[j++] = ' '; }
00045 space = 1;
00046 nl = 0;
00047 continue;
00048 }
00049
00050 space = 0;
00051
00052 if (st[i] == '\n')
00053 {
00054 if (nl == 0) { res[j++] = ';'; }
00055 nl = 1;
00056 continue;
00057 }
00058
00059 nl = 0;
00060
00061 res[j++] = st[i];
00062 }
00063
00064
00065 res[j] = 0;
00066 return res;
00067 }
00068
00069
00070
00071
00072
00073
00074
00075
00076 extern char *bin2hex_hexa[256];
00077
00078
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094 int s_split(char *st, char* delimitor, struct fields *f)
00095 {
00096 char* pt;
00097 int nb_field, field_size, i, size;
00098 char** tab;
00099
00100
00101
00102
00103
00104 size = INITIAL_NUMBER_OF_FIELD;
00105 tab = (char**)malloc(size*sizeof(char*));
00106 if (tab == NULL)
00107 {
00108 f->number_of_fields = -1;
00109 f->size = -1;
00110 f->tabs = NULL;
00111 return -1;
00112 }
00113
00114 nb_field = 0;
00115 pt = strtok(st, delimitor);
00116
00117 while (pt != NULL)
00118 {
00119 if (nb_field == size)
00120 {
00121 size *= 2;
00122 tab = (char**)realloc((void*)tab, size*sizeof(char*));
00123 if (tab == NULL)
00124 {
00125 for (i=0; i<nb_field; i++) { free ((void*)(tab[i])); }
00126 free ((void*)tab);
00127 f->number_of_fields = -1;
00128 f->size = -1;
00129 f->tabs = NULL;
00130 return -1;
00131 }
00132 }
00133
00134 field_size = strlen(pt)+1;
00135 tab[nb_field] = (char*)malloc(field_size*sizeof(char));
00136 if (tab[nb_field] == NULL)
00137 {
00138 for (i=0; i<nb_field; i++) { free ((void*)(tab[i])); }
00139 free ((void*)tab);
00140 f->number_of_fields = -1;
00141 f->size = -1;
00142 f->tabs = NULL;
00143 return -1;
00144 }
00145
00146 strcpy (tab[nb_field], pt);
00147 nb_field++;
00148
00149 pt = strtok (NULL, delimitor);
00150 }
00151
00152 f->number_of_fields = nb_field;
00153 f->size = size;
00154 f->tabs = tab;
00155
00156 return nb_field;
00157 }
00158
00159
00160
00161
00162
00163
00164
00165
00166
00167
00168
00169
00170
00171
00172
00173
00174
00175
00176
00177
00178
00179
00180 int s_split_exact(char *st, char* delimitor, struct fields *f)
00181 {
00182 char *pt, *start, *stop;
00183 int nb_field, field_size, i, j, size, pfields;
00184 char **tab, **delimitors, **mem;
00185
00186
00187
00188
00189
00190 f->number_of_fields = -1;
00191 f->size = -1;
00192 f->tabs = NULL;
00193
00194
00195
00196
00197
00198 size = INITIAL_NUMBER_OF_FIELD;
00199
00200 delimitors = (char**)malloc(size*sizeof(char*));
00201 if (delimitors == NULL) { return -1; }
00202
00203
00204
00205
00206
00207 nb_field = 0;
00208 start = st;
00209
00210 pt = strstr (start, delimitor);
00211 while (pt != NULL)
00212 {
00213
00214
00215
00216
00217 if (nb_field == size)
00218 {
00219 size *= 2;
00220 mem = (char**)realloc((void*)delimitors, size * sizeof(char*));
00221 if (mem == NULL) { free(delimitors); return -1; }
00222 delimitors = mem;
00223 }
00224
00225
00226
00227
00228
00229 delimitors[nb_field] = pt;
00230 nb_field++;
00231
00232 start = pt + strlen(delimitor);
00233
00234 pt = strstr (start, delimitor);
00235 }
00236
00237
00238
00239
00240
00241
00242 if (*start != 0)
00243 {
00244 if (nb_field == size)
00245 {
00246 size *= 2;
00247 mem = (char**)realloc((void*)delimitors, size * sizeof(char*));
00248 if (mem == NULL) { free(delimitors); return -1; }
00249 delimitors = mem;
00250 }
00251
00252 delimitors[nb_field] = st + strlen(st);
00253
00254 nb_field++;
00255 }
00256
00257
00258
00259
00260
00261 tab = (char**)malloc(nb_field * sizeof(char*));
00262 if (tab == NULL)
00263 {
00264 free (delimitors);
00265 return -1;
00266 }
00267
00268 f->number_of_fields = nb_field;
00269 f->size = nb_field;
00270 f->tabs = tab;
00271
00272
00273
00274
00275
00276 pfields = 0;
00277 start = st;
00278 for (j=0; j<nb_field; j++)
00279 {
00280 stop = delimitors[j];
00281 field_size = (int)(stop-start);
00282
00283 pt = (char*) malloc ((field_size+1) * sizeof(char));
00284 if (pt == NULL)
00285 {
00286 f->number_of_fields = -1;
00287 f->size = -1;
00288 free (delimitors);
00289 for (i=0; i<pfields; i++) { free ((void*)tab[i]); }
00290 return -1;
00291 }
00292
00293 strncpy (pt, start, field_size);
00294 pt[field_size] = 0;
00295
00296 tab[pfields] = pt;
00297 pfields += 1;
00298
00299 start = stop + strlen(delimitor);
00300 }
00301
00302
00303 free (delimitors);
00304 return nb_field;
00305 }
00306
00307
00308
00309
00310
00311
00312
00313
00314
00315
00316
00317 void free_fields (struct fields *fd)
00318 {
00319 int i;
00320
00321 for (i=0; i<fd->number_of_fields; i++) { free ((void*)((fd->tabs)[i])); }
00322 free (fd->tabs);
00323 fd->number_of_fields = -1;
00324 fd->size = -1;
00325 fd->tabs = NULL;
00326 }
00327
00328
00329
00330
00331
00332
00333
00334
00335 char* get_end_of_string (char *src, char *dst, int nbcar)
00336 {
00337 char *pt;
00338 int size;
00339
00340 if (nbcar <= 0) { return NULL; }
00341
00342 pt = strstr (src, " = ");
00343 if (pt == NULL) { dst[0]=0; return dst; }
00344 pt += 3;
00345
00346 size = strlen(pt);
00347 if (nbcar < size+1) { dst[0]=0; return NULL; }
00348
00349 strcpy (dst, pt);
00350
00351 return dst;
00352 }
00353
00354
00355
00356
00357
00358
00359
00360
00361
00362
00363
00364
00365 char* IP2hex (char *src, char *dst, int nbcar)
00366 {
00367 char *pt;
00368 struct fields fd;
00369 int n;
00370 int ip1, ip2, ip3, ip4;
00371
00372 if (nbcar < 12) { return NULL; }
00373 memset ((void*)dst, 0, 12);
00374
00375 pt = (char*)malloc((strlen(src)+1)*sizeof(char));
00376 if (pt == NULL) { return NULL; }
00377 strcpy (pt, src);
00378
00379 n = s_split(pt, ".", &fd);
00380 if (n != 4)
00381 {
00382 free (pt);
00383 return NULL;
00384 }
00385 free (pt);
00386
00387 ip1 = atoi (fd.tabs[0]);
00388 ip2 = atoi (fd.tabs[1]);
00389 ip3 = atoi (fd.tabs[2]);
00390 ip4 = atoi (fd.tabs[3]);
00391
00392 if ((ip1 < 0) || (ip1 > 255)) { free_fields(&fd); return NULL; }
00393 if ((ip2 < 0) || (ip2 > 255)) { free_fields(&fd); return NULL; }
00394 if ((ip3 < 0) || (ip3 > 255)) { free_fields(&fd); return NULL; }
00395 if ((ip4 < 0) || (ip4 > 255)) { free_fields(&fd); return NULL; }
00396
00397 sprintf (dst, "%s%s%s%s", bin2hex_hexa[ip1], bin2hex_hexa[ip2], bin2hex_hexa[ip3], bin2hex_hexa[ip4]);
00398
00399 free_fields(&fd);
00400 return dst;
00401 }
00402
00403
00404
00405
00406
00407
00408
00409
00410
00411
00412
00413
00414 char* post_chop(char *src)
00415 {
00416 int last_idx;
00417 int i;
00418
00419 last_idx = strlen(src);
00420 if (last_idx == 0) { return src; }
00421
00422 last_idx--;
00423 for (i=last_idx; i>=0; i--)
00424 {
00425 if ((src[i]==' ') || (src[i]==9)) { src[i]=0; }
00426 else { return src; }
00427 }
00428 return src;
00429 }
00430
00431
00432
00433
00434
00435
00436
00437 char* pre_chop(char *src)
00438 {
00439 int size;
00440 int i, passed, count;
00441 char *aux;
00442
00443 size = strlen(src);
00444 if (size == 0) { return src; }
00445
00446 aux = (char*)malloc((size+1)*sizeof(char));
00447 if (aux == NULL) { return NULL; }
00448
00449 passed = 0;
00450 count = 0;
00451 for (i=0; i<size; i++)
00452 {
00453 if (passed == 0)
00454 {
00455 if ((src[i] != ' ') && (src[i] != 9))
00456 { aux[count++]=src[i]; passed = 1; }
00457 }
00458 else { aux[count++]=src[i]; }
00459 }
00460 aux[count]=0;
00461 strcpy (src, aux);
00462 free (aux);
00463 return src;
00464 }
00465
00466
00467
00468
00469
00470
00471
00472
00473 char* chop(char *src)
00474 { return pre_chop(post_chop(src)); }
00475
00476
00477
00478
00479
00480
00481
00482
00483
00484
00485
00486
00487
00488 char* add_comment (char *src, char **dst)
00489 {
00490 int src_size, i, j, nnline, dst_size;
00491 char c;
00492
00493
00494 src_size = strlen(src);
00495
00496
00497 nnline = 0;
00498 for (i=0; i<src_size; i++) { if (src[i] == '\n') { nnline++; } }
00499
00500
00501 dst_size = src_size + nnline;
00502 *dst = (char*)malloc((dst_size+1)*sizeof(char));
00503 if (*dst == NULL) { return NULL; }
00504
00505
00506 j = 0;
00507 for (i=0; i<src_size; i++)
00508 {
00509 c = src[i];
00510 (*dst)[j++] = c;
00511 if (c == '\n') { (*dst)[j++] = '#'; }
00512 }
00513
00514 (*dst)[j] = 0;
00515
00516 return *dst;
00517 }
00518
00519
00520
00521
00522
00523
00524
00525
00526
00527
00528
00529
00530
00531
00532 char* get_config_value (char *buffer, char *delim)
00533 {
00534 char *res, *pt;
00535
00536 pt = strstr (buffer, delim);
00537 if (pt == NULL) { return NULL; }
00538 pt += 1;
00539
00540 res = (char*)malloc((strlen(pt)+1)*sizeof(char));
00541 if (res == NULL) { return NULL; }
00542 strcpy (res, pt);
00543
00544 if (chop(res) == NULL) {
00545 free(res);
00546 return NULL;
00547 };
00548 return res;
00549 }
00550
00551
00552
00553
00554 #define INTEGER_STR_MAX_SIZE 32
00555
00556
00557
00558
00559
00560
00561
00562
00563
00564 char* replace_tag_by_integer (char* src, char *tag, int value)
00565 {
00566 char *res, *start, *stop, c;
00567 int tag_size, size;
00568 char buff[INTEGER_STR_MAX_SIZE];
00569
00570
00571 start = strstr(src, tag);
00572 if (start == NULL)
00573 {
00574 size = strlen(src)+1;
00575 res = (char*)malloc(size * sizeof(char));
00576 if (res == NULL) { return NULL; }
00577 strcpy (res, src);
00578 return res;
00579 }
00580
00581 tag_size = strlen(tag);
00582 stop = start + tag_size;
00583
00584 sprintf (buff, "%d", value);
00585 size = (strlen(src) - tag_size) + strlen(buff) + 1;
00586
00587 res = (char*)malloc(size * sizeof(char));
00588 if (res == NULL) { return NULL; }
00589 c = *start;
00590 *start = 0;
00591 sprintf (res, "%s%s%s", src, buff, stop);
00592 *start = c;
00593
00594 return res;
00595 }
00596
00597
00598
00599
00600 extern int char2int[256];
00601
00602
00603
00604
00605 extern int char2hex[256];
00606
00607
00608
00609
00610
00611
00612
00613
00614
00615
00616
00617
00618 unsigned int string2unsigned_int (char *st, int *error)
00619 {
00620 int last_idx, i, digit;
00621 unsigned int value, factor;
00622
00623
00624 value = 0;
00625 factor = 1;
00626 *error = 0;
00627
00628 last_idx = strlen(st)-1;
00629 for (i=last_idx; i>=0; i--)
00630 {
00631 digit = char2int[(unsigned int)st[i]];
00632 if (digit == -1) { *error = 1; return (unsigned int)-1; }
00633 value += (unsigned int)digit*factor;
00634 factor *= 10;
00635 }
00636
00637 return value;
00638 }
00639
00640
00641
00642
00643
00644
00645
00646
00647
00648
00649 time_t string2time_t (char *st, int *error)
00650 {
00651 int last_idx, i, digit;
00652 time_t value, factor;
00653
00654
00655 value = 0;
00656 factor = 1;
00657 *error = 0;
00658
00659 last_idx = strlen(st)-1;
00660 for (i=last_idx; i>=0; i--)
00661 {
00662 digit = char2int[(unsigned int)st[i]];
00663 if (digit == -1) { *error = 1; return (unsigned int)-1; }
00664 value += (unsigned int)digit*factor;
00665 factor *= 10;
00666 }
00667
00668 return value;
00669 }
00670
00671
00672
00673
00674
00675
00676
00677
00678 int string2int (char *st, int *error)
00679 {
00680 int last_idx, i, digit;
00681 int value, factor;
00682
00683
00684 value = 0;
00685 factor = 1;
00686 *error = 0;
00687
00688 last_idx = strlen(st)-1;
00689 for (i=last_idx; i>=0; i--)
00690 {
00691 digit = char2int[(unsigned int)st[i]];
00692 if (digit == -1) { *error = 1; return -1; }
00693 value += digit*factor;
00694 factor *= 10;
00695 }
00696
00697 return value;
00698 }
00699
00700
00701
00702
00703
00704
00705
00706
00707
00708
00709
00710 int is_integer (char *st)
00711 {
00712 int i, size, digit;
00713
00714 if (st == NULL) { return 1; }
00715 if (st[0] == 0) { return 1; }
00716
00717 size = strlen (st);
00718
00719 for (i=0; i<size; i++)
00720 {
00721 digit = char2int[(unsigned int)st[i]];
00722 if (digit == -1) { return 1; }
00723 }
00724
00725 return 0;
00726 }
00727
00728
00729
00730
00731
00732
00733
00734
00735
00736
00737 int is_hexa (char *st)
00738 {
00739 int i, size, digit;
00740
00741 if (st == NULL) { return 1; }
00742 if (st[0] == 0) { return 1; }
00743
00744 size = strlen (st);
00745
00746 for (i=0; i<size; i++)
00747 {
00748 digit = char2hex[(unsigned int)st[i]];
00749 if (digit == -1) { return 1; }
00750 }
00751
00752 return 0;
00753 }
00754
00755
00756
00757
00758
00759
00760
00761
00762
00763
00764
00765 int is_ip_address (char *st)
00766 {
00767 struct fields fd;
00768 int n, i, err;
00769 char *aux;
00770
00771 if (st == NULL) { return 1; }
00772 if (st[0] == 0) { return 1; }
00773
00774 aux = (char*)malloc((strlen(st)+1)*sizeof(char));
00775 if (aux == NULL) { return 1; }
00776 strcpy (aux, st);
00777
00778 n = s_split(aux, ".", &fd);
00779 if (n == -1)
00780 {
00781 free(aux);
00782 return 1;
00783 }
00784
00785 if (fd.number_of_fields != 4)
00786 {
00787 free (aux);
00788 free_fields(&fd);
00789 return 1;
00790 }
00791
00792 for (i=0; i<fd.number_of_fields; i++)
00793 {
00794 n = string2int(fd.tabs[i], &err);
00795 if (err == 1)
00796 {
00797 free (aux);
00798 free_fields(&fd);
00799 return 1;
00800 }
00801 if ((n<0) || (n>255))
00802 {
00803 free (aux);
00804 free_fields(&fd);
00805 return 1;
00806 }
00807 }
00808
00809 free(aux);
00810 free_fields(&fd);
00811 return 0;
00812 }
00813
00814
00815
00816
00817
00818
00819
00820
00821
00822
00823
00824
00825 int ip_address_to_num (char *st, unsigned char *num)
00826 {
00827 struct fields fd;
00828 int n;
00829
00830
00831 if (st == NULL) { return 1; }
00832 if (st[0] == 0) { return 1; }
00833
00834 if (is_ip_address(st) == 1) { return 1; }
00835
00836
00837
00838
00839
00840 n = s_split(st, ".", &fd);
00841 if (n == -1) { return 1; }
00842
00843 if (fd.number_of_fields != 4)
00844 {
00845 free_fields(&fd);
00846 return 1;
00847 }
00848
00849
00850
00851
00852
00853 num[0] = (unsigned char) (atoi(fd.tabs[0]));
00854
00855
00856
00857
00858
00859 num[1] = (unsigned char) (atoi(fd.tabs[1]));
00860
00861
00862
00863
00864
00865 num[2] = (unsigned char) (atoi(fd.tabs[2]));
00866
00867
00868
00869
00870
00871 num[3] = (unsigned char) (atoi(fd.tabs[3]));
00872
00873 free_fields(&fd);
00874 return 0;
00875 }
00876
00877
00878
00879