/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at https://mozilla.org/MPL/2.0/. */

use std::borrow::ToOwned;
use std::collections::HashMap;
use std::ops::Deref;
use std::sync::{Arc, Mutex};
use std::{f32, fmt, mem, thread};

use app_units::Au;
use gfx_traits::{FontData, WebrenderApi};
use ipc_channel::ipc::{self, IpcReceiver, IpcSender};
use log::{debug, trace};
use net_traits::request::{Destination, Referrer, RequestBuilder};
use net_traits::{fetch_async, CoreResourceThread, FetchResponseMsg};
use serde::{Deserialize, Serialize};
use servo_atoms::Atom;
use servo_url::ServoUrl;
use style::font_face::{EffectiveSources, Source};
use style::values::computed::font::FamilyName;
use webrender_api::{FontInstanceKey, FontKey};

use crate::font::{FontFamilyDescriptor, FontFamilyName, FontSearchScope};
use crate::font_context::FontSource;
use crate::font_template::{FontTemplate, FontTemplateDescriptor};
use crate::platform::font_context::FontContextHandle;
use crate::platform::font_list::{
    for_each_available_family, for_each_variation, system_default_family, SANS_SERIF_FONT_FAMILY,
};
use crate::platform::font_template::FontTemplateData;

/// A list of font templates that make up a given font family.
pub struct FontTemplates {
    templates: Vec<FontTemplate>,
}

#[derive(Clone, Debug, Deserialize, Serialize)]
pub struct FontTemplateInfo {
    pub font_template: Arc<FontTemplateData>,
    pub font_key: FontKey,
}

#[derive(Debug, Deserialize, Serialize)]
pub struct SerializedFontTemplateInfo {
    pub serialized_font_template: SerializedFontTemplate,
    pub font_key: FontKey,
}

#[derive(Debug, Deserialize, Serialize)]
pub struct SerializedFontTemplate {
    identifier: Atom,
    bytes_receiver: ipc_channel::ipc::IpcBytesReceiver,
}

impl SerializedFontTemplate {
    pub fn to_font_template_data(&self) -> FontTemplateData {
        let font_data = self.bytes_receiver.recv().ok();
        FontTemplateData::new(self.identifier.clone(), font_data).unwrap()
    }
}

impl FontTemplates {
    pub fn new() -> FontTemplates {
        FontTemplates { templates: vec![] }
    }

    /// Find a font in this family that matches a given descriptor.
    pub fn find_font_for_style(
        &mut self,
        desc: &FontTemplateDescriptor,
        fctx: &FontContextHandle,
    ) -> Option<Arc<FontTemplateData>> {
        // TODO(Issue #189): optimize lookup for
        // regular/bold/italic/bolditalic with fixed offsets and a
        // static decision table for fallback between these values.
        for template in &mut self.templates {
            let maybe_template = template.data_for_descriptor(fctx, desc);
            if maybe_template.is_some() {
                return maybe_template;
            }
        }

        // We didn't find an exact match. Do more expensive fuzzy matching.
        // TODO(#190): Do a better job.
        let (mut best_template_data, mut best_distance) = (None, f32::MAX);
        for template in &mut self.templates {
            if let Some((template_data, distance)) =
                template.data_for_approximate_descriptor(fctx, desc)
            {
                if distance < best_distance {
                    best_template_data = Some(template_data);
                    best_distance = distance
                }
            }
        }
        if best_template_data.is_some() {
            return best_template_data;
        }

        // If a request is made for a font family that exists,
        // pick the first valid font in the family if we failed
        // to find an exact match for the descriptor.
        for template in &mut self.templates {
            let maybe_template = template.get();
            if maybe_template.is_some() {
                return maybe_template;
            }
        }

        None
    }

    pub fn add_template(&mut self, identifier: Atom, maybe_data: Option<Vec<u8>>) {
        for template in &self.templates {
            if *template.identifier() == identifier {
                return;
            }
        }

        if let Ok(template) = FontTemplate::new(identifier, maybe_data) {
            self.templates.push(template);
        }
    }
}

