Now using correct RCS identification

This commit is contained in:
em 1985-01-21 12:47:04 +00:00
parent 8d02182e12
commit 9479f61318
29 changed files with 29 additions and 29 deletions

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
long _abl(i) long i;
{

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
int _asc(str)
String *str;

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
asrt(b)
{

View file

@ -15,7 +15,7 @@
*
*/
/* $Header $ */
/* $Header$ */
/* Author: J.W. Stevenson */

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
String *_chr(i)
int i;

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
int _cint(f) double f;
{

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
/* error takes an error value in the range of 0-255 */
/* and generates a trap */

View file

@ -15,7 +15,7 @@
*
*/
/* $Header $ */
/* $Header$ */
/* Author: J.W. Stevenson */

View file

@ -2,7 +2,7 @@
#include <stdio.h>
#include "io.h"
/* $Header $ */
/* $Header$ */
Filedesc _fdtable[16];
/* BASIC file descriptor table */

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
_hlt(nr)
int nr;

View file

@ -1,7 +1,7 @@
#include "io.h"
#include <sgtty.h>
/* $Header $ */
/* $Header$ */
struct sgttyb _ttydef;

View file

@ -15,7 +15,7 @@
*
*/
/* $Header $ */
/* $Header$ */
/* Author: J.W. Stevenson */

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
String *_mki(i)
int i;

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
String *_oct(i)
int i;

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
int peek(addr)
int addr;

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
/*
computes a^b.

View file

@ -1,7 +1,7 @@
#include "string.h"
#include "io.h"
/* $Header $ */
/* $Header$ */
/* Here all routine to generate terminal oriented output is located */

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
_randomi()
{

View file

@ -2,7 +2,7 @@
#include "io.h"
#include <ctype.h>
/* $Header $ */
/* $Header$ */
_readln()
{

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
#define MAXNESTING 1000

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
_sgn(v)
double v;

View file

@ -15,7 +15,7 @@
*
*/
/* $Header $ */
/* $Header$ */
/* Author: J.W. Stevenson */

View file

@ -15,7 +15,7 @@
*
*/
/* $Header $ */
/* $Header$ */
/* Author: J.W. Stevenson */

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
_stop()
{

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
#define ok(X) if( X ==0) return;
#define okr(X) if( X ==0) return(0);

View file

@ -1,6 +1,6 @@
#include "string.h"
/* $Header $ */
/* $Header$ */
_intswap(i1,i2)
int *i1,*i2;

View file

@ -1,4 +1,4 @@
/* $Header $ */
/* $Header$ */
_trace()
{

View file

@ -1,7 +1,7 @@
#include <signal.h>
#include <setjmp.h>
/* $Header $ */
/* $Header$ */
/* Trap handling */
int _trpline; /* BASIC return label */

View file

@ -1,7 +1,7 @@
#include "string.h"
#include "io.h"
/* $Header $ */
/* $Header$ */
/* assume that the channel has been set */