Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-02 21:37:24 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

[ocaml][flightplan] No lexer when variable does not contain ocml functions

Browse Source 
close #825
This commit is contained in:
dewagter
2014-09-08 17:25:40 +02:00
committed by Gautier Hattenberger
parent a1ade09173
commit 1ad7f901ca
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/fp_proc.ml
+2 -3
View File
@@ -71,11 +71,10 @@ let transform_expression = fun env e ->
let transform_values = fun attribs_not_modified env attribs -> let transform_values = fun attribs_not_modified env attribs ->
List.map List.map
(fun (a, v) -> (fun (a, v) ->
let e = parse_expression v in
let v' = let v' =
if List.mem (String.lowercase a) attribs_not_modified if List.mem (String.lowercase a) attribs_not_modified
then v then v
else transform_expression env e in else transform_expression env (parse_expression v) in
(a, v')) (a, v'))
attribs attribs
@@ -146,7 +145,7 @@ let transform_stage = fun prefix reroutes env xml ->
let attribs = transform_values ["wp"; "vmode"] env attribs in let attribs = transform_values ["wp"; "vmode"] env attribs in
Xml.Element (tag, attribs, children) Xml.Element (tag, attribs, children)
| "call" | "set" -> | "call" | "set" ->
let attribs = transform_values [] env attribs in let attribs = transform_values ["var"] env attribs in
Xml.Element (tag, attribs, children) Xml.Element (tag, attribs, children)
| _ -> failwith (sprintf "Fp_proc: Unexpected tag: '%s'" tag) | _ -> failwith (sprintf "Fp_proc: Unexpected tag: '%s'" tag)
end end