29 lines
672 B
Scilab
29 lines
672 B
Scilab
function []=dynare(fname)
|
|
// Copyright (C) 2001 Michel Juillard
|
|
//
|
|
// DYNARE ( 'Filename' )
|
|
// This command runs the .MOD file specified in Filename.
|
|
// Filename could be enter with or without the .MOD extension.
|
|
|
|
if ~(type(fname)==10) then
|
|
error('The argument in DYNARE must be a text string.');
|
|
end
|
|
k = strindex(fname,'.')
|
|
if k then
|
|
fname = part(fname,1:k-1);
|
|
end
|
|
|
|
command = 'e:/dynare/scilab/dynare_s '+fname;
|
|
|
|
disp(command);
|
|
|
|
unix_w(command);
|
|
|
|
exec(fname+'.sci',-1) ;
|
|
|
|
endfunction
|
|
// MJ 2/9/99: replace clear function by clear ff_
|
|
// MJ 4/7/00: change the path of dynare_m
|
|
// MJ 02/26/01: replaced local variable x by fname
|
|
// MJ 09/14/01: Scilab translation
|