-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 2000 Free Software Foundation, Inc. --
+-- Copyright (c) 2000-2006,2008 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 --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
-- Version Control
--- $Revision: 1.1 $
+-- $Revision: 1.8 $
+-- $Date: 2008/07/26 18:47:50 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- TODO use Default_Character where appropriate
with Ada.Strings.Unbounded;
-
with ncurses2.util; use ncurses2.util;
with ncurses2.getch_test;
with ncurses2.attr_test;
with ncurses2.color_edit;
with ncurses2.slk_test;
with ncurses2.acs_display;
-with ncurses2.color_edit;
with ncurses2.acs_and_scroll;
with ncurses2.flushinp_test;
with ncurses2.test_sgr_attributes;
return 0; -- Curses_OK;
end rip_footer;
-
function rip_header (
Win : Window;
Columns : Column_Count) return Integer;
Set_KeyPad_Mode (SwitchOn => True);
end Set_Terminal_Modes;
-
nap_msec : Integer := 1;
function Do_Single_Test (c : Character) return Boolean is
return True;
end Do_Single_Test;
-
command : Character;
my_e_param : Soft_Label_Key_Format := Four_Four;
assumed_colors : Boolean := False;
c : Integer;
c2 : Character;
optind : Integer := 1; -- must be initialized to one.
- type stringa is access String;
optarg : getopt.stringa;
length : Integer;
default_colors := True;
when 'e' =>
myio.Get (optarg.all, tmpi, length);
- if Integer (tmpi) > 3 then
+ if tmpi > 3 then
usage;
return 1;
end if;
save_trace_set := To_trace (save_trace);
Trace_On (save_trace_set);
-
Init_Soft_Label_Keys (my_e_param);
Init_Screen;
exit when command = 'q';
end loop;
+ Curses_Free_All;
return 0; -- TODO ExitProgram(EXIT_SUCCESS);
end main;
end ncurses2.m;
-
-
-
-
-
-
-