This file is indexed.

/usr/bin/raw_to_xgraph is in speech-tools 1:2.1~release-8.

This file is owned by root:root, with mode 0o755.

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
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
#!/usr/bin/perl -w

 ###########################################################################
 ##                                                                       ##
 ##                Centre for Speech Technology Research                  ##
 ##                     University of Edinburgh, UK                       ##
 ##                         Copyright (c) 1996                            ##
 ##                        All Rights Reserved.                           ##
 ##                                                                       ##
 ##  Permission is hereby granted, free of charge, to use and distribute  ##
 ##  this software and its documentation without restriction, including   ##
 ##  without limitation the rights to use, copy, modify, merge, publish,  ##
 ##  distribute, sublicense, and/or sell copies of this work, and to      ##
 ##  permit persons to whom this work is furnished to do so, subject to   ##
 ##  the following conditions:                                            ##
 ##   1. The code must retain the above copyright notice, this list of    ##
 ##      conditions and the following disclaimer.                         ##
 ##   2. Any modifications must be clearly marked as such.                ##
 ##   3. Original authors' names are not deleted.                         ##
 ##   4. The authors' names are not used to endorse or promote products   ##
 ##      derived from this software without specific prior written        ##
 ##      permission.                                                      ##
 ##                                                                       ##
 ##  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ##
 ##  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ##
 ##  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ##
 ##  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ##
 ##  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ##
 ##  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ##
 ##  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ##
 ##  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ##
 ##  THIS SOFTWARE.                                                       ##
 ##                                                                       ##
 ########################################################################### 

# /*@name raw_to_xgraph
#  * 
#  * A simple script to convert raw sample data to something
#  * xgraph can plot.
#  * 
#  * @author Richard Caley <rjc@cstr.ed.ac.uk>
#  * @version $Id: raw_to_xgraph.prl,v 1.2 2001/04/04 13:11:27 awb Exp $
#  */

sub useage
{
    print <<END;

Convert raw sample data into something xgraph can plot.

    Useage: raw_to_xgraph [-help] [ RAW_SAMPLE_DATA_FILE ]

	-sr NNN		Wave sample rate.	
	-help		Print this help message

END
}

#__SHARED_SETUP__

$stream = STDIN;
$sample_rate = 1;

while ($#ARGV>=0)
    {
    if ($ARGV[0] =~ /-+h(elp)?/)
	{
	useage();
	exit(0);
	}
    elsif ($ARGV[0] =~ /-+s(ample)?-?r?(ate)?/)
	{
	shift @ARGV;
	$sample_rate = $ARGV[0];
	shift @ARGV;
	}
    else
	{
	last;
	}
    }

if ($#ARGV>=0)
    {
    open(INPUT, $ARGV[0]) ||
	die "can't open '$ARGV[0]' - $!";
    $stream = INPUT;
    }

if ($#ARGV >= 0)
    {
    useage();
    exit(1);
    }



binmode $stream;

$c=0;
while(sysread($stream, $buf, 256))
    {
    foreach $i (unpack("s*", $buf))
	{
	print "",($c++ + 0.0)/$sample_rate, " ", $i, "\n";
	}
    }

if ($stream eq INPUT)
    {
    close(INPUT);
    }

exit(0);