Header --> Id

This commit is contained in:
ceriel
1994-06-24 14:02:31 +00:00
parent bcc84a94d5
commit f26dd7bb01
1254 changed files with 1254 additions and 1254 deletions

View File

@@ -7,7 +7,7 @@
/* L E X I C A L A N A L Y S E R F O R M O D U L A - 2 */
/* $Header$ */
/* $Id$ */
#include "debug.h"
#include "idfsize.h"

View File

@@ -7,7 +7,7 @@
/* T O K E N D E S C R I P T O R D E F I N I T I O N */
/* $Header$ */
/* $Id$ */
#include "real.h"

View File

@@ -7,7 +7,7 @@
/* S Y N T A X E R R O R R E P O R T I N G */
/* $Header$ */
/* $Id$ */
/* Defines the LLmessage routine. LLgen-generated parsers require the
existence of a routine of that name.

View File

@@ -7,7 +7,7 @@
/* S Y S T E M M O D U L E T E X T */
/* $Header$ */
/* $Id$ */
/* Text of SYSTEM module, for as far as it can be expressed in Modula-2 */

View File

@@ -7,7 +7,7 @@
/* C A S E S T A T E M E N T C O D E G E N E R A T I O N */
/* $Header$ */
/* $Id$ */
/* Generation of case statements is done by first creating a
description structure for the statement, build a list of the

View File

@@ -1,5 +1,5 @@
% character tables for mod2 compiler
% $Header$
% $Id$
%S129
%F %s,
%

View File

@@ -7,7 +7,7 @@
/* E X P R E S S I O N C H E C K I N G */
/* $Header$ */
/* $Id$ */
/* Check expressions, and try to evaluate them as far as possible.
*/

View File

@@ -7,7 +7,7 @@
/* E X P R E S S I O N C H E C K I N G */
/* $Header$ */
/* $Id$ */
extern int (*ExprChkTable[])(); /* table of expression checking
functions, indexed by node class

View File

@@ -7,7 +7,7 @@
/* U S E O F C H A R A C T E R C L A S S E S */
/* $Header$ */
/* $Id$ */
/* As a starter, chars are divided into classes, according to which
token they can be the start of.

View File

@@ -7,7 +7,7 @@
/* C O D E G E N E R A T I O N R O U T I N E S */
/* $Header$ */
/* $Id$ */
/* Code generation for expressions and coercions
*/

View File

@@ -7,7 +7,7 @@
/* C O N S T A N T E X P R E S S I O N H A N D L I N G */
/* $Header$ */
/* $Id$ */
#include "debug.h"
#include "target_sizes.h"

View File

@@ -7,7 +7,7 @@
/* D E B U G G I N G M A C R O */
/* $Header$ */
/* $Id$ */
#include "debugcst.h"

View File

