URL: https://linuxfr.org/forums/programmationautre/posts/parser-du-gcode-avec-attoparsec-en-haskell
Title: Parser du GCode avec Attoparsec (en Haskell)
Authors: max22
Date: 2015年10月07日T16:16:12+02:00
License: CC By-SA
Tags: haskell
Score: 1
Je cherche à parser du GCode à l'aide de Attoparsec (en Haskell).
Voilà ce que je voudrais :
```console> parse "G01 X1 Y2 Z3"
Right [Just 1, Just 2, Just 3]> parse "G01 X1 Z3"
Right [Just 1, Nothing, Just 3]> parse "G01"
Left "Message d'erreur..."
```
Les 2 premiers exemples fonctionnent. C'est le dernier qui me bloque.Je voudrais faire échouer le parser si toutes les valeurs sont "Nothing". Il serait possible de faire sa propre fonction :
```haskell
condition :: (a -> Bool) -> Parser a -> Parser a
condition f p = do
	r <- p case f r of True -> return r
		False -> fonction_qui_fait_echouer
```
seulement voilà j'ai cherché dans la doc, et je ne trouve pas de "fonction qui fait échouer". Quelqu'un aurait une idée ?
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmationautre/posts/parser-du-gcode-avec-attoparsec-en-haskell.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmationautre/posts/parser-du-gcode-avec-attoparsec-en-haskell.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>