struct fixed_string dst;
size_t i;
- dst = alloc_string (e, 255);
+ dst = alloc_string (e, MAX_STRING);
dst.length = 0;
for (i = 0; i < n; i++)
{
size_t copy_len;
copy_len = src->length;
- if (dst.length + copy_len > 255)
- copy_len = 255 - dst.length;
+ if (dst.length + copy_len > MAX_STRING)
+ copy_len = MAX_STRING - dst.length;
memcpy (&dst.string[dst.length], src->string, copy_len);
dst.length += copy_len;
}
absorb_miss string function LPAD (string s, n)
expression e;
{
- if (n < 0 || n > 255 || (int) n != n)
+ if (n < 0 || n > MAX_STRING || (int) n != n)
return empty_string;
else if (s.length >= n)
return s;
absorb_miss string function LPAD (string s, n, string c)
expression e;
{
- if (n < 0 || n > 255 || (int) n != n || c.length != 1)
+ if (n < 0 || n > MAX_STRING || (int) n != n || c.length != 1)
return empty_string;
else if (s.length >= n)
return s;
absorb_miss string function RPAD (string s, n)
expression e;
{
- if (n < 0 || n > 255 || (int) n != n)
+ if (n < 0 || n > MAX_STRING || (int) n != n)
return empty_string;
else if (s.length >= n)
return s;
absorb_miss string function RPAD (string s, n, string c)
expression e;
{
- if (n < 0 || n > 255 || (int) n != n || c.length != 1)
+ if (n < 0 || n > MAX_STRING || (int) n != n || c.length != 1)
return empty_string;
else if (s.length >= n)
return s;
return s;
}
-no_opt function LAG (num_var v, pos_int n_before)
+no_opt perm_only function LAG (num_var v, pos_int n_before)
{
struct ccase *c = lagged_case (n_before);
if (c != NULL)
return SYSMIS;
}
-no_opt function LAG (num_var v)
+no_opt perm_only function LAG (num_var v)
{
struct ccase *c = lagged_case (1);
if (c != NULL)
return SYSMIS;
}
-no_opt string function LAG (str_var v, pos_int n_before)
+no_opt perm_only string function LAG (str_var v, pos_int n_before)
expression e;
{
struct ccase *c = lagged_case (n_before);
return empty_string;
}
-no_opt string function LAG (str_var v)
+no_opt perm_only string function LAG (str_var v)
expression e;
{
struct ccase *c = lagged_case (1);