← Back to branch summary

~ubuntu-branches/ubuntu/quantal/octave-control/quantal

« back to all changes in this revision

Viewing changes to inst/sysgettype.m

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2009-05-24 12:05:04 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090524120504-seb43rd9wxtp17ka
Tags: 1.0.10-1
* New upstream release
* debian/patches/no-check-failure-acker-place.diff: Get around precision
  problems when testing functions acker and place
* debian/rules:
  + Include patchsys-quilt.mk
  + Remove unneeded documentation sources from /usr/share/doc
* debian/control:
  + (Build-Depends): Add quilt
  + (Standards-Version): Bump to 3.8.1 (no changes needed)
  + (Depends): Add ${misc:Depends}
  + (Vcs-Git, Vcs-Browser): Adjust to new Git repository
* debian/source.lintian-overrides: Add file for overriding Lintian
  warnings build-depends-without-arch-dep
* debian/copyright:
  + Use DEP5 URL in Format-Specification
  + Use separate License stanzas for instructing about the location of
    the different licenses used in the package
* debian/README.source: Add file explaining the quilt patch system, as
  required by the Policy

Show diffs side-by-side

added added

removed removed

Lines of Context:
inst/sysgettype.m
 
1
## Copyright (C) 1998, 2000, 2002, 2003, 2004, 2005, 2007
 
2
##               Auburn University.  All rights reserved.
 
3
##
 
4
##
 
5
## This program is free software; you can redistribute it and/or modify it
 
6
## under the terms of the GNU General Public License as published by
 
7
## the Free Software Foundation; either version 3 of the License, or (at
 
8
## your option) any later version.
 
9
##
 
10
## This program is distributed in the hope that it will be useful, but
 
11
## WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
13
## General Public License for more details.
 
14
##
 
15
## You should have received a copy of the GNU General Public License
 
16
## along with this program; see the file COPYING.  If not, see
 
17
## <http://www.gnu.org/licenses/>.
 
18
 
 
19
## -*- texinfo -*-
 
20
## @deftypefn {Function File} {} sysgettype (@var{sys})
 
21
## return the initial system type of the system
 
22
##
 
23
## @strong{Input}
 
24
## @table @var
 
25
## @item sys
 
26
## System data structure.
 
27
## @end table
 
28
##
 
29
## @strong{Output}
 
30
## @table @var
 
31
## @item systype
 
32
## String indicating how the structure was initially
 
33
## constructed. Values: @code{"ss"}, @code{"zp"}, or @code{"tf"}.
 
34
## @end table
 
35
##
 
36
## @acronym{FIR} initialized systems return @code{systype="tf"}.
 
37
## @end deftypefn
 
38
 
 
39
function systype = sysgettype (sys)
 
40
 
 
41
  if (nargin != 1)
 
42
    print_usage ();
 
43
  endif
 
44
 
 
45
  if (! isstruct (sys))
 
46
    error ("sysgettype: input sys is not a structure");
 
47
  endif
 
48
 
 
49
  typestr = {"tf", "zp", "ss"};
 
50
  systype = typestr{sys.sys(1) + 1};
 
51
 
 
52
endfunction