#!/usr/bin/perl

###############################################################################
###############################################################################
##
##  Copyright (C) Sistina Software, Inc.  1997-2003  All rights reserved.
##  Copyright (C) 2004 Red Hat, Inc.  All rights reserved.
##
##  This copyrighted material is made available to anyone wishing to use,
##  modify, copy, or redistribute it subject to the terms and conditions
##  of the GNU General Public License v.2.
##
###############################################################################
###############################################################################


foreach $arg (@ARGV)
{
    if ($arg eq '-nosort')
    {
	$nosort = 1;
    }
    else
    {
	push(@files, $arg);
    }
}


foreach $file (@files)
{
    open(FILE, "< $file") || die "decipher_lockstate_dump: can't open file %s: $!\n";

    while ($line = <FILE>)
    {
	$line =~ s/\n/ \n/;

	if ($line =~ /^Glock/)
	{
	    $locks[$ln++] .= "\n" if (!$nosort && $notfirst++);
	    $line =~ s/\((0),/\(reserved[$1],/;
	    $line =~ s/\((1),/\(nondisk[$1],/;
	    $line =~ s/\((2),/\(inode[$1],/;
	    $line =~ s/\((3),/\(rgrp[$1],/;
	    $line =~ s/\((4),/\(meta[$1],/;
	    $line =~ s/\((5),/\(iopen[$1],/;
	    $line =~ s/\((6),/\(flock[$1],/;
	    $line =~ s/\((7),/\(jid[$1],/;
	    $line =~ s/\((8),/\(quota[$1],/;

	    $line =~ s/\(nondisk(\S+), (0)\)/\(nondisk$1, mount[$2]\)/;
	    $line =~ s/\(nondisk(\S+), (1)\)/\(nondisk$1, live[$2]\)/;
	    $line =~ s/\(nondisk(\S+), (2)\)/\(nondisk$1, trans[$2]\)/;
	    $line =~ s/\(nondisk(\S+), (3)\)/\(nondisk$1, rename[$2]\)/;

	    $line =~ s/\(meta(\S+), (0)\)/\(meta$1, super[$2]\)/;
	    $line =~ s/\(meta(\S+), (1)\)/\(meta$1, crap[$2]\)/;

	    if ($line =~ /\(quota\S+, (\d+)\)/)
	    {
		$qid = (($1 % 2) ? "Group" : "User") . int($1 / 2) . "[$1]";
		$line =~ s/\(quota(\S+), \d+\)/\(quota$1, $qid\)/;
	    }
	}
	if ($line =~ /gl_flags/)
	{
	    $line =~ s/ (0) / plug[$1] /;
	    $line =~ s/ (1) / lock[$1] /;
	    $line =~ s/ (2) / sticky[$1] /;
	    $line =~ s/ (3) / prefetch[$1]/;
	    $line =~ s/ (4) / sync[$1] /;
	    $line =~ s/ (5) / dirty[$1] /;
	    $line =~ s/ (6) / skip_waiters2[$1] /;
	    $line =~ s/ (7) / greedy[$1] /;
	}
	if ($line =~ /state/)
	{
	    $line =~ s/(0)/unlocked[$1]/;
	    $line =~ s/(1)/exclusive[$1]/;
	    $line =~ s/(2)/deferred[$1]/;
	    $line =~ s/(3)/shared[$1]/;
	}
	if ($line =~ /gh_flags/)
	{
	    $line =~ s/ (0) / try[$1] /;
	    $line =~ s/ (1) / try_1cb[$1] /;
	    $line =~ s/ (2) / noexp[$1] /;
	    $line =~ s/ (3) / any[$1] /;
	    $line =~ s/ (4) / priority[$1] /;
	    $line =~ s/ (5) / local_excl[$1] /;
	    $line =~ s/ (6) / async[$1] /;
	    $line =~ s/ (7) / exact[$1] /;
	    $line =~ s/ (8) / skip[$1] /;
	    $line =~ s/ (9) / atime[$1] /;
	    $line =~ s/ (10) / nocache[$1] /;
	    $line =~ s/ (11) / sync[$1] /;
	    $line =~ s/ (12) / nocancel[$1] /;
	}
	if ($line =~ /gh_iflags/)
	{
	    $line =~ s/ (0) / mutex[$1] /;
	    $line =~ s/ (1) / promote[$1] /;
	    $line =~ s/ (2) / demote[$1] /;
	    $line =~ s/ (3) / greedy[$1] /;
	    $line =~ s/ (4) / alloced[$1] /;
	    $line =~ s/ (5) / dealloc[$1] /;
	    $line =~ s/ (6) / holder[$1] /;
	    $line =~ s/ (7) / first[$1] /;
	    $line =~ s/ (8) / recurse[$1] /;
	    $line =~ s/ (9) / aborted[$1] /;
	}
	if ($line =~ /owner/)
	{
	    $line =~ s/(-1)/none[$1]/;
	}
	if ($line =~ /type/)
	{
	    $line =~ s/(0)/none[$1]/;
	    $line =~ s/(1)/regular[$1]/;
	    $line =~ s/(2)/directory[$1]/;
	    $line =~ s/(5)/symbolic link[$1]/;
	    $line =~ s/(7)/block device[$1]/;
	    $line =~ s/(8)/character device[$1]/;
	    $line =~ s/(101)/fifo[$1]/;
	    $line =~ s/(102)/socket[$1]/;
	}
	if ($line =~ /i_flags/)
	{
	    $line =~ s/ (0) / qd_locked[$1] /;
	    $line =~ s/ (1) / paged[$1] /;
	    $line =~ s/ (2) / sw_paged[$1] /;
	}
    
	$locks[$ln] .= $line;
	$ln++ if ($nosort);
    }

    close(FILE);
}


@locks = sort funky @locks unless ($nosort);


foreach $lock (@locks)
{
    print $lock;
}



sub funky
{
    my($a_iopen, $b_iopen) = (0, 0);
    my($a_locked, $b_locked) = (0, 0);
    my($a_queued, $b_queued) = (0, 0);
    my($a_unlocked, $b_unlocked) = (0, 0);


    $a_iopen = 1 if ($a =~ /iopen/);
    $b_iopen = 1 if ($b =~ /iopen/);

    $a_locked = 1 if ($a =~ /gl_flags.*lock.*\n/);
    $b_locked = 1 if ($b =~ /gl_flags.*lock.*\n/);

    $a_queued = 1 if ($a =~ /Request/ ||
		      $a =~ /Holder/ ||
		      $a =~ /Waiter/);
    $b_queued = 1 if ($b =~ /Request/ ||
		      $b =~ /Holder/ ||
		      $b =~ /Waiter/);

    $a_unlocked = 1 if ($a =~ /gl_state.*unlocked.*\n/);
    $b_unlocked = 1 if ($b =~ /gl_state.*unlocked.*\n/);


    return ($a_iopen <=> $b_iopen) if ($a_iopen != $b_iopen);
    return -($a_locked <=> $b_locked) if ($a_locked != $b_locked);
    return -($a_queued <=> $b_queued) if ($a_queued != $b_queued);
    return ($a_unlocked <=> $b_unlocked) if ($a_unlocked != $b_unlocked);
 

    return 0;
}


