Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6767 → Rev 6768

/programs/develop/examples/pe_forwarded_export/Tupfile.lua
0,0 → 1,5
if tup.getconfig("NO_FASM") ~= "" then return end
ROOT="../../../.."
tup.rule("main.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.exe")
tup.rule("forwarder.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.dll")
tup.rule("forwarded.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.dll")
/programs/develop/examples/pe_forwarded_export/forwarded.asm
0,0 → 1,28
format PE console 0.8 DLL at 420000h
include '../../../proc32.inc'
include '../../../import.inc'
include '../../../export.inc'
 
forward_by_name:
invoke con_write_asciiz, forward_by_name_msg
ret
 
forward_by_ordinal:
invoke con_write_asciiz, forward_by_ordinal_msg
ret
 
forward_by_name_msg db 'Hello from forward_by_name!',13,10,0
forward_by_ordinal_msg db 'Hello from forward_by_ordinal!',13,10,0
 
align 4
data import
library console, 'console.dll'
import console, con_write_asciiz, 'con_write_asciiz'
end data
 
align 4
data export
export 'forwarded.dll', \
forward_by_name, 'forward_by_name', \
forward_by_ordinal, 'forward_by_ordinal'
end data
/programs/develop/examples/pe_forwarded_export/forwarder.asm
0,0 → 1,11
format PE console 0.8 DLL at 410000h
include '../../../export.inc'
 
align 4
data export
export 'forwarder.dll', \
func1, 'func1', \
func2, 'func2'
func1 db 'forwarded.forward_by_name',0
func2 db 'forwarded.#2',0
end data
/programs/develop/examples/pe_forwarded_export/main.asm
0,0 → 1,15
format PE console 0.8
include '../../../proc32.inc'
include '../../../import.inc'
invoke func1
invoke func2
invoke con_exit, 0
xor eax, eax
ret
 
align 4
data import
library forwarder, 'forwarder.dll', console, 'console.dll'
import forwarder, func1, 'func1', func2, 'func2'
import console, con_exit, 'con_exit'
end data