Mercurial > hg > octave-lyh

comparison src/dirfns.cc @ 1489:3e705c864019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-28 05:38:26 by jwe]
author jwe
date Thu, 28 Sep 1995 05:38:26 +0000
parents 89c587478067
children 0d9e10d10bd7
comparison
equal deleted inserted replaced
1488:89c587478067 1489:3e705c864019
505 status = -1; 505 status = -1;
506 gripe_wrong_type_arg ("readdir", args(0)); 506 gripe_wrong_type_arg ("readdir", args(0));
507 } 507 }
508 else 508 else
509 { 509 {
510 DIR *dir = opendir (dirname); 510 char *tmp = tilde_expand (dirname);
511
512 DIR *dir = opendir (tmp);
513
514 free (tmp);
511 515
512 if (dir) 516 if (dir)
513 { 517 {
514 int count = 0; 518 int count = 0;
515 while (readdir (dir)) 519 while (readdir (dir))
577 { 581 {
578 const char *dirname = args(0).string_value (); 582 const char *dirname = args(0).string_value ();
579 583
580 if (error_state) 584 if (error_state)
581 gripe_wrong_type_arg ("mkdir", args(0)); 585 gripe_wrong_type_arg ("mkdir", args(0));
582 else if (mkdir (dirname, 0777) < 0) 586 else
583 { 587 {
584 status = -1; 588 char *tmp = tilde_expand (dirname);
585 error ("%s", strerror (errno)); 589
590 int mkdir_retval = mkdir (tmp, 0777);
591
592 free (tmp);
593
594 if (mkdir_retval < 0)
595 {
596 status = -1;
597 error ("%s", strerror (errno));
598 }
586 } 599 }
587 } 600 }
588 else 601 else
589 print_usage ("mkdir"); 602 print_usage ("mkdir");
590 603
608 { 621 {
609 const char *dirname = args(0).string_value (); 622 const char *dirname = args(0).string_value ();
610 623
611 if (error_state) 624 if (error_state)
612 gripe_wrong_type_arg ("rmdir", args(0)); 625 gripe_wrong_type_arg ("rmdir", args(0));
613 else if (rmdir (dirname) < 0) 626 else
614 { 627 {
615 status = -1; 628 char *tmp = tilde_expand (dirname);
616 error ("%s", strerror (errno)); 629
630 int rmdir_retval = rmdir (tmp);
631
632 free (tmp);
633
634 if (rmdir_retval < 0)
635 {
636 status = -1;
637 error ("%s", strerror (errno));
638 }
617 } 639 }
618 } 640 }
619 else 641 else
620 print_usage ("rmdir"); 642 print_usage ("rmdir");
621 643