/// Commands that the FontContext sends to the font cache thread.
#[derive(Debug, Deserialize, Serialize)]
pub enum Command {
    GetFontTemplate(
        FontTemplateDescriptor,
        FontFamilyDescriptor,
        IpcSender<Reply>,
    ),
    GetFontInstance(FontKey, Au, IpcSender<FontInstanceKey>),
    AddWebFont(LowercaseString, EffectiveSources, IpcSender<()>),
    AddDownloadedWebFont(LowercaseString, ServoUrl, Vec<u8>, IpcSender<()>),
    Exit(IpcSender<()>),
    Ping,
}

/// Reply messages sent from the font cache thread to the FontContext caller.
#[derive(Debug, Deserialize, Serialize)]
pub enum Reply {
    GetFontTemplateReply(Option<SerializedFontTemplateInfo>),
}

/// The font cache thread itself. It maintains a list of reference counted
/// font templates that are currently in use.
struct FontCache {
    port: IpcReceiver<Command>,
    channel_to_self: IpcSender<Command>,
    generic_fonts: HashMap<FontFamilyName, LowercaseString>,
    local_families: HashMap<LowercaseString, FontTemplates>,
    web_families: HashMap<LowercaseString, FontTemplates>,
    font_context: FontContextHandle,
    core_resource_thread: CoreResourceThread,
    webrender_api: Box<dyn WebrenderApi>,
    webrender_fonts: HashMap<Atom, FontKey>,
    font_instances: HashMap<(FontKey, Au), FontInstanceKey>,
}

fn populate_generic_fonts() -> HashMap<FontFamilyName, LowercaseString> {
    let mut generic_fonts = HashMap::with_capacity(5);

    append_map(&mut generic_fonts, "serif", "Times New Roman");
    append_map(&mut generic_fonts, "sans-serif", SANS_SERIF_FONT_FAMILY);
    append_map(&mut generic_fonts, "cursive", "Apple Chancery");
    append_map(&mut generic_fonts, "fantasy", "Papyrus");
    append_map(&mut generic_fonts, "monospace", "Menlo");

    fn append_map(
        generic_fonts: &mut HashMap<FontFamilyName, LowercaseString>,
        generic_name: &str,
        mapped_name: &str,
    ) {
        let family_name = match system_default_family(generic_name) {
            Some(system_default) => LowercaseString::new(&system_default),
            None => LowercaseString::new(mapped_name),
        };

        let generic_name = FontFamilyName::Generic(Atom::from(generic_name));

        generic_fonts.insert(generic_name, family_name);
    }

    generic_fonts
}

impl FontCache {
    fn run(&mut self) {
        loop {
            let msg = self.port.recv().unwrap();

            match msg {
                Command::GetFontTemplate(template_descriptor, family_descriptor, result) => {
                    let maybe_font_template =
                        self.find_font_template(&template_descriptor, &family_descriptor);
                    match maybe_font_template {
                        None => {
                            let _ = result.send(Reply::GetFontTemplateReply(None));
                        },
                        Some(font_template_info) => {
                            let (bytes_sender, bytes_receiver) =
                                ipc::bytes_channel().expect("failed to create IPC channel");
                            let serialized_font_template = SerializedFontTemplate {
                                identifier: font_template_info.font_template.identifier.clone(),
                                bytes_receiver,
                            };

                            let _ = result.send(Reply::GetFontTemplateReply(Some(
                                SerializedFontTemplateInfo {
                                    serialized_font_template,
                                    font_key: font_template_info.font_key,
                                },
                            )));
                            let _ = bytes_sender.send(&*font_template_info.font_template.bytes());
                        },
                    };
                },
                Command::GetFontInstance(font_key, size, result) => {
                    let webrender_api = &self.webrender_api;

                    let instance_key =
                        *self
                            .font_instances
                            .entry((font_key, size))
                            .or_insert_with(|| {
                                webrender_api.add_font_instance(font_key, size.to_f32_px())
                            });

                    let _ = result.send(instance_key);
                },
                Command::AddWebFont(family_name, sources, result) => {
                    self.handle_add_web_font(family_name, sources, result);
                },
                Command::AddDownloadedWebFont(family_name, url, bytes, result) => {
                    let templates = &mut self.web_families.get_mut(&family_name).unwrap();
                    templates.add_template(Atom::from(url.to_string()), Some(bytes));
                    drop(result.send(()));
                },
                Command::Ping => (),
                Command::Exit(result) => {
                    let _ = result.send(());
                    break;
                },
            }
        }
    }

