EnglishРусский  

   ..

   DEBUG

   DELPHI

   debug.g

   embed.ico

   test.g

Реклама

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

source\embed\debug.g
 1 /******************************************************************************
 2 *
 3 * Copyright (C) 2008, 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: test 17.10.06 0.0.A.
11 *
12 * Author: Alexey Krivonogov ( gentee )
13 *
14 ******************************************************************************/
15 
16 include : "test.g"
17 
18 global
19 {
20    uint g0,g1 = 10
21    str  gstr
22 }
23  
24 func uint debug<main>
25 {
26    uint i
27 
28    print( "Hello, World!\l" )
29    g0 = 77;
30    gstr = "This is a global varaiable";
31    fornum i, 10
32    {
33       uint k 
34       
35       k = i*i 
36       output( i, k, "debug mode" )
37    }
38 //   getch()
39    return 7;
40 }
41 
Редактировать