Regenerate dia.ref after indentation hook
[scilab.git] / scilab / modules / io / macros / halt.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) XXXX-2008 - INRIA
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13
14 function []=halt(varargin)
15
16     //halt() stops execution until something is entered in the keyboard.
17
18     [lhs,rhs] = argn(0);
19
20     msg = "halt";
21
22     if (rhs > 0) then
23
24         if rhs > 1  then
25             error(msprintf(gettext("%s: Wrong number of input argument.\n"),"halt"));
26         end
27
28         if type(varargin(1)) <> 10 then
29             error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"halt",1));
30         end
31
32         if size(varargin(1),"*") <> 1 then
33             error(msprintf(gettext("%s: Wrong size for input argument #%d: string expected.\n"),"halt",1));
34         end
35
36         msg = string(varargin(1));
37     end
38
39     mprintf(msg);
40     mscanf("%c");
41
42 endfunction