Warning: Undefined variable $n in /usr/local/www/websvn.planix.org/include/diff_util.php on line 243

Warning: Undefined variable $n in /usr/local/www/websvn.planix.org/include/diff_util.php on line 247

Warning: Undefined variable $m in /usr/local/www/websvn.planix.org/include/diff_util.php on line 251
WebSVN – tendra.SVN – Diff – //branches/tendra5/src/installers/common/construct/me_fns.c – Rev 5 and 6

Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line -... Line 1...
- 
 
 1 
/*
- 
 
 2 
 * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
- 
 
 3 
 * All rights reserved.
- 
 
 4 
 *
- 
 
 5 
 * Redistribution and use in source and binary forms, with or without
- 
 
 6 
 * modification, are permitted provided that the following conditions are met:
- 
 
 7 
 *
- 
 
 8 
 * 1. Redistributions of source code must retain the above copyright notice,
- 
 
 9 
 *    this list of conditions and the following disclaimer.
- 
 
 10 
 * 2. Redistributions in binary form must reproduce the above copyright notice,
- 
 
 11 
 *    this list of conditions and the following disclaimer in the documentation
- 
 
 12 
 *    and/or other materials provided with the distribution.
- 
 
 13 
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
- 
 
 14 
 *    may be used to endorse or promote products derived from this software
- 
 
 15 
 *    without specific, prior written permission.
- 
 
 16 
 *
- 
 
 17 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
- 
 
 18 
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- 
 
 19 
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- 
 
 20 
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
- 
 
 21 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- 
 
 22 
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- 
 
 23 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- 
 
 24 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- 
 
 25 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- 
 
 26 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- 
 
 27 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- 
 
 28 
 *
- 
 
 29 
 * $Id$
- 
 
 30 
 */
1 
/*
 31 
/*
2 
    		 Crown Copyright (c) 1997
 32 
    		 Crown Copyright (c) 1997
3 
 
 33 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
 34 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
 35 
    owned by the United Kingdom Secretary of State for Defence
Line 36... Line 66...
36 
 * Revision 1.1.1.1  1998/01/17  15:55:47  release
 66 
 * Revision 1.1.1.1  1998/01/17  15:55:47  release
37 
 * First version to be checked into rolling release.
 67 
 * First version to be checked into rolling release.
38 
 *
 68 
 *
39 
 * Revision 1.4  1996/10/29  10:10:51  currie
 69 
 * Revision 1.4  1996/10/29  10:10:51  currie
40 
 * 512 bit alignment for hppa
 70 
 * 512 bit alignment for hppa
41 
 *
 71 
 *
42 
 * Revision 1.3  1995/07/05  09:26:35  currie
 72 
 * Revision 1.3  1995/07/05  09:26:35  currie
43 
 * continue wrong
 73 
 * continue wrong
44 
 *
 74 
 *
45 
 * Revision 1.2  1995/05/05  08:10:56  currie
 75 
 * Revision 1.2  1995/05/05  08:10:56  currie
46 
 * initial_value + signtures
 76 
 * initial_value + signtures
47 
 *
 77 
 *
48 
 * Revision 1.1  1995/04/06  10:44:05  currie
 78 
 * Revision 1.1  1995/04/06  10:44:05  currie
49 
 * Initial revision
 79 
 * Initial revision
50 
 *
 80 
 *
51 
***********************************************************************/
 81 
***********************************************************************/
52 
 
 - 
 
53 
 
 - 
 
54 
 
 - 
 
55 
 
 82 
 
56 
#include "config.h"
 83 
#include "config.h"
57 
#include "common_types.h"
 84 
#include "common_types.h"
58 
#include "exp.h"
 85 
#include "exp.h"
59 
#include "expmacs.h"
 86 
#include "expmacs.h"
Line 67... Line 94...
67 
#include "shapemacs.h"
 94 
#include "shapemacs.h"
68 
#include "basicread.h"
 95 
#include "basicread.h"
69 
#include "natmacs.h"
 96 
#include "natmacs.h"
70 
#include "me_fns.h"
 97 
#include "me_fns.h"
71 
 
 98 
 
72 
  /* a collection of useful procedures for makeing up exps */
 99 
/* a collection of useful procedures for makeing up exps */
73 
 
 100 
 
74 
/* PROCEDURES */
 101 
/* PROCEDURES */
75 
 
 102 
 
349 
 
 389 
 
350 
int is_complex
 390 
int
351 
    PROTO_N ( (s) )
 - 
 
352 
    PROTO_T ( shape s )
 391 
is_complex(shape s)
353 
{
 392 
{
354 
#if substitute_complex
 393 
#if substitute_complex
355 
  return (name(s) == cpdhd);
 394 
	return(name(s) == cpdhd);
356 
#else
 395 
#else
357 
  return name(s) >= shcomplexhd && name(s) <= complexdoublehd;
 396 
	return name(s) >= shcomplexhd && name(s) <= complexdoublehd;
358 
#endif
 397 
#endif
359 
}
 398 
}
- 
 
 399 
 
360 
 
 400 
 
361 
floating_variety float_to_complex_var
 401 
floating_variety
362 
    PROTO_N ( (f) )
 - 
 
363 
    PROTO_T ( floating_variety f )
 402 
float_to_complex_var(floating_variety f)
364 
{
 403 
{
365 
  return f+3;
 404 
	return f+3;
366 
}
 405 
}
367 
 
 406 
 
- 
 
 407 
 
368 
floating_variety complex_to_float_var
 408 
floating_variety
369 
    PROTO_N ( (f) )
 - 
 
370 
    PROTO_T ( floating_variety f )
 409 
complex_to_float_var(floating_variety f)
371 
{
 410 
{
372 
  return f-3;
 411 
	return f-3;
373 
}
 412 
}