/*=:project
    scalable Inman Flash Replacement (sIFR) version 3.

  =:file
    Copyright: 2006 Mark Wubben.
    Author: Mark Wubben, <http://novemberborn.net/>

  =:history
    * IFR: Shaun Inman
    * sIFR 1: Mike Davidson, Shaun Inman and Tomas Jogin
    * sIFR 2: Mike Davidson, Shaun Inman, Tomas Jogin and Mark Wubben

  =:license
    This software is licensed and provided under the CC-GNU LGPL.
    See <http://creativecommons.org/licenses/LGPL/2.1/>    
*/

import SifrStyleSheet;

class sIFR {
  public static var DEFAULT_TEXT                 = 'Rendered with sIFR 3, beta 2<br><strong>Rendered with sIFR 3, beta 2</strong><br><em>Rendered with sIFR 3, beta 2</em>';
  public static var VERSION_WARNING              = 'Please update the Flash movie to version ';
  public static var CSS_ROOT_CLASS               = 'sIFR-root';
  public static var DEFAULT_WIDTH                = 300;
  public static var DEFAULT_HEIGHT               = 100;
  public static var DEFAULT_ANTI_ALIAS_TYPE      = 'advanced';
  public static var MARGIN_LEFT                  = -3;
  public static var PADDING_BOTTOM               = 5; // Extra padding to make sure the movie is high enough in most cases.
  public static var LEADING_REMAINDER            = 2; // Flash uses the specified leading minus 2 as the applied leading.

  public static var MIN_FONT_SIZE                = 6;
  public static var MAX_FONT_SIZE                = 126;
  public static var ALIASING_MAX_FONT_SIZE       = 48;
  public static var VERSION                      = 'beta2';
  
  //= Holds CSS properties and other rendering properties for the Flash movie.
  //  *Don't overwrite!*
  public static var styles:SifrStyleSheet        = new SifrStyleSheet();
  //= Allow sIFR to be run from the filesystem
  public static var fromLocal:Boolean            = true;
  //= Array containing domains for which sIFR may render text. Used to prevent
  //  hotlinking. Use `*` to allow all domains.
  public static var domains:Array                = [];
  //= Whether kerning is enabled by default. This can be overriden from the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002811.html>.
  public static var defaultKerning:Boolean       = true;
  //= Default value which can be overriden from the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002788.html>.
  public static var defaultSharpness:Number      = 0;
  //= Default value which can be overriden from the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002787.html>.
  public static var defaultThickness:Number      = 0;
  //= Default value which can be overriden from the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002732.html>.
  public static var defaultOpacity:Number        = -1; // Use client settings
  //= Default value which can be overriden from the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002788.html>.
  public static var defaultBlendMode:Number      = -1; // Use cliest settings
  //= Overrides the grid fit type as defined on the client side.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002444.html>.
  public static var enforcedGridFitType:String   = null;
  //= If `true` sIFR won't override the anti aliasing set in the Flash IDE when exporting.
  //  Thickness and sharpness won't be affected either.
  public static var preserveAntiAlias:Boolean    = false;
  //= If `true` sIFR will disable anti-aliasing if the font size is larger than `ALIASING_MAX_FONT_SIZE`.
  //  This setting is *independent* from `preserveAntiAlias`.
  public static var conditionalAntiAlias:Boolean = true;
  //= Sets the anti alias type. By default it's `DEFAULT_ANTI_ALIAS_TYPE`.
  //  See also <http://livedocs.macromedia.com/flash/8/main/wwhelp/wwhimpl/common/html/wwhelp.htm?context=LiveDocs_Parts&file=00002733.html>.
  public static var antiAliasType:String         = null;
  //= Flash filters can be added to this array and will be applied to the text field.
  public static var filters:Array                = [];
  //= A mapping from the names of the filters to their actual objecs, used when transforming
  //  filters defined on the client. You can add additional filters here so they'll be supported
  //  when defined on the client.
  public static var filterMap:Object             = {
    DisplacementMapFilter : flash.filters.DisplacementMapFilter,
    ColorMatrixFilter     : flash.filters.ColorMatrixFilter,
    ConvolutionFilter     : flash.filters.ConvolutionFilter,
    GradientBevelFilter   : flash.filters.GradientBevelFilter,
    GradientGlowFilter    : flash.filters.GradientGlowFilter,
    BevelFilter           : flash.filters.BevelFilter,
    GlowFilter            : flash.filters.GlowFilter,
    BlurFilter            : flash.filters.BlurFilter,
    DropShadowFilter      : flash.filters.DropShadowFilter
  };

