\chapter{Introduction} This thesis is exploratory work I did to understand, fix, and extend the \CFA type-system, specifically, the type resolver used to select polymorphic types among overloaded names. The \CFA type-system has a number of unique features making it different from all other programming languages. Overloading allows programmers to use the most meaningful names without fear of name clashes within a program or from external sources, like include files. \begin{quote} There are only two hard things in Computer Science: cache invalidation and \emph{naming things}. --- Phil Karlton \end{quote} Experience from \CC and \CFA developers is that the type system implicitly and correctly disambiguates the majority of overloaded names, \ie it is rare to get an incorrect selection or ambiguity, even among hundreds of overloaded (variables and) functions. In many cases, a programmer has no idea there are name clashes, as they are silently resolved, simplifying the development process. Depending on the language, ambiguous cases are resolved using some form of qualification and/or casting. One of the key goals in \CFA is to push the boundary on overloading, and hence, overload resolution. \section{Types} \begin{quote} Some are born great, some achieve greatness, and some have greatness thrust upon them. Twelfth Night, Act II Scene 5, William Shakespeare \end{quote} All computers have multiple types because computer architects optimize the hardware around a few basic types with well defined (mathematical) operations: boolean, integral, floating-point, and occasionally strings. A programming language and its compiler present ways to declare types that ultimately map into those provided by the underlying hardware. These language types are thrust upon programmers, with their syntactic and semantic rules, and resulting restrictions. A language type-system defines these rules and uses them to understand how an expression is to be evaluated by the hardware. Modern programming-languages allow user-defined types and generalize across multiple types using polymorphism. Type systems can be static, where each variable has a fixed type during execution and an expression's type is determined once at compile time, or dynamic, where each variable can change type during execution and so an expression's type is reconstructed on each evaluation. Expressibility, generalization, and safety are all bound up in a language's type system, and hence, directly affect the capability, build time, and correctness of program development. \section{Operator Overloading} Virtually all programming languages overload the arithmetic operators across the basic computational types using the number and type of parameters and returns. Like \CC, \CFA also allows these operators to be overloaded with user-defined types. The syntax for operator names uses the @'?'@ character to denote a parameter, \eg unary operators: @?++@, @++?@, binary operator @?+?@. Here, a user-defined type is extended with an addition operation with the same syntax as builtin types. \begin{cfa} struct S { int i, j }; S @?+?@( S op1, S op2 ) { return (S){ op1.i + op2.i, op1.j + op2.j }; } S s1, s2; s1 = s1 @+@ s2; $\C[1.75in]{// infix call}$ s1 = @?+?@( s1, s2 ); $\C{// direct call}\CRT$ \end{cfa} The type system examines each call size and selects the best matching overloaded function based on the number and types of arguments. If there are mixed-mode operands, @2 + 3.5@, the type system, like in C/\CC, attempts (safe) conversions, converting the argument type(s) to the parameter type(s). Conversions are necessary because the hardware rarely supports mix-mode operations, so both operands must be the same type. Note, without implicit conversions, programmers must write an exponential number of functions covering all possible exact-match cases among all possible types. This approach does not match with programmer intuition and expectation, regardless of any \emph{safety} issues resulting from converted values. \section{Function Overloading} Both \CFA and \CC allow function names to be overloaded, as long as their prototypes differ in the number and type of parameters and returns. \begin{cfa} void f( void ); $\C[2in]{// (1): no parameter}$ void f( char ); $\C{// (2): overloaded on the number and parameter type}$ void f( int, int ); $\C{// (3): overloaded on the number and parameter type}$ f( 'A' ); $\C{// select (2)}\CRT$ \end{cfa} In this case, the name @f@ is overloaded depending on the number and parameter types. The type system examines each call size and selects the best match based on the number and types of the arguments. Here, there is a perfect match for the call, @f( 'A' )@ with the number and parameter type of function (2). Ada, Scala, and \CFA type-systems also use the return type in resolving a call, to pinpoint the best overloaded name. For example, in many programming languages with overloading, the following functions are ambiguous without using the return type. \begin{cfa} int f( int ); $\C[2in]{// (1); overloaded on return type and parameter}$ double f( int ); $\C{// (2); overloaded on return type and parameter}$ int i = f( 3 ); $\C{// select (1)}$ double d = f( 3 ); $\C{// select (2)}\CRT$ \end{cfa} However, if the type system looks at the return type, there is an exact match for each call, which matches with programmer intuition and expectation. This capability can be taken to the extreme, where there are no function parameters. \begin{cfa} int random( void ); $\C[2in]{// (1); overloaded on return type}$ double random( void ); $\C{// (2); overloaded on return type}$ int i = random(); $\C{// select (1)}$ double d = random(); $\C{// select (2)}\CRT$ \end{cfa} Again, there is an exact match for each call. If there is no exact match, a set of minimal conversions can be added to find a best match, as for operator overloading. \section{Variable Overloading} Unlike most programming languages, \CFA has variable overloading within a scope, along with shadow overloading in nested scopes. (Shadow overloading is also possible for functions, if a language supports nested function declarations, \eg \CC named, nested, lambda functions.) \begin{cfa} void foo( double d ); int v; $\C[2in]{// (1)}$ double v; $\C{// (2) variable overloading}$ foo( v ); $\C{// select (2)}$ { int v; $\C{// (3) shadow overloading}$ double v; $\C{// (4) and variable overloading}$ foo( v ); $\C{// select (4)}\CRT$ } \end{cfa} It is interesting that shadow overloading is considered a normal programming-language feature with only slight software-engineering problems, but variable overloading within a scope is often considered extremely dangerous. In \CFA, the type system simply treats overloaded variables as an overloaded function returning a value with no parameters. Hence, no significant effort is required to support this feature. Leveraging the return type to disambiguate is essential because variables have no parameters. \begin{cfa} int MAX = 2147483647; $\C[2in]{// (1); overloaded on return type}$ double MAX = ...; $\C{// (2); overloaded on return type}$ int i = MAX; $\C{// select (1)}$ double d = MAX; $\C{// select (2)}\CRT$ \end{cfa} \section{Type Inferencing} Every variable has a type, but association between them can occur in different ways: at the point where the variable comes into existence (declaration) and/or on each assignment to the variable. \begin{cfa} double x; $\C{// type only}$ float y = 3.1D; $\C{// type and initialization}$ auto z = y; $\C{// initialization only}$ z = "abc"; $\C{// assignment}$ \end{cfa} For type-and-initialization, the specified and initialization types may not agree. Similarity, for assignment the current variable and expression types may not agree. For type-only, the programmer specifies the initial type, which remains fixed for the variable's lifetime in statically typed languages. In the other cases, the compiler may select the type by melding programmer and context information. When the compiler participates in type selection, it is called \newterm{type inferencing}. Note, type inferencing is different from type conversion: type inferencing \emph{discovers} a variable's type before setting its value, whereas conversion has two typed values and performs a (possibly lossy) action to convert one value to the type of the other variable. One of the first and powerful type-inferencing system is Hindley--Milner~\cite{Damas82}. Here, the type resolver starts with the types of the program constants used for initialization and these constant types flow throughout the program, setting all variable and expression types. \begin{cfa} auto f() { x = 1; y = 3.5; $\C{// set types from constants}$ x = // expression involving x, y and other local initialized variables y = // expression involving x, y and other local initialized variables return x, y; } auto w = f(); $\C{// typing flows outwards}$ void f( auto x, auto y ) { x = // expression involving x, y and other local initialized variables y = // expression involving x, y and other local initialized variables } s = 1; t = 3.5; $\C{// set types from constants}$ f( s, t ); $\C{// typing flows inwards}$ \end{cfa} In both overloads of @f@, the type system works from the constant initializations inwards and/or outwards to determine the types of all variables and functions. Note, like template meta-programming, there could be a new function generated for the second @f@ depending on the types of the arguments, assuming these types are meaningful in the body of the @f@. Inferring type constraints, by analysing the body of @f@ is possible, and these constraints must be satisfied at each call site by the argument types; in this case, parametric polymorphism can allow separate compilation. In languages with type inferencing, there is often limited overloading to reduce the search space, which introduces the naming problem. Return-type inferencing goes in the opposite direction to Hindley--Milner: knowing the type of the result and flowing back through an expression to help select the best possible overloads, and possibly converting the constants for a best match. In simpler type inferencing systems, such as C/\CC/\CFA, there are more specific usages. \begin{cquote} \setlength{\tabcolsep}{10pt} \begin{tabular}{@{}lll@{}} \multicolumn{1}{c}{\textbf{gcc / \CFA}} & \multicolumn{1}{c}{\textbf{\CC}} \\ \begin{cfa} #define expr 3.0 * i typeof(expr) x = expr; int y; typeof(y) z = y; \end{cfa} & \begin{cfa} auto x = 3.0 * 4; int y; auto z = y; \end{cfa} & \begin{cfa} // use type of initialization expression // use type of initialization expression \end{cfa} \end{tabular} \end{cquote} The two important capabilities are: \begin{itemize}[topsep=0pt] \item Not determining or writing long generic types, \eg, given deeply nested generic types. \begin{cfa} typedef T1(int).T2(float).T3(char).T @ST@; $\C{// \CFA nested type declaration}$ @ST@ x, y, x; \end{cfa} This issue is exaggerated with \CC templates, where type names are 100s of characters long, resulting in unreadable error messages. \item Ensuring the type of secondary variables, always matches a primary variable. \begin{cfa} int x; $\C{// primary variable}$ typeof(x) y, z, w; $\C{// secondary variables match x's type}$ \end{cfa} If the type of @x@ changes, the types of the secondary variables correspondingly update. \end{itemize} Note, the use of @typeof@ is more restrictive, and possibly safer, than general type-inferencing. \begin{cfa} int x; type(x) y = ... // complex expression type(x) z = ... // complex expression \end{cfa} Here, the types of @y@ and @z@ are fixed (branded), whereas with type inferencing, the types of @y@ and @z@ are potentially unknown. \section{Type-Inferencing Issues} Each kind of type-inferencing system has its own set of issues that flow onto the programmer in the form of convenience, restrictions or confusions. A convenience is having the compiler use its overarching program knowledge to select the best type for each variable based on some notion of \emph{best}, which simplifies the programming experience. A restriction is the conundrum in type inferencing of when to \emph{brand} a type. That is, when is the type of the variable/function more important than the type of its initialization expression. For example, if a change is made in an initialization expression, it can cause cascading type changes and/or errors. At some point, a variable's type needs to remain constant and the initializing expression needs to be modified or in error when it changes. Often type-inferencing systems allow restricting (\newterm{branding}) a variable or function type, so the complier can report a mismatch with the constant initialization. \begin{cfa} void f( @int@ x, @int@ y ) { // brand function prototype x = // expression involving x, y and other local initialized variables y = // expression involving x, y and other local initialized variables } s = 1; t = 3.5; f( s, @t@ ); // type mismatch \end{cfa} In Haskell, it is common for programmers to brand (type) function parameters. A confusion is large blocks of code where all declarations are @auto@. As a result, understanding and changing the code becomes almost impossible. Types provide important clues as to the behaviour of the code, and correspondingly to correctly change or add new code. In these cases, a programmer is forced to re-engineer types, which is fragile, or rely on a fancy IDE that can re-engineer types. For example, given: \begin{cfa} auto x = @...@ \end{cfa} and the need to write a routine to compute using @x@ \begin{cfa} void rtn( @type of x@ parm ); rtn( x ); \end{cfa} A programmer must re-engineer the type of @x@'s initialization expression, reconstructing the possibly long generic type-name. In this situation, having the type name or its short alias is essential. \CFA's type system tries to prevent type-resolution mistakes by relying heavily on the type of the left-hand side of assignment to pinpoint the right types within an expression. Type inferencing defeats this goal because there is no left-hand type. Fundamentally, type inferencing tries to magic away variable types from the programmer. However, this results in lazy programming with the potential for poor performance and safety concerns. Types are as important as control-flow in writing a good program, and should not be masked, even if it requires the programmer to think! A similar issue is garbage collection, where storage management is masked, resulting in poor program design and performance. The entire area of Computer-Science data-structures is obsessed with time and space, and that obsession should continue into regular programming. Understanding space and time issues are an essential part of the programming craft. Given @typedef@ and @typeof@ in \CFA, and the strong need to use the left-hand type in resolution, implicit type-inferencing is unsupported. Should a significant need arise, this feature can be revisited. \section{Polymorphism} \section{Contributions} \begin{comment} From: Andrew James Beach To: Peter Buhr , Michael Leslie Brooks , Fangren Yu , Jiada Liang Subject: Re: Haskell Date: Fri, 30 Aug 2024 16:09:06 +0000 Do you mean: one = 1 And then write a bunch of code that assumes it is an Int or Integer (which are roughly int and Int in Cforall) and then replace it with: one = 1.0 And have that crash? That is actually enough, for some reason Haskell is happy to narrow the type of the first literal (Num a => a) down to Integer but will not do the same for (Fractional a => a) and Rational (which is roughly Integer for real numbers). Possibly a compatibility thing since before Haskell had polymorphic literals. Now, writing even the first version will fire a -Wmissing-signatures warning, because it does appear to be understood that just from a documentation perspective, people want to know what types are being used. Now, if you have the original case and start updating the signatures (adding one :: Fractional a => a), you can eventually get into issues, for example: import Data.Array (Array, Ix, (!)) atOne :: (Ix a, Frational a) => Array a b -> b - - In CFA: forall(a | Ix(a) | Frational(a), b) b atOne(Array(a, b) const & array) atOne = (! one) Which compiles and is fine except for the slightly awkward fact that I don't know of any types that are both Ix and Fractional types. So you might never be able to find a way to actually use that function. If that is good enough you can reduce that to three lines and use it. Something that just occurred to me, after I did the above examples, is: Are there any classic examples in literature I could adapt to Haskell? Andrew PS, I think it is too obvious of a significant change to work as a good example but I did mock up the structure of what I am thinking you are thinking about with a function. If this helps here it is. doubleInt :: Int -> Int doubleInt x = x * 2 doubleStr :: String -> String doubleStr x = x ++ x -- Missing Signature action = doubleInt - replace with doubleStr main :: IO () main = print $ action 4 \end{comment}