File: classifytest.crm

package info (click to toggle)
crm114 20090807-6
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 3,016 kB
  • ctags: 1,248
  • sloc: ansic: 32,900; sh: 591; makefile: 576; 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:/
}