  private static var instance;
  private static var menu;
  private static var menuItems = [];
  
  private var textField;
  private var content;
  private var forceSingleLine;
  private var fontSize;
  private var tuneWidth;
  private var tuneHeight;
  private var primaryLink;
  private var primaryLinkTarget;
  
  public var realHeight;
  public var renderHeight;
  

  
  //= Sets the default styles for `sIFR.styles`. This method is called
  //  directly in `sifr.fla`, before options are applied.
  public static function setDefaultStyles() {
    sIFR.styles.parseCSS([
      '.', CSS_ROOT_CLASS, ' { color: #000000; }',
      'strong { display: inline; font-weight: bold; } ',
      'em { display: inline; font-style: italic; }',
      'a { color: #0000FF; text-decoration: underline; }',
      'a:hover { color: #0000FF; text-decoration: none; }'
    ].join(''));
  }
  
  //= Validates the domain sIFR is being used on.
  //  Returns `true` if the domain is valid, `false` otherwise.  
  public static function checkDomain():Boolean {
    if(sIFR.domains.length == 0) return true;

    var domain = (new LocalConnection()).domain();
    for(var i = 0; i < sIFR.domains.length; i++) {
      var match = sIFR.domains[i];
      if(match == '*' || match == domain) return true;

      var wildcard = match.lastIndexOf('*');
      if(wildcard > -1) {
        match = match.substr(wildcard + 1);
        var matchPosition = domain.lastIndexOf(match);
        if(matchPosition > -1 && (matchPosition + match.length) == domain.length) return true;
      }
    }
    
    return false;
  }
  
  public static function checkLocation():Boolean {
    return _root._url.indexOf('?') == -1;
  }
  
  //= Runs sIFR. Called automatically.
  public static function run(forced) {
    // Have to set up the menu items first!
    menuItems.push(
      new ContextMenuItem("Follow link", function() { getURL(sIFR.instance.primaryLink, sIFR.instance.primaryLinkTarget) }),
      new ContextMenuItem("Open link in new window", function() { getURL(sIFR.instance.primaryLink, "_new") })
    );
    
    var holder  = _root.holder;
    var content = DEFAULT_TEXT;
    if(!forced) {
      if(checkLocation() && checkDomain()) content = unescapeUnicode(_root.content);
      if(content == 'undefined' || content == '') {
        fscommand('resetmovie', '');

        // If the content is the default text, wait two seconds for a possible resetmovie to proceed
        var interval; // Odd syntax to deal with the MTASC compiler
        interval = setInterval(function() {
          clearInterval(interval);
          sIFR.run(true);
        }, 2000);
        
        return;
      }
    }
    
    if(_root.version != VERSION && !forced) content = VERSION_WARNING + _root.version;
    
    // Sets stage parameters
    Stage.scaleMode = 'noscale';
    Stage.align = 'TL';

    menu = new ContextMenu();
    menu.hideBuiltInItems();
    _root.menu = menu;
    
    // Other parameters
    var opacity = parseInt(_root.opacity);
    if(!isNaN(opacity)) holder._alpha = sIFR.defaultOpacity == -1 ? opacity : sIFR.defaultOpacity;
    else holder._alpha = 100;
    _root.blendMode = sIFR.defaultBlendMode == -1 ? _root.blendmode : sIFR.defaultBlendMode;

    sIFR.instance = new sIFR(holder.txtF, content);
    Key.addListener({onKeyDown: function() { sIFR.instance.blur() }});
    Mouse.addListener({onMouseWheel: function() { sIFR.instance.blur() }});
    if(_root.selectable == 'false') Mouse.addListener({onMouseDown: function() { sIFR.instance.blur() }});
    if(_root.cursor == 'arrow') _root.holder.useHandCursor = false;

    // Setup callbacks
    _root.watch('callbackTrigger', function() { 
      sIFR.instance.callback();
      return false;
    });
  }
  