    fn handle_add_web_font(
        &mut self,
        family_name: LowercaseString,
        mut sources: EffectiveSources,
        sender: IpcSender<()>,
    ) {
        let src = if let Some(src) = sources.next() {
            src
        } else {
            sender.send(()).unwrap();
            return;
        };

        if !self.web_families.contains_key(&family_name) {
            let templates = FontTemplates::new();
            self.web_families.insert(family_name.clone(), templates);
        }

        match src {
            Source::Url(url_source) => {
                // https://drafts.csswg.org/css-fonts/#font-fetching-requirements
                let url = match url_source.url.url() {
                    Some(url) => url.clone(),
                    None => return,
                };

                // FIXME:
                // This shouldn't use NoReferrer, but the current documents url
                let request = RequestBuilder::new(url.clone(), Referrer::NoReferrer)
                    .destination(Destination::Font);

                let channel_to_self = self.channel_to_self.clone();
                let bytes = Mutex::new(Vec::new());
                let response_valid = Mutex::new(false);
                debug!("Loading @font-face {} from {}", family_name, url);
                fetch_async(request, &self.core_resource_thread, move |response| {
                    match response {
                        FetchResponseMsg::ProcessRequestBody |
                        FetchResponseMsg::ProcessRequestEOF => (),
                        FetchResponseMsg::ProcessResponse(meta_result) => {
                            trace!(
                                "@font-face {} metadata ok={:?}",
                                family_name,
                                meta_result.is_ok()
                            );
                            *response_valid.lock().unwrap() = meta_result.is_ok();
                        },
                        FetchResponseMsg::ProcessResponseChunk(new_bytes) => {
                            trace!("@font-face {} chunk={:?}", family_name, new_bytes);
                            if *response_valid.lock().unwrap() {
                                bytes.lock().unwrap().extend(new_bytes.into_iter())
                            }
                        },
                        FetchResponseMsg::ProcessResponseEOF(response) => {
                            trace!("@font-face {} EOF={:?}", family_name, response);
                            if response.is_err() || !*response_valid.lock().unwrap() {
                                let msg = Command::AddWebFont(
                                    family_name.clone(),
                                    sources.clone(),
                                    sender.clone(),
                                );
                                channel_to_self.send(msg).unwrap();
                                return;
                            }
                            let bytes = mem::replace(&mut *bytes.lock().unwrap(), vec![]);
                            trace!("@font-face {} data={:?}", family_name, bytes);
                            let bytes = match fontsan::process(&bytes) {
                                Ok(san) => san,
                                Err(_) => {
                                    // FIXME(servo/fontsan#1): get an error message
                                    debug!(
                                        "Sanitiser rejected web font: \
                                         family={} url={:?}",
                                        family_name, url
                                    );
                                    let msg = Command::AddWebFont(
                                        family_name.clone(),
                                        sources.clone(),
                                        sender.clone(),
                                    );
                                    channel_to_self.send(msg).unwrap();
                                    return;
                                },
                            };
                            let command = Command::AddDownloadedWebFont(
                                family_name.clone(),
                                url.clone(),
                                bytes,
                                sender.clone(),
                            );
                            channel_to_self.send(command).unwrap();
                        },
                    }
                });
            },
            Source::Local(ref font) => {
                let font_face_name = LowercaseString::new(&font.name);
                let templates = &mut self.web_families.get_mut(&family_name).unwrap();
                let mut found = false;
                for_each_variation(&font_face_name, |path| {
                    found = true;
                    templates.add_template(Atom::from(&*path), None);
                });
                if found {
                    sender.send(()).unwrap();
                } else {
                    let msg = Command::AddWebFont(family_name, sources, sender);
                    self.channel_to_self.send(msg).unwrap();
                }
            },
        }
    }

