Mercurial > octave-nkf

comparison src/sysdep.cc @ 3332:7c03933635c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-11-02 06:57:12 by jwe]
author jwe
date Tue, 02 Nov 1999 06:57:16 +0000
parents 7ae1928ca623
children 15cddaacbc2d
comparison
equal deleted inserted replaced
3331:13cdcb7e5066 3332:7c03933635c6
118 static void 118 static void
119 NeXT_init (void) 119 NeXT_init (void)
120 { 120 {
121 malloc_error (malloc_handler); 121 malloc_error (malloc_handler);
122 } 122 }
123 #endif 123 endif
124 124
125 #if defined (__EMX__) 125 #if defined (__EMX__)
126 OS2_init (void) 126 OS2_init (void)
127 { 127 {
128 _control87 ((EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW 128 _control87 ((EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW
318 raw_mode (0); 318 raw_mode (0);
319 return c; 319 return c;
320 } 320 }
321 321
322 DEFUN (clc, , , 322 DEFUN (clc, , ,
323 "clc (): clear screen") 323 "-*- texinfo -*-\n\
324 @deftypefn {Built-in Function} {} clc ()\n\
325 @deftypefnx {Built-in Function} {} home ()\n\
326 Clear the terminal screen and move the cursor to the upper left corner.\n\
327 @end deftypefn\n\
328 ")
324 { 329 {
325 command_editor::clear_screen (); 330 command_editor::clear_screen ();
326 331
327 return octave_value_list (); 332 return octave_value_list ();
328 } 333 }