EnglishРусский  

   ..

   cab.g

   cab2g.dll

   cabdemo.g

   cab-x.g

Данный проект закрыт! Создан новый скриптовый язык с тем же именем. Всё доступно на GitHub.
Также попробуйте нашу open source кроссплатформенную программу для создания и управления скриптами.

Реклама

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

source\lib\cab\cab.g
 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 type ERF
15 {
16     int     erfOper
17     int     erfType
18     uint    fError
19 } 
20 
21 import "kernel32"
22 {
23    uint DosDateTimeToFileTime( ushort, ushort, filetime )
24 }
25 
26 type cabinfo
27 {
28    ERF      erf
29    uint     lztype
30    
31    uint     call
32    uint     pattern     
33    
34    uint     fnctempfile
35    uint     fncnotify
36    uint     fncsysnotify
37       
38    uint     finish       // 1 if finish for progress
39    uint     cabsize
40    uint     filesize
41    uint     percent
42 }
43 
44 define
45 {
46    // Notify codes
47    FLN_ERROR     = 1
48    FLN_FILEBEGIN = 2
49    FLN_FILEEND   = 3
50    FLN_ERROPEN   = 4
51    FLN_PROGRESS  = 5
52    FLN_NOTVALID  = 6  // Not CAB file
53    FLN_NEXTVOLUME = 7
54 }
55 
56 import "cab2g.dll"<link>
57 {  
58    uint gcabe_addfile( uint, uint, uint, cabinfo )
59    uint gcabe_close( uint )
60    uint gcabe_create( uint, uint )
61    uint gcabe_flushfolder( uint )
62    uint gcabd_create( uint )
63    uint gcabd_destroy( uint )
64    uint gcabd_iscabinet( uint, uint, uint )
65    uint gcabd_copy( uint, uint, uint, uint )
66 }
67 
68 include : $"cabencode.g"
69 include : $"cabdecode.g"
70 
71 
Редактировать