Artifact 653459832d7fabce6216c8516243d633fca20044d8889214bb09c92cd5002d81:

• File mtt/bin/trans/m/mtt_subname.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: 447) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/bin/trans/m/mtt_subname.m — part of check-in [0e41d1033c] at 2003-03-13 15:32:37 on branch origin/master — Octave m files for generating sorted equations _sese.r (user: gawthrop@users.sourceforge.net, size: 447) [annotate] [blame] [check-ins using]

function [subname, compname] = mtt_subname (name)

  ## usage:  subname = mtt_subname (name)
  ##
  ## Finds the subsystem name from the component name
  ## Copyright (C) 2003 by Peter J. Gawthrop


  names = mtt_name2names(name);
  [n,m] = size(names);

  if n<2			# Simple name
    subname = "";
    compname = name;
  else				# Compound name
    subname = mtt_names2name(names(1:n-1,:));
    compname = deblank(names(n,:));
  endif

endfunction