File: classifytest.crm

package info (click to toggle)
crm114 20100106-7
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 3,184 kB
  • sloc: ansic: 34,910; sh: 617; makefile: 582; lisp: 208
file content (18 lines) | stat: -rwxr-xr-x 517 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#! /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:/
}