1 #exe = 1
2 #norun = 1
3 #gefile = 0
4 #libdir = %EXEPATH%\lib
5 #libdir1 = %EXEPATH%\..\lib\vis
6 #include = %EXEPATH%\lib\stdlib.ge
7 //#wait = 1
8 /******************************************************************************
9 *
10 * Copyright (C) 2009, The Gentee Group. All rights reserved.
11 * This file is part of the Gentee open source project - http://www.gentee.com.
12 *
13 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
14 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
15 * ACCEPTANCE OF THE AGREEMENT.
16 *
17 * Author: Alexander Antypenko ( santy )
18 *
19 ******************************************************************************/
20
21 include
22 {
23 $"unrar.g"
24 }
25
26 define
27 {
28 EXTRACT,
29 TEST,
30 PRINT
31 }
32
33 extern
34 {
35 func OutProcessFileError(int iError)
36 func ExtractArchive(str sArcName,int iMode, str strPsw)
37 }
38
39 func ShowComment(str cmtBuf)
40 {
41 print("\nComment:\n " +cmtBuf+ " \n")
42 }
43
44
45 func OutHelp()
46 {
47 print("\nUnrar_demo. This is a simple example of UNRAR.DLL usage\n")
48 print("\nSyntax:\n")
49 print("\nUnrar_demo X <Archive> <psw> extract archive contents")
50 print("\nUnrar_demo T <Archive> <psw> test archive contents")
51 print("\nUnrar_demo P <Archive> <psw> print archive contents to stdout \n\n")
52 }
53
54 func OutOpenArchiveError(int iError,str arcName)
55 {
56 switch (iError)
57 {
58 case $ERAR_NO_MEMORY: print("\nNot enough memory")
59 case $ERAR_EOPEN: print("\nCannot open " + arcName)
60 case $ERAR_BAD_ARCHIVE: print("\n "+arcName+" is not RAR archive")
61 case $ERAR_BAD_DATA: print("\n "+arcName+" : archive header broken")
62 case $ERAR_UNKNOWN: print("Unknown error")
63 }
64 }
65
66 // main programm
67
68 func unrar_demo <main>
69 {
70 str sOption = "" ,sParam2, sPassword
71 str dem1,dem2
72 //print(" \(argc()) \(argv(dem1.upper(),1)) \(argv(dem2.upper(),2))\n")
73 if (argc() != 2 )
74 {
75 OutHelp()
76 exit(0)
77 }
78 else {
79 argv(sOption,1)
80 argv(sPassword,3)
81 switch (sOption.upper())
82 {
83 case "X": ExtractArchive(argv(sParam2,2),$EXTRACT,sPassword)
84 case "T": ExtractArchive(argv(sParam2,2),$TEST,sPassword)
85 case "P": ExtractArchive(argv(sParam2,2),$PRINT,sPassword)
86 default
87 {
88 OutHelp()
89 exit(0)
90 }
91 }
92 }
93 }
94
95
96 func OutProcessFileError(int iError)
97 {
98 switch(iError)
99 {
100 case $ERAR_UNKNOWN_FORMAT: print("Unknown archive format")
101 case $ERAR_BAD_ARCHIVE: print("Bad volume")
102 case $ERAR_ECREATE: print("File create error")
103 case $ERAR_EOPEN: print("Volume open error")
104 case $ERAR_ECLOSE: print("File close error")
105 case $ERAR_EREAD: print("Read error")
106 case $ERAR_EWRITE: print("Write error")
107 case $ERAR_BAD_DATA: print("CRC error")
108 case $ERAR_UNKNOWN: print("Unknown error")
109 case $ERAR_MISSING_PASSWORD: print("Password for encrypted file is not specified")
110 }
111 }
112
113 func ExtractArchive(str sArcName,int iMode, str strPsw)
114 {
115 uint hArcData
116 int RHCode,PFCode
117 buf CmtBuf[16384]
118 str cmtBufHeader[255]
119 str sFileName,sTempStr
120 RARHeaderData HeaderData
121 RAROpenArchiveData OpenArchiveData
122
123 mzero( &OpenArchiveData, sizeof( RAROpenArchiveData ))
124 with OpenArchiveData
125 {
126 .ArcName=sArcName.ptr()
127 .CmtBuf=CmtBuf.ptr()
128 .CmtBufSize=16384
129 .OpenMode=$RAR_OM_EXTRACT
130 }
131
132 hArcData=RAROpenArchive(OpenArchiveData)
133 if (OpenArchiveData.OpenResult != 0)
134 {
135 OutOpenArchiveError(OpenArchiveData.OpenResult,sArcName)
136 return
137 }
138
139 if (OpenArchiveData.CmtState==1) : ShowComment(sTempStr.copy(CmtBuf.ptr()))
140
141 if strPsw != "" : RARSetPassword(hArcData,strPsw)
142
143 uint HeaderData_ptr = malloc(sizeof( RARHeaderData ))
144 while ((RHCode=RARReadHeader(hArcData,HeaderData_ptr)) == 0)
145 {
146 sFileName.load(HeaderData_ptr+260,260).setlenptr()
147 switch(iMode)
148 {
149 case $EXTRACT: print("\nExtracting "+sFileName)
150 case $TEST: print("\nTesting "+ sFileName )
151 case $PRINT: print("\nPrinting "+ sFileName+" \n")
152 }
153 PFCode = RARProcessFile(hArcData, ?(iMode==$EXTRACT,$RAR_EXTRACT,$RAR_TEST),"","")
154 if (PFCode == 0) : print(" Ok \n")
155 else
156 {
157 OutProcessFileError(PFCode)
158 break
159 }
160 }
161 if (RHCode == $ERAR_BAD_DATA) : print("\nFile header broken")
162 mfree(HeaderData_ptr)
163 RARCloseArchive(hArcData);
164 }
165