terminal_interface-curses-text_io-aux__adb.htm

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

            <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> = 0 <b>then</b>
               <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>;
            <b>end</b> <b>if</b>;
            <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> &gt; <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> <b>then</b>
               <FONT COLOR=green><EM>--  LRM A10.6 (7) says this</EM></FONT>
               <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>;
            <b>end</b> <b>if</b>;

            <b>pragma</b> Assert (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> &lt;= <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A>);
            <A HREF="terminal_interface-curses__ads.htm#ref_1222_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_53_7">LC</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_54_7">CC</A>);
            <b>if</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>) &gt; <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_54_7">CC</A> <b>then</b>
               <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_51_7">Signal</A> <b>then</b>
                  <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#ref_134_4">Layout_Error</A>;
               <b>else</b>
                  <b>return</b>;
               <b>end</b> <b>if</b>;
            <b>else</b>
               <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> &lt; <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> <b>and</b> <b>then</b> <b>not</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_52_7">Ljust</A> <b>then</b>
                  <b>declare</b>
                     <FONT COLOR=red><A NAME="ref_83_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>))
                       := (<b>others</b> =&gt; ' ');
                  <b>begin</b>
                     <A HREF="terminal_interface-curses-text_io__ads.htm#ref_115_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_83_22">Filler</A>);
                  <b>end</b>;
               <b>end</b> <b>if</b>;
               <A HREF="terminal_interface-curses__ads.htm#ref_1238_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_55_7">Y</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_56_7">X</A>);
               <b>if</b> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_56_7">X</A> + <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>)) &gt; <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_54_7">CC</A> <b>then</b>
                  <A HREF="terminal_interface-curses-text_io__ads.htm#ref_86_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>);
               <b>end</b> <b>if</b>;
               <A HREF="terminal_interface-curses-text_io__ads.htm#ref_115_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_58_25">From</A> .. <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_58_31">To</A>));
               <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> &lt; <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_52_7">Ljust</A> <b>then</b>
                  <b>declare</b>
                     <FONT COLOR=red><A NAME="ref_96_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_52_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>))
                       := (<b>others</b> =&gt; ' ');
                  <b>begin</b>
                     <A HREF="terminal_interface-curses-text_io__ads.htm#ref_115_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_96_22">Filler</A>);
                  <b>end</b>;
               <b>end</b> <b>if</b>;
            <b>end</b> <b>if</b>;
         <b>end</b> <b>if</b>;
      <b>end</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_58_17">Output</A>;

   <b>begin</b>
      <b>pragma</b> Assert (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_48_7">Win</A> /= <A HREF="terminal_interface-curses__ads.htm#ref_58_4">Null_Window</A>);
      <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_52_7">Ljust</A> <b>then</b>
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> := 1;
         <b>for</b> <FONT COLOR=red><A NAME="ref_110_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A>'Length <b>loop</b>
            <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A>) = ' ';
            <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> + 1;
         <b>end</b> <b>loop</b>;
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> - 1;
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_58_17">Output</A> (1, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A>);
      <b>else</b>  <FONT COLOR=green><EM>-- input buffer is not left justified</EM></FONT>
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A>'Length;
         <b>for</b> <FONT COLOR=red><A NAME="ref_118_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A>'Length <b>loop</b>
            <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A>) = ' ';
            <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> - 1;
         <b>end</b> <b>loop</b>;
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_51_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A>'Length - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A>;
         <A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_58_17">Output</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#ref_50_7">L</A> + 1, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_49_7">Buf</A>'Length);
      <b>end</b> <b>if</b>;
   <b>end</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_47_14">Put_Buf</A>;

<b>end</b> <A HREF="terminal_interface__ads.htm#ref_41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#ref_44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#ref_41_51">Aux</A>;

</PRE></BODY></HTML>