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