EnglishРусский  

   ..

   default.g

Реклама

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

 1 /******************************************************************************
 2 *
 3 * Copyright (C) 2006, 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 * ID: default 17.11.06 0.0.A.
11 *
12 * Author: Alexey Krivonogov ( gentee )
13 *
14 ******************************************************************************/
15 
16 text C_default( gtitem gti )
17 \{
18    uint    gtilist
19    arrstr  files
20    
21    gtilist as gti.findrel("/content")
22    if >ilist
23    {
24       str  path filename out relpath
25       
26       gti.get( "fullpath", path )
27       _gtp.prj.get( "project/output", out )
28       gti.get( "path", relpath )
29       out.faddname( relpath )
30       files.loadtrim( gtilist.value )
31       foreach curfile, files
32       {
33          str  dir
34          
35          ( filename = path ).faddname( curfile )
36          ( dir = out ).faddname( curfile )
37          dir.fgetdir( dir )
38          copyfiles( filename, dir, $FIND_FILE | $COPYF_SAVEPATH, $COPY_NEWER, 
39                     &defcopyproc )
40       }
41    }
42 }nofile\!
43 
44 
Редактировать