1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

use crate::context::Context;
use crate::{from_c_str, to_c_str};

use llvm_sys::core::*;
use llvm_sys::LLVMModule;

use std::borrow::Cow;
use std::fmt::{Debug, Formatter, Result as FmtResult};
use std::ptr::NonNull;

pub struct Module<'ctx> {
  pub(crate) llvm_ptr: NonNull<LLVMModule>,
  parent_ctx: Option<&'ctx Context>,
}

impl<'ctx> Module<'ctx> {
  pub fn new(name: &str) -> Module {
    Module {
      llvm_ptr: unsafe {
        NonNull::new(LLVMModuleCreateWithName(to_c_str(name).as_ptr()))
          .expect("Failed to create an LLVM module")
      },
      parent_ctx: None,
    }
  }

  pub fn with_context(name: &str, context: &'ctx Context) -> Module<'ctx> {
    Module {
      llvm_ptr: unsafe {
        NonNull::new(LLVMModuleCreateWithNameInContext(
          to_c_str(name).as_ptr(),
          context.llvm_ptr.as_ptr(),
        ))
        .expect("Failed to create an LLVM module")
      },
      parent_ctx: Some(context),
    }
  }

  pub fn name(&self) -> Cow<'_, str> {
    from_c_str(unsafe {
      let mut len: usize = 0;

      LLVMGetModuleIdentifier(self.llvm_ptr.as_ptr(), &mut len)
    })
  }

  pub fn source_file_name(&self) -> Cow<'_, str> {
    from_c_str(unsafe {
      let mut len: usize = 0;

      LLVMGetSourceFileName(self.llvm_ptr.as_ptr(), &mut len)
    })
  }

  pub fn set_name(&mut self, name: &str) {
    unsafe { LLVMSetModuleIdentifier(self.llvm_ptr.as_mut(), to_c_str(name).as_ptr(), name.len()) }
  }

  pub fn set_source_file_name(&mut self, source_file_name: &str) {
    unsafe {
      LLVMSetSourceFileName(
        self.llvm_ptr.as_mut(),
        to_c_str(source_file_name).as_ptr(),
        source_file_name.len(),
      )
    }
  }
}

impl<'ctx> Clone for Module<'ctx> {
  fn clone(&self) -> Module<'ctx> {
    Module {
      llvm_ptr: unsafe {
        NonNull::new(LLVMCloneModule(self.llvm_ptr.as_ptr()))
          .expect("Failed to clone the LLVM module")
      },
      parent_ctx: self.parent_ctx,
    }
  }
}

impl Debug for Module<'_> {
  fn fmt(&self, formatter: &mut Formatter<'_>) -> FmtResult {
    formatter
      .debug_struct("Module")
      .field("name", &self.name())
      .field("source_file_name", &self.source_file_name())
      .finish()
  }
}

impl Drop for Module<'_> {
  fn drop(&mut self) {
    unsafe { LLVMDisposeModule(self.llvm_ptr.as_mut()) }
  }
}

// It isn't unused, but rustc still complains...
#[allow(unused_imports)]
mod tests {
  use crate::module::Module;

  #[test]
  fn module_name() {
    let mut module = Module::new("example module");

    assert_eq!(module.name(), "example module");

    module.set_name("hello world!");

    assert_eq!(module.name(), "hello world!");
  }

  #[test]
  fn module_source_file_name() {
    let mut module = Module::new("example module");

    assert_eq!(module.source_file_name(), "example module");

    module.set_source_file_name(file!());

    assert_eq!(module.source_file_name(), file!());
  }

  #[test]
  fn cloning_module() {
    let mut module = Module::new("example module");

    module.set_source_file_name(file!());

    let cloned = module.clone();

    assert_eq!(cloned.name(), module.name());
    assert_eq!(cloned.source_file_name(), module.source_file_name());
  }
}