Changeset 7fd611 in git for Singular/libparse.l
- Timestamp:
- May 18, 1998, 11:32:07 AM (26 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 2f786f772c07a297f5aeb1e84266fbeb9c80861d
- Parents:
- edb75871a6a2c6003867916fbd03788e11c667bd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/libparse.l
redb758 r7fd611 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 /* $Id: libparse.l,v 1.2 1 1998-05-09 14:34:31krueger Exp $ */5 /* $Id: libparse.l,v 1.22 1998-05-18 09:32:07 krueger Exp $ */ 6 6 #include <stdio.h> 7 7 #include <string.h> … … 451 451 } 452 452 } 453 <pdef>({comment}[^\n]*) { } 454 <pdef>\/\/* { old_state = YYSTATE; BEGIN(comment); } 453 455 <pdef>. { 454 456 if(brace2<=0) { … … 738 740 if((last_cmd == LP_INFO)&&(mode == GET_INFO)) 739 741 { 742 int i, offset=0; 740 743 long current_location = ftell(yylpin); 741 744 int len = (int)(current_pos(0) - string_start); … … 745 748 fseek(yylpin, current_location, SEEK_SET); 746 749 text_buffer[len]='\0'; 750 offset=0; 751 for(i=0;i<=len; i++) { 752 if(text_buffer[i]=='\\' && 753 (text_buffer[i+1]=='"' || text_buffer[i+1]=='{' || 754 text_buffer[i+1]=='}' || text_buffer[i+1]=='\\')) { 755 i++; 756 offset++; 757 } 758 if(offset>0) text_buffer[i-offset] = text_buffer[i]; 759 } 747 760 } 748 761 # endif /* STANDALONE_PARSER */
Note: See TracChangeset
for help on using the changeset viewer.