Mercurial > octave-nkf
comparison src/load-path.cc @ 6159:645605133a6f
[project @ 2006-11-14 02:55:05 by jwe]
author | jwe |
---|---|
date | Tue, 14 Nov 2006 02:55:05 +0000 |
parents | 3a68a2dc6eb1 |
children | 4942c93e37e3 |
comparison
equal
deleted
inserted
replaced
6158:57aeb18f161d | 6159:645605133a6f |
---|---|
759 for (octave_idx_type i = 0; i < len; i++) | 759 for (octave_idx_type i = 0; i < len; i++) |
760 { | 760 { |
761 if (all_files[i] == file) | 761 if (all_files[i] == file) |
762 { | 762 { |
763 dir_name = p->dir_name; | 763 dir_name = p->dir_name; |
764 break; | 764 |
765 } | 765 goto done; |
766 } | 766 } |
767 } | 767 } |
768 } | |
769 | |
770 done: | |
768 | 771 |
769 if (! dir_name.empty ()) | 772 if (! dir_name.empty ()) |
770 retval = dir_name + file_ops::dir_sep_str + file; | 773 retval = dir_name + file_ops::dir_sep_str + file; |
771 | 774 |
772 return retval; | 775 return retval; |
808 | 811 |
809 octave_idx_type len = all_files.length (); | 812 octave_idx_type len = all_files.length (); |
810 | 813 |
811 for (octave_idx_type i = 0; i < len; i++) | 814 for (octave_idx_type i = 0; i < len; i++) |
812 { | 815 { |
813 | |
814 for (octave_idx_type j = 0; j < rel_flen; j++) | 816 for (octave_idx_type j = 0; j < rel_flen; j++) |
815 { | 817 { |
816 if (all_files[i] == rel_flist[j]) | 818 if (all_files[i] == rel_flist[j]) |
817 { | 819 { |
818 dir_name = p->dir_name; | 820 dir_name = p->dir_name; |
819 file_name = rel_flist[j]; | 821 file_name = rel_flist[j]; |
820 break; | 822 |
821 } | 823 goto done; |
822 } | 824 } |
823 } | 825 } |
824 } | 826 } |
827 } | |
828 | |
829 done: | |
825 | 830 |
826 if (! dir_name.empty ()) | 831 if (! dir_name.empty ()) |
827 retval = dir_name + file_ops::dir_sep_str + file_name; | 832 retval = dir_name + file_ops::dir_sep_str + file_name; |
828 | 833 |
829 return retval; | 834 return retval; |