Artifact 7b74ee52c4c9dd500e3f24aa907f44607ccd1c6f7533d64623f0169843beaef6:

• File gino/go_append.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 496) [annotate] [blame] [check-ins using] [more...]
• File mttroot/gino/go_append.m — part of check-in [51b26b2720] at 2002-12-19 16:48:21 on branch origin/master — Initial files for gino - see README (user: gawthrop@users.sourceforge.net, size: 496) [annotate] [blame] [check-ins using]

function new_list = go_append (list,element)

  ## usage:  new_list = go_append (list,element)
  ##
  ## Appends element to list to give new list
  ## This is missing from ginsh
  ## Copyright (C) 2002 by Peter J. Gawthrop

  new_list = deblank(list);	# Remove trailing blanks
  new_list = new_list(1:length(new_list)-1); # Zap final }
  if (g_nops(list)=="0")
    new_list = sprintf("%s%s}", new_list, element);
  else
    new_list = sprintf("%s,%s}", new_list, element);
  endif
  

endfunction