| Reid Spencer | c533824 | 2006-11-04 00:49:52 +0000 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | # |
| 3 | # Program: notcast |
| 4 | # |
| 5 | # Synopsis: Returns 0 if the input does not contain a cast operator |
| 6 | # |
| Reid Spencer | 260a93a | 2006-11-04 00:58:39 +0000 | [diff] [blame] | 7 | # Syntax: notcast tailexpr |
| 8 | # |
| Reid Spencer | de6bce9 | 2006-11-04 01:11:19 +0000 | [diff] [blame^] | 9 | # postpat - optionally allows a regular expression to go at the end |
| 10 | # prepat - optionally allow a regular expression to go at the start |
| Reid Spencer | 260a93a | 2006-11-04 00:58:39 +0000 | [diff] [blame] | 11 | # |
| Reid Spencer | c533824 | 2006-11-04 00:49:52 +0000 | [diff] [blame] | 12 | |
| Reid Spencer | de6bce9 | 2006-11-04 01:11:19 +0000 | [diff] [blame^] | 13 | if grep "$2"'\(\([sz]ext\)\|\(trunc\)\|\(fp2[us]int\)\|\([us]int2fp\)\|\(bitconvert\)\|\(fpext\)\|\(fptrunc\)\)'"$1" |
| Reid Spencer | c533824 | 2006-11-04 00:49:52 +0000 | [diff] [blame] | 14 | then exit 1 |
| 15 | else exit 0 |
| 16 | fi |