|
|
@ -179,17 +179,17 @@ module SourceKind = struct
|
|
|
|
|
|
|
|
|
|
|
|
let pp fmt = function
|
|
|
|
let pp fmt = function
|
|
|
|
| Endpoint (formal_name, _) ->
|
|
|
|
| Endpoint (formal_name, _) ->
|
|
|
|
F.fprintf fmt "Endpoint[%s]" (Mangled.to_string formal_name)
|
|
|
|
F.fprintf fmt "Endpoint\\[%s\\]" (Mangled.to_string formal_name)
|
|
|
|
| EnvironmentVariable ->
|
|
|
|
| EnvironmentVariable ->
|
|
|
|
F.fprintf fmt "EnvironmentVariable"
|
|
|
|
F.fprintf fmt "EnvironmentVariable"
|
|
|
|
| ReadFile ->
|
|
|
|
| ReadFile ->
|
|
|
|
F.fprintf fmt "File"
|
|
|
|
F.fprintf fmt "File"
|
|
|
|
| CommandLineFlag (var, _) ->
|
|
|
|
| CommandLineFlag (var, _) ->
|
|
|
|
F.fprintf fmt "CommandLineFlag[%a]" Var.pp var
|
|
|
|
F.fprintf fmt "CommandLineFlag\\[%a\\]" Var.pp var
|
|
|
|
| Other ->
|
|
|
|
| Other ->
|
|
|
|
F.fprintf fmt "Other"
|
|
|
|
F.fprintf fmt "Other"
|
|
|
|
| UserControlledEndpoint (formal_name, _) ->
|
|
|
|
| UserControlledEndpoint (formal_name, _) ->
|
|
|
|
F.fprintf fmt "UserControlledEndpoint[%s]" (Mangled.to_string formal_name)
|
|
|
|
F.fprintf fmt "UserControlledEndpoint\\[%s\\]" (Mangled.to_string formal_name)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
module CppSource = Source.Make (SourceKind)
|
|
|
|
module CppSource = Source.Make (SourceKind)
|
|
|
|