Mercurial > octave-nkf
view test/@Pork/Pork.m @ 10454:79a56d0a6a0d ss-3-3-51
version is now 3.3.51
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 24 Mar 2010 16:27:05 -0400 |
parents | f9ab19428cd8 |
children |
line wrap: on
line source
function [ s ] = Pork( geek, gurk ) if (nargin==1) && isa(geek,'Pork') s = geek; else s.gurk = 0; if nargin == 0 s0 = Spork(); elseif nargin==1 s0 = Spork(geek); else s0 = Spork(geek); s.gurk = gurk; end s = class(s,'Pork',s0); end superiorto('Dork'); end