#!/bin/sh
CF=$1
MF=$2
funname=`echo $MF | sed -e 's/\.m$//'`
shortfunname=`echo $funname | sed -e 's/^gf_//'`
echo "extracting doc from $CF to $MF"
cat $CF | sed -n -e '/\*MLABCOM/,/MLABCOM\*/s/^/%/p' | sed -e '/MLABCOM/d' > $MF
echo "function [varargout]=${funname}(varargin)" >> $MF
cat $CF | sed -n -e '/\*MLABEXT/,/MLABEXT\*/p' | sed -e '/MLABEXT/d' >> $MF


echo "  if (nargout)," >> $MF
echo "    [varargout{1:nargout}]=gf_matlab('${shortfunname}',varargin{:});" >> $MF
echo "  else" >> $MF
echo "    gf_matlab('${shortfunname}',varargin{:});" >> $MF
echo "    if (exist('ans','var') == 1), varargout{1}=ans; end;" >> $MF
echo "  end;" >> $MF
