Mercurial > hg > octave-avbm
comparison src/load-save.cc @ 3202:44d82b369c78
[project @ 1998-10-29 20:27:57 by jwe]
author | jwe |
---|---|
date | Thu, 29 Oct 1998 20:28:02 +0000 |
parents | bef7b73c0724 |
children | 60a89a69a70a |
comparison
equal
deleted
inserted
replaced
3201:72bb6379d8a3 | 3202:44d82b369c78 |
---|---|
1026 { | 1026 { |
1027 char *name = 0; | 1027 char *name = 0; |
1028 | 1028 |
1029 string varname; | 1029 string varname; |
1030 | 1030 |
1031 size_t pos = filename.find ('.'); | 1031 size_t pos = filename.rfind ('/'); |
1032 | 1032 |
1033 if (pos != NPOS) | 1033 if (pos != NPOS) |
1034 varname = filename.substr (0, pos); | 1034 varname = filename.substr (pos+1); |
1035 else | 1035 else |
1036 varname = filename; | 1036 varname = filename; |
1037 | |
1038 pos = varname.find ('.'); | |
1039 | |
1040 if (pos != NPOS) | |
1041 varname = varname.substr (0, pos); | |
1037 | 1042 |
1038 if (valid_identifier (varname.c_str ())) | 1043 if (valid_identifier (varname.c_str ())) |
1039 { | 1044 { |
1040 int nr = 0; | 1045 int nr = 0; |
1041 int nc = 0; | 1046 int nc = 0; |