Open-ILS/src/extras/fieldmapper.pl

   1 #!/usr/bin/perl
   2 use strict; use warnings;
   3 use Data::Dumper;
   4 use OpenILS::Utils::Fieldmapper;
   5
   6 my $map = $Fieldmapper::fieldmap;
   7
   8 # if a true value is provided, we generate the web (light) version of the fieldmapper
   9 my $web = $ARGV[0];
  10 # List of classes needed by the opac
  11 my @web_hints = qw/ex mvr au aou aout asv asva asvr asvq
  12                 circ acp acpl acn ccs perm_ex ahn ahr aua ac
  13                 actscecm crcd crmf crrf mus mbts aoc aus/;
  14
  15 print <<JS;
  16
  17 //  ----------------------------------------------------------------
  18 // Autogenerated by fieldmapper.pl
  19 // Requires JSON.js
  20 //  ----------------------------------------------------------------
  21
  22 function Fieldmapper() {}
  23
  24 var errorstr = "Attempt to build fieldmapper object with non-array";
  25
  26 Fieldmapper.prototype.clone = function() {
  27         var obj = new this.constructor();
  28
  29         for( var i in this.a ) {
  30                 var thing = this.a[i];
  31                 if(thing == null) continue;
  32
  33                 if( thing._isfieldmapper ) {
  34                         obj.a[i] = thing.clone();
  35                 } else {
  36
  37                         if(instanceOf(thing, Array)) {
  38                                 obj.a[i] = new Array();
  39
  40                                 for( var j in thing ) {
  41
  42                                         if( thing[j]._isfieldmapper )
  43                                                 obj.a[i][j] = thing[j].clone();
  44                                         else
  45                                                 obj.a[i][j] = thing[j];
  46                                 }
  47                         } else {
  48                                 obj.a[i] = thing;
  49                         }
  50                 }
  51         }
  52         return obj;
  53 }
  54
  55 function FMEX(message) {
  56         this.message = message;
  57 }
  58
  59 FMEX.toString = function() {
  60         return "FieldmapperException: " + this.message + "\\n";
  61
  62 }
  63
  64
  65 JS
  66
  67 for my $object (keys %$map) {
  68
  69         if($web) {
  70                 my $hint = $map->{$object}->{hint};
  71                 next unless (grep { $_ eq $hint } @web_hints );
  72                 #next unless( $hint eq "mvr" or $hint eq "aou" or $hint eq "aout" );
  73         }
  74
  75 my $short_name = $map->{$object}->{hint};
  76
  77 print   <<JS;
  78 $short_name.prototype                                   = new Fieldmapper();
  79 $short_name.prototype.constructor       = $short_name;
  80 $short_name.baseClass                                   = Fieldmapper.constructor;
  81
  82 function $short_name(a) {
  83         this.classname = "$short_name";
  84         this._isfieldmapper = true;
  85         if(a) {
  86                 if( a.constructor == Array) this.a = a;
  87                 else throw new FMEX(errorstr);
  88         } else this.a = [];
  89 }
  90
  91 $short_name._isfieldmapper = true;
  92 JS
  93
  94 for my $field (keys %{$map->{$object}->{fields}}) {
  95
  96 my $position = $map->{$object}->{fields}->{$field}->{position};
  97
  98 print <<JS;
  99 $short_name.prototype.$field=function(n){if(arguments.length == 1)this.a[$position]=n;return this.a[$position];}
 100 JS
 101
 102 }
 103 }
 104