/* Version numbers */
#define TTCN3_MAJOR 5
-#define TTCN3_MINOR 4
-#define TTCN3_PATCHLEVEL 3
+#define TTCN3_MINOR 5
+#define TTCN3_PATCHLEVEL 0
//#define TTCN3_BUILDNUMBER 0
/* The aggregated version number must be set manually since some stupid
* TTCN3_VERSION = TTCN3_MAJOR * 1000000 + TTCN3_MINOR * 10000 +
* TTCN3_PATCHLEVEL * 100 + TTCN3_BUILDNUMBER
*/
-#define TTCN3_VERSION 50403
+#define TTCN3_VERSION 50500
/* A monotonically increasing version number.
* An official release is deemed to have the highest possible build number (99)
warning("Don't know how to init PERMUT");
str = mputprintf(str, "/* FIXME: PERMUT goes here, name=%s*/\n", name);
break;
- case TEMPLATE_ERROR:
case TEMPLATE_NOTUSED:
+ break;
+ case TEMPLATE_ERROR:
// "default"
FATAL_ERROR("Template::generate_code_init()");
}
case OSTR_PATTERN:
case CSTR_PATTERN:
case USTR_PATTERN:
+ case TEMPLATE_NOTUSED:
return false;
case TEMPLATE_LIST:
// temporary reference is needed if the template has at least one
case SUBSET_MATCH:
return true;
case TEMPLATE_ERROR:
- case TEMPLATE_NOTUSED:
FATAL_ERROR("Template::needs_temp_ref()");
case PERMUTATION_MATCH:
// FIXME
case OSTR_PATTERN:
case CSTR_PATTERN:
case USTR_PATTERN:
+ case TEMPLATE_NOTUSED:
return true;
case SPECIFIC_VALUE:
return u.specific_value->has_single_expr();
}
| DisconnectKeyword SingleOrMultiConnectionSpec
{
- if ($2.compref1 && $2.portref1 && $2.compref1 && $2.compref2) {
+ if ($2.portref1 && $2.portref2 && $2.compref1 && $2.compref2) {
$$ = new Statement(Statement::S_DISCONNECT,
$2.compref1, $2.portref1, $2.compref2, $2.portref2);
} else {
// check for the more general /R\d[A-HJ-NS-VX-Z](\d{1,2})?/
/* Test needs to be adjusted for every release !!!!!!! */
- extension "requiresTITAN CRL 113 200/5 R4A"; /* This one must just pass, the next one must just fail */
- extension "requiresTITAN CRL 113 200/5 R5A01"; //^error: This module needs to be compiled with TITAN version (C[RN]L \d+ \d+\/\d+ )?R\d{1,2}[A-HJ-NS-VX-Z](\d{1,2})? or higher; version (C[RN]L \d+ \d+\/\d+ )?R\d{1,2}[A-HJ-NS-VX-Z](\d{1,2})? detected//
+ extension "requiresTITAN CRL 113 200/5 R5A"; /* This one must just pass, the next one must just fail */
+ extension "requiresTITAN CRL 113 200/5 R6A01"; //^error: This module needs to be compiled with TITAN version (C[RN]L \d+ \d+\/\d+ )?R\d{1,2}[A-HJ-NS-VX-Z](\d{1,2})? or higher; version (C[RN]L \d+ \d+\/\d+ )?R\d{1,2}[A-HJ-NS-VX-Z](\d{1,2})? detected//
/* The old style RnXnn, without the CRL 113 200 and the suffix, implies major version 1
* Now that Titan is at version 2, the following will always pass:
map { s!.+/!!g } @files;
# Generate the makefile
-print("$ENV{TTCN3_DIR}/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest @files");
+print("LD_LIBRARY_PATH is $ENV{LD_LIBRARY_PATH}\n");#temporary debug printout
+print("$ENV{TTCN3_DIR}/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest @files\n");
system( "\$TTCN3_DIR/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest -o Makefile.1 @files");
map { s!.+/!!g } @files;
# Generate the makefile
-print("$ENV{TTCN3_DIR}/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest @files");
+print("$ENV{TTCN3_DIR}/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest @files\n");
system( "\$TTCN3_DIR/bin/ttcn3_makefilegen -gs $split $rt2 -e XmlTest -o Makefile.1 @files");