From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/system/sort.com | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 pkg/system/sort.com (limited to 'pkg/system/sort.com') diff --git a/pkg/system/sort.com b/pkg/system/sort.com new file mode 100644 index 00000000..4b66ac5f --- /dev/null +++ b/pkg/system/sort.com @@ -0,0 +1,10 @@ +# Common for the SORT program. + +int column # column to be sorted (if nonzero) +int ignore_whitespace # ignore leading whitespace +int numeric_sort # sort numerically rather than alphabetically +int reverse_sort # reverse the sense of the sort +int use_strsrt # ok to use standard STRSRT routine? + +common /srtcom/ column, ignore_whitespace, numeric_sort, reverse_sort, + use_strsrt -- cgit