Mercurial > hg > octave-lyh

comparison src/syscalls.cc @ 4254:df5f2e433a11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-31 19:43:07 by jwe]
author jwe
date Tue, 31 Dec 2002 19:43:07 +0000
parents ccfdb55c8156
children 755f6509bb01
comparison
equal deleted inserted replaced
4253:c3acf8a967fa 4254:df5f2e433a11
64 mk_stat_map (const file_stat& fs) 64 mk_stat_map (const file_stat& fs)
65 { 65 {
66 Octave_map m; 66 Octave_map m;
67 67
68 m["dev"](0) = static_cast<double> (fs.dev ()); 68 m["dev"](0) = static_cast<double> (fs.dev ());
69 m["ino"](0) = static_cast<double> (fs.ino ()); 69 m["ino"](0) = fs.ino ();
70 m["modestr"](0) = fs.mode_as_string (); 70 m["modestr"](0) = fs.mode_as_string ();
71 m["nlink"](0) = static_cast<double> (fs.nlink ()); 71 m["nlink"](0) = fs.nlink ();
72 m["uid"](0) = static_cast<double> (fs.uid ()); 72 m["uid"](0) = fs.uid ();
73 m["gid"](0) = static_cast<double> (fs.gid ()); 73 m["gid"](0) = fs.gid ();
74 #if defined (HAVE_STRUCT_STAT_ST_RDEV) 74 #if defined (HAVE_STRUCT_STAT_ST_RDEV)
75 m["rdev"](0) = static_cast<double> (fs.rdev ()); 75 m["rdev"](0) = static_cast<double> (fs.rdev ());
76 #endif 76 #endif
77 m["size"](0) = static_cast<double> (fs.size ()); 77 m["size"](0) = fs.size ();
78 m["atime"](0) = static_cast<double> (fs.atime ()); 78 m["atime"](0) = fs.atime ();
79 m["mtime"](0) = static_cast<double> (fs.mtime ()); 79 m["mtime"](0) = fs.mtime ();
80 m["ctime"](0) = static_cast<double> (fs.ctime ()); 80 m["ctime"](0) = fs.ctime ();
81 #if defined (HAVE_STRUCT_STAT_ST_BLKSIZE) 81 #if defined (HAVE_STRUCT_STAT_ST_BLKSIZE)
82 m["blksize"](0) = static_cast<double> (fs.blksize ()); 82 m["blksize"](0) = fs.blksize ();
83 #endif 83 #endif
84 #if defined (HAVE_STRUCT_STAT_ST_BLOCKS) 84 #if defined (HAVE_STRUCT_STAT_ST_BLOCKS)
85 m["blocks"](0) = static_cast<double> (fs.blocks ()); 85 m["blocks"](0) = fs.blocks ();
86 #endif 86 #endif
87 87
88 return m; 88 return m;
89 } 89 }
90 90
431 octave_value retval = -1; 431 octave_value retval = -1;
432 432
433 int nargin = args.length (); 433 int nargin = args.length ();
434 434
435 if (nargin == 0) 435 if (nargin == 0)
436 retval = static_cast<double> (octave_syscalls::getegid ()); 436 retval = octave_syscalls::getegid ();
437 else 437 else
438 print_usage ("getegid"); 438 print_usage ("getegid");
439 439
440 return retval; 440 return retval;
441 } 441 }
449 octave_value retval = -1; 449 octave_value retval = -1;
450 450
451 int nargin = args.length (); 451 int nargin = args.length ();
452 452
453 if (nargin == 0) 453 if (nargin == 0)
454 retval = static_cast<double> (octave_syscalls::getgid ()); 454 retval = octave_syscalls::getgid ();
455 else 455 else
456 print_usage ("getgid"); 456 print_usage ("getgid");
457 457
458 return retval; 458 return retval;
459 } 459 }
467 octave_value retval = -1; 467 octave_value retval = -1;
468 468
469 int nargin = args.length (); 469 int nargin = args.length ();
470 470
471 if (nargin == 0) 471 if (nargin == 0)
472 retval = static_cast<double> (octave_syscalls::geteuid ()); 472 retval = octave_syscalls::geteuid ();
473 else 473 else
474 print_usage ("geteuid"); 474 print_usage ("geteuid");
475 475
476 return retval; 476 return retval;
477 } 477 }
485 octave_value retval = -1; 485 octave_value retval = -1;
486 486
487 int nargin = args.length (); 487 int nargin = args.length ();
488 488
489 if (nargin == 0) 489 if (nargin == 0)
490 retval = static_cast<double> (octave_syscalls::getuid ()); 490 retval = octave_syscalls::getuid ();
491 else 491 else
492 print_usage ("getuid"); 492 print_usage ("getuid");
493 493
494 return retval; 494 return retval;
495 } 495 }
555 { 555 {
556 std::string name = args(0).string_value (); 556 std::string name = args(0).string_value ();
557 557
558 if (args(1).is_scalar_type ()) 558 if (args(1).is_scalar_type ())
559 { 559 {
560 long mode = static_cast<long> (args(1).double_value ()); 560 long mode = args(1).long_value ();
561 561
562 std::string msg; 562 if (! error_state)
563 563 {
564 int status = file_ops::mkfifo (name, mode, msg); 564 std::string msg;
565 565
566 retval(0) = status; 566 int status = file_ops::mkfifo (name, mode, msg);
567 567
568 if (status < 0) 568 retval(0) = status;
569 retval(1) = msg; 569
570 if (status < 0)
571 retval(1) = msg;
572 }
573 else
574 error ("mkfifo: invalid MODE");
570 } 575 }
571 else 576 else
572 error ("mkfifo: MODE must be an integer"); 577 error ("mkfifo: MODE must be an integer");
573 } 578 }
574 else 579 else