EnglishРусский  

   ..

   default.g

The project is closed! You can look at a new scripting language. It is available on GitHub.
Also, try our open source cross-platform automation software.

Ads

Installer and installation software
Commercial and Freeware installers.

  1 /******************************************************************************
  2 *
  3 * Copyright (C) 2007, 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 28.11.07 0.0.A.
 11 *
 12 * Author: Alexey Krivonogov ( gentee )
 13 *
 14 ******************************************************************************/
 15 
 16 text chmimages( arrstr params )
 17 \{
 18    str   output
 19    ffind fd
 20 
 21    _gtp.prj.get( "project/output", output )
 22    output.faddname( "css\\img\\*.*" )
 23    
 24    fd.init( output, $FIND_FILE )
 25    foreach curfile, fd
 26    {
 27       @"#img(\"css/img/\( curfile.name )\")\l"   
 28    }
 29 }\!
 30 
 31 text chmitem( gtitem gti, uint keyword )
 32 \{
 33    arrstr  names
 34    str url title keys
 35    
 36    _gtp.geturl( gti, url )
 37    gti.getsubitem( "urlname", title )
 38    if !*title : gti.getsubitem( "title", title )
 39    if keyword
 40    {   
 41       gti.getsubitem( "keywords", keys )
 42       keys.split( names, ',', $SPLIT_NOSYS )
 43    }
 44    names += title
 45    foreach curname, names
 46    {
 47       @"   <LI><OBJECT type=\"text/sitemap\">\l"
 48       @"   <param name=\"Name\" value=\"\(curname)\">\l"
 49       if gti.findrel( "/content" )
 50       {
 51          @"   <param name=\"Local\" value=\"\(url)\">\l"
 52       }
 53       @"  </OBJECT>\l"
 54    }
 55 }\!
 56 
 57 text buildhhk( arrstr params )
 58 \{
 59    foreach curitem, _gtp.root()
 60    {
 61       str out cstyle
 62       ustr ustemp
 63       curitem as gtitem
 64          
 65       curitem.get( "style", cstyle )
 66       cstyle.upper()
 67       if cstyle.findch( 'H' ) >= *cstyle : continue
 68       if curitem.find("text") : continue
 69       
 70       out@chmitem( curitem, 1 )      
 71 //      ustemp.fromutf8( out )
 72 //      @( out = ustemp )
 73       @out
 74    }   
 75 }\!
 76 
 77 text  hhcitem( gtitem owner )
 78 \{
 79       foreach curitem, owner
 80       {
 81          str   out link
 82          ustr  ustemp
 83          
 84          curitem as gtitem
 85          out@chmitem( _gtp.find( curitem.name ), 0 )      
 86 //         ustemp.fromutf8( out )
 87 //         @( out = ustemp )
 88          @out
 89          
 90          curitem.get( "link", link )
 91          if curitem.haschild() || *link
 92          {
 93             @"<UL>\l"
 94             hhcitem( ?( *link, _gtp.find( link ), curitem ))
 95             @"</UL>\l"
 96          }         
 97       }   
 98 }\! 
 99    
100 text buildhhc( arrstr params )
101 \{
102    hhcitem( _gtp.find("chmmenu"))
103 }\!
104 
105 text H_default( gtitem gti )
106 \{
107    str desc title lang prjname url keys
108 
109    _gtp.prj.get("project/lang", lang )
110    _gtp.prj.get("project/name", prjname )
111    
112    gti.getsubitem( "desc", desc )
113    if !*desc : desc = "#/title#"
114 
115    gti.getsubitem( "keywords", keys )
116    if !*keys : keys = "#/title#"
117    
118    title = "\( prjname ): #/title#"
119    _gtp.geturl( gti, url )
120    
121 }<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/strict.dtd"><html>
122 <head>
123 <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=#chm/code#">
124 <!--meta http-equiv="Content-Language" content="\( lang )"-->
125 <meta NAME="KEYWORDS" CONTENT="\( keys )">
126 <meta NAME="DESCRIPTION" CONTENT="\( desc )">
127 <link rel="stylesheet" type="text/css" href="/css/styles.css">
128 <title>\( title )</title></head>
129 <body>
130 		<div class="content">
131 			<div class="box">\@content( gti )
132          \@related( gti.name )
133          </div>
134 		</div>
135 		<!--br style="clear:left"-->
136    <!--hr>
137       Copyright © 2004-06 Gentee, Inc., 2006-08 <a href = #gentee/url# target= "_blank" >The Gentee Group</a>. All rights reserved. 
138 		<br style="clear:left"-->
139        
140 
141 </body></html>
142 \!
143