    fn refresh_local_families(&mut self) {
        self.local_families.clear();
        for_each_available_family(|family_name| {
            let family_name = LowercaseString::new(&family_name);
            if !self.local_families.contains_key(&family_name) {
                let templates = FontTemplates::new();
                self.local_families.insert(family_name, templates);
            }
        });
    }

    fn transform_family(&self, family_name: &FontFamilyName) -> LowercaseString {
        match self.generic_fonts.get(family_name) {
            None => LowercaseString::from(family_name),
            Some(mapped_family) => (*mapped_family).clone(),
        }
    }

    fn find_font_in_local_family(
        &mut self,
        template_descriptor: &FontTemplateDescriptor,
        family_name: &FontFamilyName,
    ) -> Option<Arc<FontTemplateData>> {
        let family_name = self.transform_family(family_name);

        // TODO(Issue #188): look up localized font family names if canonical name not found
        // look up canonical name
        if self.local_families.contains_key(&family_name) {
            debug!("FontList: Found font family with name={}", &*family_name);
            let s = self.local_families.get_mut(&family_name).unwrap();

            if s.templates.is_empty() {
                for_each_variation(&family_name, |path| {
                    s.add_template(Atom::from(&*path), None);
                });
            }

            // TODO(Issue #192: handle generic font families, like 'serif' and 'sans-serif'.
            // if such family exists, try to match style to a font

            s.find_font_for_style(template_descriptor, &self.font_context)
        } else {
            debug!(
                "FontList: Couldn't find font family with name={}",
                &*family_name
            );
            None
        }
    }

    fn find_font_in_web_family(
        &mut self,
        template_descriptor: &FontTemplateDescriptor,
        family_name: &FontFamilyName,
    ) -> Option<Arc<FontTemplateData>> {
        let family_name = LowercaseString::from(family_name);

        if self.web_families.contains_key(&family_name) {
            let templates = self.web_families.get_mut(&family_name).unwrap();
            templates.find_font_for_style(template_descriptor, &self.font_context)
        } else {
            None
        }
    }

    fn get_font_template_info(&mut self, template: Arc<FontTemplateData>) -> FontTemplateInfo {
        let webrender_api = &self.webrender_api;
        let webrender_fonts = &mut self.webrender_fonts;

        let font_key = *webrender_fonts
            .entry(template.identifier.clone())
            .or_insert_with(|| {
                let font = match (template.bytes_if_in_memory(), template.native_font()) {
                    (Some(bytes), _) => FontData::Raw(bytes),
                    (None, Some(native_font)) => FontData::Native(native_font),
                    (None, None) => FontData::Raw(template.bytes()),
                };
                webrender_api.add_font(font)
            });

        FontTemplateInfo {
            font_template: template,
            font_key: font_key,
        }
    }

    fn find_font_template(
        &mut self,
        template_descriptor: &FontTemplateDescriptor,
        family_descriptor: &FontFamilyDescriptor,
    ) -> Option<FontTemplateInfo> {
        match family_descriptor.scope {
            FontSearchScope::Any => self
                .find_font_in_web_family(&template_descriptor, &family_descriptor.name)
                .or_else(|| {
                    self.find_font_in_local_family(&template_descriptor, &family_descriptor.name)
                }),

            FontSearchScope::Local => {
                self.find_font_in_local_family(&template_descriptor, &family_descriptor.name)
            },
        }
        .map(|t| self.get_font_template_info(t))
    }
}

/// The public interface to the font cache thread, used by per-thread `FontContext` instances (via
/// the `FontSource` trait), and also by layout.
#[derive(Clone, Debug, Deserialize, Serialize)]
pub struct FontCacheThread {
    chan: IpcSender<Command>,
}

