File: funptr.dia.ref

package info (click to toggle)
scilab 5.3.3-10
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 330,656 kB
file content (16 lines) | stat: -rw-r--r-- 734 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Allan CORNET
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
//================================================
// test funptr
//================================================
ptr = funptr('pwd');
if ptr <> 34031 then bugmes();quit;end
ierr = execstr('ptr = funptr(1)','errcatch');
if ierr <> 999 then bugmes();quit;end
ptr = funptr('FCT_NOT_IN_SCILAB');
if ptr <> 0 then bugmes();quit;end
//================================================