62 lines
1.4 KiB
Ruby
62 lines
1.4 KiB
Ruby
|
#!/usr/bin/env ruby
|
||
|
|
# This file is part of Metasm, the Ruby assembly manipulation suite
|
||
|
|
# Copyright (C) 2007 Yoann GUILLOT
|
||
|
|
#
|
||
|
|
# Licence is LGPL, see LICENCE in the top-level directory
|
||
|
|
|
||
|
|
#
|
||
|
|
# this sample shows how to compile an executable file from source
|
||
|
|
# use --exe PE to compile a PE/ELF/MachO etc
|
||
|
|
# use --cpu MIPS/--16/--be to change the CPU
|
||
|
|
# the arg is a source file (c or asm) (some arch may not yet support C compiling)
|
||
|
|
#
|
||
|
|
|
||
|
|
require 'metasm'
|
||
|
|
require 'optparse'
|
||
|
|
|
||
|
|
$execlass ||= Metasm::ELF
|
||
|
|
$cpu ||= Metasm::Ia32.new
|
||
|
|
|
||
|
|
outfilename = 'a.out'
|
||
|
|
type = nil
|
||
|
|
OptionParser.new { |opt|
|
||
|
|
opt.on('-o file') { |f| outfilename = f }
|
||
|
|
opt.on('--c') { type = 'c' }
|
||
|
|
opt.on('--asm') { type = 'asm' }
|
||
|
|
opt.on('-v', '-W') { $VERBOSE=true }
|
||
|
|
opt.on('-d') { $DEBUG=$VERBOSE=true }
|
||
|
|
opt.on('-e class', '--exe class') { |c| $execlass = Metasm.const_get(c) }
|
||
|
|
opt.on('--cpu cpu') { |c| $cpu = Metasm.const_get(c).new }
|
||
|
|
# must come after --cpu in commandline
|
||
|
|
opt.on('--16') { $cpu.size = 16 }
|
||
|
|
opt.on('--le') { $cpu.endianness = :little }
|
||
|
|
opt.on('--be') { $cpu.endianness = :big }
|
||
|
|
}.parse!
|
||
|
|
|
||
|
|
if file = ARGV.shift
|
||
|
|
src = File.read(file)
|
||
|
|
type ||= 'c' if file =~ /\.c$/
|
||
|
|
else
|
||
|
|
src = DATA.read # the text after __END__
|
||
|
|
end
|
||
|
|
|
||
|
|
if type == 'c'
|
||
|
|
exe = $execlass.compile_c($cpu, src, file)
|
||
|
|
else
|
||
|
|
exe = $execlass.assemble($cpu, src, file)
|
||
|
|
end
|
||
|
|
exe.encode_file(outfilename)
|
||
|
|
|
||
|
|
__END__
|
||
|
|
.text
|
||
|
|
.entrypoint
|
||
|
|
push bla
|
||
|
|
push fmt
|
||
|
|
call printf
|
||
|
|
push 0
|
||
|
|
call exit
|
||
|
|
|
||
|
|
.data
|
||
|
|
bla db "world", 0
|
||
|
|
fmt db "Hello, %s !\n", 0
|