samvv/bolt
1
0
Fork 0
Code Issues 24 Pull requests Projects Releases Packages Wiki Activity Actions

Rename UniVar to RegularVar

Browse source
This commit is contained in:
Sam Vervaeck 2023-08-30 12:07:53 +02:00
parent 0d7b7fec8d
commit 7eed7998e8
Signed by: samvv
SSH key fingerprint: SHA256:dIg0ywU1OP+ZYifrYxy8c5esO72cIKB+4/9wkZj1VaY
3 changed files with 48 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
compiler/src/checker.ts
View file

@ -30,7 +30,7 @@ import {
import { assert, assertNever, isEmpty, MultiMap, toStringTag, InspectFn } from "./util";
import { Analyser } from "./analysis";
import { InspectOptions } from "util";
import { TypeKind, TApp, TArrow, TCon, TField, TNil, TPresent, TRegularVar, TVSet, TVSub, Type, TypeBase, TAbsent, TRigidVar, TVar, buildTupleTypeWithLoc, buildTupleType } from "./types";
import { TypeKind, TApp, TArrow, TCon, TField, TNil, TPresent, TRegularVar, TVSet, TVSub, Type, TypeBase, TAbsent, TRigidVar, TVar, buildTupleTypeWithLoc, buildTupleType, isTVar } from "./types";
import { CEmpty, CEqual, CMany, Constraint, ConstraintKind, ConstraintSet } from "./constraints";
// export class Qual {
@ -231,7 +231,7 @@ type NodeWithReference
| ReferenceTypeExpression
function validateScheme(scheme: Scheme): void {
const isMonoVar = scheme.type.kind === TypeKind.UniVar && scheme.typeVars.size === 0;
const isMonoVar = scheme.type.kind === TypeKind.RegularVar && scheme.typeVars.size === 0;
if (!isMonoVar) {
const tvs = new TVSet(scheme.type.getTypeVars())
for (const tv of tvs) {
@ -723,7 +723,7 @@ export class Checker {
private simplifyType(type: Type): Type {
type = type.find();
switch (type.kind) {
case TypeKind.UniVar:
case TypeKind.RegularVar:
case TypeKind.RigidVar:
case TypeKind.Nil:
case TypeKind.Absent:
@ -2099,7 +2099,7 @@ export class Checker {
private maxTypeErrorCount = 5;
private find(type: Type): Type {
while (type.kind === TypeKind.UniVar && this.typeSolution.has(type)) {
while (type.kind === TypeKind.RegularVar && this.typeSolution.has(type)) {
type = this.typeSolution.get(type)!;
}
return type;
@ -2149,11 +2149,11 @@ export class Checker {
}
}
if (left.kind !== TypeKind.UniVar && right.kind === TypeKind.UniVar) {
if (left.kind !== TypeKind.RegularVar && right.kind === TypeKind.RegularVar) {
swap();
}
if (left.kind === TypeKind.UniVar) {
if (left.kind === TypeKind.RegularVar) {
// Perform an occurs check, verifying whether left occurs
// somewhere inside the structure of right. If so, unification
@ -2167,30 +2167,30 @@ export class Checker {
// propagating the type classes that 'left' requires to 'right'.
// If 'right' is another type variable, we're lucky. We just copy
// the missing type classes from 'left' to 'right'. Otherwise,
//const propagateClasses = (classes: Iterable<ClassDeclaration>, type: Type) => {
// if (type.kind === TypeKind.Var) {
// for (const constraint of classes) {
// type.context.add(constraint);
// }
// } else if (type.kind === TypeKind.Con) {
// for (const constraint of classes) {
// propagateClassTCon(constraint, type);
// }
// } else {
// //assert(false);
// //this.diagnostics.add(new );
// }
//}
const propagateClasses = (classes: Iterable<ClassDeclaration>, type: Type) => {
if (isTVar(type)) {
for (const constraint of classes) {
type.context.add(constraint);
}
} else if (type.kind === TypeKind.Con) {
for (const constraint of classes) {
propagateClassTCon(constraint, type);
}
} else {
//assert(false);
//this.diagnostics.add(new );
}
}
//const propagateClassTCon = (clazz: ClassDeclaration, type: TCon) => {
// const s = this.findInstanceContext(type, clazz);
// let i = 0;
// for (const classes of s) {
// propagateClasses(classes, type.argTypes[i++]);
// }
//}
const propagateClassTCon = (clazz: ClassDeclaration, type: TCon) => {
const s = this.findInstanceContext(type, clazz);
let i = 0;
for (const classes of s) {
propagateClasses(classes, type.types[i++]);
}
}
//propagateClasses(left.context, right);
propagateClasses(left.context, right);
// We are all clear; set the actual type of left to right.
left.set(right);

4
compiler/src/diagnostics.ts
View file

@ -527,7 +527,7 @@ export function describeType(type: Type): string {
{
return type.displayName;
}
case TypeKind.UniVar:
case TypeKind.RegularVar:
return 'a' + type.id;
case TypeKind.RigidVar:
return type.displayName;
@ -577,7 +577,7 @@ function describeKind(kind: Kind): string {
}
function getFirstNodeInTypeChain(type: Type): Syntax | null {
while (type !== type && (type.kind === TypeKind.UniVar || type.node === null)) {
while (type !== type && (type.kind === TypeKind.RegularVar || type.node === null)) {
type = type.next;
}
return type.node;

26
compiler/src/types.ts
View file

@ -1,10 +1,11 @@
import { InspectOptions } from "util";
import { ClassDeclaration, EnumDeclaration, StructDeclaration, Syntax } from "./cst";
import { InspectFn, assert, assertNever, toStringTag } from "./util";
import { warn } from "console";
export enum TypeKind {
Arrow,
UniVar,
RegularVar,
RigidVar,
Con,
App,
@ -69,7 +70,18 @@ export function isType(value: any): value is Type {
&& value instanceof TypeBase;
}
export class TRigidVar extends TypeBase {
abstract class TVarBase extends TypeBase {
public context = new Set<ClassDeclaration>();
}
export function isTVar(type: Type): type is TVar {
return type.kind === TypeKind.RegularVar
|| type.kind === TypeKind.RigidVar;
}
export class TRigidVar extends TVarBase {
public readonly kind = TypeKind.RigidVar;
@ -105,11 +117,9 @@ export class TRigidVar extends TypeBase {
}
export class TRegularVar extends TypeBase {
export class TRegularVar extends TVarBase {
public readonly kind = TypeKind.UniVar;
public context = new Set<ClassDeclaration>();
public readonly kind = TypeKind.RegularVar;
public constructor(
public id: number,
@ -470,8 +480,8 @@ export function typesEqual(a: Type, b: Type): boolean {
case TypeKind.Con:
assert(b.kind === TypeKind.Con);
return a.id === b.id;
case TypeKind.UniVar:
assert(b.kind === TypeKind.UniVar);
case TypeKind.RegularVar:
assert(b.kind === TypeKind.RegularVar);
return a.id === b.id;
case TypeKind.RigidVar:
assert(b.kind === TypeKind.RigidVar);