Mercurial > hg > octave-nkf

view test/@Pork/Pork.m @ 13641:04cd5480855c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated language files by adding patches from Andriy and adding german patches.
author Jacob Dawid <jacob.dawid@googlemail.com>
date Tue, 23 Aug 2011 00:55:38 +0200
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