UNPKG

@specs-feup/metafor

Version:

A Fortran source-to-source compiler written in Typescript

33 lines 1.64 kB
import { unwrapJoinPoint, wrapJoinPoint } from "@specs-feup/lara/api/LaraJoinPoint.js"; import FortranJavaTypes from "./FortranJavaTypes.js"; import { flattenArgsArray } from "@specs-feup/lara/api/lara/core/LaraCore.js"; export default class FortranJoinPoints { static ompLoopConstruct(loop, clauses) { return wrapJoinPoint(FortranJavaTypes.AstFactory.ompLoopConstruct(unwrapJoinPoint(loop), flattenArgsArray(clauses).map(unwrapJoinPoint))); } static emptyOmpLoopConstruct() { return wrapJoinPoint(FortranJavaTypes.AstFactory.emptyOmpLoopConstruct()); } static ompPrivateClause(dataRefs) { return wrapJoinPoint(FortranJavaTypes.AstFactory.ompPrivateClause(flattenArgsArray(dataRefs).map(unwrapJoinPoint))); } static dataRef(name) { return wrapJoinPoint(FortranJavaTypes.AstFactory.dataRef(name)); } static useStatement(moduleName) { return wrapJoinPoint(FortranJavaTypes.AstFactory.useStatement(moduleName)); } static ompReductionClause(operator, dataRefs) { return wrapJoinPoint(FortranJavaTypes.AstFactory.ompReductionClause(operator, flattenArgsArray(dataRefs).map(unwrapJoinPoint))); } static emptyOmpBlockConstruct() { return wrapJoinPoint(FortranJavaTypes.AstFactory.emptyOmpBlockConstruct()); } static execution(stmts) { return wrapJoinPoint(FortranJavaTypes.AstFactory.execution(flattenArgsArray(stmts).map(unwrapJoinPoint))); } static ompOrderedClause(value) { return wrapJoinPoint(FortranJavaTypes.AstFactory.ompOrderedClause(value)); } } //# sourceMappingURL=FortranJoinPoints.js.map