Ticket #60: mydemo.mod

/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% Header section: %% */
%{ 

// Purpose comment:
/**
 *
 * $Id: mydemo.mod, v 1.0 2006/04/06 12:20:00 motsak Exp $
 *
 * This is my demo dynamic module for testing purposes
 *
 **/

// Includes go here:
// #include <.h>


extern void piShowProcList(); // for proclist

%}
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% General declaration section: %% */

category = "tst";
package  = "mydemo";
version  = "$Id: mydemo.mod, v 1.0 2006/04/06 12:20:00 motsak Exp $";
info     = "LIBRARY: mydemo.lib Demo module

PROCEDURES:
  proclist();            Lists all procedures.
  testa(i,j);            Does something with i and j.
";
// Additional files go here:
// files    = a.cc, b.cc;


/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% Initialization section: %% */

%modinitial
  // Initialization procedures...
  // no commands to be run upon loading the module
%endinitial

/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% Singular procedures section: %% */

%Singular 

proc testa (int i,int j)
" keine Hilfe"
{
  "testa";
  int a=i-j;
  return(a);
}
example
{
  Mydemo::testa(2,3);
}



/*
// BUG in modgen generator: "double quotions in help and example strings are not supported!?!????"
proc DoubleQuotiontsInHelpAndExample()
" keine \"Hilfe\" :(((( " 
{
  "helpme";
  Mydemo::_helpme();
  
}
example
{
  "EXAMPLE: "; echo = 2; 
  Mydemo::helpme();
}
*/



/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% C/C++ procedures section: %% */

%procedures 

// User accessible C/C++ procedures

/*
 * NAME:     proclist
 *           procedure without any parameter and no return value;
 * PURPOSE:  shows a list of all defined procedures.
 */
none proclist 
"
NAME:     void proclist(void);
PURPOSE:  shows a list of all defined procedures.
"
{
  piShowProcList();
  %return();
}
example
{
  Mydemo::proclist();
}


none _helpme
{
  %return();
}


/* 
// BUG in modgen scanner: "parameters of type ring are not supported!?!????"
none testRingParameter(ring r) // this line gives "error: parse error at end of file"
{
  %declaration;
  %typecheck;
  %return();
}
*/


// BUG: jump crosses initialization!
none jumpCrosses(int j) 
{
  %declaration;
  %typecheck;
  
  int i = 0; // this line was giving "error: jump crosses initialization"
  
  %return();
}




// BUG: how to return a value?!?!
int returnSomething(int j) 
{
  %declaration;
  %typecheck;
  
  int i = j; // this line was giving "error: jump crosses initialization"
  
//  %return(i); // this line results into: "__res->data = (void *)i(j);" after generation!?!
  %return();
}


// BUG: 
poly doubleArguments(poly a, poly b) 
{
  %declaration;
    poly result = NULL;
  %typecheck;
    
  %return(result);
}

// NO BUG!!!
none doubleArguments2(poly a, poly b) 
{
  %declaration;
  %typecheck;
    
  %return();
}

int doubleArguments3(poly a, poly b) 
{
  %declaration;
  %typecheck;
    
  %return(0);
}



/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% internal C procedures section: %% */

%C


/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* %% The END %% */