c9237cc · bat · git.iko.soy

git.iko.soy/bat

on master help sign in

Add AWK file for syntax tests

c9237ccsharkdp6 years ago

tests/syntax-tests/highlighted/AWK/quicksort.awknew file+35

compare with master

unifiedsplit

@@ -0,0 +1,35 @@

1+[38;2;117;113;94m#[0m[38;2;117;113;94m quicksort.awk --- Quicksort algorithm, with user-supplied[0m

2+[38;2;117;113;94m#[0m[38;2;117;113;94m comparison function[0m

3+[38;2;117;113;94m#[0m

4+[38;2;117;113;94m#[0m[38;2;117;113;94m Arnold Robbins, arnold@skeeve.com, Public Domain[0m

5+[38;2;117;113;94m#[0m[38;2;117;113;94m January 2009[0m

8+[38;2;117;113;94m#[0m[38;2;117;113;94m quicksort --- C.A.R. Hoare's quicksort algorithm. See Wikipedia[0m

9+[38;2;117;113;94m#[0m[38;2;117;113;94m or almost any algorithms or computer science text.[0m

10+[38;2;117;113;94m#[0m

11+[38;2;117;113;94m#[0m[38;2;117;113;94m Adapted from K&R-II, page 110[0m

12+

13+[3;38;2;102;217;239mfunction[0m[38;2;248;248;242m [0m[38;2;166;226;46mquicksort[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mdata[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mleft[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mright[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mless_than[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mi[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mlast[0m[38;2;248;248;242m)[0m

14+[38;2;248;248;242m{[0m

15+[38;2;248;248;242m [0m[38;2;249;38;114mif[0m[38;2;248;248;242m [0m[38;2;255;255;255m([0m[38;2;255;255;255mleft[0m[38;2;248;248;242m [0m[38;2;249;38;114m>=[0m[38;2;248;248;242m [0m[38;2;255;255;255mright[0m[38;2;255;255;255m)[0m[38;2;248;248;242m [0m[38;2;117;113;94m#[0m[38;2;117;113;94m do nothing if array contains fewer[0m

16+[38;2;248;248;242m [0m[38;2;255;255;255mreturn[0m[38;2;248;248;242m [0m[38;2;117;113;94m#[0m[38;2;117;113;94m than two elements[0m

17+

18+[38;2;248;248;242m [0m[38;2;166;226;46mquicksort_swap[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mleft[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;102;217;239mint[0m[38;2;255;255;255m([0m[38;2;255;255;255m([0m[38;2;255;255;255mleft[0m[38;2;248;248;242m [0m[38;2;249;38;114m+[0m[38;2;248;248;242m [0m[38;2;255;255;255mright[0m[38;2;255;255;255m)[0m[38;2;248;248;242m [0m[38;2;249;38;114m/[0m[38;2;248;248;242m [0m[38;2;190;132;255m2[0m[38;2;255;255;255m)[0m[38;2;255;255;255m)[0m

19+[38;2;248;248;242m [0m[38;2;255;255;255mlast[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;255;255;255mleft[0m

20+[38;2;248;248;242m [0m[38;2;166;226;46mfor[0m[38;2;248;248;242m [0m[38;2;255;255;255m([0m[38;2;255;255;255mi[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;255;255;255mleft[0m[38;2;248;248;242m [0m[38;2;249;38;114m+[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;248;248;242m; [0m[38;2;255;255;255mi[0m[38;2;248;248;242m [0m[38;2;249;38;114m<=[0m[38;2;248;248;242m [0m[38;2;255;255;255mright[0m[38;2;248;248;242m; [0m[38;2;255;255;255mi[0m[38;2;249;38;114m++[0m[38;2;255;255;255m)[0m

21+[38;2;248;248;242m [0m[38;2;166;226;46mif[0m[38;2;248;248;242m [0m[38;2;255;255;255m([0m[38;2;248;248;242m@[0m[38;2;166;226;46mless_than[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mi[0m[38;2;249;38;114m][0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mleft[0m[38;2;249;38;114m][0m[38;2;255;255;255m)[0m[38;2;255;255;255m)[0m

22+[38;2;248;248;242m [0m[38;2;166;226;46mquicksort_swap[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;249;38;114m+[0m[38;2;249;38;114m+[0m[38;2;255;255;255mlast[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mi[0m[38;2;255;255;255m)[0m

23+[38;2;248;248;242m [0m[38;2;166;226;46mquicksort_swap[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mleft[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mlast[0m[38;2;255;255;255m)[0m

24+[38;2;248;248;242m [0m[38;2;166;226;46mquicksort[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mleft[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mlast[0m[38;2;248;248;242m [0m[38;2;249;38;114m-[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mless_than[0m[38;2;255;255;255m)[0m

25+[38;2;248;248;242m [0m[38;2;166;226;46mquicksort[0m[38;2;255;255;255m([0m[38;2;255;255;255mdata[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mlast[0m[38;2;248;248;242m [0m[38;2;249;38;114m+[0m[38;2;248;248;242m [0m[38;2;190;132;255m1[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mright[0m[38;2;248;248;242m,[0m[38;2;248;248;242m [0m[38;2;255;255;255mless_than[0m[38;2;255;255;255m)[0m

26+[38;2;248;248;242m}[0m

27+

28+[38;2;117;113;94m#[0m[38;2;117;113;94m quicksort_swap --- helper function for quicksort, should really be inline[0m

29+

30+[3;38;2;102;217;239mfunction[0m[38;2;248;248;242m [0m[38;2;166;226;46mquicksort_swap[0m[38;2;248;248;242m([0m[3;38;2;253;151;31mdata[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mi[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mj[0m[38;2;248;248;242m, [0m[3;38;2;253;151;31mtemp[0m[38;2;248;248;242m)[0m

31+[38;2;248;248;242m{[0m

32+[38;2;248;248;242m [0m[38;2;255;255;255mtemp[0m[38;2;248;248;242m [0m[38;2;249;38;114m=[0m[38;2;248;248;242m [0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mi[0m[38;2;249;38;114m][0m

33+[38;2;248;248;242m [0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mi[0m[38;2;249;38;114m][0m[38;2;248;248;242m = [0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mj[0m[38;2;249;38;114m][0m

34+[38;2;248;248;242m [0m[38;2;255;255;255mdata[0m[38;2;249;38;114m[[0m[38;2;255;255;255mj[0m[38;2;249;38;114m][0m[38;2;248;248;242m = [0m[38;2;255;255;255mtemp[0m

35+[38;2;248;248;242m}[0m

tests/syntax-tests/source/AWK/quicksort.awknew file+35

@@ -0,0 +1,35 @@

1+# quicksort.awk --- Quicksort algorithm, with user-supplied

2+# comparison function

3+#

4+# Arnold Robbins, arnold@skeeve.com, Public Domain

5+# January 2009

8+# quicksort --- C.A.R. Hoare's quicksort algorithm. See Wikipedia

9+# or almost any algorithms or computer science text.

10+#

11+# Adapted from K&R-II, page 110

12+

13+function quicksort(data, left, right, less_than, i, last)

14+{

15+ if (left >= right) # do nothing if array contains fewer

16+ return # than two elements

17+

18+ quicksort_swap(data, left, int((left + right) / 2))

19+ last = left

20+ for (i = left + 1; i <= right; i++)

21+ if (@less_than(data[i], data[left]))

22+ quicksort_swap(data, ++last, i)

23+ quicksort_swap(data, left, last)

24+ quicksort(data, left, last - 1, less_than)

25+ quicksort(data, last + 1, right, less_than)

26+}

27+

28+# quicksort_swap --- helper function for quicksort, should really be inline

29+

30+function quicksort_swap(data, i, j, temp)

31+{

32+ temp = data[i]

33+ data[i] = data[j]

34+ data[j] = temp

35+}