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# 22BEGIN { 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