paper/sort_gen.pl

   1 #!/usr/local/bin/perl
   2
   3
   4 @sort_hash_desc = (
   5
   6         {
   7                 'access' => [ 'Hash', 'foo' ],
   8                 'type'  => 'int',
   9                 'width' => 2,
  10         },
  11         {
  12                 'access' => [ 'HoH', 'key1', 'key2' ],
  13                 'type'  => 'int',
  14                 'width' => 3,
  15         },
  16         {
  17                 'access' => [ 'HoL', 'list', '3' ],
  18                 'type'  => 'int',
  19                 'width' => 4,
  20         },
  21 ) ;
  22
  23 @sort_list_desc = (
  24
  25         {
  26                 'access' => [ 'List', 2 ],
  27                 'type'  => 'int',
  28                 'width' => 8,
  29         },
  30         {
  31                 'access' => [ 'LoH', '0', 'key2' ],
  32                 'type'  => 'int',
  33                 'width' => 6,
  34         },
  35         {
  36                 'access' => [ 'LoL', '1', '2' ],
  37                 'type'  => 'int',
  38                 'width' => 4,
  39         },
  40 ) ;
  41
  42 @sort_str_desc = (
  43
  44         {
  45                 'access' => [ 'Split', ':' ],
  46                 'slice' => {
  47                         3 => {
  48                                 'type' => 'text',
  49                                 'width' => 10,
  50                         },
  51                         5 => {
  52                                 'type' => 'int',
  53                                 'width' => 4,
  54                         }
  55                 },
  56         },
  57 ) ;
  58