Реклама

 1 /******************************************************************************
 2 *
 3 * Copyright (C) 2009, The Gentee Group. All rights reserved. 
 4 * This file is part of the Gentee open source project - http://www.gentee.com. 
 5 * 
 6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT"). 
 7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS 
 8 * ACCEPTANCE OF THE AGREEMENT.
 9 *
10 * Author: Alexey Krivonogov ( gentee )
11 *
12 ******************************************************************************/
13 
14 include
15 {
16    $"..\gea\gea.g" 
17 }
18 
19 func makebin<main>
20 {
21    lzge lz 
22    str  input
23    buf  out in
24    
25    out.expand( 420000 )
26    in.read( "..\\..\\exe\\res\\linker\\genteert.dll" )
27    lz.order = 10
28    out.use = lzge_encode( in.ptr(), *in, out.ptr() + 4, lz ) + 4
29    out.ptr()->uint = *in
30    print("Dll name: genteert.dll\nDLL size: \(*in)\nBIN size: \( *out )\n")
31    out.write( "..\\..\\exe\\res\\linker\\genteert.bin" )
32    
33    congetch( "Press any key..." )
34 }
35