Gftracks - Perl extention for manipulation of gramofiles .tracks files

Usually the interactive shell will be used. The variable TRACKS shall point to the .tracks file to be edited

   export TRACKS=/home/myhome/myrecord.wav.tracks

   perl -MGftracks -e shell;

Within the shell, press h for help.

The .tracks file is read into an array, where the 0th element holds the metadata for the file, and each of the other elements holds the information for the actual track.

For all the subroutines the variable $tracks indicates an array build up in the module.

Those subroutines with a name starting with _ are not exported.

instime inserts a track at a given timestamp

 ins(\@tracks,$timestamp[,$duration]);
 If duration is not defined, the end of the track is set to the
 current end of the track in which the insertion is performed

 _spliceback and _splicefwd splices the rest of the array when
 a track has been deleted. They should only be used internally. 
 In both cases the arguments are a pointer to the tracks array and 
 the index that is to be deleted

 deltrack (\@tracks,$index,$back)

Deltrack removes a track by default using spliceback (unless the last track is deleted).

trackfile returns the filename as given by $ENV{TRACKS} and does some simple sanity checking on it

init($filename) reads the file as specified by filename and returns the array holding all the information in the .tracks-file

$timestamp=tidytime(timestamp)

Does some sanitychecking of the time stamp and tidies up a bit so that the returned timestamp is on the form hh:mm:ss.sss

Prints out some basic help for the shell commands

shelladjusttime ($tracks,$command,$end)

adjusts the time for start or end of a track. End is either set to 'start' or 'end'.

shelladd($tracks,$timestamp) Adds track at a given time

shelldelete($tracks,$trackno)

uses deltrack() to delete the indicated track

shellsave($tracks,$filename) saves the information to $filename

shellprinttracks($tracks)

prints out the beginning and end time of all the tracks

shell($file)

shell will fetch the filename from _trackfile if not given.

shell opens up a quite simple interactive shell for editing.

The following commands are valid:

    h         : help
    a <t>     : add a track at given time
    d <n>     : delete the given track
    n         : print number of tracks
    p         : print start and end times for all tracks
    b <n> <t> : alter beginning of track
    e <n> <t> : alter end of track
    s         : save file
    q         : quit
    ---------------------------------------------------------
    <t> time,  must be given as h:mm:ss.ss 
    <n> tracknumber

printtracks($tracks)

returns the information in $tracks. Suitable for saving.

    (c) Morten Sickel (cpan\@sickel.net) April 2005
    The last version should be available at http://sickel.net
    Licenced under the artistic licence