2023-01-31 22:00:51 -05:00
|
|
|
// Root of the ASG.
|
|
|
|
//
|
|
|
|
// Copyright (C) 2014-2023 Ryan Specialty, LLC.
|
|
|
|
//
|
|
|
|
// This file is part of TAME.
|
|
|
|
//
|
|
|
|
// This program 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 <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
//! Root node of the ASG.
|
|
|
|
|
2023-04-07 09:56:50 -04:00
|
|
|
use super::{prelude::*, Ident, Pkg};
|
2023-04-18 14:05:01 -04:00
|
|
|
use crate::{
|
2023-05-16 14:52:01 -04:00
|
|
|
asg::{air::EnvScopeKind, IdentKind, Source},
|
2023-04-18 14:05:01 -04:00
|
|
|
parse::util::SPair,
|
2023-05-02 22:12:37 -04:00
|
|
|
span::Span,
|
2023-04-18 14:05:01 -04:00
|
|
|
};
|
|
|
|
use std::fmt::Display;
|
2023-01-31 22:00:51 -05:00
|
|
|
|
2023-02-03 15:53:50 -05:00
|
|
|
#[cfg(doc)]
|
|
|
|
use super::ObjectKind;
|
|
|
|
|
2023-01-31 22:00:51 -05:00
|
|
|
/// A unit [`Object`] type representing the root node.
|
|
|
|
///
|
|
|
|
/// This exists for consistency with the rest of the object API,
|
|
|
|
/// and for use with [`ObjectIndex`].
|
|
|
|
#[derive(Debug, PartialEq)]
|
|
|
|
pub struct Root;
|
|
|
|
|
|
|
|
impl Display for Root {
|
|
|
|
fn fmt(&self, f: &mut std::fmt::Formatter) -> std::fmt::Result {
|
|
|
|
write!(f, "ASG root")
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2023-02-25 23:56:05 -05:00
|
|
|
object_rel! {
|
2023-02-03 15:53:50 -05:00
|
|
|
/// The root of the graph by definition has no cross edges.
|
2023-02-25 23:56:05 -05:00
|
|
|
Root -> {
|
2023-04-24 09:44:02 -04:00
|
|
|
// Packages are always rooted since they are the toplevel
|
|
|
|
// collection.
|
2023-02-25 23:56:05 -05:00
|
|
|
tree Pkg,
|
2023-04-24 09:44:02 -04:00
|
|
|
|
|
|
|
// Identifiers may optionally be explicitly rooted in contexts where
|
|
|
|
// the system cares only about particular identifiers and their
|
|
|
|
// dependencies,
|
|
|
|
// with `Pkg`s being only incidental.
|
|
|
|
// For example,
|
|
|
|
// `tameld` only links objects that are reachable from identifiers
|
|
|
|
// in the return map.
|
|
|
|
cross Ident,
|
2023-01-31 22:00:51 -05:00
|
|
|
}
|
|
|
|
}
|
2023-04-18 14:05:01 -04:00
|
|
|
|
|
|
|
impl ObjectIndex<Root> {
|
|
|
|
/// Root an identifier in the graph without a parent [`Pkg`].
|
|
|
|
///
|
|
|
|
/// An identifier ought to be rooted by a package that defines it;
|
|
|
|
/// this is intended as a legacy operation for `tameld` that will be
|
|
|
|
/// removed in the future.
|
|
|
|
pub fn root_ident(&self, asg: &mut Asg, name: SPair) -> ObjectIndex<Ident> {
|
|
|
|
asg.lookup_or_missing(*self, name)
|
|
|
|
.add_edge_from(asg, *self, None)
|
|
|
|
}
|
|
|
|
|
|
|
|
/// Attempt to retrieve an indexed [`Ident`] owned by `self`.
|
|
|
|
///
|
|
|
|
/// See [`Self::root_ident`].
|
|
|
|
pub fn lookup_or_missing(
|
|
|
|
&self,
|
|
|
|
asg: &mut Asg,
|
|
|
|
name: SPair,
|
|
|
|
) -> ObjectIndex<Ident> {
|
|
|
|
asg.lookup_or_missing(*self, name)
|
|
|
|
}
|
|
|
|
|
|
|
|
/// Declare a concrete identifier.
|
|
|
|
///
|
|
|
|
/// See [`ObjectIndex::<Ident>::declare`] for more information.
|
|
|
|
pub fn declare(
|
|
|
|
&self,
|
|
|
|
asg: &mut Asg,
|
|
|
|
name: SPair,
|
|
|
|
kind: IdentKind,
|
|
|
|
src: Source,
|
|
|
|
) -> Result<ObjectIndex<Ident>, AsgError> {
|
|
|
|
self.lookup_or_missing(asg, name)
|
|
|
|
.declare(asg, name, kind, src)
|
|
|
|
}
|
2023-05-02 22:12:37 -04:00
|
|
|
|
|
|
|
/// Attempt to declare a package with the given canonical name.
|
|
|
|
///
|
|
|
|
/// A canonical package name is a path relative to the project root.
|
|
|
|
///
|
|
|
|
/// This assignment will fail if the package either already has a name
|
|
|
|
/// or if a package of the same name has already been declared.
|
|
|
|
pub fn create_pkg(
|
|
|
|
self,
|
|
|
|
asg: &mut Asg,
|
|
|
|
start: Span,
|
|
|
|
name: SPair,
|
|
|
|
) -> Result<ObjectIndex<Pkg>, AsgError> {
|
2023-05-04 15:03:14 -04:00
|
|
|
let oi_pkg = asg.create(Pkg::new_canonical(start, name)?);
|
2023-05-02 22:12:37 -04:00
|
|
|
|
2023-05-16 14:52:01 -04:00
|
|
|
// TODO: We shouldn't be responsible for this
|
2023-05-16 15:03:54 -04:00
|
|
|
let eoi_pkg = EnvScopeKind::Visible(oi_pkg);
|
2023-05-16 14:52:01 -04:00
|
|
|
|
|
|
|
asg.try_index(self, name, eoi_pkg).map_err(|oi_prev| {
|
2023-05-02 22:12:37 -04:00
|
|
|
let prev = oi_prev.resolve(asg);
|
|
|
|
|
|
|
|
// unwrap note: a canonical name must exist for this error to
|
|
|
|
// have been thrown,
|
|
|
|
// but this will at least not blow up if something really
|
|
|
|
// odd happens.
|
2023-05-04 15:03:14 -04:00
|
|
|
AsgError::PkgRedeclare(prev.canonical_name(), name)
|
2023-05-02 22:12:37 -04:00
|
|
|
})?;
|
|
|
|
|
|
|
|
Ok(oi_pkg.root(asg))
|
|
|
|
}
|
2023-04-18 14:05:01 -04:00
|
|
|
}
|