Changes in / [a56767c:974906e2]
- Files:
-
- 31 edited
-
include/bfd.h (modified) (1 diff)
-
include/bfdlink.h (modified) (1 diff)
-
include/demangle.h (modified) (1 diff)
-
include/dialog.h (modified) (1 diff)
-
include/evdns.h (modified) (1 diff)
-
include/evhttp.h (modified) (1 diff)
-
include/evrpc.h (modified) (1 diff)
-
include/expat.h (modified) (1 diff)
-
include/fcntl.h (modified) (1 diff)
-
include/form.h (modified) (1 diff)
-
include/gcrypt.h (modified) (1 diff)
-
include/math.h (modified) (1 diff)
-
src/GenPoly/Box.cc (modified) (2 diffs)
-
src/InitTweak/module.mk (modified) (1 diff)
-
src/Makefile.in (modified) (6 diffs)
-
src/examples/alloc.c (modified) (1 diff)
-
src/examples/control_structures.c (modified) (1 diff)
-
src/examples/fstream_test.c (modified) (1 diff)
-
src/examples/identity.c (modified) (2 diffs)
-
src/examples/includes.c (modified) (2 diffs)
-
src/examples/iostream.c (modified) (3 diffs)
-
src/examples/iostream.h (modified) (2 diffs)
-
src/examples/min.c (modified) (1 diff)
-
src/examples/quoted_keyword.c (modified) (1 diff)
-
src/examples/s.c (modified) (2 diffs)
-
src/examples/square.c (modified) (1 diff)
-
src/examples/sum.c (modified) (6 diffs)
-
src/examples/swap.c (modified) (2 diffs)
-
src/examples/twice.c (modified) (2 diffs)
-
src/examples/vector_test.c (modified) (2 diffs)
-
src/libcfa/prelude.cf (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
include/bfd.h
ra56767c r974906e2 10 10 // Created On : Thu Jan 8 15:50:56 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:44:41201513 // Update Count : 912 // Last Modified On : Sun Jun 28 09:07:14 2015 13 // Update Count : 7 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <bfd.h> 23 #ifdef __CFA_BFD_H__ 25 24 #undef type 26 #undef __CFA_BFD_H__ 27 #endif // type && __CFA_BFD_H__ 25 #endif // __CFA_BFD_H__ 28 26 29 27 // Local Variables: // -
include/bfdlink.h
ra56767c r974906e2 10 10 // Created On : Sat Jun 27 09:14:00 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:47:03201513 // Update Count : 412 // Last Modified On : Sun Jun 28 09:08:26 2015 13 // Update Count : 3 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <bfdlink.h> 23 #ifdef __CFA_BFDLINK_H__ 25 24 #undef type 26 #undef __CFA_BFDLINK_H__ 27 #endif // type && __CFA_BFDLINK_H__ 25 #endif // __CFA_BFDLINK_H__ 28 26 29 27 // Local Variables: // -
include/demangle.h
ra56767c r974906e2 10 10 // Created On : Sat Jun 27 16:45:01 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:48:30201513 // Update Count : 912 // Last Modified On : Sun Jun 28 09:09:16 2015 13 // Update Count : 8 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <demangle.h> 23 #ifdef __CFA_DEMANGLE_H__ 25 24 #undef type 26 #undef __CFA_DEMANGLE_H__ 27 #endif // type && __CFA_DEMANGLE_H__ 25 #endif // __CFA_DEMANGLE_H__ 28 26 29 27 // Local Variables: // -
include/dialog.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 08:34:16 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:38:21201513 // Update Count : 1112 // Last Modified On : Sun Jun 28 09:05:35 2015 13 // Update Count : 4 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <dialog.h> 23 #ifdef __CFA_DIALOG_H__ 25 24 #undef type 26 #undef __CFA_DIALOG_H__ 27 #endif // type && __CFA_DIALOG_H__ 25 #endif // __CFA_DIALOG_H__ 28 26 29 27 // Local Variables: // -
include/evdns.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 10:09:23 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:51:06201513 // Update Count : 312 // Last Modified On : Sun Jun 28 10:10:11 2015 13 // Update Count : 1 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <evdns.h> 23 #ifdef __CFA_EVDNS_H__ 25 24 #undef type 26 #undef __CFA_EVDNS_H__ 27 #endif // type && __CFA_EVDNS_H__ 25 #endif // __CFA_EVDNS_H__ 28 26 29 27 // Local Variables: // -
include/evhttp.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 10:59:02 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:52:19201513 // Update Count : 212 // Last Modified On : Sun Jun 28 10:59:55 2015 13 // Update Count : 1 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <evhttp.h> 23 #ifdef __CFA_EVHTTP_H__ 25 24 #undef type 26 #undef __CFA_EVHTTP_H__ 27 #endif // type && __CFA_EVHTTP_H__ 25 #endif // __CFA_EVHTTP_H__ 28 26 29 27 // Local Variables: // -
include/evrpc.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 11:01:31 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:53:14201513 // Update Count : 212 // Last Modified On : Sun Jun 28 11:02:26 2015 13 // Update Count : 1 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <evrpc.h> 23 #ifdef __CFA_EVRPC_H__ 25 24 #undef type 26 #undef __CFA_EVRPC_H__ 27 #endif // type && __CFA_EVRPC_H__ 25 #endif // __CFA_EVRPC_H__ 28 26 29 27 // Local Variables: // -
include/expat.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 11:10:15 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:57:26201513 // Update Count : 412 // Last Modified On : Sun Jun 28 11:14:28 2015 13 // Update Count : 2 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __CFA_EXPAT1_H__ 20 #endif // ! type 21 22 #if ! defined( context ) // nesting ? 21 #endif // type 22 #ifndef context // nesting ? 23 23 #define context `context` 24 24 #define __CFA_EXPAT2_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 25 #endif // context 26 #include_next <expat.h> 27 #ifdef __CFA_EXPAT1_H__ 30 28 #undef type 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__ 29 #endif // __CFA_EXPAT_H__ 30 #ifdef __CFA_EXPAT2_H__ 31 #undef type 32 #endif // __CFA_EXPAT2_H__ 38 33 39 34 // Local Variables: // -
include/fcntl.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 23:03:14 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:38:39201513 // Update Count : 1412 // Last Modified On : Sun Jun 28 23:03:48 2015 13 // Update Count : 7 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <fcntl.h> 23 #ifdef __CFA_FCNTL_H__ 25 24 #undef type 26 #undef __CFA_FCNTL_H__ 27 #endif // type && __CFA_FCNTL_H__ 25 #endif // __CFA_FCNTL_H__ 28 26 29 27 // Local Variables: // -
include/form.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 11:23:56 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:59:46201513 // Update Count : 212 // Last Modified On : Sun Jun 28 11:24:28 2015 13 // Update Count : 1 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <form.h> 23 #ifdef __CFA_FORM_H__ 25 24 #undef type 26 #undef __CFA_FORM_H__ 27 #endif // type && __CFA_FORM_H__ 25 #endif // __CFA_FORM_H__ 28 26 29 27 // Local Variables: // -
include/gcrypt.h
ra56767c r974906e2 10 10 // Created On : Sun Jun 28 11:36:26 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 09:01:25201513 // Update Count : 812 // Last Modified On : Sun Jun 28 11:37:07 2015 13 // Update Count : 7 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <gcrypt.h> 23 #ifdef __CFA_GCRYPT_H__ 25 24 #undef type 26 #undef __CFA_GCRYPT_H__ 27 #endif // type && __CFA_GCRYPT_H__ 25 #endif // __CFA_GCRYPT_H__ 28 26 29 27 // Local Variables: // -
include/math.h
ra56767c r974906e2 10 10 // Created On : Mon Nov 10 23:41:29 2014 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 08:37:57201513 // Update Count : 1212 // Last Modified On : Sun Jun 28 09:05:22 2015 13 // Update Count : 6 14 14 15 15 // 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. 16 17 17 #if ! defined( type )// nesting ?18 #ifndef type // nesting ? 18 19 #define type `type` 19 20 #define __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 21 #endif // type 22 #include_next <math.h> 23 #ifdef __CFA_MATH_H__ 25 24 #undef type 26 #undef __CFA_MATH_H__ 27 #endif // type && __CFA_MATH_H__ 25 #endif // __CFA_MATH_H__ 28 26 29 27 // Local Variables: // -
src/GenPoly/Box.cc
ra56767c r974906e2 412 412 void Pass1::boxParam( Type *param, Expression *&arg, const TyVarMap &exprTyVars ) { 413 413 assert( ! arg->get_results().empty() ); 414 if ( isPolyType( param, exprTyVars ) ) { 414 // if ( ! dynamic_cast< PointerType *>( arg->get_results().front() ) ) { 415 TypeInstType *typeInst = dynamic_cast< TypeInstType *>( param ); 416 if ( typeInst && exprTyVars.find( typeInst->get_name() ) != exprTyVars.end() ) { 415 417 if ( dynamic_cast< TypeInstType *>( arg->get_results().front() ) ) { 416 418 // if the argument's type is a type parameter, we don't need to box again! … … 430 432 } // if 431 433 } // if 434 // } 432 435 } 433 436 -
src/InitTweak/module.mk
ra56767c r974906e2 6 6 ## file "LICENCE" distributed with Cforall. 7 7 ## 8 ## module.mk -- 8 ## module.mk -- 9 9 ## 10 10 ## Author : Richard C. Bilson 11 11 ## Created On : Mon Jun 1 17:49:17 2015 12 ## Last Modified By : Rob Schluntz13 ## Last Modified On : Mon J an 11 14:40:16 201614 ## Update Count : 212 ## Last Modified By : Peter A. Buhr 13 ## Last Modified On : Mon Jun 1 17:52:49 2015 14 ## Update Count : 1 15 15 ############################################################################### 16 16 17 SRC += InitTweak/RemoveInit.cc 17 SRC += InitTweak/InitModel.cc \ 18 InitTweak/InitExpander.cc \ 19 InitTweak/Mutate.cc \ 20 InitTweak/Association.cc \ 21 InitTweak/RemoveInit.cc 18 22 -
src/Makefile.in
ra56767c r974906e2 123 123 GenPoly/cfa_cpp-InstantiateGeneric.$(OBJEXT) \ 124 124 GenPoly/cfa_cpp-DeclMutator.$(OBJEXT) \ 125 InitTweak/cfa_cpp-InitModel.$(OBJEXT) \ 126 InitTweak/cfa_cpp-InitExpander.$(OBJEXT) \ 127 InitTweak/cfa_cpp-Mutate.$(OBJEXT) \ 128 InitTweak/cfa_cpp-Association.$(OBJEXT) \ 125 129 InitTweak/cfa_cpp-RemoveInit.$(OBJEXT) \ 126 130 Parser/cfa_cpp-parser.$(OBJEXT) Parser/cfa_cpp-lex.$(OBJEXT) \ … … 346 350 GenPoly/CopyParams.cc GenPoly/FindFunction.cc \ 347 351 GenPoly/InstantiateGeneric.cc GenPoly/DeclMutator.cc \ 352 InitTweak/InitModel.cc InitTweak/InitExpander.cc \ 353 InitTweak/Mutate.cc InitTweak/Association.cc \ 348 354 InitTweak/RemoveInit.cc Parser/parser.yy Parser/lex.ll \ 349 355 Parser/TypedefTable.cc Parser/ParseNode.cc \ … … 561 567 @$(MKDIR_P) InitTweak/$(DEPDIR) 562 568 @: > InitTweak/$(DEPDIR)/$(am__dirstamp) 569 InitTweak/cfa_cpp-InitModel.$(OBJEXT): InitTweak/$(am__dirstamp) \ 570 InitTweak/$(DEPDIR)/$(am__dirstamp) 571 InitTweak/cfa_cpp-InitExpander.$(OBJEXT): InitTweak/$(am__dirstamp) \ 572 InitTweak/$(DEPDIR)/$(am__dirstamp) 573 InitTweak/cfa_cpp-Mutate.$(OBJEXT): InitTweak/$(am__dirstamp) \ 574 InitTweak/$(DEPDIR)/$(am__dirstamp) 575 InitTweak/cfa_cpp-Association.$(OBJEXT): InitTweak/$(am__dirstamp) \ 576 InitTweak/$(DEPDIR)/$(am__dirstamp) 563 577 InitTweak/cfa_cpp-RemoveInit.$(OBJEXT): InitTweak/$(am__dirstamp) \ 564 578 InitTweak/$(DEPDIR)/$(am__dirstamp) … … 783 797 -rm -f GenPoly/cfa_cpp-ScrubTyVars.$(OBJEXT) 784 798 -rm -f GenPoly/cfa_cpp-Specialize.$(OBJEXT) 799 -rm -f InitTweak/cfa_cpp-Association.$(OBJEXT) 800 -rm -f InitTweak/cfa_cpp-InitExpander.$(OBJEXT) 801 -rm -f InitTweak/cfa_cpp-InitModel.$(OBJEXT) 802 -rm -f InitTweak/cfa_cpp-Mutate.$(OBJEXT) 785 803 -rm -f InitTweak/cfa_cpp-RemoveInit.$(OBJEXT) 786 804 -rm -f Parser/cfa_cpp-DeclarationNode.$(OBJEXT) … … 890 908 @AMDEP_TRUE@@am__include@ @am__quote@GenPoly/$(DEPDIR)/cfa_cpp-ScrubTyVars.Po@am__quote@ 891 909 @AMDEP_TRUE@@am__include@ @am__quote@GenPoly/$(DEPDIR)/cfa_cpp-Specialize.Po@am__quote@ 910 @AMDEP_TRUE@@am__include@ @am__quote@InitTweak/$(DEPDIR)/cfa_cpp-Association.Po@am__quote@ 911 @AMDEP_TRUE@@am__include@ @am__quote@InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Po@am__quote@ 912 @AMDEP_TRUE@@am__include@ @am__quote@InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Po@am__quote@ 913 @AMDEP_TRUE@@am__include@ @am__quote@InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Po@am__quote@ 892 914 @AMDEP_TRUE@@am__include@ @am__quote@InitTweak/$(DEPDIR)/cfa_cpp-RemoveInit.Po@am__quote@ 893 915 @AMDEP_TRUE@@am__include@ @am__quote@Parser/$(DEPDIR)/cfa_cpp-DeclarationNode.Po@am__quote@ … … 1374 1396 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o GenPoly/cfa_cpp-DeclMutator.obj `if test -f 'GenPoly/DeclMutator.cc'; then $(CYGPATH_W) 'GenPoly/DeclMutator.cc'; else $(CYGPATH_W) '$(srcdir)/GenPoly/DeclMutator.cc'; fi` 1375 1397 1398 InitTweak/cfa_cpp-InitModel.o: InitTweak/InitModel.cc 1399 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-InitModel.o -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Tpo -c -o InitTweak/cfa_cpp-InitModel.o `test -f 'InitTweak/InitModel.cc' || echo '$(srcdir)/'`InitTweak/InitModel.cc 1400 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Tpo InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Po 1401 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/InitModel.cc' object='InitTweak/cfa_cpp-InitModel.o' libtool=no @AMDEPBACKSLASH@ 1402 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1403 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-InitModel.o `test -f 'InitTweak/InitModel.cc' || echo '$(srcdir)/'`InitTweak/InitModel.cc 1404 1405 InitTweak/cfa_cpp-InitModel.obj: InitTweak/InitModel.cc 1406 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-InitModel.obj -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Tpo -c -o InitTweak/cfa_cpp-InitModel.obj `if test -f 'InitTweak/InitModel.cc'; then $(CYGPATH_W) 'InitTweak/InitModel.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/InitModel.cc'; fi` 1407 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Tpo InitTweak/$(DEPDIR)/cfa_cpp-InitModel.Po 1408 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/InitModel.cc' object='InitTweak/cfa_cpp-InitModel.obj' libtool=no @AMDEPBACKSLASH@ 1409 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1410 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-InitModel.obj `if test -f 'InitTweak/InitModel.cc'; then $(CYGPATH_W) 'InitTweak/InitModel.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/InitModel.cc'; fi` 1411 1412 InitTweak/cfa_cpp-InitExpander.o: InitTweak/InitExpander.cc 1413 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-InitExpander.o -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Tpo -c -o InitTweak/cfa_cpp-InitExpander.o `test -f 'InitTweak/InitExpander.cc' || echo '$(srcdir)/'`InitTweak/InitExpander.cc 1414 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Tpo InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Po 1415 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/InitExpander.cc' object='InitTweak/cfa_cpp-InitExpander.o' libtool=no @AMDEPBACKSLASH@ 1416 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1417 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-InitExpander.o `test -f 'InitTweak/InitExpander.cc' || echo '$(srcdir)/'`InitTweak/InitExpander.cc 1418 1419 InitTweak/cfa_cpp-InitExpander.obj: InitTweak/InitExpander.cc 1420 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-InitExpander.obj -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Tpo -c -o InitTweak/cfa_cpp-InitExpander.obj `if test -f 'InitTweak/InitExpander.cc'; then $(CYGPATH_W) 'InitTweak/InitExpander.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/InitExpander.cc'; fi` 1421 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Tpo InitTweak/$(DEPDIR)/cfa_cpp-InitExpander.Po 1422 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/InitExpander.cc' object='InitTweak/cfa_cpp-InitExpander.obj' libtool=no @AMDEPBACKSLASH@ 1423 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1424 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-InitExpander.obj `if test -f 'InitTweak/InitExpander.cc'; then $(CYGPATH_W) 'InitTweak/InitExpander.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/InitExpander.cc'; fi` 1425 1426 InitTweak/cfa_cpp-Mutate.o: InitTweak/Mutate.cc 1427 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-Mutate.o -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Tpo -c -o InitTweak/cfa_cpp-Mutate.o `test -f 'InitTweak/Mutate.cc' || echo '$(srcdir)/'`InitTweak/Mutate.cc 1428 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Tpo InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Po 1429 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/Mutate.cc' object='InitTweak/cfa_cpp-Mutate.o' libtool=no @AMDEPBACKSLASH@ 1430 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1431 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-Mutate.o `test -f 'InitTweak/Mutate.cc' || echo '$(srcdir)/'`InitTweak/Mutate.cc 1432 1433 InitTweak/cfa_cpp-Mutate.obj: InitTweak/Mutate.cc 1434 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-Mutate.obj -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Tpo -c -o InitTweak/cfa_cpp-Mutate.obj `if test -f 'InitTweak/Mutate.cc'; then $(CYGPATH_W) 'InitTweak/Mutate.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/Mutate.cc'; fi` 1435 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Tpo InitTweak/$(DEPDIR)/cfa_cpp-Mutate.Po 1436 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/Mutate.cc' object='InitTweak/cfa_cpp-Mutate.obj' libtool=no @AMDEPBACKSLASH@ 1437 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1438 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-Mutate.obj `if test -f 'InitTweak/Mutate.cc'; then $(CYGPATH_W) 'InitTweak/Mutate.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/Mutate.cc'; fi` 1439 1440 InitTweak/cfa_cpp-Association.o: InitTweak/Association.cc 1441 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-Association.o -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-Association.Tpo -c -o InitTweak/cfa_cpp-Association.o `test -f 'InitTweak/Association.cc' || echo '$(srcdir)/'`InitTweak/Association.cc 1442 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-Association.Tpo InitTweak/$(DEPDIR)/cfa_cpp-Association.Po 1443 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/Association.cc' object='InitTweak/cfa_cpp-Association.o' libtool=no @AMDEPBACKSLASH@ 1444 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1445 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-Association.o `test -f 'InitTweak/Association.cc' || echo '$(srcdir)/'`InitTweak/Association.cc 1446 1447 InitTweak/cfa_cpp-Association.obj: InitTweak/Association.cc 1448 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-Association.obj -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-Association.Tpo -c -o InitTweak/cfa_cpp-Association.obj `if test -f 'InitTweak/Association.cc'; then $(CYGPATH_W) 'InitTweak/Association.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/Association.cc'; fi` 1449 @am__fastdepCXX_TRUE@ $(am__mv) InitTweak/$(DEPDIR)/cfa_cpp-Association.Tpo InitTweak/$(DEPDIR)/cfa_cpp-Association.Po 1450 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='InitTweak/Association.cc' object='InitTweak/cfa_cpp-Association.obj' libtool=no @AMDEPBACKSLASH@ 1451 @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 1452 @am__fastdepCXX_FALSE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -c -o InitTweak/cfa_cpp-Association.obj `if test -f 'InitTweak/Association.cc'; then $(CYGPATH_W) 'InitTweak/Association.cc'; else $(CYGPATH_W) '$(srcdir)/InitTweak/Association.cc'; fi` 1453 1376 1454 InitTweak/cfa_cpp-RemoveInit.o: InitTweak/RemoveInit.cc 1377 1455 @am__fastdepCXX_TRUE@ $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(cfa_cpp_CXXFLAGS) $(CXXFLAGS) -MT InitTweak/cfa_cpp-RemoveInit.o -MD -MP -MF InitTweak/$(DEPDIR)/cfa_cpp-RemoveInit.Tpo -c -o InitTweak/cfa_cpp-RemoveInit.o `test -f 'InitTweak/RemoveInit.cc' || echo '$(srcdir)/'`InitTweak/RemoveInit.cc -
src/examples/alloc.c
ra56767c r974906e2 26 26 int *baz( int *p, int c ); 27 27 28 int main( void) {28 int main() { 29 29 size_t size = 10; 30 30 int * x = malloc(); -
src/examples/control_structures.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:30:30 201613 // Update Count : 2 912 // Last Modified On : Fri Sep 18 08:12:17 2015 13 // Update Count : 28 14 14 // 15 15 16 int main( void) {16 int main() { 17 17 L1: { 18 18 L2: switch ( 3_333_333 ) { // underscores in constant -
src/examples/fstream_test.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:30:39 201613 // Update Count : 4 112 // Last Modified On : Mon Nov 23 14:43:32 2015 13 // Update Count : 40 14 14 // 15 15 16 16 #include "fstream.h" 17 17 18 int main( void) {18 int main() { 19 19 ofstream *sout = ofstream_stdout(); 20 20 ifstream *sin = ifstream_stdin(); -
src/examples/identity.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 23:38:05 201613 // Update Count : 612 // Last Modified On : Wed May 27 18:16:30 2015 13 // Update Count : 2 14 14 // 15 15 … … 23 23 int main() { 24 24 ofstream *sout = ofstream_stdout(); 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; 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'; 35 34 } 36 35 37 36 // Local Variables: // 38 37 // tab-width: 4 // 39 // compile-command: "cfa identity.c fstream.o iostream.o iterator.o" //38 // compile-command: "cfa identity.c fstream.o iostream.o" // 40 39 // End: // -
src/examples/includes.c
ra56767c r974906e2 7 7 // includes.c -- 8 8 // 9 // Author : Peter A. Buhr9 // Author : Richard C. Bilson 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Dec 21 13:54:09201513 // Update Count : 32212 // Last Modified On : Fri Jun 26 15:04:33 2015 13 // Update Count : 14 14 14 // 15 15 16 // *********************************************** 17 // USE -std=c99 WITH gxx TO GET SAME OUTPUT AS cfa 18 // *********************************************** 19 20 #ifdef __CFA__ 21 extern "C" { 22 #endif // __CFA__ 23 24 #if 1 25 #define _GNU_SOURCE 26 #include <aio.h> 27 #include <a.out.h> 16 #if 0 17 //#include <aio.h> // FAILS -- includes locale.h 28 18 #include <aliases.h> 29 19 #include <alloca.h> 30 20 #include <ansidecl.h> 31 21 #include <ar.h> 32 #include <argp.h> 33 #include <argz.h> 22 #include <argp.h> // FAILS -- includes locale.h 23 #include <argz.h> // FAILS -- includes locale.h 34 24 #include <assert.h> 35 #include <bfd.h> 36 #include <bfdlink.h> 37 #include <byteswap.h> 38 #include <cblas.h> 39 #include <cblas_f77.h> 25 #include <bfd.h> // contains structure field "type" 40 26 #include <complex.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> 27 #include <ctype.h> // FAILS -- includes locale.h 57 28 #include <errno.h> 58 #include <error.h>59 #if 060 #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>72 29 #include <fenv.h> 73 30 #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 loop89 ////#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>101 31 #include <inttypes.h> 102 32 #include <iso646.h> 103 #include <jerror.h>104 //#include <jmorecfg.h>105 //#include <jpegint.h>106 //#include <jpeglib.h>107 33 #include <limits.h> 108 #include <locale.h> 109 #include <math.h> // contains "type" 110 #include <ncurses.h> 34 #include <locale.h> // FAILS -- "no reasonable alternatives for applying ... Name: ?+? ..." 35 #include <math.h> // contains structure field "type" 111 36 #include <setjmp.h> 112 37 #include <signal.h> … … 116 41 #include <stdlib.h> 117 42 #include <stdio.h> 118 #include <string.h> 43 #include <string.h> // FAILS -- includes locale.h 119 44 #include <tgmath.h> 120 #include <time.h> 45 #include <time.h> // FAILS -- includes locale.h 121 46 #include <unistd.h> 122 #include <wchar.h> 123 #include <wctype.h> 47 #include <wchar.h> // FAILS -- includes locale.h 48 #include <wctype.h> // FAILS -- includes locale.h 49 #include <curses.h> 50 #else 51 #include <aio.h> // FAILS -- includes locale.h 124 52 #endif // 0 125 126 #else127 128 //#define _GNU_SOURCE129 #include <error.h>130 131 #endif // 0132 133 #ifdef __CFA__134 } // extern "C"135 #endif // __CFA__136 53 137 54 // Local Variables: // -
src/examples/iostream.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 09:38:58 201613 // Update Count : 3712 // Last Modified On : Mon Dec 7 23:08:02 2015 13 // Update Count : 24 14 14 // 15 15 … … 27 27 forall( dtype ostype | ostream( ostype ) ) 28 28 ostype * ?|?( ostype *os, int i ) { 29 char buffer[32]; 30 return write( os, buffer, sprintf( buffer, "%d", i ) ); 31 } // ?|? 32 33 forall( dtype ostype | ostream( ostype ) ) 34 ostype * ?|?( ostype *os, unsigned int i ) { 35 char buffer[32]; 36 return write( os, buffer, sprintf( buffer, "%u", i ) ); 37 } // ?|? 38 39 forall( dtype ostype | ostream( ostype ) ) 40 ostype * ?|?( ostype *os, long int i ) { 41 char buffer[32]; 42 return write( os, buffer, sprintf( buffer, "%ld", i ) ); 43 } // ?|? 44 45 forall( dtype ostype | ostream( ostype ) ) 46 ostype * ?|?( ostype *os, long long int i ) { 47 char buffer[32]; 48 return write( os, buffer, sprintf( buffer, "%lld", i ) ); 49 } // ?|? 50 51 forall( dtype ostype | ostream( ostype ) ) 52 ostype * ?|?( ostype *os, unsigned long int i ) { 53 char buffer[32]; 54 return write( os, buffer, sprintf( buffer, "%lu", i ) ); 55 } // ?|? 56 57 forall( dtype ostype | ostream( ostype ) ) 58 ostype * ?|?( ostype *os, unsigned long long int i ) { 59 char buffer[32]; 60 return write( os, buffer, sprintf( buffer, "%llu", i ) ); 29 char buffer[32]; // larger than the largest integer 30 sprintf( buffer, "%d", i ); 31 return write( os, buffer, strlen( buffer ) ); 61 32 } // ?|? 62 33 63 34 forall( dtype ostype | ostream( ostype ) ) 64 35 ostype * ?|?( ostype *os, double d ) { 65 char buffer[32]; 66 return write( os, buffer, sprintf( buffer, "%g", d ) ); 67 } // ?|? 68 69 forall( dtype ostype | ostream( ostype ) ) 70 ostype * ?|?( ostype *os, long double d ) { 71 char buffer[32]; 72 return write( os, buffer, sprintf( buffer, "%Lg", d ) ); 73 } // ?|? 74 75 forall( dtype ostype | ostream( ostype ) ) 76 ostype * ?|?( ostype *os, const void *p ) { 77 char buffer[32]; 78 return write( os, buffer, sprintf( buffer, "%p", p ) ); 36 char buffer[32]; // larger than the largest double 37 sprintf( buffer, "%g", d ); 38 return write( os, buffer, strlen( buffer ) ); 79 39 } // ?|? 80 40 … … 82 42 ostype * ?|?( ostype *os, const char *cp ) { 83 43 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 ) ); 84 51 } // ?|? 85 52 -
src/examples/iostream.h
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 09:02:11 201613 // Update Count : 2012 // Last Modified On : Mon Nov 23 14:15:25 2015 13 // Update Count : 17 14 14 // 15 15 … … 34 34 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, char ); 35 35 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, int ); 36 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned int );37 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long int );38 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long long int );39 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long int );40 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long long int );41 36 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, double ); 42 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long double );43 37 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const char * ); 44 38 forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const void * ); -
src/examples/min.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:40:51 201613 // Update Count : 2 612 // Last Modified On : Wed May 27 18:23:19 2015 13 // Update Count : 2 14 14 // 15 15 16 #include "fstream.h" 16 extern "C" { 17 int printf( const char *, ... ); 18 //#include <stdio.h> 19 } 17 20 18 21 forall( type T | { int ?<?( T, T ); } ) 19 22 T min( const T t1, const T t2 ) { 20 23 return t1 < t2 ? t1 : t2; 21 } // min24 } 22 25 23 int 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 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 } 39 40 40 41 // Local Variables: // 41 42 // tab-width: 4 // 42 // compile-command: "cfa min.c fstream.o iostream.o iterator.o" //43 // compile-command: "cfa min.c" // 43 44 // End: // -
src/examples/quoted_keyword.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sun Jan 3 22:46:28 201613 // Update Count : 712 // Last Modified On : Wed May 27 18:27:26 2015 13 // Update Count : 2 14 14 // 15 15 16 #include "fstream.h"17 18 16 // test quoted keyword usage 19 int `catch` = 10;17 int `catch`; 20 18 21 19 struct { 22 20 int `type`; 23 21 int `struct`; 24 } st = { 10, 10 };22 } st; 25 23 26 24 typedef int `forall`; 27 `forall` `throw` = 10;25 `forall` `throw`; 28 26 29 int main() { 30 ofstream *sout = ofstream_stdout(); 31 sout | `catch` + st.`type` + st.`struct` + `throw` | endl; 27 int foo() { 28 int w = `catch` + st.`type` + st.`struct` + `throw`; 32 29 } 33 30 -
src/examples/s.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sun Jan 3 22:38:45 201613 // Update Count : 312 // Last Modified On : Wed May 27 18:42:39 2015 13 // Update Count : 2 14 14 // 15 15 … … 17 17 18 18 void f() { 19 int a;20 a ? 4 : 5;19 // int a; 20 // a ? 4 : 5; 21 21 1 ? 4 : 5; 22 22 0 ? 4 : 5; -
src/examples/square.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Jan 5 18:08:20 201613 // Update Count : 2 112 // Last Modified On : Wed May 27 18:43:34 2015 13 // Update Count : 2 14 14 // 15 15 16 #include "fstream.h" 16 extern "C" { 17 #include <stdio.h> 18 } 17 19 18 20 forall( type T | { T ?*?( T, T ); } ) 19 21 T square( T t ) { 20 22 return t * t; 21 } // square 23 } 24 25 //char ?*?( char a1, char a2 ) { 26 // return (char)( (int)a1 * (int)a2 ); 27 //} 22 28 23 29 int main() { 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 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 } 68 41 69 42 // Local Variables: // 70 43 // tab-width: 4 // 71 // compile-command: "cfa square.c fstream.o iostream.o iterator.o" //44 // compile-command: "cfa square.c" // 72 45 // End: // -
src/examples/sum.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 07:40:24 201613 // Update Count : 1 2612 // Last Modified On : Sat Nov 21 18:08:18 2015 13 // Update Count : 119 14 14 // 15 15 16 extern "C" { 17 int printf( char *, ... ); 18 } 16 19 #include "fstream.h" 17 20 … … 38 41 char ?++( char *op ) { char temp = *op; *op += 1; return temp; } 39 42 40 int main( void) {43 int main() { 41 44 const int low = 5, High = 15, size = High - low; 42 45 … … 49 52 a[i] = v; 50 53 } 51 sout | "sum from " | low | " to " | High |" is "52 | (int)sum( size, a ) | ", check " | (int)s |endl;54 sout << "sum from " << low << " to " << High << " is " 55 << (int)sum( size, a ) << ", check " << (int)s << endl; 53 56 54 57 int s = 0, a[size]; … … 58 61 a[i] = (int)v; 59 62 } 60 sout | "sum from " | low | " to " | High |" is "61 | sum( size, (int *)a ) | ", check " | (int)s |endl;63 sout << "sum from " << low << " to " << High << " is " 64 << sum( size, (int *)a ) << ", check " << (int)s << endl; 62 65 63 66 double s = 0.0, a[size]; … … 67 70 a[i] = (double)v; 68 71 } 69 sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is " 70 | sum( size, (double *)a ) | ", check " | (double)s | endl; 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; 71 75 72 76 float s = 0.0, a[size]; … … 76 80 a[i] = (float)v; 77 81 } 78 sout | "sum from " | low / 10.0 | " to " | High / 10.0 | " is " 79 | sum( size, (float *)a ) | ", check " | (float)s | endl; 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; 80 85 } 81 86 82 87 // Local Variables: // 83 88 // tab-width: 4 // 84 // compile-command: "cfa sum.c fstream.o iostream.o iterator.o" //89 // compile-command: "cfa sum.c fstream.o iostream.o" // 85 90 // End: // -
src/examples/swap.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:32:25 201613 // Update Count : 512 // Last Modified On : Wed May 27 18:34:47 2015 13 // Update Count : 1 14 14 // 15 15 16 #include "fstream.h" 16 extern "C" { 17 int printf( const char *, ... ); 18 } 17 19 18 20 forall( type T ) … … 23 25 } 24 26 25 int main( void) {27 int main() { 26 28 int x = 1, y = 2; 27 ofstream *sout = ofstream_stdout(); 28 sout | x | ' ' | y | endl; 29 printf( "%d %d\n", x, y ); 29 30 swap( &x, &y ); 30 sout | x | ' ' | y | endl;31 printf( "%d %d\n", x, y ); 31 32 } 32 33 33 34 // Local Variables: // 34 35 // tab-width: 4 // 35 // compile-command: "cfa swap.c fstream.o iostream.o iterator.o" //36 // compile-command: "cfa swap.c" // 36 37 // End: // -
src/examples/twice.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:32:04 201613 // Update Count : 1 012 // Last Modified On : Wed May 27 18:37:23 2015 13 // Update Count : 1 14 14 // 15 15 … … 21 21 } 22 22 23 int 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 23 int main() { 29 24 ofstream *sout = ofstream_stdout(); 30 sout | twice( 'a' ) | ' ' | twice( 1 ) | ' ' | twice( 3.2 ) | endl;25 sout << twice( 1 ) << ' ' << twice( 3.2 ) << '\n'; 31 26 } 32 27 33 28 // Local Variables: // 34 29 // tab-width: 4 // 35 // compile-command: "cfa twice.c fstream.o iostream.o iterator.o" //30 // compile-command: "cfa twice.c fstream.o iostream.o" // 36 31 // End: // -
src/examples/vector_test.c
ra56767c r974906e2 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jan 4 11:31:56 201613 // Update Count : 1 412 // Last Modified On : Tue Dec 15 16:02:56 2015 13 // Update Count : 13 14 14 // 15 15 … … 19 19 #include "iterator.h" 20 20 21 int main( void) {21 int main() { 22 22 ofstream *sout = ofstream_stdout(); 23 23 ifstream *sin = ifstream_stdin(); -
src/libcfa/prelude.cf
ra56767c r974906e2 7 7 // Author : Glen Ditchfield 8 8 // Created On : Sat Nov 29 07:23:41 2014 9 // Last Modified By : Peter A. Buhr10 // Last Modified On : Mon Jan 4 11:13:26 201611 // Update Count : 819 // Last Modified By : Rob Schluntz 10 // Last Modified On : Thu Nov 19 11:09:47 2015 11 // Update Count : 76 12 12 // 13 13 … … 149 149 unsigned int ?*?( unsigned int, unsigned int ), ?/?( unsigned int, unsigned int ), ?%?( unsigned int, unsigned int ); 150 150 signed 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, unsigned long int ), ?%?( unsigned long int, unsigned long int);151 unsigned long int ?*?( unsigned long int, unsigned long int ), ?/?( unsigned long int, long unsigned ), ?%?( long unsigned, long unsigned ); 152 152 signed 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, unsigned long long int ), ?%?( unsigned long long int, unsigned 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 ); 154 154 float ?*?( float, float ), ?/?( float, float ); 155 155 double ?*?( double, double ), ?/?( double, double ); … … 173 173 unsigned int ?+?( unsigned int, unsigned int ), ?-?( unsigned int, unsigned int ); 174 174 signed 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, unsigned long int);175 unsigned long int ?+?( unsigned long int, unsigned long int ), ?-?( unsigned long int, long unsigned ); 176 176 signed 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, unsigned long long int);177 unsigned long long int ?+?( unsigned long long int, unsigned long long int ), ?-?( unsigned long long int, long long unsigned ); 178 178 float ?+?( float, float ), ?-?( float, float ); 179 179 double ?+?( double, double ), ?-?( double, double ); … … 203 203 // ------------------------------------------------------------ 204 204 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, unsigned long int ), ?>>?( unsigned long int, unsigned long int ); 210 signed long long int ?<<?( signed long long int, signed long long int ), ?>>?( signed long long int, signed long long int ); 211 unsigned long long int ?<<?( unsigned long long int, unsigned long long int ), ?>>?( unsigned long long int, unsigned long long int ); 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 ); 212 210 213 211 // ------------------------------------------------------------ … … 217 215 // ------------------------------------------------------------ 218 216 219 signed int ?<?( _Bool, _Bool ), ?<=?( _Bool, _Bool ), 220 ?>?( _Bool, _Bool ), ?>=?( _Bool, _Bool ); 221 signed int ?<?( unsigned char, unsigned char ), ?<=?( unsigned char, unsigned char ), 222 ?>?( unsigned char, unsigned char ), ?>=?( unsigned char, unsigned char ); 223 signed int ?<?( signed int, signed int ), ?<=?( signed int, signed int ), 224 ?>?( signed int, signed int ), ?>=?( signed int, signed int ); 225 signed int ?<?( unsigned int, unsigned int ), ?<=?( unsigned int, unsigned int ), 226 ?>?( unsigned int, unsigned int ), ?>=?( unsigned int, unsigned int ); 227 signed 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 ); 229 signed 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 ); 231 signed 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 ); 233 signed 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 ); 235 signed int ?<?( float, float ), ?<=?( float, float ), 236 ?>?( float, float ), ?>=?( float, float ); 237 signed int ?<?( double, double ), ?<=?( double, double ), 238 ?>?( double, double ), ?>=?( double, double ); 239 signed int ?<?( long double, long double ), ?<=?( long double, long double ), 240 ?>?( long double, long double ), ?>=?( long double, long double ); 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 ); 241 235 242 236 forall( dtype DT ) signed int ?<?( const volatile DT *, const volatile DT * ); … … 251 245 // ------------------------------------------------------------ 252 246 253 signed int ?==?( _Bool, _Bool ), 254 signed int ?==?( signed int, signed int ), 255 signed int ?==?( unsigned int, unsigned int ), 256 signed int ?==?( signed long int, signed long int ), 257 signed int ?==?( unsigned long int, unsigned long int ), ?!=?( unsigned long int, unsigned long int);258 signed int ?==?( signed long long int, long long int signed), 259 signed int ?==?( unsigned long long int, unsigned long long int ), ?!=?( unsigned long long int, unsigned long long int);260 signed int ?==?( float, float ), 261 signed int ?==?( double, double ), 262 signed int ?==?( long double, long double ), 263 signed int ?==?( float _Complex, float _Complex ), 264 signed int ?==?( double _Complex, double _Complex ), 265 signed int ?==?( long double _Complex, long double _Complex ), 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 ); 266 260 267 261 forall( dtype DT ) signed int ?==?( DT *, DT * ); … … 301 295 signed long int ?&?( signed long int, signed long int ); 302 296 unsigned long int ?&?( unsigned long int, unsigned long int ); 303 signed long long int ?&?( signed long long int, signed long long int );304 unsigned long long int ?&?( unsigned long long int, unsigned long long int );305 297 306 298 // ------------------------------------------------------------ … … 315 307 signed long int ?^?( signed long int, signed long int ); 316 308 unsigned long int ?^?( unsigned long int, unsigned long int ); 317 signed long long int ?^?( signed long long int, signed long long int );318 unsigned long long int ?^?( unsigned long long int, unsigned long long int );319 309 320 310 // ------------------------------------------------------------ … … 329 319 signed long int ?|?( signed long int, signed long int ); 330 320 unsigned long int ?|?( unsigned long int, unsigned long int ); 331 signed long long int ?|?( signed long long int, signed long long int );332 unsigned long long int ?|?( unsigned long long int, unsigned long long int );333 321 334 322 // ------------------------------------------------------------
Note:
See TracChangeset
for help on using the changeset viewer.