  private static function eval(str) {
    var as;

    if(str.charAt(0) == '{') { // Ah, we need to create an object
      as = {};
      str = str.substring(1, str.length - 1);
      var $ = str.split(',');
      for(var i = 0; i < $.length; i++) {
        var $1 = $[i].split(':');
        as[$1[0]] = sIFR.eval($1[1]);
      }
    } else if(str.charAt(0) == '"') { // String
      as = str.substring(1, str.length - 1);
    } else if(str == 'true' || str == 'false') { // Boolean
      as = str == 'true';
    } else { // Float
      as = parseFloat(str);
    }
    
    return as;
  }
  
  private static function unescapeUnicode(str) {
    var result = [];
    var escapees = str.split('%');
    
    for(var i = 0; i < escapees.length; i++) {
      var escapee = escapees[i];
      if(i > 0 || str.charAt(0) == '%') {
        var hex = escapee.charAt(0) == 'u' ? escapee.substr(1, 4) : escapee.substr(0, 2);
        result.push(String.fromCharCode(parseInt(hex, 16)), escapee.substr(escapee.charAt(0) == 'u' ? 5 : 2));
      } else result.push(escapee);
    }

    return result.join('');
  }
  
  private function applyFilters() {
    var $filters = this.textField.filters;
    $filters = $filters.concat(sIFR.filters);
    
    var $ = unescapeUnicode(_root.flashfilters).split(';'); // name,prop:value,...;
    for(var i = 0; i < $.length; i++) {
      var $1 = $[i].split(',');
      
      var newFilter = new sIFR.filterMap[$1[0]]();
      for(var j = 1; j < $1.length; j++) {
        var $2 = $1[j].split(':');
        newFilter[$2[0]] = sIFR.eval(unescapeUnicode($2[1]));
      }
      
      $filters.push(newFilter);
    }

    this.textField.filters = $filters;
  }
  
  private function applyBackground() {
    if(!_root.background) return;
    
    var background = _root.createEmptyMovieClip('backgroundClip', 10);
    var loader = new MovieClipLoader();
    loader.addListener({onLoadInit: function() { background.setMask(_root.holder) }});
    loader.loadClip("/projectfiles/img.jpg", background);
  }
  
  private function setTextFieldSize(width, height) {
    textField._width = tuneWidth + (isNaN(width) ? DEFAULT_WIDTH : width);
    textField._height = tuneHeight + (isNaN(height) ? DEFAULT_HEIGHT : height);
  }
  
  private function sIFR(textField, content) {
    sIFR.instance = this; // Need to set it right now, because it's used in closures later
    
    this.textField = textField;
    this.content   = content;
    
    this.primaryLink       = unescapeUnicode(_root.link);
    this.primaryLinkTarget = unescapeUnicode(_root.target);

    var offsetLeft         = parseInt(_root.offsetleft);
    textField._x           = MARGIN_LEFT + (isNaN(offsetLeft) ? 0 : offsetLeft);
    var offsetTop          = parseInt(_root.offsettop);
    if(!isNaN(offsetTop)) textField._y += offsetTop;
    
    tuneWidth = parseInt(_root.tunewidth);
    if(isNaN(tuneWidth)) tuneWidth = 0;
    tuneHeight = parseInt(_root.tuneheight);
    if(isNaN(tuneHeight)) tuneHeight = 0;
    
    this.renderHeight     = parseInt(_root.renderheight);
    this.setTextFieldSize(parseInt(_root.width), parseInt(_root.height));
    this.forceSingleLine  = _root.forcesingleline == 'true';
    textField.wordWrap    = _root.preventwrap != 'true';
    textField.selectable  = _root.selectable == 'true';
    textField.gridFitType = sIFR.enforcedGridFitType || _root.gridfittype;

    this.applyFilters();
    this.applyBackground();

    this.fontSize = parseInt(_root.size);
    if(isNaN(this.fontSize)) this.fontSize = 26;

    this.setStyles(unescapeUnicode(_root.css), false);
    
    if(!sIFR.preserveAntiAlias && (sIFR.conditionalAntiAlias && this.fontSize < ALIASING_MAX_FONT_SIZE
    || !sIFR.conditionalAntiAlias)) {
      textField.antiAliasType = (_root.antialiastype != '' ? _root.antialiastype : sIFR.antiAliasType) || DEFAULT_ANTI_ALIAS_TYPE;      
    }

    if(!sIFR.preserveAntiAlias || !isNaN(parseInt(_root.sharpness))) {
      textField.sharpness = parseInt(_root.sharpness);
    }
    if(isNaN(textField.sharpness)) textField.sharpness = sIFR.defaultSharpness;

    if(!sIFR.preserveAntiAlias || !isNaN(parseInt(_root.thickness))) {
      textField.thickness = parseInt(_root.thickness);
    }
    if(isNaN(textField.thickness)) textField.thickness = sIFR.defaultThickness;
    
    textField._parent._xscale = textField._parent._yscale = 100;
    
    this.setupEvents();
    this.write(content);
    this.repaint();
  }
  
