libsynopsis0.12-dev 0.12-8 / usr / include / Synopsis / PTree / operations.hh

This file is indexed.

/usr/include/Synopsis/PTree/operations.hh is in libsynopsis0.12-dev 0.12-8.

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
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
//
// Copyright (C) 2004 Stefan Seefeld
// All rights reserved.
// Licensed to the public under the terms of the GNU LGPL (>= 2),
// see the file COPYING for details.
//
#ifndef Synopsis_PTree_operations_hh_
#define Synopsis_PTree_operations_hh_

#include <Synopsis/PTree/Node.hh>
#include <cassert>

namespace Synopsis
{
namespace PTree
{
bool operator == (const Node &p, char c);
inline bool operator != (const Node &p, char c) { return !operator == (p, c);}
bool operator == (const Node &p, const char *str);
inline bool operator != (const Node &p, const char *str) { return !operator == (p, str);}
bool operator == (const Node &p, const Node &q);
inline bool operator != (const Node &p, const Node &q) { return !operator == (p, q);}
bool equal(const Node &p, const char *str, size_t len);
bool equal(const Node *p, const Node *q);
bool equiv(const Node *p, const Node *q);

//. Return the last cons cell.
const Node *last(const Node *);
//. Return the last cons cell.
Node *last(Node *);
inline const Node *first(const Node *p) { return p ? p->car() : 0;}
inline Node *first(Node *p) { return p ? p->car() : 0;}
inline const Node *rest(const Node *p) { return p ? p->cdr() : 0;}
inline Node *rest(Node *p) { return p ? p->cdr() : 0;}
inline const Node *nth(const Node *p, size_t n)
{
  while(p && n-- > 0) p = p->cdr();
  return p ? p->car() : 0;
}
inline Node *nth(Node *p, size_t n)
{
  while(p && n-- > 0) p = p->cdr();
  return p ? p->car() : 0;
}
inline const Node *tail(const Node *p, size_t k)
{
  while(p && k-- > 0) p = p->cdr();
  return p;
}
inline Node *tail(Node *p, size_t k)
{
  while(p && k-- > 0) p = p->cdr();
  return p;
}

const Node *second(const Node *);
Node *second(Node *);
const Node *third(const Node *);
Node *third(Node *);
int length(const Node *);

inline const Node *cadr(const Node *p) { return p->cdr()->car();}
inline Node *cadr(Node *p) { return p->cdr()->car();}
inline const Node *cddr(const Node *p) { return p->cdr()->cdr();}
inline Node *cddr(Node *p) { return p->cdr()->cdr();}
//. compute Caa..ar
const Node *ca_ar(const Node *);
Node *ca_ar(Node *);

Node *cons(Node *, Node *);
List *list();
List *list(Node *);
List *list(Node *, Node *);
List *list(Node *, Node *, Node *);
List *list(Node *, Node *, Node *, Node *);
List *list(Node *, Node *, Node *, Node *, Node *);
List *list(Node *, Node *, Node *, Node *, Node *, Node *);
List *list(Node *, Node *, Node *, Node *, Node *, Node *,
	   Node *);
List *list(Node *, Node *, Node *, Node *, Node *, Node *,
	   Node *, Node *);
Node *copy(Node *);
Node *append(Node *, Node *);
Node *replace_all(Node *, Node *, Node *);
Node *subst(Node *, Node *, Node *);
Node *subst(Node *, Node *, Node *, Node *, Node *);
Node *subst(Node *, Node *, Node *, Node *,
	    Node *, Node *, Node *);
Node *shallow_subst(Node *, Node *, Node *);
Node *shallow_subst(Node *, Node *, Node *, Node *, Node *);
Node *shallow_subst(Node *, Node *, Node *, Node *,
		    Node *, Node *, Node *);
Node *shallow_subst(Node *, Node *, Node *, Node *,
		    Node *, Node *, Node *, Node *, Node *);
Node *subst_sublist(Node *, Node *, Node *);

/* they cause side-effect */
Node *nconc(Node *, Node *);
Node *nconc(Node *, Node *, Node *);
template <typename N> N *nconc(N *p, Node *q) 
{
  assert(p);
  last(p)->set_cdr(q);
  return p;
}

Node *snoc(Node *, Node *);
template <typename N> N *snoc(N *p, Node *q)
{
  return nconc(p, cons(q, 0));
}

}
}

#endif

APT Browse - Built by Thomas Orozco.