/usr/share/nickle/history.5c is in nickle 2.71-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | /* $Header$*/
/*
* Copyright © 2002 Keith Packard and Bart Massey.
* All Rights Reserved. See the file COPYING in this directory
* for licensing information.
*/
namespace History {
poly[...] hist = {};
public void insert (poly v)
/*
* Insert 'v' in the history list
*/
{
hist[dim(hist)] = v;
}
public poly fetch (int id)
/*
* Fetch history element 'id'
*/
{
if (dim(hist) == 0)
return <>;
if (id <= 0)
return hist[dim(hist)+id-1];
else
return hist[id-1];
}
public void show (string format, int args...)
/*
* show history elements
*/
{
int from = 10, to = dim(hist);
int id;
if (dim(hist) == 0)
return;
if (dim(args) >= 1)
from = args[0];
if (dim(args) >= 2)
to = args[1];
else
{
from = dim(hist) - from;
if (from < 1)
from = 1;
}
for (id = from; id <= to; id++)
{
printf ("$%-4d\t", from);
printf (format, fetch (id));
printf ("\n");
from++;
}
}
}
|