  private function repaint() {
    var leadingFix = this.isSingleLine() ? sIFR.styles.latestLeading : 0;
    if(leadingFix > 0) leadingFix -= LEADING_REMAINDER;

    if(this.forceSingleLine) {
      // This is so inefficient it's not even funny.
      while(!this.isSingleLine()) {
        this.textField._width += 500;
      }
    }

    // Flash wants to scroll the movie by one line, by adding the fontSize to the
    // textField height this is no longer happens. We also add the absolute tuneHeight,
    // to prevent a negative value from triggering the bug. We won't send the fake
    // value to the JavaScript side, though.
    textField._height = textField.textHeight + PADDING_BOTTOM + this.fontSize + Math.abs(tuneHeight) + tuneHeight - leadingFix;
    this.realHeight = Math.floor(textField._height - this.fontSize - Math.abs(tuneHeight));
    var arg = 'height:' + this.realHeight;
    if(_root.fitexactly == 'true') arg += ',width:' + (textField.textWidth + tuneWidth);

    this.doScale(function() {
      fscommand('resize', arg);
      sIFR.instance.renderHeight = sIFR.instance.realHeight;
    });
  }
  
  private function write(content) {
    this.textField.htmlText = ['<p class="', CSS_ROOT_CLASS, '">', 
                                content, '</p>'
                              ].join('');
  }
  
  private function isSingleLine() {
    return Math.round((this.textField.textHeight - sIFR.styles.latestLeading) / this.fontSize) == 1;
  }
  
  public function doScale(callback) {
    if(Stage.height == 0)  {
      var interval;
      interval = setInterval(function() {
        if(Stage.height == 0) return;
        clearInterval(interval);
        sIFR.instance.doScale(callback);
      }, 50);
      
      return;
    }
    
    this.scale(callback);
  }

  //= Scales the text field to the new scale of the Flash movie itself.
  public function scale(callback) {
    var zoom = 5 * Math.round(20 * Stage.height / this.renderHeight);
    this.textField._parent._xscale = this.textField._parent._yscale = zoom;
    if(callback) callback();
  }
  
