File Manager

#! /usr/bin/crm
#
#	classifytest.crm - test classifying between files

# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.

{
	match (:data:) /.*/
	isolate (:stats:)
	output /classifying between files :*:_arg2: and :*:_arg3: :*:_nl:/
	{
	     classify [:data:] (:*:_arg2: | :*:_arg3:) (:stats:) /[[:graph:]]+/
	     output / file :*:_arg2: matches better :*:_nl: :*:_nl: :*:stats::*:_nl:/
	     exit
	}
	output / file :*:_arg3: matches better :*:_nl::*:_nl::*:stats::*:_nl:/
}