View source for Listing hash tables and their contents

When you are working on a script that uses hash tables, sometimes you want to see their contents. In contrast to text or ini files, you can't just view them in an easy way. That's where this script comes into play.

You can install it by opening the script editor (Alt+R), creating a new script file (File -> New) and then copy paste the script into it.

 /*
 ***************************************************************************************
 *
 *  hlist.mrc by Jay2k1 @ QuakeNet, 2013
 *
 *  shows the contents of hash tables in alphabetically sorted custom windows
 *
 ***************************************************************************************
 *
 *  USAGE
 *
 *  /hlist [-c|--close] [(partial) table name]
 *
 *  When used without options, /hlist will open a sorted window for every hash table and display their contents.
 *  When used with a hash table name, it will only display that hash table's contents.
 *  It can be used with partial names, e.g. you have the tables "joins_#help" and "joins_#help.script", the
 *  command '/hlist joins' would display both of these.
 *  The -c switch closes the windows. Again, you can specify a full or partial hash table name.
 *
 ***************************************************************************************
 *
 *  SETTINGS
 */
 [[alias]] -l hlist.pad {
   ; set this to $true if you want the hash table data column to be padded (only useful with monospaced font,
   ; e.g. Fixedsys) or to $false if not.
   [[return]] [[$true]]
 }
 [[alias]] -l hlist.prefix {
   ; this is the prefix for the custom window's names. Default is HT_
   [[return]] HT_
 }
 /*
 ***************************************************************************************
 */
 
 [[alias]] hlist {
   ; without any arguments, list all hash tables
   [[If-Then-Else|if]] ![[$1-|$1]] { [[Local_Variables|var]] %a = [[$hget]](0) | [[while]] %a { hlist.show [[$hget]](%a) | [[dec]] %a } }
 
   ; closing windows
   [[If-Then-Else|elseif]] ([[$1-|$1]] == -c) || ([[$1-|$1]] == --close) {
 
     ; without further arguments, close all windows
     [[If-Then-Else|if]] ![[$1-|$2]] {
       [[Local_Variables|var]] %a = [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*),0)
 
       [[while]] %a {
         window -c [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*),%a)
         [[dec]] %a
       }
     }
 
     ; otherwise, close requested windows
     [[If-Then-Else|else]] {
       [[If-Then-Else|if]] ([[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,[[$1-|$2]]))) window -c [[$v1]]
       [[If-Then-Else|else]] {
         [[Local_Variables|var]] %a = [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*,[[$1-|$2]],*),0)
         [[while]] %a {
           window -c [[$window_(remote)|$window(]][[DollarPlus|$+]](@,$hlist.prefix,*,[[$1-|$2]],*),%a)
           [[dec]] %a
         }
       }
     }
   }
 
   ; list hash tables by wildcard match if no matching table exists
   [[If-Then-Else|elseif]] ![[$hget]]([[$1-|$1]]) {
     [[Local_Variables|var]] %a = [[$hget]](0)
     [[If-Then-Else|if]] !%a { [[echo]] -ag hlist: there are no hash tables | [[return]] }
     [[while]] %a {
       [[If-Then-Else|if]] ([[$1-|$1]] isin [[$hget]](%a)) hlist.show [[$hget]](%a)
       [[dec]] %a
     }
   }
 
   ; list specified hash table
   else hlist.show [[$1-|$1]]
 }
 
 ; alias hlist.show: opens a custom window and populates it with contents of a given hash table
 ; expects: hash table name as $1
 ; returns: -
 [[alias]] -l hlist.show {
   [[Local_Variables|var]] %a = [[$hget]]([[$1-|$1]],0).item, %w = [[DollarPlus|$+]](@,$hlist.prefix,[[$1-|$1]],[[$chr]](160),[,%a,]), %len = 0
   [[If-Then-Else|if]] [[$window_(remote)|$window(]]%w) { [[clear]] %w }
   [[If-Then-Else|else]] { window -ls %w }
 
   [[If-Then-Else|if]] $hlist.pad {
     ; get length of the longest item name
     [[while]] %a {
       [[If-Then-Else|if]] ([[$len]]([[$hget]]([[$1-|$1]],%a).item) > %len) [[Local_Variables|var]] %len = [[$v1]]
       [[dec]] %a
     }
     [[Local_Variables|var]] %a = [[$hget]]([[$1-|$1]],0).item
   }
 
   ; loop through hash table items and add them into the window
   [[while]] %a {
     [[Local_Variables|var]] %i = [[$hget]]([[$1-|$1]],%a).item
     [[aline]] %w [[DollarPlus|$+]](%i,[[$str]]([[$chr]](160),[[$calc]](%len - [[$len]](%i)))) => [[$hget]]([[$1-|$1]],%a).data
     [[dec]] %a
   }
 }

{{Author|Jay2k1}}

[[Category:Script Archive]]