Реклама

  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: msglist 20.10.06 0.0.A.
 11 *
 12 * Author: Alexey Krivonogov ( gentee )
 13 *
 14 * Summary: The program generates msglist.h and msglist.с files 
 15 *
 16 ******************************************************************************/
 17 
 18 include : $"..\..\lib\gt\gt.g"
 19 include : $"..\bytecode\cmdlist.g"
 20 
 21 /*-----------------------------------------------------------------------------
 22 *
 23 * ID: msglist_h 12.10.06 1.1.A. 
 24 * 
 25 * Summary: The .h output function.
 26 *  
 27 -----------------------------------------------------------------------------*/
 28 text msglist_h( arrstr acmd, arrstr cmt )
 29 \@headerout( "msglist_h", "Generated with 'msglist' program", 
 30 "This file contains a list of the compiler's or VM's messages.")
 31 #ifndef _MSGLIST_
 32 #define _MSGLIST_
 33 
 34    #ifdef __cplusplus               
 35       extern "C" {                 
 36    #endif // __cplusplus      
 37 
 38 #include "../common/types.h"
 39 
 40 extern char* msgtext[];
 41 
 42 #define  MSGCOUNT  \( *acmd )
 43 
 44 enum {
 45 \{
 46    uint i
 47    
 48    fornum i, *acmd
 49    { 
 50       @"   \(acmd[ i ] ),  // 0x\( hex2stru( i )) \(i) \( cmt[i] )\l" 
 51    }   
 52 }
 53 };
 54 
 55    #ifdef __cplusplus              
 56       }                            
 57    #endif // __cplusplus
 58 
 59 #endif // _MSGLIST_
 60 \!
 61 
 62 /*-----------------------------------------------------------------------------
 63 *
 64 * ID: msglist_c 12.10.06 1.1.A. 
 65 * 
 66 * Summary: The .c output function.
 67 *  
 68 -----------------------------------------------------------------------------*/
 69 
 70 text  msglist_c( arrstr pattern, arrstr acmd )
 71 \@headerout( "msglist_c", "Generated with 'msglist' program", "")
 72 
 73 const char* msgtext[] = {
 74 \{
 75    uint i  
 76    
 77    fornum i, *pattern
 78    {
 79       @"   \"\( pattern[i] )\", // \( acmd[i] )\l"
 80    }
 81 }
 82 };
 83 \!
 84 
 85 /*-----------------------------------------------------------------------------
 86 *
 87 * ID: msgmain 12.10.06 1.1.A.ABKL 
 88 * 
 89 * Summary: The main function.
 90 *  
 91 -----------------------------------------------------------------------------*/
 92 
 93 func msgmain<main>
 94 {
 95    arrstr aout
 96    arrstr cmt
 97    arrstr pattern
 98    str hout
 99    gt  msggt
100 //   gtitems gtis
101    
102    msggt.read( "msglist.gt" )
103    foreach cur, msggt.root() //.items( gtis )
104    {
105       cur as gtitem
106       if cur.comment : continue
107       str stemp pat
108       aout += cur.name
109       cur.get("comment", stemp )
110       cmt += stemp     
111       cur.get("pattern", pat )
112       pattern += ?( *pat, pat, stemp )     
113    }
114    hout@msglist_h( aout, cmt )
115    hout.write( "msglist.h" )
116    hout.clear()
117    hout@msglist_c( pattern, aout )
118    hout.write( "msglist.c" )
119    congetch("Press any key...")   
120 }
121