memberi.csh
Previous |
Next
# Determine by case-insensitive comparison if the first argument word
# appears somewhere in the list given by the second argument.
# Copyright (c) 1994-2012 by Hamilton Laboratories. All rights reserved.
proc memberi ( a, b )
local i
@ a = lower( a )
foreach i ( $b )
if ( a == lower( i ) ) return 1
end
return 0
end
memberi $argv
|
Previous | Next
