1 # Copyright (C) 2010 The Android Open Source Project 2 # 3 # Licensed under the Apache License, Version 2.0 (the "License"); 4 # you may not use this file except in compliance with the License. 5 # You may obtain a copy of the License at 6 # 7 # http://www.apache.org/licenses/LICENSE-2.0 8 # 9 # Unless required by applicable law or agreed to in writing, software 10 # distributed under the License is distributed on an "AS IS" BASIS, 11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 12 # See the License for the specific language governing permissions and 13 # limitations under the License. 14 # 15 16 # This script is used to check that a given awk executable 17 # implements the match() and substr() functions appropriately. 18 # 19 # These were introduced in nawk/gawk, but the original awk 20 # does not have them. 21 # 22 BEGIN { 23 RSTART=0 24 RLENGTH=0 25 s1="A real world example" 26 if (! match(s1,"world")) { 27 print "Fail match" 28 } else if (RSTART != 8) { 29 print "Fail RSTART ="RSTART 30 } else if (RLENGTH != 5) { 31 print "Fail RLENGTH ="RLENGTH 32 } else { 33 s2=substr(s1,RSTART,RLENGTH) 34 if (s2 != "world") { 35 print "Fail substr="s2 36 } else { 37 print "Pass" 38 } 39 } 40 } 41
