| … | |
… | |
| 40 | echo "const_iv(SUCCESS)" |
40 | echo "const_iv(SUCCESS)" |
| 41 | cat $ALL_H | |
41 | cat $ALL_H | |
| 42 | perl -ne 'print "const_iv($1)\n" if !/#define CL_BUILD_(?:NONE|ERROR|IN_PROGRESS)/ && /^#define CL_(\S+)\s+-\d+\s*$/' |
42 | perl -ne 'print "const_iv($1)\n" if !/#define CL_BUILD_(?:NONE|ERROR|IN_PROGRESS)/ && /^#define CL_(\S+)\s+-\d+\s*$/' |
| 43 | ) >errstr.h |
43 | ) >errstr.h |
| 44 | |
44 | |
| 45 | # default constant values to -1 |
45 | # default constant values to 0 |
| 46 | ( |
46 | ( |
| 47 | echo '// autogenerated by h_extract' |
47 | echo '// autogenerated by h_extract' |
| 48 | cat constiv.h | |
48 | cat constiv.h | |
| 49 | perl -ne '/const_iv\((.*)\)/ or next; print "#ifndef CL_$1\n#define CL_$1 -1\n#endif\n"' |
49 | perl -ne '/const_iv\((.*)\)/ or next; print "#ifndef CL_$1\n#define CL_$1 0\n#endif\n"' |
| 50 | ) >default.h |
50 | ) >default.h |
| 51 | |
51 | |
| 52 | # *glGet*Info |
52 | # *glGet*Info |
| 53 | ( |
53 | ( |
| 54 | <CL/cl.hpp perl -ne 'print "$1\n" if /^\s*F\((.*)\)\s*\\?\s*$/' |
54 | <CL/cl.hpp perl -ne 'print "$1\n" if /^\s*F\((.*)\)\s*\\?\s*$/' |
