/usr/include/scilab/stack.h is in scilab-include 5.5.2-4+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
c Copyright (C) INRIA
c
c This file must be used under the terms of the CeCILL.
c This source file is licensed as described in the file COPYING, which
c you should have received as part of this distribution. The terms
c are also available at
c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
c*------------------------------------------------------------------
c vsiz size of internal scilab stack
c
c bsiz size of internal chain buf
c
c isizt maximum number of scilab variables global and local
c isiz maximum number of scilab local variables
c psiz defines recursion size
c lsiz dim. of vector containing the command line
c nlgh length of variable names
c csiz used for character coding
c intersiz used in interfaces
c*-------------------------------------------------------------------
Cc (DLL Digital Visual Fortran)
cDEC$ IF DEFINED (FORDLL)
cDEC$ ATTRIBUTES DLLIMPORT:: /stack/, /vstk/, /recu/, /iop/
cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
cDEC$ ATTRIBUTES DLLIMPORT:: /intersci/ ,/cha1/, /dbg/
cDEC$ ENDIF
C ---------------------------------------------------------------
integer csiz,bsiz,isizt,psiz,nsiz,lsiz
parameter (csiz=63,bsiz=4096,isizt=10000,psiz=4096,nsiz=6)
parameter (lsiz=65536)
integer nlgh,vsiz
parameter (nlgh=nsiz*4,vsiz=2)
integer maxdb,maxbpt
parameter (maxdb=100,maxbpt=1000)
integer intersiz
parameter (intersiz=1024)
c
integer, pointer :: stack_reserved_for_c__
double precision, pointer, dimension(:) :: stk
integer, pointer, dimension(:) :: istk
real, pointer, dimension(:) :: sstk
character, pointer :: cstk*(4*vsiz)
complex*16, pointer, dimension(:) :: zstk
common /stack/ stack_reserved_for_c__, stk,
$ istk, sstk, cstk, zstk
integer bot,top,idstk(nsiz,isizt),lstk(isizt),leps,bbot,bot0,isiz
integer gbot,gtop,infstk(isizt)
common /vstk/ bot,top,idstk,lstk,leps,bbot,bot0,infstk,
$ gbot,gtop,isiz
integer ids(nsiz,psiz),pstk(psiz),rstk(psiz),pt,niv,macr,paus
integer icall,krec
common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall,krec
integer ddt,err,lct(8),lin(lsiz),lpt(6),rio,rte,wte
common /iop/ ddt,err,lct,lin,lpt,rio,rte,wte
integer err1,err2,errct,toperr,errpt,ieee,catch
common /errgst/ err1,err2,errct,toperr,errpt,ieee,catch
integer sym,syn(nsiz),char1,fin,fun,lhs,rhs,ran(2),comp(3)
common /com/ sym,syn,char1,fin,fun,lhs,rhs,ran,comp
character alfa(csiz)*1,alfb(csiz)*1,buf*(bsiz)
common /cha1/ alfa,alfb,buf
integer wmac,lcntr,nmacs,macnms(nsiz,maxdb),lgptrs(maxdb+1)
integer bptlg(maxbpt)
common /dbg/ wmac,lcntr,nmacs,macnms,lgptrs,bptlg
integer lbot,ie,is,ipal,nbarg,ladr(intersiz)
common/adre/lbot,ie,is,ipal,nbarg,ladr
integer nbvars,iwhere(intersiz),
$ nbrows(intersiz),nbcols(intersiz),
$ itflag(intersiz),ntypes(intersiz),lad(intersiz),
$ ladc(intersiz),lhsvar(intersiz)
common/intersci/nbvars,iwhere,nbrows,nbcols,
$ itflag,ntypes,lad,ladc,lhsvar
integer ierror
common/ierode/ierror
c*------------------------------------------------------------------
|