philologue/whitakers-words
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

just keep going - don't do crappy ass "more" emulation

Browse Source 
(also emacs decided it would be cute to fuck with line endings -- sorry)
This commit is contained in:
Michael Wolf
2013-06-29 11:05:39 -05:00
parent d08d2c90e5
commit a61bbb7010
1 changed files with 2225 additions and 2224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
word_package.adb
View File

@@ -26,10 +26,11 @@
" MORE - hit RETURN/ENTER to continue");
TEXT_IO.GET_LINE(TEXT_IO.STANDARD_INPUT, PAUSE_LINE, PAUSE_LAST);
end if;
elsif METHOD = COMMAND_LINE_INPUT then
TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT,
" MORE - hit RETURN/ENTER to continue");
TEXT_IO.GET_LINE(TEXT_IO.STANDARD_INPUT, PAUSE_LINE, PAUSE_LAST);
elsif METHOD = COMMAND_LINE_INPUT then
TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT, "");
-- TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT,
-- " MORE - hit RETURN/ENTER to continue");
-- TEXT_IO.GET_LINE(TEXT_IO.STANDARD_INPUT, PAUSE_LINE, PAUSE_LAST);
elsif METHOD = COMMAND_LINE_FILES then
null; -- Do not PAUSE
end if;