/*
 * $Id: nsmath_tm,v 1.1.1.1 1999/04/09 19:19:19 nsadmin Exp $
 *
 * Portions copyright 1986 through 1996 by Wolfram Research, Inc. 
 */
 
#include "mathlink.h"

:Evaluate:	Print["NetSolve installed. Issue NetSolve[] to see the usage"]
:Evaluate:      Print["Portions copyright 1986 through 1996 by Wolfram Research, Inc."]

:Evaluate:	NetSolve::usage = "usage:
  NetSolve[FuncName[arg1,...]] - blocking problem call
  NetSolveNB[FuncName[arg1,...]] - nonblocking problem call
  NetSolveProbe[request] - checks if the request is completed
  NetSolveWait[request] - waits for a request to complete
  NetSolveGetAgent[] - returns a string containing current agent
  NetSolveSetAgent[AgentName] - changes the agent we are working with
  NetSolveError[] - returns the result code of the last NetSolve function
  NetSolveErrorMsg[rc] - returns a string describing the result code passed
  NetSolve[\\\"?problems\\\"] - shows a list of available problems
  NetSolve[\\\"?servers\\\"] - shows a list of available servers
  NetSolve[\\\"?FuncName[]\\\"] - shows a problem description"
		 

#ifndef LOGLEVEL
#define LOGLEVEL 5
#endif


:Begin:
:Function:      nsmath_usage
:Pattern:       NetSolve[]
:Arguments:     {}
:ArgumentTypes: {}
:ReturnType:	Manual
:End:

:Begin:
:Function:      nsmath_info
:Pattern:       NetSolve[s_?StringQ]
:Arguments:     {s}
:ArgumentTypes: {String}
:ReturnType:    Manual
:End:
                             
:Begin:
:Function:      nsmath_solve_problem
:Pattern:       NetSolve[f:_]
:Arguments:     {f}
:ArgumentTypes: {Manual}
:ReturnType:    Manual
:End:       

:Begin:
:Function:	nsmath_solve_problem_nb
:Pattern:	NetSolveNB[f:_]
:Arguments:	{f}
:ArgumentTypes:	{Manual}
:ReturnType:	Manual
:End:

:Begin:
:Function:	nsmath_probe
:Pattern:	NetSolveProbe[f_Integer]
:Arguments:	{f}
:ArgumentTypes:	{Integer}
:ReturnType:	Manual
:End:

:Begin:
:Function:	nsmath_wait
:Pattern:	NetSolveWait[f_Integer]
:Arguments:	{f}
:ArgumentTypes:	{Integer}
:ReturnType:	Manual
:End:


:Begin:
:Function:      nsmath_get_agent
:Pattern:       NetSolveGetAgent[]
:Arguments:     {}
:ArgumentTypes: {}
:ReturnType:    Manual
:End:          

:Begin:
:Function:      nsmath_set_agent
:Pattern:       NetSolveSetAgent[f_?StringQ]
:Arguments:     {f}
:ArgumentTypes: {String}
:ReturnType:    Manual
:End:          

:Begin:
:Function:      nsmath_error_msg
:Pattern:       NetSolveErrorMsg[f_Integer]
:Arguments:     {f}
:ArgumentTypes: {Integer}
:ReturnType:    Manual
:End:          

:Begin:
:Function:      nsmath_error
:Pattern:       NetSolveError[]
:Arguments:     {}
:ArgumentTypes: {}
:ReturnType:    Integer
:End:          