impl FontCacheThread {
    pub fn new(
        core_resource_thread: CoreResourceThread,
        webrender_api: Box<dyn WebrenderApi + Send>,
    ) -> FontCacheThread {
        let (chan, port) = ipc::channel().unwrap();

        let channel_to_self = chan.clone();
        thread::Builder::new()
            .name("FontCache".to_owned())
            .spawn(move || {
                // TODO: Allow users to specify these.
                let generic_fonts = populate_generic_fonts();

                let mut cache = FontCache {
                    port: port,
                    channel_to_self,
                    generic_fonts,
                    local_families: HashMap::new(),
                    web_families: HashMap::new(),
                    font_context: FontContextHandle::new(),
                    core_resource_thread,
                    webrender_api,
                    webrender_fonts: HashMap::new(),
                    font_instances: HashMap::new(),
                };

                cache.refresh_local_families();
                cache.run();
            })
            .expect("Thread spawning failed");

        FontCacheThread { chan: chan }
    }

    pub fn add_web_font(
        &self,
        family: FamilyName,
        sources: EffectiveSources,
        sender: IpcSender<()>,
    ) {
        self.chan
            .send(Command::AddWebFont(
                LowercaseString::new(&family.name),
                sources,
                sender,
            ))
            .unwrap();
    }

    pub fn exit(&self) {
        let (response_chan, response_port) = ipc::channel().unwrap();
        self.chan
            .send(Command::Exit(response_chan))
            .expect("Couldn't send FontCacheThread exit message");
        response_port
            .recv()
            .expect("Couldn't receive FontCacheThread reply");
    }
}

impl FontSource for FontCacheThread {
    fn get_font_instance(&mut self, key: FontKey, size: Au) -> FontInstanceKey {
        let (response_chan, response_port) = ipc::channel().expect("failed to create IPC channel");
        self.chan
            .send(Command::GetFontInstance(key, size, response_chan))
            .expect("failed to send message to font cache thread");

        let instance_key = response_port.recv();
        if instance_key.is_err() {
            let font_thread_has_closed = self.chan.send(Command::Ping).is_err();
            assert!(
                font_thread_has_closed,
                "Failed to receive a response from live font cache"
            );
            panic!("Font cache thread has already exited.");
        }
        instance_key.unwrap()
    }

    fn font_template(
        &mut self,
        template_descriptor: FontTemplateDescriptor,
        family_descriptor: FontFamilyDescriptor,
    ) -> Option<FontTemplateInfo> {
        let (response_chan, response_port) = ipc::channel().expect("failed to create IPC channel");
        self.chan
            .send(Command::GetFontTemplate(
                template_descriptor,
                family_descriptor,
                response_chan,
            ))
            .expect("failed to send message to font cache thread");

        let reply = response_port.recv();

        if reply.is_err() {
            let font_thread_has_closed = self.chan.send(Command::Ping).is_err();
            assert!(
                font_thread_has_closed,
                "Failed to receive a response from live font cache"
            );
            panic!("Font cache thread has already exited.");
        }

        match reply.unwrap() {
            Reply::GetFontTemplateReply(maybe_serialized_font_template_info) => {
                match maybe_serialized_font_template_info {
                    None => None,
                    Some(serialized_font_template_info) => Some(FontTemplateInfo {
                        font_template: Arc::new(
                            serialized_font_template_info
                                .serialized_font_template
                                .to_font_template_data(),
                        ),
                        font_key: serialized_font_template_info.font_key,
                    }),
                }
            },
        }
    }
}

#[derive(Clone, Debug, Deserialize, Eq, Hash, PartialEq, Serialize)]
pub struct LowercaseString {
    inner: String,
}

impl LowercaseString {
    pub fn new(s: &str) -> LowercaseString {
        LowercaseString {
            inner: s.to_lowercase(),
        }
    }
}

impl<'a> From<&'a FontFamilyName> for LowercaseString {
    fn from(family_name: &'a FontFamilyName) -> LowercaseString {
        LowercaseString::new(family_name.name())
    }
}

impl Deref for LowercaseString {
    type Target = str;

    #[inline]
    fn deref(&self) -> &str {
        &*self.inner
    }
}

impl fmt::Display for LowercaseString {
    fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
        self.inner.fmt(f)
    }
}