Roxen.git/ server/ modules/ tags/ rxmltags.pike

2001-06-11

2001-06-11 13:57:34 by Martin Nilsson <mani@lysator.liu.se>

• 3202d34f303a7fb5a268cefeeef635f204fb74c4 (25 lines) (+18/-7) ^{[ Show | Annotate ]}
  Branch: 5.2

Since query responses from Oracle servers is a bag full of surprises, we'll have to cast the values to strings before we can compare them.

Rev: server/modules/tags/rxmltags.pike:1.238

7:   #define _rettext id->misc->defines[" _rettext"]   #define _ok id->misc->defines[" _ok"]    - constant cvs_version = "$Id: rxmltags.pike,v 1.237 2001/06/09 15:08:56 nilsson Exp $"; + constant cvs_version = "$Id: rxmltags.pike,v 1.238 2001/06/11 13:57:34 nilsson Exp $";   constant thread_safe = 1;   constant language = roxen->language;   
2836:       // A slightly modified Array.dwim_sort_func    // used as emits sort function. -  static int compare(string|object a0,string|object b0, string v) { +  static int compare(mixed a0, mixed b0, string v) {    RXML.Context ctx; -  if(objectp(a0)) { +  +  if(objectp(a0) && a0->rxml_var_eval) {    if(!ctx) ctx = RXML.get_context();    a0 = a0->rxml_const_eval ? a0->rxml_const_eval(ctx, v, "", RXML.t_text) :    a0->rxml_var_eval(ctx, v, "", RXML.t_text);    } -  if(objectp(b0)) { +  else +  a0 = (string)a0; +  +  if(objectp(b0) && b0->rxml_var_eval) {    if(!ctx) ctx = RXML.get_context();    b0 = b0->rxml_const_eval ? b0->rxml_const_eval(ctx, v, "", RXML.t_text) :    b0->rxml_var_eval(ctx, v, "", RXML.t_text);    } -  +  else +  b0 = (string)b0;    -  +  return compare_iter(a0, b0); +  } +  +  static int compare_iter(string a0,string b0) {    if (!a0) {    if (b0)    return -1;
2867:    if (a1>b1) return 1;    if (a1<b1) return -1;    if (a2==b2) return 0; -  return compare(a2,b2,v); +  return compare_iter(a2,b2);    }       class Frame {
2962:    {    array(string) order = (args->sort - " ")/"," - ({ "" });    res = Array.sort_array( res, -  lambda (mapping(string:string) m1, -  mapping(string:string) m2) +  lambda (mapping(string:mixed) m1, +  mapping(string:mixed) m2)    {    foreach (order, string field)    {