EnglishРусский  

   ..

   main.g

Реклама

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

 1 #!ge2exe.exe "%1" "gen2html.exe"
 2 /******************************************************************************
 3 *
 4 * Copyright (C) 2004-2006, The Gentee Group. All rights reserved. 
 5 * This file is part of the Gentee open source project.
 6 * http://www.gentee.com
 7 * 
 8 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT"). 
 9 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS 
10 * ACCEPTANCE OF THE AGREEMENT.
11 *
12 * ID: main.g 12.10.06
13 *
14 * Author: Aleksandr Antypenko ( santy )
15 *
16 * Summary: Example of the using gentee analizer, convertor from gentee code file 
17 *	   to the html file
18 *
19 ******************************************************************************/
20 
21 include
22 {
23    $"..\..\lib\lex\lex.g"
24    "lexfgentee.g"
25 } 
26 
27 
28 include
29 {
30    "htmlfromcode.g"
31 } 
32 
33 func gen2html < main >( )
34 {
35    str findDir
36    if argc( ) < 1
37    {
38       print( "\n" )
39       print( "Convert from Gentee file to html file \n" )
40       print( "\t\nUsage : gen2html [File_name] \n" )
41       //print("\t\n Options : -k - Create backup file\n")
42       print( "\n" )
43       print( "\n" )
44       getch( )
45       exit( 1 )
46    } 
47    print( "--------------------------\n\n" )
48    if !( process_file( argv( findDir, 1 ) ) ) : print( "Error run function \n" )
49    else : print( "File -- " + findDir + " -- html code created. \n" )
50    print( "\n--------------------------\n" )
51    getch( )
52 } 
53 
54 
55 
Редактировать