File: inline.tst

package info (click to toggle)
a2ps 1%3A4.14-2
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 13,328 kB
  • sloc: ansic: 26,966; sh: 11,844; lex: 2,286; perl: 1,156; yacc: 757; makefile: 609; lisp: 398; ada: 263; objc: 189; f90: 109; ml: 85; sql: 74; pascal: 57; modula3: 33; haskell: 32; sed: 30; java: 29; python: 24
file content (32 lines) | stat: -rwxr-xr-x 767 bytes parent folder | download | duplicates (8) 
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
 
#! /bin/sh
# -*- ksh -*-

# This program verifies that any inline function is static.
# This test is meant to avoid problems I had on IRIX.

: ${SRCDIR=.}

# Set up other vars
. $SRCDIR/defs || exit 1

# Get the guilty lines in *.c files
# Omit strfime.c and confg.c, coz' their inlines are safe.
# Exclude the word inlined.
res=`(cd $top_srcdir && fgrep 'inline' src/*.c lib/*.c) |
     egrep -v '__inline|static|inlined|lib/(confg|strftime)\.c' |
     sort -u`
if test -n "$res"; then
  echo "The following files use non static inline:"
  echo "$res"
  exit 1
fi

# No inline allowed in a header.
res=`(cd $top_srcdir && fgrep 'inline' src/*.h lib/*.h) | sort -u`
if test -n "$res"; then
  echo "The following headers use inline:"
  echo "$res"
  exit 1
fi

exit 0