X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__ads.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__ads.htm;h=136c93fc91afc44129a993d5aea365fa4c96f8af;hp=caa479fc64e5e526b434bb271700fc21491faea0;hb=47d2fb4537d9ad5bb14f4810561a327930ca4280;hpb=c55d387cebf1cee4757ca2c2ef4fbeae59ee4175 diff --git a/doc/html/ada/terminal_interface-curses-trace__ads.htm b/doc/html/ada/terminal_interface-curses-trace__ads.htm index caa479fc..136c93fc 100644 --- a/doc/html/ada/terminal_interface-curses-trace__ads.htm +++ b/doc/html/ada/terminal_interface-curses-trace__ads.htm @@ -24,7 +24,8 @@ -- S P E C -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 2000,2014 Free Software Foundation, Inc. -- +-- Copyright 2020 Thomas E. Dickey -- +-- Copyright 2000,2014 Free Software Foundation, Inc. -- -- -- -- Permission is hereby granted, free of charge, to any person obtaining a -- -- copy of this software and associated documentation files (the -- @@ -52,74 +53,74 @@ ------------------------------------------------------------------------------ -- Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000 -- Version Control: --- @Revision: 1.4 @ +-- @Revision: 1.5 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ -package Terminal_Interface.Curses.Trace is - pragma Preelaborate (Terminal_Interface.Curses.Trace); +package Terminal_Interface.Curses.Trace is + pragma Preelaborate (Terminal_Interface.Curses.Trace); - type Trace_Attribute_Set is + type Trace_Attribute_Set is record - Times : Boolean; - Tputs : Boolean; - Update : Boolean; - Cursor_Move : Boolean; - Character_Output : Boolean; - Calls : Boolean; - Virtual_Puts : Boolean; - Input_Events : Boolean; - TTY_State : Boolean; - Internal_Calls : Boolean; - Character_Calls : Boolean; - Termcap_TermInfo : Boolean; - Attribute_Color : Boolean; + Times : Boolean; + Tputs : Boolean; + Update : Boolean; + Cursor_Move : Boolean; + Character_Output : Boolean; + Calls : Boolean; + Virtual_Puts : Boolean; + Input_Events : Boolean; + TTY_State : Boolean; + Internal_Calls : Boolean; + Character_Calls : Boolean; + Termcap_TermInfo : Boolean; + Attribute_Color : Boolean; end record; - pragma Convention (C_Pass_By_Copy, Trace_Attribute_Set); + pragma Convention (C_Pass_By_Copy, Trace_Attribute_Set); - for Trace_Attribute_Set use + for Trace_Attribute_Set use record - Times at 0 range Curses_Constants.TRACE_TIMES_First + Times at 0 range Curses_Constants.TRACE_TIMES_First .. Curses_Constants.TRACE_TIMES_Last; - Tputs at 0 range Curses_Constants.TRACE_TPUTS_First + Tputs at 0 range Curses_Constants.TRACE_TPUTS_First .. Curses_Constants.TRACE_TPUTS_Last; - Update at 0 range Curses_Constants.TRACE_UPDATE_First + Update at 0 range Curses_Constants.TRACE_UPDATE_First .. Curses_Constants.TRACE_UPDATE_Last; - Cursor_Move at 0 range Curses_Constants.TRACE_MOVE_First + Cursor_Move at 0 range Curses_Constants.TRACE_MOVE_First .. Curses_Constants.TRACE_MOVE_Last; - Character_Output at 0 range Curses_Constants.TRACE_CHARPUT_First + Character_Output at 0 range Curses_Constants.TRACE_CHARPUT_First .. Curses_Constants.TRACE_CHARPUT_Last; - Calls at 0 range Curses_Constants.TRACE_CALLS_First + Calls at 0 range Curses_Constants.TRACE_CALLS_First .. Curses_Constants.TRACE_CALLS_Last; - Virtual_Puts at 0 range Curses_Constants.TRACE_VIRTPUT_First + Virtual_Puts at 0 range Curses_Constants.TRACE_VIRTPUT_First .. Curses_Constants.TRACE_VIRTPUT_Last; - Input_Events at 0 range Curses_Constants.TRACE_IEVENT_First + Input_Events at 0 range Curses_Constants.TRACE_IEVENT_First .. Curses_Constants.TRACE_IEVENT_Last; - TTY_State at 0 range Curses_Constants.TRACE_BITS_First + TTY_State at 0 range Curses_Constants.TRACE_BITS_First .. Curses_Constants.TRACE_BITS_Last; - Internal_Calls at 0 range Curses_Constants.TRACE_ICALLS_First + Internal_Calls at 0 range Curses_Constants.TRACE_ICALLS_First .. Curses_Constants.TRACE_ICALLS_Last; - Character_Calls at 0 range Curses_Constants.TRACE_CCALLS_First + Character_Calls at 0 range Curses_Constants.TRACE_CCALLS_First .. Curses_Constants.TRACE_CCALLS_Last; - Termcap_TermInfo at 0 range Curses_Constants.TRACE_DATABASE_First + Termcap_TermInfo at 0 range Curses_Constants.TRACE_DATABASE_First .. Curses_Constants.TRACE_DATABASE_Last; - Attribute_Color at 0 range Curses_Constants.TRACE_ATTRS_First + Attribute_Color at 0 range Curses_Constants.TRACE_ATTRS_First .. Curses_Constants.TRACE_ATTRS_Last; end record; pragma Warnings (Off); - for Trace_Attribute_Set'Size use Curses_Constants.Trace_Size; + for Trace_Attribute_Set'Size use Curses_Constants.Trace_Size; pragma Warnings (On); - Trace_Disable : constant Trace_Attribute_Set := (others => False); + Trace_Disable : constant Trace_Attribute_Set := (others => False); - Trace_Ordinary : constant Trace_Attribute_Set := - (Times => True, - Tputs => True, - Update => True, - Cursor_Move => True, - Character_Output => True, + Trace_Ordinary : constant Trace_Attribute_Set := + (Times => True, + Tputs => True, + Update => True, + Cursor_Move => True, + Character_Output => True, others => False); - Trace_Maximum : constant Trace_Attribute_Set := (others => True); + Trace_Maximum : constant Trace_Attribute_Set := (others => True); ------------------------------------------------------------------------------ @@ -128,15 +129,15 @@ -- |===================================================================== -- | - procedure Trace_On (x : Trace_Attribute_Set); + procedure Trace_On (x : Trace_Attribute_Set); -- The debugging library has trace. -- | - procedure Trace_Put (str : String); + procedure Trace_Put (str : String); -- AKA: _tracef() - Current_Trace_Setting : Trace_Attribute_Set; - pragma Import (C, Current_Trace_Setting, "_nc_tracing"); + Current_Trace_Setting : Trace_Attribute_Set; + pragma Import (C, Current_Trace_Setting, "_nc_tracing"); -end Terminal_Interface.Curses.Trace; +end Terminal_Interface.Curses.Trace;