EnglishРусский  

   ..

   read.me

   zlib.g

   zlib_demo.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

source\lib\zlib\zlib_demo.g
 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 }
Редактировать