Mercurial > octave-nkf

comparison src/parse.y @ 5760:8d7162924bd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-14 04:01:37 by jwe]
author jwe
date Fri, 14 Apr 2006 04:01:40 +0000
parents b09d4d0f5b63
children 7ba9ad1fec11
comparison
equal deleted inserted replaced
5759:ce79d238f142 5760:8d7162924bd3
3111 if (in_comment) 3111 if (in_comment)
3112 { 3112 {
3113 if (! have_help_text) 3113 if (! have_help_text)
3114 { 3114 {
3115 first_comments_seen = true; 3115 first_comments_seen = true;
3116 help_txt += (char) c; 3116 help_txt += static_cast<char> (c);
3117 } 3117 }
3118 3118
3119 if (c == '\n') 3119 if (c == '\n')
3120 { 3120 {
3121 if (update_pos) 3121 if (update_pos)
3211 3211
3212 FILE *fptr = fopen (file.c_str (), "r"); 3212 FILE *fptr = fopen (file.c_str (), "r");
3213 3213
3214 if (fptr) 3214 if (fptr)
3215 { 3215 {
3216 unwind_protect::add (safe_fclose, (void *) fptr); 3216 unwind_protect::add (safe_fclose, fptr);
3217 3217
3218 retval = gobble_leading_white_space (fptr, true, true, false); 3218 retval = gobble_leading_white_space (fptr, true, true, false);
3219 3219
3220 if (! retval.empty () && include_file_info) 3220 if (! retval.empty () && include_file_info)
3221 retval = nm + " is the file: " + file + "\n\n" + retval; 3221 retval = nm + " is the file: " + file + "\n\n" + retval;
3328 parser_end_of_input = false; 3328 parser_end_of_input = false;
3329 3329
3330 YY_BUFFER_STATE old_buf = current_buffer (); 3330 YY_BUFFER_STATE old_buf = current_buffer ();
3331 YY_BUFFER_STATE new_buf = create_buffer (ffile); 3331 YY_BUFFER_STATE new_buf = create_buffer (ffile);
3332 3332
3333 unwind_protect::add (restore_input_buffer, (void *) old_buf); 3333 unwind_protect::add (restore_input_buffer, old_buf);
3334 unwind_protect::add (delete_input_buffer, (void *) new_buf); 3334 unwind_protect::add (delete_input_buffer, new_buf);
3335 3335
3336 switch_to_buffer (new_buf); 3336 switch_to_buffer (new_buf);
3337 3337
3338 unwind_protect_ptr (curr_sym_tab); 3338 unwind_protect_ptr (curr_sym_tab);
3339 3339