comparison src/syntax.c @ 20475:efbebc38e077

Comment and whitespace changes.

20474:2ff24b456bb7


/* Parse forward from FROM to END,
   assuming that FROM has state OLDSTATE (nil means FROM is start of function),
   and return a description of the state of the parse at END.
   If STOPBEFORE is nonzero, stop at the start of an atom.
   If COMMENTSTOP is nonzero, stop at the start of a comment.  */

static void
scan_sexps_forward (stateptr, from, end, targetdepth,
		    stopbefore, oldstate, commentstop)
     struct lisp_parse_state *stateptr;

			    ? (FETCH_CHAR (prev_from))
			    : ST_STRING_STYLE);
	  if (boundary_stop) goto done;
	startinstring:
	  {
	      nofence = state.instring != ST_STRING_STYLE;
	    
	      while (1)
		  {
		      int c;

		      if (from >= end) goto done;
		      c = FETCH_CHAR (from);
		      if (nofence && c == state.instring) break;
		      UPDATE_SYNTAX_TABLE_FORWARD (from);
		      switch (SWITCH_ENUM_CAST (SYNTAX (c)))
			  {
			  case Sstring_fence:
			      if (!nofence) goto string_end;
			      break;
			  case Scharquote:
			  case Sescape:
			      INC_FROM;
			    startquotedinstring:
			      if (from >= end) goto endquoted;
			  }
		      INC_FROM;
		  }
	  }
	string_end:
	  state.instring = -1;
	  curlevel->prev = curlevel->last;
	  INC_FROM;

20475:efbebc38e077


/* Parse forward from FROM to END,
   assuming that FROM has state OLDSTATE (nil means FROM is start of function),
   and return a description of the state of the parse at END.
   If STOPBEFORE is nonzero, stop at the start of an atom.
   If COMMENTSTOP is 1, stop at the start of a comment.
   If COMMENTSTOP is -1, stop at the start or end of a comment,
   after the beginning of a string, or after the end of a string.  */

static void
scan_sexps_forward (stateptr, from, end, targetdepth,
		    stopbefore, oldstate, commentstop)
     struct lisp_parse_state *stateptr;

			    ? (FETCH_CHAR (prev_from))
			    : ST_STRING_STYLE);
	  if (boundary_stop) goto done;
	startinstring:
	  {
	    nofence = state.instring != ST_STRING_STYLE;
	    
	    while (1)
	      {
		int c;

		if (from >= end) goto done;
		c = FETCH_CHAR (from);
		if (nofence && c == state.instring) break;
		UPDATE_SYNTAX_TABLE_FORWARD (from);
		switch (SWITCH_ENUM_CAST (SYNTAX (c)))
		  {
		  case Sstring_fence:
		    if (!nofence) goto string_end;
		    break;
		  case Scharquote:
		  case Sescape:
		    INC_FROM;
		  startquotedinstring:
		    if (from >= end) goto endquoted;
		  }
		INC_FROM;
	      }
	  }
	string_end:
	  state.instring = -1;
	  curlevel->prev = curlevel->last;
	  INC_FROM;