Mirrors/miller
1
0
Fork 0
mirror of https://github.com/johnkerl/miller.git synced 2026-07-25 08:53:55 +00:00
Code Issues Projects Releases Wiki Activity

DSL string-reference iterate

Browse source
This commit is contained in:
John Kerl 2015-12-15 21:10:30 -05:00
parent 20e32a6bdd
commit e9f9d4cc98
1 changed files with 48 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

73
c/containers/mlrval.c
View file

@ -1645,77 +1645,100 @@ static mv_t lt_b_if(mv_t* pa, mv_t* pb) { return mv_from_bool(pa->u.intv < pb-
static mv_t le_b_if(mv_t* pa, mv_t* pb) { return mv_from_bool(pa->u.intv <= pb->u.fltv); }
static mv_t eq_b_xs(mv_t* pa, mv_t* pb) {
// xxx don't need the copy ...
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) == 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t ne_b_xs(mv_t* pa, mv_t* pb) {
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) != 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t gt_b_xs(mv_t* pa, mv_t* pb) {
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) > 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t ge_b_xs(mv_t* pa, mv_t* pb) {
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) >= 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t lt_b_xs(mv_t* pa, mv_t* pb) {
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) < 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t le_b_xs(mv_t* pa, mv_t* pb) {
char* a = mv_alloc_format_val(pa);
char free_flags;
char* a = mv_format_val(pa, &free_flags);
mv_t rv = mv_from_bool(strcmp(a, pb->u.strv) <= 0);
free(a);
if (free_flags & FREE_ENTRY_VALUE)
free(a);
return rv;
}
static mv_t eq_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) == 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}
static mv_t ne_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) != 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}
static mv_t gt_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) > 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}
static mv_t ge_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) >= 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}
static mv_t lt_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) < 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}
static mv_t le_b_sx(mv_t* pa, mv_t* pb) {
char* b = mv_alloc_format_val(pb);
char free_flags;
char* b = mv_format_val(pb, &free_flags);
mv_t rv = mv_from_bool(strcmp(pa->u.strv, b) <= 0);
free(b);
if (free_flags & FREE_ENTRY_VALUE)
free(b);
return rv;
}