/pliant/language/debug/levels.pli
 
 1  # Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx 
 2  # 
 3  # This program is free software; you can redistribute it and/or 
 4  # modify it under the terms of the GNU General Public License version 2 
 5  # as published by the Free Software Foundation. 
 6  # 
 7  # This program is distributed in the hope that it will be useful, 
 8  # but WITHOUT ANY WARRANTY; without even the implied warranty of 
 9  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
 10  # GNU General Public License for more details. 
 11  # 
 12  # You should have received a copy of the GNU General Public License 
 13  # version 2 along with this program; if not, write to the Free Software 
 14  # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
 15   
 16  scope "/pliant/language/""/pliant/install/" 
 17  module "/pliant/install/ring1.pli" 
 18   
 19  meta pliant_debugging_level e 
 20    if e:size=0 
 21      var Link:Int l :> new Int 
 22      l := pliant_debugging_level_variable 
 23      e set_constant_result addressof:l 
 24   
 25  meta pliant_verbose_level e 
 26    if e:size=0 
 27      var Link:Int l :> new Int 
 28      l := pliant_verbose_level_variable 
 29      e set_constant_result addressof:l 
 30   
 31  export pliant_debugging_level pliant_verbose_level