Header --> Id
This commit is contained in:
@@ -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"
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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 */
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
% character tables for mod2 compiler
|
||||
% $Header$
|
||||
% $Id$
|
||||
%S129
|
||||
%F %s,
|
||||
%
|
||||
|
||||
@@ -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.
|
||||
*/
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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
|
||||
*/
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E B U G G I N G M A C R O */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debugcst.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E C L A R A T I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include "debug.h"
|
||||
|
||||
@@ -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 */
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* E X P R E S S I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include "debug.h"
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* L O O K U P R O U T I N E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* M A I N P R O G R A M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -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 */
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
cat <<'--EOT--'
|
||||
/* Generated by make.tokcase */
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
#include "Lpars.h"
|
||||
|
||||
char *
|
||||
|
||||
@@ -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), ""))
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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 */
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Header$
|
||||
# $Id$
|
||||
|
||||
# C compilation part. Not to be called directly.
|
||||
# Instead, it is to be called by the Makefile.
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Header$
|
||||
# $Id$
|
||||
|
||||
# make Modula-2 compiler
|
||||
|
||||
|
||||
@@ -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>
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S C O P E M E C H A N I S M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -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) */
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S T A T E M E N T S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include <assert.h>
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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
|
||||
*/
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -3,7 +3,7 @@ DEFINITION MODULE ASCII;
|
||||
(*
|
||||
Module: Mnemonics for ASCII control characters
|
||||
From: ???
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
CONST
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
/*
|
||||
Module: Access to program arguments and environment
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*/
|
||||
|
||||
extern char **argv, **environ;
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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 *)
|
||||
|
||||
|
||||
@@ -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.
|
||||
*)
|
||||
|
||||
@@ -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.
|
||||
*)
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE InOut ;
|
||||
(*
|
||||
Module: Wirth's Input/Output module
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
IMPORT Streams;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE MathLib0;
|
||||
(*
|
||||
Module: Some mathematical functions
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
IMPORT Mathlib;
|
||||
|
||||
@@ -2,7 +2,7 @@ DEFINITION MODULE Mathlib;
|
||||
(*
|
||||
Module: Mathematical functions
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
(* Some mathematical constants: *)
|
||||
|
||||
@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Mathlib;
|
||||
(*
|
||||
Module: Mathematical functions
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
FROM EM IMPORT FIF, FEF;
|
||||
|
||||
@@ -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".
|
||||
|
||||
@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE PascalIO;
|
||||
(*
|
||||
Module: Pascal-like Input/Output
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
FROM Conversions IMPORT
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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$
|
||||
*)
|
||||
|
||||
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
/*
|
||||
Module: SYSTEM
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -8,7 +8,7 @@ IMPLEMENTATION MODULE Semaphores [1];
|
||||
(*
|
||||
Module: Processes with semaphores
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
|
||||
Quasi-concurrency implementation
|
||||
*)
|
||||
|
||||
@@ -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$
|
||||
*)
|
||||
|
||||
(*
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -9,7 +9,7 @@ IMPLEMENTATION MODULE Streams;
|
||||
(*
|
||||
Module: Stream Input/Output
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
|
||||
Implementation for Unix
|
||||
*)
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
(*
|
||||
Module: Interface to termcap database
|
||||
From: Unix manual chapter 3
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
(*
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
(*
|
||||
Module: Interface to termcap database
|
||||
From: Unix manual chapter 3
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
(*$R-*)
|
||||
|
||||
@@ -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);
|
||||
|
||||
@@ -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.
|
||||
*)
|
||||
|
||||
@@ -2,7 +2,7 @@ DEFINITION MODULE Traps;
|
||||
(*
|
||||
Module: Facility for handling traps
|
||||
Author: Ceriel J.H. Jacobs
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
IMPORT EM;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
(*
|
||||
Module: Interface to termcap database
|
||||
From: Unix manual chapter 3
|
||||
Version: $Header$
|
||||
Version: $Id$
|
||||
*)
|
||||
|
||||
(*$Foreign*)
|
||||
|
||||
@@ -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
Reference in New Issue
Block a user