Mercurial > hg > octave-lyh

comparison src/syscalls.cc @ 5823:080c08b192d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-19 05:32:17 by jwe]
author jwe
date Fri, 19 May 2006 05:32:19 +0000
parents ace8d8d26933
children 44f24cf66b95
comparison
equal deleted inserted replaced
5822:4fdc2515ebad 5823:080c08b192d8
135 } 135 }
136 else 136 else
137 error ("dup2: invalid stream"); 137 error ("dup2: invalid stream");
138 } 138 }
139 else 139 else
140 print_usage ("dup2"); 140 print_usage ();
141 141
142 return retval; 142 return retval;
143 } 143 }
144 144
145 DEFUN (exec, args, , 145 DEFUN (exec, args, ,
213 } 213 }
214 else 214 else
215 error ("exec: first argument must be a string"); 215 error ("exec: first argument must be a string");
216 } 216 }
217 else 217 else
218 print_usage ("exec"); 218 print_usage ();
219 219
220 return retval; 220 return retval;
221 } 221 }
222 222
223 DEFUN (fcntl, args, , 223 DEFUN (fcntl, args, ,
313 } 313 }
314 else 314 else
315 error ("fcntl: file id, request, and argument must be integers"); 315 error ("fcntl: file id, request, and argument must be integers");
316 } 316 }
317 else 317 else
318 print_usage ("fcntl"); 318 print_usage ();
319 319
320 return retval; 320 return retval;
321 } 321 }
322 322
323 DEFUN (fork, args, , 323 DEFUN (fork, args, ,
358 358
359 retval(0) = pid; 359 retval(0) = pid;
360 retval(1) = msg; 360 retval(1) = msg;
361 } 361 }
362 else 362 else
363 print_usage ("fork"); 363 print_usage ();
364 364
365 return retval; 365 return retval;
366 } 366 }
367 367
368 DEFUN (getpgrp, args, , 368 DEFUN (getpgrp, args, ,
384 384
385 retval(0) = octave_syscalls::getpgrp (msg); 385 retval(0) = octave_syscalls::getpgrp (msg);
386 retval(1) = msg; 386 retval(1) = msg;
387 } 387 }
388 else 388 else
389 print_usage ("getpgrp"); 389 print_usage ();
390 390
391 return retval; 391 return retval;
392 } 392 }
393 393
394 DEFUN (getpid, args, , 394 DEFUN (getpid, args, ,
402 int nargin = args.length (); 402 int nargin = args.length ();
403 403
404 if (nargin == 0) 404 if (nargin == 0)
405 retval = octave_syscalls::getpid (); 405 retval = octave_syscalls::getpid ();
406 else 406 else
407 print_usage ("getpid"); 407 print_usage ();
408 408
409 return retval; 409 return retval;
410 } 410 }
411 411
412 DEFUN (getppid, args, , 412 DEFUN (getppid, args, ,
420 int nargin = args.length (); 420 int nargin = args.length ();
421 421
422 if (nargin == 0) 422 if (nargin == 0)
423 retval = octave_syscalls::getppid (); 423 retval = octave_syscalls::getppid ();
424 else 424 else
425 print_usage ("getppid"); 425 print_usage ();
426 426
427 return retval; 427 return retval;
428 } 428 }
429 429
430 DEFUN (getegid, args, , 430 DEFUN (getegid, args, ,
438 int nargin = args.length (); 438 int nargin = args.length ();
439 439
440 if (nargin == 0) 440 if (nargin == 0)
441 retval = octave_syscalls::getegid (); 441 retval = octave_syscalls::getegid ();
442 else 442 else
443 print_usage ("getegid"); 443 print_usage ();
444 444
445 return retval; 445 return retval;
446 } 446 }
447 447
448 DEFUN (getgid, args, , 448 DEFUN (getgid, args, ,
456 int nargin = args.length (); 456 int nargin = args.length ();
457 457
458 if (nargin == 0) 458 if (nargin == 0)
459 retval = octave_syscalls::getgid (); 459 retval = octave_syscalls::getgid ();
460 else 460 else
461 print_usage ("getgid"); 461 print_usage ();
462 462
463 return retval; 463 return retval;
464 } 464 }
465 465
466 DEFUN (geteuid, args, , 466 DEFUN (geteuid, args, ,
474 int nargin = args.length (); 474 int nargin = args.length ();
475 475
476 if (nargin == 0) 476 if (nargin == 0)
477 retval = octave_syscalls::geteuid (); 477 retval = octave_syscalls::geteuid ();
478 else 478 else
479 print_usage ("geteuid"); 479 print_usage ();
480 480
481 return retval; 481 return retval;
482 } 482 }
483 483
484 DEFUN (getuid, args, , 484 DEFUN (getuid, args, ,
492 int nargin = args.length (); 492 int nargin = args.length ();
493 493
494 if (nargin == 0) 494 if (nargin == 0)
495 retval = octave_syscalls::getuid (); 495 retval = octave_syscalls::getuid ();
496 else 496 else
497 print_usage ("getuid"); 497 print_usage ();
498 498
499 return retval; 499 return retval;
500 } 500 }
501 501
502 DEFUN (kill, args, , 502 DEFUN (kill, args, ,
544 retval(0) = status; 544 retval(0) = status;
545 } 545 }
546 } 546 }
547 } 547 }
548 else 548 else
549 print_usage ("kill"); 549 print_usage ();
550 550
551 return retval; 551 return retval;
552 } 552 }
553 553
554 DEFUN (lstat, args, , 554 DEFUN (lstat, args, ,
580 retval(0) = Matrix (); 580 retval(0) = Matrix ();
581 } 581 }
582 } 582 }
583 } 583 }
584 else 584 else
585 print_usage ("lstat"); 585 print_usage ();
586 586
587 return retval; 587 return retval;
588 } 588 }
589 589
590 590
635 } 635 }
636 else 636 else
637 error ("mkfifo: file name must be a string"); 637 error ("mkfifo: file name must be a string");
638 } 638 }
639 else 639 else
640 print_usage ("mkfifo"); 640 print_usage ();
641 641
642 return retval; 642 return retval;
643 } 643 }
644 644
645 DEFUN (pipe, args, , 645 DEFUN (pipe, args, ,
692 retval(1) = status; 692 retval(1) = status;
693 retval(0) = octave_value (file_ids); 693 retval(0) = octave_value (file_ids);
694 } 694 }
695 } 695 }
696 else 696 else
697 print_usage ("pipe"); 697 print_usage ();
698 698
699 return retval; 699 return retval;
700 } 700 }
701 701
702 DEFUN (stat, args, , 702 DEFUN (stat, args, ,
817 retval(0) = Matrix (); 817 retval(0) = Matrix ();
818 } 818 }
819 } 819 }
820 } 820 }
821 else 821 else
822 print_usage ("stat"); 822 print_usage ();
823 823
824 return retval; 824 return retval;
825 } 825 }
826 826
827 DEFUNX ("S_ISREG", FS_ISREG, args, , 827 DEFUNX ("S_ISREG", FS_ISREG, args, ,
842 retval = file_stat::is_reg (static_cast<mode_t> (mode)); 842 retval = file_stat::is_reg (static_cast<mode_t> (mode));
843 else 843 else
844 error ("S_ISREG: invalid mode value"); 844 error ("S_ISREG: invalid mode value");
845 } 845 }
846 else 846 else
847 print_usage ("S_ISREG"); 847 print_usage ();
848 848
849 return retval; 849 return retval;
850 } 850 }
851 851
852 DEFUNX ("S_ISDIR", FS_ISDIR, args, , 852 DEFUNX ("S_ISDIR", FS_ISDIR, args, ,
867 retval = file_stat::is_dir (static_cast<mode_t> (mode)); 867 retval = file_stat::is_dir (static_cast<mode_t> (mode));
868 else 868 else
869 error ("S_ISDIR: invalid mode value"); 869 error ("S_ISDIR: invalid mode value");
870 } 870 }
871 else 871 else
872 print_usage ("S_ISDIR"); 872 print_usage ();
873 873
874 return retval; 874 return retval;
875 } 875 }
876 876
877 DEFUNX ("S_ISCHR", FS_ISCHR, args, , 877 DEFUNX ("S_ISCHR", FS_ISCHR, args, ,
892 retval = file_stat::is_chr (static_cast<mode_t> (mode)); 892 retval = file_stat::is_chr (static_cast<mode_t> (mode));
893 else 893 else
894 error ("S_ISCHR: invalid mode value"); 894 error ("S_ISCHR: invalid mode value");
895 } 895 }
896 else 896 else
897 print_usage ("S_ISCHR"); 897 print_usage ();
898 898
899 return retval; 899 return retval;
900 } 900 }
901 901
902 DEFUNX ("S_ISBLK", FS_ISBLK, args, , 902 DEFUNX ("S_ISBLK", FS_ISBLK, args, ,
917 retval = file_stat::is_blk (static_cast<mode_t> (mode)); 917 retval = file_stat::is_blk (static_cast<mode_t> (mode));
918 else 918 else
919 error ("S_ISBLK: invalid mode value"); 919 error ("S_ISBLK: invalid mode value");
920 } 920 }
921 else 921 else
922 print_usage ("S_ISBLK"); 922 print_usage ();
923 923
924 return retval; 924 return retval;
925 } 925 }
926 926
927 DEFUNX ("S_ISFIFO", FS_ISFIFO, args, , 927 DEFUNX ("S_ISFIFO", FS_ISFIFO, args, ,
942 retval = file_stat::is_fifo (static_cast<mode_t> (mode)); 942 retval = file_stat::is_fifo (static_cast<mode_t> (mode));
943 else 943 else
944 error ("S_ISFIFO: invalid mode value"); 944 error ("S_ISFIFO: invalid mode value");
945 } 945 }
946 else 946 else
947 print_usage ("S_ISFIFO"); 947 print_usage ();
948 948
949 return retval; 949 return retval;
950 } 950 }
951 951
952 DEFUNX ("S_ISLNK", FS_ISLNK, args, , 952 DEFUNX ("S_ISLNK", FS_ISLNK, args, ,
967 retval = file_stat::is_lnk (static_cast<mode_t> (mode)); 967 retval = file_stat::is_lnk (static_cast<mode_t> (mode));
968 else 968 else
969 error ("S_ISLNK: invalid mode value"); 969 error ("S_ISLNK: invalid mode value");
970 } 970 }
971 else 971 else
972 print_usage ("S_ISLNK"); 972 print_usage ();
973 973
974 return retval; 974 return retval;
975 } 975 }
976 976
977 DEFUNX ("S_ISSOCK", FS_ISSOCK, args, , 977 DEFUNX ("S_ISSOCK", FS_ISSOCK, args, ,
990 retval = file_stat::is_sock (static_cast<mode_t> (mode)); 990 retval = file_stat::is_sock (static_cast<mode_t> (mode));
991 else 991 else
992 error ("S_ISSOCK: invalid mode value"); 992 error ("S_ISSOCK: invalid mode value");
993 } 993 }
994 else 994 else
995 print_usage ("S_ISSOCK"); 995 print_usage ();
996 996
997 return retval; 997 return retval;
998 } 998 }
999 999
1000 DEFUN (uname, args, , 1000 DEFUN (uname, args, ,
1037 retval(2) = sysinfo.message (); 1037 retval(2) = sysinfo.message ();
1038 retval(1) = sysinfo.error (); 1038 retval(1) = sysinfo.error ();
1039 retval(0) = m; 1039 retval(0) = m;
1040 } 1040 }
1041 else 1041 else
1042 print_usage ("uname"); 1042 print_usage ();
1043 1043
1044 return retval; 1044 return retval;
1045 } 1045 }
1046 1046
1047 DEFUN (unlink, args, , 1047 DEFUN (unlink, args, ,
1076 } 1076 }
1077 else 1077 else
1078 error ("unlink: file name must be a string"); 1078 error ("unlink: file name must be a string");
1079 } 1079 }
1080 else 1080 else
1081 print_usage ("unlink"); 1081 print_usage ();
1082 1082
1083 return retval; 1083 return retval;
1084 } 1084 }
1085 1085
1086 DEFUN (waitpid, args, , 1086 DEFUN (waitpid, args, ,
1164 } 1164 }
1165 else 1165 else
1166 error ("waitpid: PID must be an integer value"); 1166 error ("waitpid: PID must be an integer value");
1167 } 1167 }
1168 else 1168 else
1169 print_usage ("waitpid"); 1169 print_usage ();
1170 1170
1171 return retval; 1171 return retval;
1172 } 1172 }
1173 1173
1174 DEFUNX ("WIFEXITED", FWIFEXITED, args, , 1174 DEFUNX ("WIFEXITED", FWIFEXITED, args, ,
1419 } 1419 }
1420 else 1420 else
1421 error ("canonicalize_file_name: argument must be a character string"); 1421 error ("canonicalize_file_name: argument must be a character string");
1422 } 1422 }
1423 else 1423 else
1424 print_usage ("canonicalize_file_name"); 1424 print_usage ();
1425 1425
1426 return retval; 1426 return retval;
1427 } 1427 }
1428 1428
1429 static octave_value 1429 static octave_value
1434 int nargin = args.length (); 1434 int nargin = args.length ();
1435 1435
1436 if (nargin == 0) 1436 if (nargin == 0)
1437 retval = val; 1437 retval = val;
1438 else 1438 else
1439 print_usage (nm); 1439 print_usage ();
1440 1440
1441 return retval; 1441 return retval;
1442 } 1442 }
1443 1443
1444 #if !defined (O_NONBLOCK) && defined (O_NDELAY) 1444 #if !defined (O_NONBLOCK) && defined (O_NDELAY)