Will Hawkins
85 lines
3.1 KiB
Swift
85 lines
3.1 KiB
Swift
// p4rse, Copyright 2026, Will Hawkins
|
|
//
|
|
// This file is part of p4rse.
|
|
//
|
|
// This file is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// This program is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
import Common
|
|
import P4Lang
|
|
|
|
public func Call<T>(
|
|
body: (ProgramExecution) -> (Result<T>, ProgramExecution), withArguments args: ArgumentList,
|
|
withParameters params: ParameterList, inExecution execution: ProgramExecution
|
|
) -> (Result<T>, ProgramExecution) {
|
|
|
|
if case .Error(let e) = args.compatible(params) {
|
|
return (.Error(e), execution)
|
|
}
|
|
|
|
var called_execution = execution.enter_scope()
|
|
|
|
for (parameter, argument) in zip(params.parameters, args.arguments) {
|
|
let arg_idx = argument.index
|
|
let arg_value = argument.argument
|
|
let maybe_argument_value = arg_value.evaluate(execution: called_execution)
|
|
guard case (.Ok(let argument_value), let updated_execution) = maybe_argument_value else {
|
|
return (
|
|
.Error(Error(withMessage: "Cannot evaluate argument \(arg_idx): \(argument)")),
|
|
called_execution.exit_scope()
|
|
)
|
|
}
|
|
called_execution = updated_execution.declare(
|
|
identifier: parameter.name, withValue: argument_value)
|
|
}
|
|
|
|
let (maybe_call_result, updated_execution) = body(called_execution)
|
|
guard case .Ok(let call_result) = maybe_call_result else {
|
|
return (.Error(maybe_call_result.error()!), updated_execution.exit_scope())
|
|
}
|
|
|
|
// Before returning, update the (in)out parameters!
|
|
var inout_scopes = updated_execution.exit_scope().scopes
|
|
|
|
for (parameter, argument) in zip(params.parameters, args.arguments) {
|
|
if let param_direction = parameter.type.direction(),
|
|
param_direction == Direction.InOut || param_direction == Direction.Out
|
|
{
|
|
// Let's make sure that it is an evaluatable l value!
|
|
guard let arg_lvalue = argument.argument as? EvaluatableLValueExpression else {
|
|
return (
|
|
.Error(Error(withMessage: "(in)out parameter argument is not lvalue")),
|
|
updated_execution.exit_scope()
|
|
)
|
|
}
|
|
|
|
guard
|
|
case .Ok(let arg_new_value) = updated_execution.scopes.lookup(identifier: parameter.name)
|
|
else {
|
|
return (
|
|
.Error(Error(withMessage: "Could not get (in)out parameter value from scope")),
|
|
updated_execution.exit_scope()
|
|
)
|
|
}
|
|
|
|
switch arg_lvalue.set(
|
|
to: arg_new_value, inScopes: inout_scopes, duringExecution: updated_execution)
|
|
{
|
|
case .Ok((let updated_scopes, _)): inout_scopes = updated_scopes
|
|
case .Error(let e): return (.Error(e), updated_execution.exit_scope())
|
|
}
|
|
}
|
|
}
|
|
return (.Ok(call_result), updated_execution.replaceScopes(inout_scopes))
|
|
}
|