terminal_interface-curses__ads.htm

ncurses 库 可能有用酒用 没用就算了 我觉得还可以用

         <FONT COLOR=red><A NAME="ref_356_10">Color</A></FONT> : Color_Pair;
         Ch    : Character;
      <b>end</b> <b>record</b>;
   <b>pragma</b> Convention (C, Attributed_Character);
   <FONT COLOR=green><EM>--  This is the counterpart for the chtype in C.</EM></FONT>

   <b>for</b> Attributed_Character <b>use</b>
      <b>record</b>
         Ch    <b>at</b> 0 <b>range</b>  0 ..  7;
         Color <b>at</b> 0 <b>range</b>  8 .. 15;
         Attr  <b>at</b> 0 <b>range</b> 16 .. 31;
      <b>end</b> <b>record</b>;
   <b>for</b> Attributed_Character'Size <b>use</b> 32;
      <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
      <FONT COLOR=green><EM>--               different on your system.</EM></FONT>

   Default_Character : <b>constant</b> Attributed_Character
     := (Ch    =&gt; <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character</A>'First,
         Color =&gt; Color_Pair'First,
         Attr  =&gt; (<b>others</b> =&gt; False));  <FONT COLOR=green><EM>--  preelaboratable Normal_Video</EM></FONT>

   <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> &lt;&gt;) <b>of</b> Attributed_Character;
   <b>pragma</b> Pack (Attributed_String);
   <FONT COLOR=green><EM>--  In this binding we allow strings of attributed characters.</EM></FONT>

   <FONT COLOR=green><EM>------------------</EM></FONT>
   <FONT COLOR=green><EM>--  Exceptions  --</EM></FONT>
   <FONT COLOR=green><EM>------------------</EM></FONT>
   <FONT COLOR=red><A NAME="ref_384_4">Curses_Exception</A></FONT>     : <b>exception</b>;
   Wrong_Curses_Version : <b>exception</b>;

   <FONT COLOR=green><EM>--  Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT>
   <FONT COLOR=green><EM>--  subpackets for Menu and Forms handling.</EM></FONT>
   <FONT COLOR=green><EM>--</EM></FONT>
   <FONT COLOR=red><A NAME="ref_390_4">Eti_System_Error</A></FONT>    : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_391_4">Eti_Bad_Argument</A></FONT>    : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_392_4">Eti_Posted</A></FONT>          : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_393_4">Eti_Connected</A></FONT>       : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_394_4">Eti_Bad_State</A></FONT>       : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_395_4">Eti_No_Room</A></FONT>         : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_396_4">Eti_Not_Posted</A></FONT>      : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_397_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_398_4">Eti_No_Match</A></FONT>        : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_399_4">Eti_Not_Selectable</A></FONT>  : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_400_4">Eti_Not_Connected</A></FONT>   : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_401_4">Eti_Request_Denied</A></FONT>  : <b>exception</b>;
   <FONT COLOR=red><A NAME="ref_402_4">Eti_Invalid_Field</A></FONT>   : <b>exception</b>;
   Eti_Current         : <b>exception</b>;

   <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>
   <FONT COLOR=green><EM>--  External C variables</EM></FONT>
   <FONT COLOR=green><EM>--  Conceptually even in C this are kind of constants, but they are</EM></FONT>
   <FONT COLOR=green><EM>--  initialized and sometimes changed by the library routines at runtime</EM></FONT>
   <FONT COLOR=green><EM>--  depending on the type of terminal. I believe the best way to model</EM></FONT>
   <FONT COLOR=green><EM>--  this is to use functions.</EM></FONT>
   <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>

   <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#ref_412_13"> </A>          <b>return</b> Line_Count;
   <b>pragma</b> Inline (Lines);

   <b>function</b> Columns          <b>return</b> Column_Count;
   <b>pragma</b> Inline (Columns);

   <b>function</b> Tab_Size         <b>return</b> Natural;
   <b>pragma</b> Inline (Tab_Size);

   <b>function</b> Number_Of_Colors <b>return</b> Natural;
   <b>pragma</b> Inline (Number_Of_Colors);

   <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural;
   <b>pragma</b> Inline (Number_Of_Color_Pairs);

   ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b>
     Attributed_Character;
   <b>pragma</b> Import (C, ACS_Map, "acs_map");
   <FONT COLOR=green><EM>--</EM></FONT>
   <FONT COLOR=green><EM>--</EM></FONT>
   <FONT COLOR=green><EM>--  Constants for several characters from the Alternate Character Set</EM></FONT>
   <FONT COLOR=green><EM>--  You must use this constants as indices into the ACS_Map array</EM></FONT>
   <FONT COLOR=green><EM>--  to get the corresponding attributed character at runtime.</EM></FONT>
   <FONT COLOR=green><EM>--</EM></FONT>
   <FONT COLOR=red><A NAME="ref_437_4">ACS_Upper_Left_Corner</A></FONT>    : <b>constant</b> Character := 'l';
   <FONT COLOR=red><A NAME="ref_438_4">ACS_Lower_Left_Corner</A></FONT>    : <b>constant</b> Character := 'm';
   <FONT COLOR=red><A NAME="ref_439_4">ACS_Upper_Right_Corner</A></FONT>   : <b>constant</b> Character := 'k';
   <FONT COLOR=red><A NAME="ref_440_4">ACS_Lower_Right_Corner</A></FONT>   : <b>constant</b> Character := 'j';
   <FONT COLOR=red><A NAME="ref_441_4">ACS_Left_Tee</A></FONT>             : <b>constant</b> Character := 't';
   <FONT COLOR=red><A NAME="ref_442_4">ACS_Right_Tee</A></FONT>            : <b>constant</b> Character := 'u';
   <FONT COLOR=red><A NAME="ref_443_4">ACS_Bottom_Tee</A></FONT>           : <b>constant</b> Character := 'v';
   <FONT COLOR=red><A NAME="ref_444_4">ACS_Top_Tee</A></FONT>              : <b>constant</b> Character := 'w';
   <FONT COLOR=red><A NAME="ref_445_4">ACS_Horizontal_Line</A></FONT>      : <b>constant</b> Character := 'q';
   <FONT COLOR=red><A NAME="ref_446_4">ACS_Vertical_Line</A></FONT>        : <b>constant</b> Character := 'x';
   <FONT COLOR=red><A NAME="ref_447_4">ACS_Plus_Symbol</A></FONT>          : <b>constant</b> Character := 'n';
   <FONT COLOR=red><A NAME="ref_448_4">ACS_Scan_Line_1</A></FONT>          : <b>constant</b> Character := 'o';
   <FONT COLOR=red><A NAME="ref_449_4">ACS_Scan_Line_9</A></FONT>          : <b>constant</b> Character := 's';
   <FONT COLOR=red><A NAME="ref_450_4">ACS_Diamond</A></FONT>              : <b>constant</b> Character := Character'Val (96);
   <FONT COLOR=red><A NAME="ref_451_4">ACS_Checker_Board</A></FONT>        : <b>constant</b> Character := 'a';
   <FONT COLOR=red><A NAME="ref_452_4">ACS_Degree</A></FONT>               : <b>constant</b> Character := 'f';
   <FONT COLOR=red><A NAME="ref_453_4">ACS_Plus_Minus</A></FONT>           : <b>constant</b> Character := 'g';
   <FONT COLOR=red><A NAME="ref_454_4">ACS_Bullet</A></FONT>               : <b>constant</b> Character := '~';
   <FONT COLOR=red><A NAME="ref_455_4">ACS_Left_Arrow</A></FONT>           : <b>constant</b> Character := ',';
   <FONT COLOR=red><A NAME="ref_456_4">ACS_Right_Arrow</A></FONT>          : <b>constant</b> Character := '+';
   <FONT COLOR=red><A NAME="ref_457_4">ACS_Down_Arrow</A></FONT>           : <b>constant</b> Character := '.';
   <FONT COLOR=red><A NAME="ref_458_4">ACS_Up_Arrow</A></FONT>             : <b>constant</b> Character := '-';
   <FONT COLOR=red><A NAME="ref_459_4">ACS_Board_Of_Squares</A></FONT>     : <b>constant</b> Character := 'h';
   <FONT COLOR=red><A NAME="ref_460_4">ACS_Lantern</A></FONT>              : <b>constant</b> Character := 'i';
   <FONT COLOR=red><A NAME="ref_461_4">ACS_Solid_Block</A></FONT>          : <b>constant</b> Character := '0';
   <FONT COLOR=red><A NAME="ref_462_4">ACS_Scan_Line_3</A></FONT>          : <b>constant</b> Character := 'p';
   <FONT COLOR=red><A NAME="ref_463_4">ACS_Scan_Line_7</A></FONT>          : <b>constant</b> Character := 'r';
   <FONT COLOR=red><A NAME="ref_464_4">ACS_Less_Or_Equal</A></FONT>        : <b>constant</b> Character := 'y';
   <FONT COLOR=red><A NAME="ref_465_4">ACS_Greater_Or_Equal</A></FONT>     : <b>constant</b> Character := 'z';
   <FONT COLOR=red><A NAME="ref_466_4">ACS_PI</A></FONT>                   : <b>constant</b> Character := '{';
   <FONT COLOR=red><A NAME="ref_467_4">ACS_Not_Equal</A></FONT>            : <b>constant</b> Character := '|';
   ACS_Sterling             : <b>constant</b> Character := '}';

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Not implemented: newterm, set_term, delscreen, curscr</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_1"#2|</EM></FONT>