X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Foperations.def;h=e1ae2a531e49cd34f6275637d25872fd5a15d372;hb=799e56c0e3a9911a860607e1c07caf2acf8cc9ef;hp=717bc15ef39fd105175f28e5625f9873522f9855;hpb=393668423c1c9456fd82db6b30f25de078915da5;p=pspp

diff --git a/src/language/expressions/operations.def b/src/language/expressions/operations.def
index 717bc15ef3..e1ae2a531e 100644
--- a/src/language/expressions/operations.def
+++ b/src/language/expressions/operations.def
@@ -133,7 +133,7 @@ function MAX.1 (a[n])
 
 string function MAX (string a[n])
 {
-  struct fixed_string *max;
+  struct substring *max;
   size_t i;
 
   max = &a[0];
@@ -164,7 +164,7 @@ function MIN.1 (a[n])
 
 string function MIN (string a[n])
 {
-  struct fixed_string *min;
+  struct substring *min;
   size_t i;
 
   min = &a[0];
@@ -220,8 +220,8 @@ boolean function RANGE (string x, string a[n*2])
 
   for (i = 0; i < n; i++)
     {
-      struct fixed_string *w = &a[2 * i];
-      struct fixed_string *y = &a[2 * i + 1];
+      struct substring *w = &a[2 * i];
+      struct substring *y = &a[2 * i + 1];
       if (compare_string (w, &x) <= 0 && compare_string (&x, y) <= 0)
         return 1.;
     }
@@ -303,14 +303,14 @@ function XDATE.YEAR (date >= DAY_S) = calendar_offset_to_year (date / DAY_S);
 string function CONCAT (string a[n])
      expression e;
 {
-  struct fixed_string dst;
+  struct substring dst;
   size_t i;
 
   dst = alloc_string (e, MAX_STRING);
   dst.length = 0;
   for (i = 0; i < n; i++)
     {
-      struct fixed_string *src = &a[i];
+      struct substring *src = &a[i];
       size_t copy_len;
 
       copy_len = src->length;
@@ -446,7 +446,7 @@ absorb_miss string function LPAD (string s, n)
     return s;
   else
     {
-      struct fixed_string t = alloc_string (e, n);
+      struct substring t = alloc_string (e, n);
       memset (t.string, ' ', n - s.length);
       memcpy (&t.string[(int) n - s.length], s.string, s.length);
       return t;
@@ -462,7 +462,7 @@ absorb_miss string function LPAD (string s, n, string c)
     return s;
   else
     {
-      struct fixed_string t = alloc_string (e, n);
+      struct substring t = alloc_string (e, n);
       memset (t.string, c.string[0], n - s.length);
       memcpy (&t.string[(int) n - s.length], s.string, s.length);
       return t;
@@ -478,7 +478,7 @@ absorb_miss string function RPAD (string s, n)
     return s;
   else
     {
-      struct fixed_string t = alloc_string (e, n);
+      struct substring t = alloc_string (e, n);
       memcpy (t.string, s.string, s.length);
       memset (&t.string[s.length], ' ', n - s.length);
       return t;
@@ -494,7 +494,7 @@ absorb_miss string function RPAD (string s, n, string c)
     return s;
   else
     {
-      struct fixed_string t = alloc_string (e, n);
+      struct substring t = alloc_string (e, n);
       memcpy (t.string, s.string, s.length);
       memset (&t.string[s.length], c.string[0], n - s.length);
       return t;
@@ -563,7 +563,7 @@ absorb_miss string function STRING (x, no_format f)
      expression e;
 {
   union value v;
-  struct fixed_string dst;
+  struct substring dst;
 
   v.f = x;
   dst = alloc_string (e, f->w);
@@ -951,14 +951,15 @@ no_opt string operator STR_VAR ()
      expression e;
      str_var v;
 {
-  struct fixed_string s = alloc_string (e, v->width);
+  struct substring s = alloc_string (e, v->width);
   memcpy (s.string, case_str (c, v->fv), v->width);
   return s;
 }
 
 no_opt perm_only function LAG (num_var v, pos_int n_before)
+    dataset ds;
 {
-  struct ccase *c = lagged_case (n_before);
+  struct ccase *c = lagged_case (ds, n_before);
   if (c != NULL)
     {
       double x = case_num (c, v->fv);
@@ -969,8 +970,9 @@ no_opt perm_only function LAG (num_var v, pos_int n_before)
 }
 
 no_opt perm_only function LAG (num_var v)
+    dataset ds;
 {
-  struct ccase *c = lagged_case (1);
+  struct ccase *c = lagged_case (ds, 1);
   if (c != NULL)
     {
       double x = case_num (c, v->fv);
@@ -982,8 +984,9 @@ no_opt perm_only function LAG (num_var v)
 
 no_opt perm_only string function LAG (str_var v, pos_int n_before)
      expression e;
+     dataset ds;
 {
-  struct ccase *c = lagged_case (n_before);
+  struct ccase *c = lagged_case (ds, n_before);
   if (c != NULL)
     return copy_string (e, case_str (c, v->fv), v->width);
   else
@@ -992,8 +995,9 @@ no_opt perm_only string function LAG (str_var v, pos_int n_before)
 
 no_opt perm_only string function LAG (str_var v)
      expression e;
+     dataset ds;
 {
-  struct ccase *c = lagged_case (1);
+  struct ccase *c = lagged_case (ds, 1);
   if (c != NULL)
     return copy_string (e, case_str (c, v->fv), v->width);
   else