1 #exe = 1
2 #libdir = %EXEPATH%\lib
3 #libdir1 = %EXEPATH%\..\lib\vis
4 #include = %EXEPATH%\lib\stdlib.ge
5 /******************************************************************************
6 *
7 * Copyright (C) 2009, The Gentee Group. All rights reserved.
8 * This file is part of the Gentee open source project - http://www.gentee.com.
9 *
10 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
11 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
12 * ACCEPTANCE OF THE AGREEMENT.
13 *
14 * Author: Alexander Antypenko ( santy )
15 *
16 ******************************************************************************/
17
18 include
19 {
20 $"zlib.g"
21 }
22
23 func zlib_demo<main>
24 {
25 print("DEMO COMPRESS (UNCOMPRESS) FUNCTIONS \n\n")
26 str demo_string = "It is demonstration function from zlib library"
27 str out_string = squeeze(demo_string)
28 print("text : \(out_string) -- Length : \(*out_string) \n")
29 getch()
30 str out_string1= unsqueeze(out_string)
31 print("text : \(out_string1) -- Length : \(*out_string1) \n")
32 getch()
33 print("\n\n DEMO WORK WITH GZ FILES FUNCTIONS \n\n")
34 out_string1 = out_string1 + " DEMO WORK WITH GZ FILES FUNCTIONS DEMO WORK WITH GZ FILES FUNCTIONS"
35 uint CountBytes = gzfile_write("demo_arh.gz", out_string1)
36 print("CountBytes -> \(CountBytes) \n")
37 getch()
38 str dest_buffer = gzfile_read("demo_arh.gz")
39 print("Result \(dest_buffer) \n")
40 getch()
41 }