/usr/share/THE/words.the is in the 3.3~rc1-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | /*
$Id: words.the,v 1.1 2001/01/04 09:42:33 mark Exp $
*/
/***********************************************************************/
/* Description: REXX macro to count the number of words to a target. */
/* Syntax: words [target] */
/* Notes: This macro counts the number of words to the specified */
/* target. */
/* Full XEDIT/KEDIT/THE targets are supported. */
/***********************************************************************/
Trace o
Parse Arg args
If Words(args) = 0 Then args = 1
reply = valid_target(args)
If reply = 'ERROR' Then
Do
'EMSG Error: 17 Invalid target' args
Exit
End
If reply = 'NOTFOUND' Then
Do
'EMSG Error: 17 Target not found' args
Exit
End
'preserve'
start_line = Word(reply,1)
nolines = Word(reply,2)
forward = 1 /* assume direction is forward by defualt */
'EXTRACT /LINE/SIZE/STAY/' /* get various stuff */
current_line = line.1 /* save current line for later */
If nolines < 0 Then Do /* if target before current line */
forward = 0 /* indicate direction to be backward */
nolines = nolines * -1 /* make nolines positive */
End
':'||start_line
totwords = 0 /* reset changed line counter */
Do nolines /* for each line to target ... */
'EXTRACT /CURLINE/TOF/EOF' /* get current line contents, etc.*/
If tof.1 = 'ON', /* ignore line if on TOF or EOF */
| eof.1 = 'ON' Then nop
Else
totwords = totwords + Words(curline.3)
If forward = 1 Then 'N' /* if going forward, get next line */
Else 'U' /* if going backwards, get previous line */
If rc \= 0 Then Leave /* shouldn't get here */
End
'MSG' totwords 'words counted'
If stay.1 = 'ON' Then ':'||current_line
'restore'
Return /* go back to THE */
|