1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2008 - INRIA
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7//typename
8[typs,nams]=typename();
9if or(typs<>[1;2;4;5;6;7;8;9;10;11;13;14;15;16;17;128;129;130]) then bugmes();quit;end
10if or(nams<>["s";"p";"b";"sp";"spb";"msp";"i";"h";"c";"m";"mc";"f";"l";"tl";"ml";"ptr";"ip";"fptr"])  then bugmes();quit;end
11