Mantis - Mascot
Erweiterte Problemanzeige
ID: Kategorie: Auswirkung: Reproduzierbar: Meldungsdatum: Letzte Aktualisierung:
77 general kleinerer Fehler nicht getestet 2011-08-08 16:21 2012-08-29 20:17
Reporter: sigonnea Rechnertyp:  
Bearbeitung durch: xclerc Betriebssystem:  
Priorität: normal BS-Version:  
Status: erledigt Produktversion: 1.0-beta  
Produkt-Build: Lösung: erledigt  
Projektion: keine      
Aufwand: keine Behoben in Version: 1.0  
Zusammenfassung: 0000077: Do not treat (-1) as an error
Beschreibung: (-1) raises an error because the '-' sign is not preceeded by whitespace.
Schritte zur Reproduktion:
Zusätzliche Information: Below is a small patch that corrects this:

diff --git a/src/checks/typo_spacesAroundOperators.ml b/src/checks/typo_spacesAroundOperators.ml
index 5ca5ac0..99758b7 100644
--- a/src/checks/typo_spacesAroundOperators.ml
+++ b/src/checks/typo_spacesAroundOperators.ml
@@ -38,13 +38,20 @@ let limits =
 
 let parameters = Parameter.empty_map
 
+let opening = function
+ | Camlp4.Sig.SYMBOL "("
+ | Camlp4.Sig.SYMBOL "["
+ | Camlp4.Sig.SYMBOL "[|" -> true
+ | _ -> false
+
+
 let run _ _ (_, tokens) _ report =
   let rec iter = function
     | (_, _, prev) :: (line, column, (Camlp4.Sig.SYMBOL s)) :: tl ->
         let err = report.Check.error line (Some column) in
         let len = String.length s in
         (match s.[0] with
- | '-' | '~' ->
+ | '~' | '-' when not (opening prev) ->
             Camlp4Utils.check_white "operator" s err prev
         | '$' | '%' | '&' | '*' | '+' | '/' | '<' | '=' | '>' | '@' | '^' | '|' ->
             Camlp4Utils.check_white "operator" s err prev;
Problem-Beziehungen
Angehängte Dateien:
Problem-Historie
Änderungsdatum Benutzername Feld Änderung
2011-08-08 16:21 sigonnea Neues Problem
2012-08-29 20:17 xclerc Status neu => erledigt
2012-08-29 20:17 xclerc Behoben in Version => 1.0
2012-08-29 20:17 xclerc Lösung offen => erledigt
2012-08-29 20:17 xclerc Bearbeitung durch => xclerc

Zu diesem Problem gibt es keine Notizen.