%{
/*
 *  $Id: demo.mod,v 1.2 2002-07-03 12:52:25 anne Exp $
 *
 *  Test mod fuer modgen
 */

#include <stdio.h>

extern void piShowProcList();
%}

// some comments here

category="tests";
package="demo_module";
version	= "$Id: demo.mod,v 1.2 2002-07-03 12:52:25 anne Exp $";
info	="
LIBRARY: kernel.lib  PROCEDURES OF GENERAL TYPE WRITEN IN C

  proclist();    Lists all procedures.
";

//%{
//static int i;
//%}

//other ="hallo";   // should return an error

//cxxsource = proclist.cc , misc.cc;
//cxxsource = misc.cc;
/*cxxsource = sscanf.cc 
*/

%%
%Singular

proc testa (int i,int j)
" keine Hilfe"
{
  "testa";
  int a=i-j;
  return(a);
}
example
{
  testa(2,3);
}
%procedures
/*
 * NAME:     proclist
 *           procedure without any parameter and no return value;
 * PURPOSE:  shows a list of all defined procedure.
 */
none proclist 
{
  piShowProcList();
  %return();
}
example
{
  proclist();
}

/*
 *
 * diese procedur ist mit Absicht auskommentart - ich weiss nicht,
 * wie sie richtig gehen soll/
static start_sg
{
  %singularcmd(inout::f(q,w,e));
}

/*
 */
int mysum(
	int i,
	int j
	) 
"Return sum of i and j"
{
  // generate internal variable declaration
  //
  %declaration;

  // generate typecheck and typeconversation code
  %typecheck;
  
  //%return = (void*)((int)i->Data() + (int)j->Data());
  %return = (void *)(i + j);
}
example
{ Demo::mysum(2,3); 
}

ideal toid()
// call function toid();
{
  // generate internal variable declaration
  // (will write nothing: there are no parameters
  %declaration;

  // generate typecheck and typeconversation code
  // (will write nothing: there are no parameters)
  %typecheck;

  // generate return vector
  // data=toid();
  //%return(my_toid);
  return FALSE;

};

ideal toid2(ideal) {
  // generate internal variable declaration
  //
  %declaration;

  return FALSE;
//  %return();
};

/* /	typedef,
k_test(
	ideal,
	int,
	intvec,
	intmat,
	link,
	list,
	map,
	matrix,
	module,
	number,
	package,
	poly,
	proc,
	qring,
	ring,
	string,
	vector
)
//function="k_test_func";
{
  %declaration;
  
  printf("Nur ein Test\n");

  %typecheck;
  %return;
  
}

into {
}
*/
/*
string nn(string) {
  function=iiKernelMiscNN;
};
*/

%%
%C

/*proc sscanf(string, string) = IOsscanf; */

void mytest()
{
  printf("Test\n");
  printf("here commes some other C-text\n");
}