Changeset 784deab


Ignore:
Timestamp:
Jan 8, 2016, 10:37:10 PM (9 years ago)
Author:
Peter A. Buhr <pabuhr@…>
Branches:
ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc
Children:
61f9356
Parents:
1cced28
Message:

fix recursive include bug in shadow includes, major clean of examples, add several long long routines to prelude

Files:
28 edited

Legend:

Unmodified
Added
Removed

  • include/bfd.h

    r1cced28 r784deab  
    1010// Created On       : Thu Jan  8 15:50:56 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 09:07:14 2015
    13 // Update Count     : 7
     12// Last Modified On : Mon Dec 21 08:44:41 2015
     13// Update Count     : 9
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_BFD_H__
    21 #endif // type
    22 #include_next <bfd.h>
    23 #ifdef __CFA_BFD_H__
     20#endif // ! type
     21
     22#include_next <bfd.h>                                                                   // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_BFD_H__ )                 // reset only if set
    2425#undef type
    25 #endif // __CFA_BFD_H__
     26#undef __CFA_BFD_H__
     27#endif // type && __CFA_BFD_H__
    2628
    2729// Local Variables: //

  • include/bfdlink.h

    r1cced28 r784deab  
    1010// Created On       : Sat Jun 27 09:14:00 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 09:08:26 2015
    13 // Update Count     : 3
     12// Last Modified On : Mon Dec 21 08:47:03 2015
     13// Update Count     : 4
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_BFDLINK_H__
    21 #endif // type
    22 #include_next <bfdlink.h>
    23 #ifdef __CFA_BFDLINK_H__
     20#endif // ! type
     21
     22#include_next <bfdlink.h>                                                               // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_BFDLINK_H__ )             // reset only if set
    2425#undef type
    25 #endif // __CFA_BFDLINK_H__
     26#undef __CFA_BFDLINK_H__
     27#endif // type && __CFA_BFDLINK_H__
    2628
    2729// Local Variables: //

  • include/demangle.h

    r1cced28 r784deab  
    1010// Created On       : Sat Jun 27 16:45:01 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 09:09:16 2015
    13 // Update Count     : 8
     12// Last Modified On : Mon Dec 21 08:48:30 2015
     13// Update Count     : 9
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_DEMANGLE_H__
    21 #endif // type
    22 #include_next <demangle.h>
    23 #ifdef __CFA_DEMANGLE_H__
     20#endif // ! type
     21
     22#include_next <demangle.h>                                                              // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_DEMANGLE_H__ )            // reset only if set
    2425#undef type
    25 #endif // __CFA_DEMANGLE_H__
     26#undef __CFA_DEMANGLE_H__
     27#endif // type && __CFA_DEMANGLE_H__
    2628
    2729// Local Variables: //

  • include/dialog.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 08:34:16 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 09:05:35 2015
    13 // Update Count     : 4
     12// Last Modified On : Mon Dec 21 08:38:21 2015
     13// Update Count     : 11
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_DIALOG_H__
    21 #endif // type
    22 #include_next <dialog.h>
    23 #ifdef __CFA_DIALOG_H__
     20#endif // ! type
     21
     22#include_next <dialog.h>                                                                // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_DIALOG_H__ )              // reset only if set
    2425#undef type
    25 #endif // __CFA_DIALOG_H__
     26#undef __CFA_DIALOG_H__
     27#endif // type && __CFA_DIALOG_H__
    2628
    2729// Local Variables: //

  • include/evdns.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 10:09:23 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 10:10:11 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Dec 21 08:51:06 2015
     13// Update Count     : 3
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_EVDNS_H__
    21 #endif // type
    22 #include_next <evdns.h>
    23 #ifdef __CFA_EVDNS_H__
     20#endif // ! type
     21
     22#include_next <evdns.h>                                                                 // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_EVDNS_H__ )               // reset only if set
    2425#undef type
    25 #endif // __CFA_EVDNS_H__
     26#undef __CFA_EVDNS_H__
     27#endif // type && __CFA_EVDNS_H__
    2628
    2729// Local Variables: //

  • include/evhttp.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 10:59:02 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 10:59:55 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Dec 21 08:52:19 2015
     13// Update Count     : 2
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_EVHTTP_H__
    21 #endif // type
    22 #include_next <evhttp.h>
    23 #ifdef __CFA_EVHTTP_H__
     20#endif // ! type
     21
     22#include_next <evhttp.h>                                                                // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_EVHTTP_H__ )              // reset only if set
    2425#undef type
    25 #endif // __CFA_EVHTTP_H__
     26#undef __CFA_EVHTTP_H__
     27#endif // type && __CFA_EVHTTP_H__
    2628
    2729// Local Variables: //

  • include/evrpc.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 11:01:31 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 11:02:26 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Dec 21 08:53:14 2015
     13// Update Count     : 2
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_EVRPC_H__
    21 #endif // type
    22 #include_next <evrpc.h>
    23 #ifdef __CFA_EVRPC_H__
     20#endif // ! type
     21
     22#include_next <evrpc.h>                                                                 // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_EVRPC_H__ )               // reset only if set
    2425#undef type
    25 #endif // __CFA_EVRPC_H__
     26#undef __CFA_EVRPC_H__
     27#endif // type && __CFA_EVRPC_H__
    2628
    2729// Local Variables: //

  • include/expat.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 11:10:15 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 11:14:28 2015
    13 // Update Count     : 2
     12// Last Modified On : Mon Dec 21 08:57:26 2015
     13// Update Count     : 4
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_EXPAT1_H__
    21 #endif // type
    22 #ifndef context // nesting ?
     20#endif // ! type
     21
     22#if ! defined( context )                                                                // nesting ?
    2323#define context `context`
    2424#define __CFA_EXPAT2_H__
    25 #endif // context
    26 #include_next <expat.h>
    27 #ifdef __CFA_EXPAT1_H__
     25#endif // ! context
     26
     27#include_next <expat.h>                                                                 // has internal check for multiple expansion
     28
     29#if defined( type ) && defined( __CFA_EXPAT1_H__ )              // reset only if set
    2830#undef type
    29 #endif // __CFA_EXPAT_H__
    30 #ifdef __CFA_EXPAT2_H__
    31 #undef type
    32 #endif // __CFA_EXPAT2_H__
     31#undef __CFA_EXPAT1_H__
     32#endif // type && __CFA_EXPAT1_H__
     33
     34#if defined( context ) && defined( __CFA_EXPAT2_H__ )   // reset only if set
     35#undef context
     36#undef __CFA_EXPAT2_H__
     37#endif // context && __CFA_EXPAT2_H__
    3338
    3439// Local Variables: //

  • include/fcntl.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 23:03:14 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 23:03:48 2015
    13 // Update Count     : 7
     12// Last Modified On : Mon Dec 21 08:38:39 2015
     13// Update Count     : 14
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_FCNTL_H__
    21 #endif // type
    22 #include_next <fcntl.h>
    23 #ifdef __CFA_FCNTL_H__
     20#endif // ! type
     21
     22#include_next <fcntl.h>                                                                 // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_FCNTL_H__ )               // reset only if set
    2425#undef type
    25 #endif // __CFA_FCNTL_H__
     26#undef __CFA_FCNTL_H__
     27#endif // type && __CFA_FCNTL_H__
    2628
    2729// Local Variables: //

  • include/form.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 11:23:56 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 11:24:28 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Dec 21 08:59:46 2015
     13// Update Count     : 2
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_FORM_H__
    21 #endif // type
    22 #include_next <form.h>
    23 #ifdef __CFA_FORM_H__
     20#endif // ! type
     21
     22#include_next <form.h>                                                                  // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_FORM_H__ )                // reset only if set
    2425#undef type
    25 #endif // __CFA_FORM_H__
     26#undef __CFA_FORM_H__
     27#endif // type && __CFA_FORM_H__
    2628
    2729// Local Variables: //

  • include/gcrypt.h

    r1cced28 r784deab  
    1010// Created On       : Sun Jun 28 11:36:26 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 11:37:07 2015
    13 // Update Count     : 7
     12// Last Modified On : Mon Dec 21 09:01:25 2015
     13// Update Count     : 8
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_GCRYPT_H__
    21 #endif // type
    22 #include_next <gcrypt.h>
    23 #ifdef __CFA_GCRYPT_H__
     20#endif // ! type
     21
     22#include_next <gcrypt.h>                                                                        // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_GCRYPT_H__ )              // reset only if set
    2425#undef type
    25 #endif // __CFA_GCRYPT_H__
     26#undef __CFA_GCRYPT_H__
     27#endif // type && __CFA_GCRYPT_H__
    2628
    2729// Local Variables: //

  • include/math.h

    r1cced28 r784deab  
    1010// Created On       : Mon Nov 10 23:41:29 2014
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Jun 28 09:05:22 2015
    13 // Update Count     : 6
     12// Last Modified On : Mon Dec 21 08:37:57 2015
     13// Update Count     : 12
    1414
    1515// This include file uses the CFA keyword "type" as a field name of a structure.
    16 // The name is changed only for the include file.
    1716
    18 #ifndef type    // nesting ?
     17#if ! defined( type )                                                                   // nesting ?
    1918#define type `type`
    2019#define __CFA_MATH_H__
    21 #endif // type
    22 #include_next <math.h>
    23 #ifdef __CFA_MATH_H__
     20#endif // ! type
     21
     22#include_next <math.h>                                                                  // has internal check for multiple expansion
     23
     24#if defined( type ) && defined( __CFA_MATH_H__ )                // reset only if set
    2425#undef type
    25 #endif // __CFA_MATH_H__
     26#undef __CFA_MATH_H__
     27#endif // type && __CFA_MATH_H__
    2628
    2729// Local Variables: //

  • src/examples/alloc.c

    r1cced28 r784deab  
    2626int *baz( int *p, int c );
    2727
    28 int main() {
     28int main( void ) {
    2929    size_t size = 10;
    3030    int * x = malloc();

  • src/examples/control_structures.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Fri Sep 18 08:12:17 2015
    13 // Update Count     : 28
     12// Last Modified On : Mon Jan  4 11:30:30 2016
     13// Update Count     : 29
    1414//
    1515
    16 int main() {
     16int main( void ) {
    1717        L1: {
    1818                L2:     switch ( 3_333_333 ) {                                          // underscores in constant

  • src/examples/fstream_test.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Mon Nov 23 14:43:32 2015
    13 // Update Count     : 40
     12// Last Modified On : Mon Jan  4 11:30:39 2016
     13// Update Count     : 41
    1414//
    1515
    1616#include "fstream.h"
    1717
    18 int main() {
     18int main( void ) {
    1919        ofstream *sout = ofstream_stdout();
    2020        ifstream *sin = ifstream_stdin();

  • src/examples/identity.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:16:30 2015
    13 // Update Count     : 2
     12// Last Modified On : Mon Jan  4 23:38:05 2016
     13// Update Count     : 6
    1414//
    1515
    … …  
    2323int main() {
    2424        ofstream *sout = ofstream_stdout();
    25         char c = 'a';
    26         c = identity( c );
    27         sout << c << ' ' << identity( c ) << '\n';
    28         int i = 5;
    29         i = identity( i );
    30         sout << i << ' ' << identity( i ) << '\n';
    31         double d = 3.2;
    32         d = identity( d );
    33         sout << d << ' ' << identity( d ) << '\n';
     25        sout | "char\t\t\t"                                     | identity( 'z' ) | endl;
     26        sout | "signed int\t\t"                         | identity( 4 ) | endl;
     27        sout | "unsigned int\t\t"                       | identity( 4u ) | endl;
     28        sout | "signed long int\t\t"            | identity( 4l ) | endl;
     29        sout | "unsigned long int\t"            | identity( 4ul ) | endl;
     30        sout | "signed long long int\t"         | identity( 4ll ) | endl;
     31        sout | "unsigned long long int\t"       | identity( 4ull ) | endl;
     32        sout | "float\t\t\t"                            | identity( 4.0f ) | endl;
     33        sout | "double\t\t\t"                           | identity( 4.0 ) | endl;
     34        sout | "long double\t\t"                        | identity( 4.0l ) | endl;
    3435}
    3536
    3637// Local Variables: //
    3738// tab-width: 4 //
    38 // compile-command: "cfa identity.c fstream.o iostream.o" //
     39// compile-command: "cfa identity.c fstream.o iostream.o iterator.o" //
    3940// End: //

  • src/examples/includes.c

    r1cced28 r784deab  
    77// includes.c --
    88//
    9 // Author           : Richard C. Bilson
     9// Author           : Peter A. Buhr
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Fri Jun 26 15:04:33 2015
    13 // Update Count     : 14
     12// Last Modified On : Mon Dec 21 13:54:09 2015
     13// Update Count     : 322
    1414//
    1515
    16 #if 0
    17 //#include <aio.h>              // FAILS -- includes locale.h
     16// ***********************************************
     17// USE -std=c99 WITH gxx TO GET SAME OUTPUT AS cfa
     18// ***********************************************
     19
     20#ifdef __CFA__
     21extern "C" {
     22#endif // __CFA__
     23
     24#if 1
     25#define _GNU_SOURCE
     26#include <aio.h>
     27#include <a.out.h>
    1828#include <aliases.h>
    1929#include <alloca.h>
    2030#include <ansidecl.h>
    2131#include <ar.h>
    22 #include <argp.h>               // FAILS -- includes locale.h
    23 #include <argz.h>               // FAILS -- includes locale.h
     32#include <argp.h>
     33#include <argz.h>
    2434#include <assert.h>
    25 #include <bfd.h>                // contains structure field "type"
     35#include <bfd.h>
     36#include <bfdlink.h>
     37#include <byteswap.h>
     38#include <cblas.h>
     39#include <cblas_f77.h>
    2640#include <complex.h>
    27 #include <ctype.h>              // FAILS -- includes locale.h
     41#include <cpio.h>
     42#include <crypt.h>
     43#include <ctype.h>
     44#include <curses.h>
     45#include <demangle.h>           // enum / contains "type"
     46#include <dialog.h>                     // enum / contains "type"
     47#include <dirent.h>
     48#include <dis-asm.h>
     49#include <dlfcn.h>
     50#include <dlg_colors.h>
     51#include <dlg_config.h>
     52#include <dlg_keys.h>
     53#include <elf.h>
     54#include <endian.h>
     55#include <envz.h>
     56#include <err.h>
    2857#include <errno.h>
     58#include <error.h>
     59#if 0
     60#include <eti.h>
     61#include <evdns.h>                      // subdirectory event2 contains "type"
     62#include <event.h>
     63#include <evhttp.h>                     // enum / subdirectory event2 contains "type"
     64#include <evrpc.h>
     65#include <evutil.h>
     66#include <execinfo.h>
     67#include <expat.h>                      // enum / contains "type" and "context"
     68#include <expat_config.h>
     69#include <expat_external.h>
     70#include <fcntl.h>
     71#include <features.h>
    2972#include <fenv.h>
    3073#include <float.h>
     74#include <fmtmsg.h>
     75#include <fnmatch.h>
     76#include <form.h>                       // contains "type"
     77#include <fpu_control.h>
     78#include <fstab.h>
     79//#include <ft2build.h>
     80#include <fts.h>
     81#include <ftw.h>
     82#include <gconv.h>
     83//#include <gcrypt.h>           // enum / contains "type"
     84//#include <gcrypt-module.h>
     85#include <getopt.h>
     86//#include <gettext-po.h>
     87#include <glob.h>
     88//#include <gmp.h>                      // infinite loop
     89////#include <gmpxx.h>
     90//#include <gmp-x86_64.h>
     91#include <gnu-versions.h>
     92//#include <gpg-error.h>
     93#include <grp.h>
     94#include <gshadow.h>
     95#include <iconv.h>
     96#include <idna.h>
     97#include <idn-free.h>
     98#include <idn-int.h>
     99#include <ieee754.h>
     100#include <ifaddrs.h>
    31101#include <inttypes.h>
    32102#include <iso646.h>
     103#include <jerror.h>
     104//#include <jmorecfg.h>
     105//#include <jpegint.h>
     106//#include <jpeglib.h>
    33107#include <limits.h>
    34 #include <locale.h>             // FAILS -- "no reasonable alternatives for applying ... Name: ?+? ..."
    35 #include <math.h>               // contains structure field "type"
     108#include <locale.h>
     109#include <math.h>                       // contains "type"
     110#include <ncurses.h>
    36111#include <setjmp.h>
    37112#include <signal.h>
    … …  
    41116#include <stdlib.h>
    42117#include <stdio.h>
    43 #include <string.h>             // FAILS -- includes locale.h
     118#include <string.h>
    44119#include <tgmath.h>
    45 #include <time.h>               // FAILS -- includes locale.h
     120#include <time.h>
    46121#include <unistd.h>
    47 #include <wchar.h>              // FAILS -- includes locale.h
    48 #include <wctype.h>             // FAILS -- includes locale.h
    49 #include <curses.h>
     122#include <wchar.h>
     123#include <wctype.h>
     124#endif // 0
     125
    50126#else
    51 #include <aio.h>                // FAILS -- includes locale.h
     127
     128//#define _GNU_SOURCE
     129#include <error.h>
     130
    52131#endif // 0
     132
     133#ifdef __CFA__
     134} // extern "C"
     135#endif // __CFA__
    53136
    54137// Local Variables: //

  • src/examples/iostream.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Mon Dec  7 23:08:02 2015
    13 // Update Count     : 24
     12// Last Modified On : Mon Jan  4 09:38:58 2016
     13// Update Count     : 37
    1414//
    1515
    … …  
    2727forall( dtype ostype | ostream( ostype ) )
    2828ostype * ?|?( ostype *os, int i ) {
    29         char buffer[32];                                                                        // larger than the largest integer
    30         sprintf( buffer, "%d", i );
    31         return write( os, buffer, strlen( buffer ) );
     29        char buffer[32];
     30        return write( os, buffer, sprintf( buffer, "%d", i ) );
     31} // ?|?
     32
     33forall( dtype ostype | ostream( ostype ) )
     34ostype * ?|?( ostype *os, unsigned int i ) {
     35        char buffer[32];
     36        return write( os, buffer, sprintf( buffer, "%u", i ) );
     37} // ?|?
     38
     39forall( dtype ostype | ostream( ostype ) )
     40ostype * ?|?( ostype *os, long int i ) {
     41        char buffer[32];
     42        return write( os, buffer, sprintf( buffer, "%ld", i ) );
     43} // ?|?
     44
     45forall( dtype ostype | ostream( ostype ) )
     46ostype * ?|?( ostype *os, long long int i ) {
     47        char buffer[32];
     48        return write( os, buffer, sprintf( buffer, "%lld", i ) );
     49} // ?|?
     50
     51forall( dtype ostype | ostream( ostype ) )
     52ostype * ?|?( ostype *os, unsigned long int i ) {
     53        char buffer[32];
     54        return write( os, buffer, sprintf( buffer, "%lu", i ) );
     55} // ?|?
     56
     57forall( dtype ostype | ostream( ostype ) )
     58ostype * ?|?( ostype *os, unsigned long long int i ) {
     59        char buffer[32];
     60        return write( os, buffer, sprintf( buffer, "%llu", i ) );
    3261} // ?|?
    3362
    3463forall( dtype ostype | ostream( ostype ) )
    3564ostype * ?|?( ostype *os, double d ) {
    36         char buffer[32];                                                                        // larger than the largest double
    37         sprintf( buffer, "%g", d );
    38         return write( os, buffer, strlen( buffer ) );
     65        char buffer[32];
     66        return write( os, buffer, sprintf( buffer, "%g", d ) );
     67} // ?|?
     68
     69forall( dtype ostype | ostream( ostype ) )
     70ostype * ?|?( ostype *os, long double d ) {
     71        char buffer[32];
     72        return write( os, buffer, sprintf( buffer, "%Lg", d ) );
     73} // ?|?
     74
     75forall( dtype ostype | ostream( ostype ) )
     76ostype * ?|?( ostype *os, const void *p ) {
     77        char buffer[32];
     78        return write( os, buffer, sprintf( buffer, "%p", p ) );
    3979} // ?|?
    4080
    … …  
    4282ostype * ?|?( ostype *os, const char *cp ) {
    4383        return write( os, cp, strlen( cp ) );
    44 } // ?|?
    45 
    46 forall( dtype ostype | ostream( ostype ) )
    47 ostype * ?|?( ostype *os, const void *p ) {
    48         char buffer[32];                                                                        // larger than the largest pointer
    49         sprintf( buffer, "%p", p );
    50         return write( os, buffer, strlen( buffer ) );
    5184} // ?|?
    5285

  • src/examples/iostream.h

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Mon Nov 23 14:15:25 2015
    13 // Update Count     : 17
     12// Last Modified On : Mon Jan  4 09:02:11 2016
     13// Update Count     : 20
    1414//
    1515
    … …  
    3434forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, char );
    3535forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, int );
     36forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned int );
     37forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long int );
     38forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long long int );
     39forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long int );
     40forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long long int );
    3641forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, double );
     42forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long double );
    3743forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const char * );
    3844forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const void * );

  • src/examples/min.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:23:19 2015
    13 // Update Count     : 2
     12// Last Modified On : Mon Jan  4 11:40:51 2016
     13// Update Count     : 26
    1414//
    1515
    16 extern "C" {
    17         int printf( const char *, ... );
    18 //#include <stdio.h>
    19 }
     16#include "fstream.h"
    2017
    2118forall( type T | { int ?<?( T, T ); } )
    2219T min( const T t1, const T t2 ) {
    2320        return t1 < t2 ? t1 : t2;
    24 }
     21} // min
    2522
    26 int main() {
    27         char c;
    28 //      c = min( 'z', 'a' );
    29 //      printf( "minimum %d\n", c );
    30         int i;
    31         i = min( 4, 3 );
    32         printf( "minimum %d\n", min( 4, 3 ) );
    33         float f;
    34         f = min( 4.0, 3.1 );
    35         printf( "minimum %g\n", f );
    36         double d;
    37         d = min( 4.0, 3.2 );
    38         printf( "minimum %g\n", d );
    39 }
     23int main( void ) {
     24        ofstream *sout = ofstream_stdout();
     25        // char does not have less than.
     26        int ?<?( char op1, char op2 ) { return (int)op1 < (int)op2; }
     27
     28        sout | "char\t\t\t"                                     | 'z' | ' ' | 'a' | "\tmin " | min( 'z', 'a' ) | endl;
     29        sout | "signed int\t\t"                         | 4 | ' ' | 3 | "\tmin " | min( 4, 3 ) | endl;
     30        sout | "unsigned int\t\t"                       | 4u | ' ' | 3u | "\tmin " | min( 4u, 3u ) | endl;
     31        sout | "signed long int\t\t"            | 4l | ' ' | 3l | "\tmin " | min( 4l, 3l ) | endl;
     32        sout | "unsigned long int\t"            | 4ul | ' ' | 3ul | "\tmin " | min( 4ul, 3ul ) | endl;
     33        sout | "signed long long int\t"         | 4ll | ' ' | 3ll | "\tmin " | min( 4ll, 3ll ) | endl;
     34        sout | "unsigned long long int\t"       | 4ull | ' ' | 3ull | "\tmin " | min( 4ull, 3ull ) | endl;
     35        sout | "float\t\t\t"                            | 4.0f | ' ' | 3.1f | "\tmin " | min( 4.0f, 3.1f ) | endl;
     36        sout | "double\t\t\t"                           | 4.0 | ' ' | 3.1 | "\tmin " | min( 4.0, 3.1 ) | endl;
     37        sout | "long double\t\t"                        | 4.0l | ' ' | 3.1l | "\tmin " | min( 4.0l, 3.1l ) | endl;
     38} // main
    4039
    4140// Local Variables: //
    4241// tab-width: 4 //
    43 // compile-command: "cfa min.c" //
     42// compile-command: "cfa min.c fstream.o iostream.o iterator.o" //
    4443// End: //

  • src/examples/quoted_keyword.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:27:26 2015
    13 // Update Count     : 2
     12// Last Modified On : Sun Jan  3 22:46:28 2016
     13// Update Count     : 7
    1414//
    1515
     16#include "fstream.h"
     17
    1618// test quoted keyword usage
    17 int `catch`;
     19int `catch` = 10;
    1820
    1921struct {
    2022        int `type`;
    2123        int `struct`;
    22 } st;
     24} st = { 10, 10 };
    2325
    2426typedef int `forall`;
    25 `forall` `throw`;
     27`forall` `throw` = 10;
    2628
    27 int foo() {
    28         int w = `catch` + st.`type` + st.`struct` + `throw`;
     29int main() {
     30        ofstream *sout = ofstream_stdout();
     31        sout | `catch` + st.`type` + st.`struct` + `throw` | endl;
    2932}
    3033

  • src/examples/s.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:42:39 2015
    13 // Update Count     : 2
     12// Last Modified On : Sun Jan  3 22:38:45 2016
     13// Update Count     : 3
    1414//
    1515
    … …  
    1717
    1818void f() {
    19 //      int a;
    20 //      a ? 4 : 5;
     19        int a;
     20        a ? 4 : 5;
    2121        1 ? 4 : 5;
    2222        0 ? 4 : 5;

  • src/examples/square.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:43:34 2015
    13 // Update Count     : 2
     12// Last Modified On : Tue Jan  5 18:08:20 2016
     13// Update Count     : 21
    1414//
    1515
    16 extern "C" {
    17 #include <stdio.h>
    18 }
     16#include "fstream.h"
    1917
    2018forall( type T | { T ?*?( T, T ); } )
    2119T square( T t ) {
    2220        return t * t;
    23 }
    24 
    25 //char ?*?( char a1, char a2 ) {
    26 //      return (char)( (int)a1 * (int)a2 );
    27 //}
     21} // square
    2822
    2923int main() {
    30         char c = 5;
    31         short int s = 5;
    32         int i = 5;
    33         float f = 5.0;
    34         double d = 5.0;
    35 //      printf( "result of square of 5 is %d\n", (char)square( c ) );
    36         printf( "result of square of 5 is %d\n", square( s ) );
    37         printf( "result of square of 5 is %d\n", square( i ) );
    38         printf( "result of square of 5 is %f\n", square( f ) );
    39         printf( "result of square of 5 is %f\n", square( d ) );
    40 }
     24#if 0
     25        ofstream *sout = ofstream_stdout();
     26        sout | "result of squaring 9 is " | endl;
     27
     28        // char does not have multiplication.
     29        char ?*?( char a1, char a2 ) {
     30                return (char)((int)a1 * (int)a2);
     31        } // ?*?
     32        char c = 9;
     33        sout | "char\t\t\t" | square( c ) | endl;
     34
     35        sout | square( s ) | endl;
     36#endif
     37        short int s = 9;
     38        square( s );
     39#if 0
     40        signed int i = 9;
     41        sout | "signed int\t\t" | square( i ) | endl;
     42
     43        unsigned int ui = 9;
     44        sout | "unsigned int\t\t" | square( ui ) | endl;
     45
     46        long int li = 9;
     47        sout | "signed long int\t\t" | square( li ) | endl;
     48
     49        unsigned long int uli = 9;
     50        sout | "unsigned long int\t" | square( uli ) | endl;
     51
     52        signed long long int lli = 9;
     53        sout | "signed long long int\t" | square( lli ) | endl;
     54
     55        unsigned long long int ulli = 9;
     56        sout | "unsigned long long int\t" | square( ulli ) | endl;
     57
     58        float f = 9.0;
     59        sout | "float\t\t\t" | square( f ) | endl;
     60
     61        double d = 9.0;
     62        sout | "double\t\t\t" | square( d ) | endl;
     63
     64        long double ld = 9.0;
     65        sout | "long double\t\t" | square( ld ) | endl;
     66#endif
     67} // main
    4168
    4269// Local Variables: //
    4370// tab-width: 4 //
    44 // compile-command: "cfa square.c" //
     71// compile-command: "cfa square.c fstream.o iostream.o iterator.o" //
    4572// End: //

  • src/examples/sum.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sat Nov 21 18:08:18 2015
    13 // Update Count     : 119
     12// Last Modified On : Mon Jan  4 07:40:24 2016
     13// Update Count     : 126
    1414//
    1515
    16 extern "C" {
    17         int printf( char *, ... );
    18 }
    1916#include "fstream.h"
    2017
    … …  
    4138char ?++( char *op ) { char temp = *op; *op += 1; return temp; }
    4239
    43 int main() {
     40int main( void ) {
    4441        const int low = 5, High = 15, size = High - low;
    4542
    … …  
    5249                a[i] = v;
    5350        }
    54         sout << "sum from " << low << " to " << High << " is "
    55                  << (int)sum( size, a ) << ", check " << (int)s << endl;
     51        sout | "sum from " | low | " to " | High | " is "
     52                 | (int)sum( size, a ) | ", check " | (int)s | endl;
    5653
    5754        int s = 0, a[size];
    … …  
    6158                a[i] = (int)v;
    6259        }
    63         sout << "sum from " << low << " to " << High << " is "
    64                  << sum( size, (int *)a ) << ", check " << (int)s << endl;
     60        sout | "sum from " | low | " to " | High | " is "
     61                 | sum( size, (int *)a ) | ", check " | (int)s | endl;
    6562
    6663        double s = 0.0, a[size];
    … …  
    7067                a[i] = (double)v;
    7168        }
    72         printf( "%g\n", sum( size, (double *)a ) );
    73 //      sout << "sum from " << low / 10.0 << " to " << High / 10.0 << " is "
    74 //               << sum( size, (double *)a ) << ", check " << (double)s << endl;
     69        sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is "
     70                 | sum( size, (double *)a ) | ", check " | (double)s | endl;
    7571
    7672        float s = 0.0, a[size];
    … …  
    8076                a[i] = (float)v;
    8177        }
    82         printf( "%g\n", sum( size, (float *)a ) );
    83 //      sout << "sum from " << low / 10.0 << " to " << High / 10.0 << " is "
    84 //               << sum( size, (float *)a ) << ", check " << (float)s << endl;
     78        sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is "
     79                 | sum( size, (float *)a ) | ", check " | (float)s | endl;
    8580}
    8681
    8782// Local Variables: //
    8883// tab-width: 4 //
    89 // compile-command: "cfa sum.c fstream.o iostream.o" //
     84// compile-command: "cfa sum.c fstream.o iostream.o iterator.o" //
    9085// End: //

  • src/examples/swap.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:34:47 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Jan  4 11:32:25 2016
     13// Update Count     : 5
    1414//
    1515
    16 extern "C" {
    17         int printf( const char *, ... );
    18 }
     16#include "fstream.h"
    1917
    2018forall( type T )
    … …  
    2523}
    2624
    27 int main() {
     25int main( void ) {
    2826        int x = 1, y = 2;
    29         printf( "%d %d\n", x, y );
     27        ofstream *sout = ofstream_stdout();
     28        sout | x | ' ' | y | endl;
    3029        swap( &x, &y );
    31         printf( "%d %d\n", x, y );
     30        sout | x | ' ' | y | endl;
    3231}
    3332
    3433// Local Variables: //
    3534// tab-width: 4 //
    36 // compile-command: "cfa swap.c" //
     35// compile-command: "cfa swap.c fstream.o iostream.o iterator.o" //
    3736// End: //

  • src/examples/twice.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed May 27 18:37:23 2015
    13 // Update Count     : 1
     12// Last Modified On : Mon Jan  4 11:32:04 2016
     13// Update Count     : 10
    1414//
    1515
    … …  
    2121}
    2222
    23 int main() {
     23int main( void ) {
     24        // char does not have addition
     25        char ?+?( char op1, char op2 ) { return (int)op1 + op2; } // cast forces integer addition or recursion
     26        char ++?( char *op ) { *op += 1; return *op; }
     27        char ?++( char *op ) { char temp = *op; *op += 1; return temp; }
     28
    2429        ofstream *sout = ofstream_stdout();
    25         sout << twice( 1 ) << ' ' << twice( 3.2 ) << '\n';
     30        sout | twice( 'a' ) | ' ' | twice( 1 ) | ' ' | twice( 3.2 ) | endl;
    2631}
    2732
    2833// Local Variables: //
    2934// tab-width: 4 //
    30 // compile-command: "cfa twice.c fstream.o iostream.o" //
     35// compile-command: "cfa twice.c fstream.o iostream.o iterator.o" //
    3136// End: //

  • src/examples/vector_test.c

    r1cced28 r784deab  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Dec 15 16:02:56 2015
    13 // Update Count     : 13
     12// Last Modified On : Mon Jan  4 11:31:56 2016
     13// Update Count     : 14
    1414//
    1515
    … …  
    1919#include "iterator.h"
    2020
    21 int main() {
     21int main( void ) {
    2222        ofstream *sout = ofstream_stdout();
    2323        ifstream *sin = ifstream_stdin();

  • src/libcfa/prelude.cf

    r1cced28 r784deab  
    77// Author           : Glen Ditchfield
    88// Created On       : Sat Nov 29 07:23:41 2014
    9 // Last Modified By : Rob Schluntz
    10 // Last Modified On : Thu Nov 19 11:09:47 2015
    11 // Update Count     : 76
     9// Last Modified By : Peter A. Buhr
     10// Last Modified On : Mon Jan  4 11:13:26 2016
     11// Update Count     : 81
    1212//
    1313
    … …  
    149149unsigned int            ?*?( unsigned int, unsigned int ),                      ?/?( unsigned int, unsigned int ),              ?%?( unsigned int, unsigned int );
    150150signed long int         ?*?( signed long int, signed long int ),                ?/?( signed long int, signed long int ),        ?%?( signed long int, signed long int );
    151 unsigned long int       ?*?( unsigned long int, unsigned long int ),            ?/?( unsigned long int, long unsigned ),        ?%?( long unsigned, long unsigned );
     151unsigned long int       ?*?( unsigned long int, unsigned long int ),            ?/?( unsigned long int, unsigned long int ),    ?%?( unsigned long int, unsigned long int );
    152152signed long long int    ?*?( signed long long int, signed long long int ),      ?/?( signed long long int, signed long long int ), ?%?( signed long long int, signed long long int );
    153 unsigned long long int  ?*?( unsigned long long int, unsigned long long int ),  ?/?( unsigned long long int, long long unsigned ), ?%?( long long unsigned, long long unsigned );
     153unsigned long long int  ?*?( unsigned long long int, unsigned long long int ),  ?/?( unsigned long long int, unsigned long long int ), ?%?( unsigned long long int, unsigned long long int );
    154154float                   ?*?( float, float ),                                    ?/?( float, float );
    155155double                  ?*?( double, double ),                                  ?/?( double, double );
    … …  
    173173unsigned int            ?+?( unsigned int, unsigned int ),                      ?-?( unsigned int, unsigned int );
    174174signed long int         ?+?( signed long int, signed long int ),                ?-?( signed long int, signed long int );
    175 unsigned long int       ?+?( unsigned long int, unsigned long int ),            ?-?( unsigned long int, long unsigned );
     175unsigned long int       ?+?( unsigned long int, unsigned long int ),            ?-?( unsigned long int, unsigned long int );
    176176signed long long int    ?+?( signed long long int, long long int  signed),      ?-?( signed long long int, signed long long int );
    177 unsigned long long int  ?+?( unsigned long long int, unsigned long long int ),  ?-?( unsigned long long int, long long unsigned );
     177unsigned long long int  ?+?( unsigned long long int, unsigned long long int ),  ?-?( unsigned long long int, unsigned long long int );
    178178float                   ?+?( float, float ),                                    ?-?( float, float );
    179179double                  ?+?( double, double ),                                  ?-?( double, double );
    … …  
    203203// ------------------------------------------------------------
    204204
    205 _Bool                   ?<<?( _Bool, _Bool ),                           ?>>?( _Bool, _Bool );
    206 signed int              ?<<?( signed int, signed int ),                 ?>>?( signed int, signed int );
    207 unsigned int            ?<<?( unsigned int, unsigned int ),             ?>>?( unsigned int, unsigned int );
    208 signed long int         ?<<?( signed long int, signed long int ),       ?>>?( signed long int, signed long int );
    209 unsigned long int       ?<<?( unsigned long int, long unsigned ),       ?>>?( unsigned long int, unsigned long int );
     205_Bool                   ?<<?( _Bool, _Bool ),                                   ?>>?( _Bool, _Bool );
     206signed int              ?<<?( signed int, signed int ),                         ?>>?( signed int, signed int );
     207unsigned int            ?<<?( unsigned int, unsigned int ),                     ?>>?( unsigned int, unsigned int );
     208signed long int         ?<<?( signed long int, signed long int ),               ?>>?( signed long int, signed long int );
     209unsigned long int       ?<<?( unsigned long int, unsigned long int ),           ?>>?( unsigned long int, unsigned long int );
     210signed long long int    ?<<?( signed long long int, signed long long int ),     ?>>?( signed long long int, signed long long int );
     211unsigned long long int  ?<<?( unsigned long long int, unsigned long long int ), ?>>?( unsigned long long int, unsigned long long int );
    210212
    211213// ------------------------------------------------------------
    … …  
    215217// ------------------------------------------------------------
    216218
    217 signed int ?<?( _Bool, _Bool ),                         ?<=?( _Bool, _Bool ),
    218            ?>?( _Bool, _Bool ),                         ?>=?( _Bool, _Bool );
    219 signed int ?<?( unsigned char, unsigned char ),         ?<=?( unsigned char, unsigned char ),
    220            ?>?( unsigned char, unsigned char ),         ?>=?( unsigned char, unsigned char );
    221 signed int ?<?( signed int, signed int ),               ?<=?( signed int, signed int ),
    222            ?>?( signed int, signed int ),               ?>=?( signed int, signed int );
    223 signed int ?<?( unsigned int, unsigned int ),           ?<=?( unsigned int, unsigned int ),
    224            ?>?( unsigned int, unsigned int ),           ?>=?( unsigned int, unsigned int );
    225 signed int ?<?( signed long int, signed long int ),     ?<=?( signed long int, signed long int ),
    226            ?>?( signed long int, signed long int ),     ?>=?( signed long int, signed long int );
    227 signed int ?<?( unsigned long int, unsigned long int ), ?<=?( unsigned long int, unsigned long int ),
    228            ?>?( unsigned long int, unsigned long int ), ?>=?( unsigned long int, unsigned long int );
    229 signed int ?<?( float, float ),                         ?<=?( float, float ),
    230            ?>?( float, float ),                         ?>=?( float, float );
    231 signed int ?<?( double, double ),                       ?<=?( double, double ),
    232            ?>?( double, double ),                       ?>=?( double, double );
    233 signed int ?<?( long double, long double ),             ?<=?( long double, long double ),
    234            ?>?( long double, long double ),             ?>=?( long double, long double );
     219signed int ?<?( _Bool, _Bool ),                                         ?<=?( _Bool, _Bool ),
     220           ?>?( _Bool, _Bool ),                                         ?>=?( _Bool, _Bool );
     221signed int ?<?( unsigned char, unsigned char ),                         ?<=?( unsigned char, unsigned char ),
     222           ?>?( unsigned char, unsigned char ),                         ?>=?( unsigned char, unsigned char );
     223signed int ?<?( signed int, signed int ),                               ?<=?( signed int, signed int ),
     224           ?>?( signed int, signed int ),                               ?>=?( signed int, signed int );
     225signed int ?<?( unsigned int, unsigned int ),                           ?<=?( unsigned int, unsigned int ),
     226           ?>?( unsigned int, unsigned int ),                           ?>=?( unsigned int, unsigned int );
     227signed int ?<?( signed long int, signed long int ),                     ?<=?( signed long int, signed long int ),
     228           ?>?( signed long int, signed long int ),                     ?>=?( signed long int, signed long int );
     229signed int ?<?( unsigned long int, unsigned long int ),                 ?<=?( unsigned long int, unsigned long int ),
     230           ?>?( unsigned long int, unsigned long int ),                 ?>=?( unsigned long int, unsigned long int );
     231signed int ?<?( signed long long int, signed long long int ),           ?<=?( signed long long int, signed long long int ),
     232           ?>?( signed long long int, signed long long int ),           ?>=?( signed long long int, signed long long int );
     233signed int ?<?( unsigned long long int, unsigned long long int ),       ?<=?( unsigned long long int, unsigned long long int ),
     234           ?>?( unsigned long long int, unsigned long long int ),       ?>=?( unsigned long long int, unsigned long long int );
     235signed int ?<?( float, float ),                                         ?<=?( float, float ),
     236           ?>?( float, float ),                                         ?>=?( float, float );
     237signed int ?<?( double, double ),                                       ?<=?( double, double ),
     238           ?>?( double, double ),                                       ?>=?( double, double );
     239signed int ?<?( long double, long double ),                             ?<=?( long double, long double ),
     240           ?>?( long double, long double ),                             ?>=?( long double, long double );
    235241
    236242forall( dtype DT ) signed int ?<?(  const volatile DT *, const volatile DT * );
    … …  
    245251// ------------------------------------------------------------
    246252
    247 signed int ?==?( _Bool, _Bool ),                                ?!=?( _Bool, _Bool );
    248 signed int ?==?( signed int, signed int ),                      ?!=?( signed int, signed int );
    249 signed int ?==?( unsigned int, unsigned int ),                  ?!=?( unsigned int, unsigned int );
    250 signed int ?==?( signed long int, signed long int ),            ?!=?( signed long int, signed long int );
    251 signed int ?==?( unsigned long int, unsigned long int ),        ?!=?( unsigned long int, long unsigned );
    252 signed int ?==?( signed long long int, long long int  signed),  ?!=?( signed long long int, signed long long int );
    253 signed int ?==?( unsigned long long int, unsigned long long int ), ?!=?( unsigned long long int, long long unsigned );
    254 signed int ?==?( float, float ),                                ?!=?( float, float );
    255 signed int ?==?( double, double ),                              ?!=?( double, double );
    256 signed int ?==?( long double, long double ),                    ?!=?( long double, long double );
    257 signed int ?==?( float _Complex, float _Complex ),              ?!=?( float _Complex, float _Complex );
    258 signed int ?==?( double _Complex, double _Complex ),            ?!=?( double _Complex, double _Complex );
    259 signed int ?==?( long double _Complex, long double _Complex ),  ?!=?( long double _Complex, long double _Complex );
     253signed int ?==?( _Bool, _Bool ),                                        ?!=?( _Bool, _Bool );
     254signed int ?==?( signed int, signed int ),                              ?!=?( signed int, signed int );
     255signed int ?==?( unsigned int, unsigned int ),                          ?!=?( unsigned int, unsigned int );
     256signed int ?==?( signed long int, signed long int ),                    ?!=?( signed long int, signed long int );
     257signed int ?==?( unsigned long int, unsigned long int ),                ?!=?( unsigned long int, unsigned long int );
     258signed int ?==?( signed long long int, long long int  signed),          ?!=?( signed long long int, signed long long int );
     259signed int ?==?( unsigned long long int, unsigned long long int ),      ?!=?( unsigned long long int, unsigned long long int );
     260signed int ?==?( float, float ),                                        ?!=?( float, float );
     261signed int ?==?( double, double ),                                      ?!=?( double, double );
     262signed int ?==?( long double, long double ),                            ?!=?( long double, long double );
     263signed int ?==?( float _Complex, float _Complex ),                      ?!=?( float _Complex, float _Complex );
     264signed int ?==?( double _Complex, double _Complex ),                    ?!=?( double _Complex, double _Complex );
     265signed int ?==?( long double _Complex, long double _Complex ),          ?!=?( long double _Complex, long double _Complex );
    260266
    261267forall( dtype DT ) signed int ?==?(                DT *,                DT * );
    … …  
    295301signed long int         ?&?( signed long int, signed long int );
    296302unsigned long int       ?&?( unsigned long int, unsigned long int );
     303signed long long int    ?&?( signed long long int, signed long long int );
     304unsigned long long int  ?&?( unsigned long long int, unsigned long long int );
    297305
    298306// ------------------------------------------------------------
    … …  
    307315signed long int         ?^?( signed long int, signed long int );
    308316unsigned long int       ?^?( unsigned long int, unsigned long int );
     317signed long long int    ?^?( signed long long int, signed long long int );
     318unsigned long long int  ?^?( unsigned long long int, unsigned long long int );
    309319
    310320// ------------------------------------------------------------
    … …  
    319329signed long int         ?|?( signed long int, signed long int );
    320330unsigned long int       ?|?( unsigned long int, unsigned long int );
     331signed long long int    ?|?( signed long long int, signed long long int );
     332unsigned long long int  ?|?( unsigned long long int, unsigned long long int );
    321333
    322334// ------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.