Na}{

File Content: `structfuns.sl`

% Struct functions
% Copyright (C) 2012-2017,2018 John E. Davis
%
% This file is part of the S-Lang Library and may be distributed under the
% terms of the GNU General Public License.  See the file COPYING for
% more information.
private define make_indices (num_dims, d, i)
{
   _for (0, num_dims-1, 1)
     {
	variable j = ();
	if (j == d)
	  i;
	else
	  [:];
     }
}

define struct_filter (s, i)
{
   variable dim = qualifier ("dim");
   variable copy = qualifier_exists ("copy");
   if (copy)
     s = @s;

   variable field;
   foreach field (get_struct_field_names (s))
     {
	variable value = get_struct_field (s, field);
	if (typeof (value) != Array_Type)
	  continue;
	if (dim == NULL)
	  {
	     set_struct_field (s, field, value[i]);
	     continue;
	  }
	variable dims = array_shape (value);
	variable num_dims = length (dims);
	variable d = dim;
	if (d < 0)
	  d += num_dims;

	if ((d < 0) || (d >= num_dims))
	  continue;

	set_struct_field (s, field, value[make_indices(num_dims, d, i)]);
     }
   if (copy)
     return s;
}

define struct_combine ()
{
   variable args = __pop_list (_NARGS);
   variable fields = String_Type[0];
   variable arg;
   foreach arg (args)
     {
	if (arg == NULL)
	  continue;
	if (is_struct_type (arg))
	  arg = get_struct_field_names (arg);
	fields = [fields, arg];
     }

   % Get just the unique names
   variable i, a = Assoc_Type[Int_Type];
   ifnot (length (fields))
     return NULL;
   _for i (0, length (fields)-1, 1)
     a[fields[i]] = i;
   i = assoc_get_values (a);
   fields = fields[i[array_sort (i)]];

   variable s = @Struct_Type (fields);
   foreach arg (args)
     {
	if (0 == is_struct_type (arg))
	  continue;
	foreach (get_struct_field_names (arg))
	  {
	     variable field = ();
	     set_struct_field (s, field, get_struct_field (arg, field));
	  }
     }
   return s;
}

define struct_field_exists (s, field)
{
   return length (where (field == get_struct_field_names (s)));
}

$1 = path_concat (path_dirname (__FILE__), "help/structfuns.hlp");
if (NULL != stat_file ($1))
  add_doc_file ($1);

provide ("structfuns");

Name	Size	Permission
cmaps	---	0755
help	---	0755
rline	---	0755
scripts	---	0755
arrayfuns.sl	1898 bytes	0644
autoload.sl	460 bytes	0644
base64.sl	19 bytes	0644
chksum.sl	1613 bytes	0644
cmdopt.sl	7760 bytes	0644
csv.sl	16740 bytes	0644
fcntl.sl	35 bytes	0644
fork.sl	17 bytes	0644
fswalk.sl	2421 bytes	0644
glob.sl	2482 bytes	0644
histogram.sl	3053 bytes	0644
iconv.sl	35 bytes	0644
json.sl	6113 bytes	0644
listfuns.sl	3110 bytes	0644
onig.sl	17 bytes	0644
pcre.sl	1240 bytes	0644
png.sl	4116 bytes	0644
print.sl	7796 bytes	0644
process.sl	10062 bytes	0644
profile.sl	20355 bytes	0644
rand.sl	4382 bytes	0644
readascii.sl	5361 bytes	0644
require.sl	1303 bytes	0644
select.sl	37 bytes	0644
setfuns.sl	4919 bytes	0644
sldb.sl	2165 bytes	0644
sldbcore.sl	18534 bytes	0644
sldbsock.sl	7610 bytes	0644
slshhelp.sl	536 bytes	0644
slshrl.sl	9451 bytes	0644
slsmg.sl	35 bytes	0644
socket.sl	151 bytes	0644
stats.sl	15428 bytes	0644
stkcheck.sl	2679 bytes	0644
structfuns.sl	2096 bytes	0644
sysconf.sl	20 bytes	0644
termios.sl	39 bytes	0644
varray.sl	37 bytes	0644
zlib.sl	3003 bytes	0644

File Content: structfuns.sl

File Content: `structfuns.sl`