Now using correct RCS identification
This commit is contained in:
parent
8d02182e12
commit
9479f61318
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
long _abl(i) long i;
|
||||
{
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
int _asc(str)
|
||||
String *str;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
asrt(b)
|
||||
{
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
*
|
||||
*/
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Author: J.W. Stevenson */
|
||||
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
String *_chr(i)
|
||||
int i;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
int _cint(f) double f;
|
||||
{
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* error takes an error value in the range of 0-255 */
|
||||
/* and generates a trap */
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
*
|
||||
*/
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Author: J.W. Stevenson */
|
||||
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
#include <stdio.h>
|
||||
#include "io.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
Filedesc _fdtable[16];
|
||||
/* BASIC file descriptor table */
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_hlt(nr)
|
||||
int nr;
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#include "io.h"
|
||||
#include <sgtty.h>
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
struct sgttyb _ttydef;
|
||||
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
*
|
||||
*/
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Author: J.W. Stevenson */
|
||||
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
String *_mki(i)
|
||||
int i;
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
String *_oct(i)
|
||||
int i;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
int peek(addr)
|
||||
int addr;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/*
|
||||
computes a^b.
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#include "string.h"
|
||||
#include "io.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Here all routine to generate terminal oriented output is located */
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_randomi()
|
||||
{
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
#include "io.h"
|
||||
#include <ctype.h>
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_readln()
|
||||
{
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
#define MAXNESTING 1000
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_sgn(v)
|
||||
double v;
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
*
|
||||
*/
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Author: J.W. Stevenson */
|
||||
|
||||
|
|
|
@ -15,7 +15,7 @@
|
|||
*
|
||||
*/
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Author: J.W. Stevenson */
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_stop()
|
||||
{
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
#define ok(X) if( X ==0) return;
|
||||
#define okr(X) if( X ==0) return(0);
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#include "string.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_intswap(i1,i2)
|
||||
int *i1,*i2;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
_trace()
|
||||
{
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#include <signal.h>
|
||||
#include <setjmp.h>
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* Trap handling */
|
||||
int _trpline; /* BASIC return label */
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
#include "string.h"
|
||||
#include "io.h"
|
||||
|
||||
/* $Header $ */
|
||||
/* $Header$ */
|
||||
|
||||
/* assume that the channel has been set */
|
||||
|
||||
|
|
Loading…
Reference in a new issue