  private function calculateRatios() {
    var strings = ['x', 'x<br>x', 'x<br>x<br>x', 'x<br>x<br>x<br>x'];
    var results = {};
    
    this.setTextFieldSize(1000, 1000);

    for(var i = 1; i <= strings.length; i++) {
      var size = MIN_FONT_SIZE;

      this.write(strings[i - 1]);
      while(size < MAX_FONT_SIZE) {
        var rootStyle = sIFR.styles.getStyle('.sIFR-root') || {};
        rootStyle.fontSize = size;
        sIFR.styles.setStyle('.sIFR-root', rootStyle);
        this.textField.styleSheet = sIFR.styles;
        this.repaint();
        var ratio = (this.realHeight - PADDING_BOTTOM - tuneHeight) / i / size;
        if(!results[size]) results[size] = ratio;
        else results[size] = ((i - 1) * results[size] + ratio) / i;
        size++;
      }
    }

    var ratios = [];

    // Here we round the ratios to two decimals and try to create an optimized array of ratios 
    // to be used by sIFR.
    // lastRatio is the ratio we are currently optimizing
    var lastRatio = roundDecimals(results[MIN_FONT_SIZE], 2);
    for(var size = MIN_FONT_SIZE + 1; size < MAX_FONT_SIZE; size++) {
      var ratio = roundDecimals(results[size], 2);
      
      // If the lastRatio is different from the previous ratio, and from the current ratio, 
      // try to see if there's at least a 1px difference between the two. If so, store the 
      // lastRatio with the previous size, then optimize the current ratio.
      if(lastRatio != results[size - 1] && lastRatio != ratio && Math.abs(Math.round(size * ratio) - Math.round(size * lastRatio)) >= 1) {
        ratios.push(size -1, lastRatio);
        lastRatio = ratio;
      }
    }

    // Add the last optimized ratio as the default ratio.
    ratios.push(lastRatio);

    fscommand('debug:ratios', '[' + ratios.join(',') + ']');
  }
  
  private function roundDecimals(value, decimals) {
    return Math.round(value * Math.pow(10, decimals)) / Math.pow(10, decimals);
  }
  
  public function callback() {
    switch(_root.callbackType) {
      case 'replacetext':
        this.content = unescapeUnicode(_root.callbackValue);
        this.setupEvents();
        this.write(this.content);
        this.repaint();
        break;
      case 'resettext':
        this.write('');
        this.write(this.content);
        break;
      case 'ratios':
        this.calculateRatios();
        break;
      case 'resize':
        this.setTextFieldSize(parseInt(_root.callbackValue), this.realHeight);
        this.repaint();
        break;
      case 'scale':
        this.repaint();
        break;
      case 'changecss':
        this.setStyles(unescapeUnicode(_root.callbackValue), true);
        this.repaint();
        break;
    }
  }
  
  private function setupEvents() {
    if(_root.fixhover == 'true' && this.content.indexOf('<a ') != -1
    && this.content.indexOf('<a ') == this.content.lastIndexOf('<a ')) {
      this.textField._parent.onRollOver = function() { fscommand('event', 'onRollOver') };
      this.textField._parent.onRollOut  = function() { sIFR.instance.fixHover(); fscommand('event', 'onRollOut') };
      this.textField._parent.onRelease  = function() { getURL(sIFR.instance.primaryLink, sIFR.instance.primaryLinkTarget) };
      menu.customItems = menuItems;
    } else {
      if(_root.events == 'true') {
        this.textField._parent.onRollOver = function() { fscommand('event', 'onRollOver') };
        this.textField._parent.onRollOut  = function() { fscommand('event', 'onRollOut') };
        this.textField._parent.onRelease  = function() { fscommand('event', 'onRelease') };
      } else {
        delete this.textField._parent.onRollOver;
        delete this.textField._parent.onRollOut;
        delete this.textField._parent.onRelease;
      }
      
      menu.customItems = [];
    }
  }
  
  private function fixHover() {
    this.write('');
    this.write(this.content);
  }
  
  public function blur() {
    switch(Key.getCode()) {
      case Key.SHIFT:
      case Key.CONTROL:
        break;
      default:
        fscommand('blur');
    }
  }
  
  private function setStyles(css, reset) {
    if(reset) {
      sIFR.styles = new SifrStyleSheet();
      sIFR.setDefaultStyles();
    }
    
    sIFR.styles.fontSize = this.fontSize;
    // Set font-size and other styles
    sIFR.styles.parseCSS(css);
    
    var rootStyle = sIFR.styles.getStyle('.sIFR-root') || {};
    rootStyle.fontSize = this.fontSize; // won't go higher than 126!
    sIFR.styles.setStyle('.sIFR-root', rootStyle);
    this.textField.styleSheet = sIFR.styles;
  }
}