@@ -7,7 +7,7 @@
/* D E C L A R A T I O N S */
/* $Header$ */
/* $Id$ */
{
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* I D E N T I F I E R D E S C R I P T O R S T R U C T U R E */
/* $Header$ */
/* $Id$ */
struct module {
struct node *mo_priority;/* priority of a module */

View File

@@ -7,7 +7,7 @@
/* D E F I N I T I O N M E C H A N I S M */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* D E F I N I T I O N M O D U L E S */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* D E S I G N A T O R D E S C R I P T I O N S */
/* $Header$ */
/* $Id$ */
/* Generating code for designators is not particularly easy, especially if
you don't know wether you want the address or the value.

View File

@@ -7,7 +7,7 @@
/* D E S I G N A T O R E V A L U A T I O N */
/* $Header$ */
/* $Id$ */
/* Code generation for designators.
This file contains some routines that generate code common to address

View File

@@ -7,7 +7,7 @@
/* H I G H L E V E L S Y M B O L E N T R Y */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* E R R O R A N D D I A G N O S T I C R O U T I N E S */
/* $Header$ */
/* $Id$ */
/* This file contains the (non-portable) error-message and diagnostic
giving functions. Be aware that they are called with a variable

View File

@@ -7,7 +7,7 @@
/* E X P R E S S I O N S */
/* $Header$ */
/* $Id$ */
{
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* F I L E D E S C R I P T O R S T R U C T U R E */
/* $Header$ */
/* $Id$ */
struct f_info {
unsigned short f_lineno;

View File

@@ -7,7 +7,7 @@
/* I N S T A N T I A T I O N O F I D F P A C K A G E */
/* $Header$ */
/* $Id$ */
#include "idf.h"
#include <idf_pkg.body>

View File

@@ -7,7 +7,7 @@
/* U S E R D E C L A R E D P A R T O F I D F */
/* $Header$ */
/* $Id$ */
struct id_u {
int id_res;

View File

@@ -7,7 +7,7 @@
/* I N S T A N T I A T I O N O F I N P U T P A C K A G E */
/* $Header$ */
/* $Id$ */
#include "f_info.h"
struct f_info file_info;

View File

@@ -7,7 +7,7 @@
/* I N S T A N T I A T I O N O F I N P U T M O D U L E */
/* $Header$ */
/* $Id$ */
#include "inputtype.h"

View File

@@ -7,7 +7,7 @@
/* L O O K U P R O U T I N E S */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* M A I N P R O G R A M */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* S O M E G L O B A L V A R I A B L E S */
/* $Header$ */
/* $Id$ */
extern char options[]; /* indicating which options were given */

View File

@@ -1,6 +1,6 @@
cat <<'--EOT--'
/* Generated by make.tokcase */
/* $Header$ */
/* $Id$ */
#include "Lpars.h"
char *

View File

@@ -7,7 +7,7 @@
/* M I S C E L L A N E O U S */
/* $Header$ */
/* $Id$ */
#define is_anon_idf(x) ((x)->id_text[0] == '#')
#define id_not_declared(x) (not_declared("identifier", (x), ""))

View File

@@ -7,7 +7,7 @@
/* M I S C E L L A N E O U S R O U T I N E S */
/* $Header$ */
/* $Id$ */
#include <alloc.h>
#include <em_arith.h>

View File

@@ -7,7 +7,7 @@
/* N O D E O F A N A B S T R A C T P A R S E T R E E */
/* $Header$ */
/* $Id$ */
struct node {
char nd_class; /* kind of node */

View File

@@ -7,7 +7,7 @@
/* N O D E O F A N A B S T R A C T P A R S E T R E E */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* U S E R O P T I O N - H A N D L I N G */
/* $Header$ */
/* $Id$ */
#include "idfsize.h"

View File

@@ -7,7 +7,7 @@
/* O V E R A L L S T R U C T U R E */
/* $Header$ */
/* $Id$ */
{
#include "debug.h"

View File

@@ -1,4 +1,4 @@
# $Header$
# $Id$
# C compilation part. Not to be called directly.
# Instead, it is to be called by the Makefile.

View File

@@ -1,4 +1,4 @@
# $Header$
# $Id$
# make Modula-2 compiler

View File

@@ -7,7 +7,7 @@
/* R E A L C O N S T A N T D E S C R I P T O R D E F I N I T I O N */
/* $Header$ */
/* $Id$ */
#include <flt_arith.h>

View File

@@ -7,7 +7,7 @@
/* S C O P E M E C H A N I S M */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* S C O P E M E C H A N I S M */
/* $Header$ */
/* $Id$ */
#define OPENSCOPE 0 /* Indicating an open scope */
#define CLOSEDSCOPE 1 /* Indicating a closed scope (module) */

View File

@@ -7,7 +7,7 @@
/* D E B U G G E R S Y M B O L T A B L E */
/* $Header$ */
/* $Id$ */
#include "dbsymtab.h"

View File

@@ -7,7 +7,7 @@
/* S T A N D A R D P R O C E D U R E S A N D F U N C T I O N S */
/* $Header$ */
/* $Id$ */
#define S_ABS 1
#define S_CAP 2

View File

@@ -7,7 +7,7 @@
/* S T A T E M E N T S */
/* $Header$ */
/* $Id$ */
{
#include <assert.h>

View File

@@ -7,7 +7,7 @@
/* T E M P O R A R Y V A R I A B L E S */
/* $Header$ */
/* $Id$ */
/* Code for the allocation and de-allocation of temporary variables,
allowing re-use.

View File

@@ -7,7 +7,7 @@
/* T O K E N D E F I N I T I O N S */
/* $Header$ */
/* $Id$ */
#include "tokenname.h"
#include "Lpars.h"

View File

@@ -7,7 +7,7 @@
/* T O K E N N A M E S T R U C T U R E */
/* $Header$ */
/* $Id$ */
struct tokenname { /* Used for defining the name of a
token as identified by its symbol

View File

@@ -7,7 +7,7 @@
/* T Y P E D E S C R I P T O R S T R U C T U R E */
/* $Header$ */
/* $Id$ */
#include "dbsymtab.h"

View File

@@ -7,7 +7,7 @@
/* T Y P E D E F I N I T I O N M E C H A N I S M */
/* $Header$ */
/* $Id$ */
#include "debug.h"

View File

@@ -7,7 +7,7 @@
/* T Y P E E Q U I V A L E N C E */
/* $Header$ */
/* $Id$ */
/* Routines for testing type equivalence, type compatibility, and
assignment compatibility

View File

@@ -7,7 +7,7 @@
/* P A R S E T R E E W A L K E R */
/* $Header$ */
/* $Id$ */
/* Routines to walk through parts of the parse tree, and generate
code for these parts.

View File

@@ -7,7 +7,7 @@
/* P A R S E T R E E W A L K E R */
/* $Header$ */
/* $Id$ */
/* Definition of WalkNode macro
*/

View File

@@ -7,7 +7,7 @@
/* W A R N I N G C L A S S E S */
/* $Header$ */
/* $Id$ */
/* Warning classes, at the moment three of them:
Strict (R)

View File

@@ -3,7 +3,7 @@ DEFINITION MODULE ASCII;
(*
Module: Mnemonics for ASCII control characters
From: ???
Version: $Header$
Version: $Id$
*)
CONST

View File

@@ -6,7 +6,7 @@
/*
Module: Access to program arguments and environment
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*/
extern char **argv, **environ;

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Arguments;
(*
Module: Access to program arguments and environment
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
VAR Argc: CARDINAL; (* Number of program arguments, including the program

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE ArraySort;
(*
Module: Array sorting module
Author: Ceriel J.H. Jacobs
Date: $Header$
Date: $Id$
Interface is like the qsort() interface in C, so that an array of values
can be sorted. This does not mean that it has to be an ARRAY, but it does

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE ArraySort;
(*
Module: Array sorting module.
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM SYSTEM IMPORT ADDRESS, BYTE; (* no generics in Modula-2, sorry *)

View File

@@ -4,7 +4,7 @@ DEFINITION MODULE CSP;
From: "A Modula-2 Implementation of CSP",
M. Collado, R. Morales, J.J. Moreno,
SIGPlan Notices, Volume 22, Number 6, June 1987.
Version: $Header$
Version: $Id$
See this article for an explanation of the use of this module.
*)

View File

@@ -6,7 +6,7 @@ IMPLEMENTATION MODULE CSP;
M. Collado, R. Morales, J.J. Moreno,
SIGPlan Notices, Volume 22, Number 6, June 1987.
Some modifications by Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
See this article for an explanation of the use of this module.
*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Conversions;
(*
Module: Numeric-to-string conversions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
PROCEDURE ConvertOctal(num, len: CARDINAL; VAR str: ARRAY OF CHAR);

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Conversions;
(*
Module: numeric-to-string conversions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
PROCEDURE ConvertNum(num, len, base: CARDINAL;

View File

@@ -3,7 +3,7 @@ DEFINITION MODULE EM;
(*
Module: Interface to some EM instructions and data
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM SYSTEM IMPORT ADDRESS;

View File

@@ -6,7 +6,7 @@
;
; Module: Interface to some EM instructions and data
; Author: Ceriel J.H. Jacobs
; Version: $Header$
; Version: $Id$
;
mes 2,EM_WSIZE,EM_PSIZE

View File

@@ -4,7 +4,7 @@ DEFINITION MODULE Epilogue;
Module: install module termination procedures to be called at
program termination
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
MODULA-2 offers a facility for the initialization of modules, but there
is no mechanism to have some code executed when the program finishes.

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE InOut;
(*
Module: Wirth's Input/Output module
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
CONST EOL = 12C;

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE InOut ;
(*
Module: Wirth's Input/Output module
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
IMPORT Streams;

View File

@@ -6,7 +6,7 @@
;
; Module: Compute non-constant set displays
; Author: Ceriel J.H. Jacobs
; Version: $Header$
; Version: $Id$
;
mes 2,EM_WSIZE,EM_PSIZE

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE MathLib0;
(*
Module: Some mathematical functions
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
Exists for compatibility.
A more elaborate math lib can be found in Mathlib.def

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE MathLib0;
(*
Module: Some mathematical functions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
IMPORT Mathlib;

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Mathlib;
(*
Module: Mathematical functions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
(* Some mathematical constants: *)

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Mathlib;
(*
Module: Mathematical functions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM EM IMPORT FIF, FEF;

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE PascalIO;
(*
Module: Pascal-like Input/Output
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
This module provides for I/O that is essentially equivalent to the I/O
provided by Pascal with "text", or "file of char".

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE PascalIO;
(*
Module: Pascal-like Input/Output
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM Conversions IMPORT

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Processes;
(*
Module: Processes
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
(*
As discussed in "Unfair Process Scheduling in Modula-2", by

View File

@@ -3,7 +3,7 @@ IMPLEMENTATION MODULE Processes [1];
(*
Module: Processes
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
FROM SYSTEM IMPORT ADDRESS, TSIZE, NEWPROCESS, TRANSFER;

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE RealConversions;
(*
Module: string-to-real and real-to-string conversions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
PROCEDURE StringToReal(str: ARRAY OF CHAR; VAR r: REAL; VAR ok: BOOLEAN);

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE RealConversions;
(*
Module: string-to-real and real-to-string conversions
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE RealInOut;
(*
Module: InOut for REAL numbers
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
VAR Done: BOOLEAN;

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE RealInOut;
(*
Module: InOut for REAL numbers
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM InOut IMPORT ReadString, WriteString, WriteOct;

View File

@@ -6,7 +6,7 @@
/*
Module: SYSTEM
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*/
/*

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Semaphores;
(*
Module: Processes with semaphores
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
On systems using quasi-concurrency, the only opportunities for process-
switches are calls to Down and Up.

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Semaphores [1];
(*
Module: Processes with semaphores
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
Quasi-concurrency implementation
*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Storage;
(*
Module: Dynamic storage allocation
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
(*

View File

@@ -9,7 +9,7 @@ IMPLEMENTATION MODULE Storage;
Module: Dynamic Storage Allocation
Author: Ceriel J.H. Jacobs
Adapted from a version in C by Hans Tebra
Version: $Header$
Version: $Id$
*)
(* This storage manager maintains an array of lists of objects with the
same size. Commonly used sizes have their own bucket. The larger ones

View File

@@ -7,7 +7,7 @@
Module: assign string to character array, with possible 0-byte
extension
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*/
StringAssign(dstsiz, srcsiz, dstaddr, srcaddr)
register char *dstaddr, *srcaddr;

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Streams;
(*
Module: Stream Input/Output
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
* This module provides sequential IO through streams.
* A stream is either a text stream or a binary stream, and is either in

View File

@@ -9,7 +9,7 @@ IMPLEMENTATION MODULE Streams;
(*
Module: Stream Input/Output
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
Implementation for Unix
*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Strings;
(*
Module: String manipulations
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
(* Note: truncation of strings may occur if the user does not provide
large enough variables to contain the result of the operation.

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Strings;
(*
Module: String manipulations
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
PROCEDURE Assign(source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR);

View File

@@ -3,7 +3,7 @@ DEFINITION MODULE StripUnix;
(*
Module: interface to some Unix systemcalls
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
This is a stripped down version of Unix.def, needed to compile some of
the modules on small machines

View File

@@ -6,7 +6,7 @@
(*
Module: Interface to termcap database
From: Unix manual chapter 3
Version: $Header$
Version: $Id$
*)
(*

View File

@@ -6,7 +6,7 @@
(*
Module: Interface to termcap database
From: Unix manual chapter 3
Version: $Header$
Version: $Id$
*)
(*$R-*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Terminal;
(*
Module: Input/Output to/from terminals
From: "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
Version: $Header$
Version: $Id$
*)
PROCEDURE Read(VAR ch : CHAR);

View File

@@ -9,7 +9,7 @@ IMPLEMENTATION MODULE Terminal;
(*
Module: Input/Output to/from terminals
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
Implementation for Unix.
*)

View File

@@ -2,7 +2,7 @@ DEFINITION MODULE Traps;
(*
Module: Facility for handling traps
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
IMPORT EM;

View File

@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Traps;
(*
Module: Facility for handling traps
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM EM IMPORT SIG, LINO, FILN, TRP;

View File

@@ -3,7 +3,7 @@ DEFINITION MODULE Unix;
(*
Module: interface to some Unix systemcalls
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*)
FROM SYSTEM IMPORT WORD, ADDRESS;

View File

@@ -6,7 +6,7 @@
(*
Module: Interface to termcap database
From: Unix manual chapter 3
Version: $Header$
Version: $Id$
*)
(*$Foreign*)

View File

@@ -6,7 +6,7 @@
/*
Module: double abs function
Author: Ceriel J.H. Jacobs
Version: $Header$
Version: $Id$
*/
#ifndef NOFLOAT
double

Some files were not shown because too many files have changed in this diff Show More