source\lib\gtpublisher\styles\c-copy\default.g
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