Commit 5ad4e9af authored by Vincent Zweije's avatar Vincent Zweije
Browse files

Put last pure Miranda code in Clean comments.

Add CVS Id substitution variables.
parent 75123a91
#! /usr/bin/make -f
# $Id$
COCL = cocl
#COCLFLAGS = -lat
SYS = Clean\ System\ Files
......
definition module absmodule
// $Id$
from rule import Rule
:: Module sym pvar tsym tvar
......
implementation module absmodule
// $Id$
import rule
/*
......
definition module basic
// $Id$
/*
Basic definitions
......
implementation module basic
// $Id$
/*
Basic definitions
......
implementation module canon
// $Id$
/*
canon.lit - Area canonicalization
=================================
......@@ -118,3 +124,5 @@ steps:
> f cont = nosingle
> nc = nodecontents graph
> root = rgraphroot rgraph; graph = rgraphgraph rgraph
*/
implementation module clean
// $Id$
/*
clean.lit - Clean core language
===============================
......@@ -439,3 +445,5 @@ Useful (higher order) functions.
> = foldclosed sym (map unravel args), if def
> = foldopen node, otherwise
> where (def,(sym,args)) = nodecontents graph node
*/
implementation module cli
// $Id$
/*
cli.lit - Clean implementation modules
======================================
......@@ -243,3 +249,5 @@ Compiling clean parts into module information...
> ctargs = init targs
> ctroot = hd (theap--nodelist tgraph (troot:targs))
> ctgraph = updategraph ctroot (fn,[last targs,troot]) tgraph
*/
definition module complete
// $Id$
from graph import Graph
from StdOverloaded import ==
......
implementation module complete
// $Id$
import graph
import StdEnv
......
definition module dnc
// $Id$
from graph import Graph,Node
from StdString import String
from StdOverloaded import ==
......
implementation module dnc
// $Id$
import graph
import StdEnv
......
implementation module extract
// $Id$
/*
extract.lit - Folding of subject graphs
=======================================
......@@ -172,3 +178,5 @@ bearing a delta function symbol).
> = updategraph node cnt, if def
> = id, otherwise
> where (def,cnt) = dnc (const "in finishfold/2") graph node
*/
definition module frontend
// $Id$
from scanner import SearchPaths
from general import Optional, Yes, No
import checksupport, transform, overloading
......
implementation module frontend
// $Id$
// vi:set tabstop=4 noet:
import scanner, parse, postparse, check, type, trans, convertcases, overloading, utilities, convertDynamics,
......
definition module graph
// $Id$
from StdOverloaded import ==
// A rule associating a replacement with a pattern
......
implementation module graph
// $Id$
import pfun
import basic
import StdEnv
......
definition module history
// $Id$
from spine import Spine
from rule import Rgraph
from graph import Graph
......
implementation module history
// $Id$
import spine
import rule
import graph
......
implementation module hunt
// $Id$
/*
>|| Literal script "hunt.lit"
> %export
......@@ -47,3 +53,5 @@
> = filter (~=[]) ((concat.map (split ' ').lines) stdout), if return=0
> = error ("glob: "++stderr), otherwise
> where (stdout,stderr,return) = system ("echo "++pattern)
*/
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment