Changes in ASN extraction PERL script

openair2/RRC/NR/MESSAGES/asn1c/ASN1_files/extract_asn1_from_spce.pl

@@ -27,8 +27,7 @@ while (<INPUT_FILE>) {
     syswrite OUTPUT_FILE,"END\n\n";
 
 	  while(<INPUT_FILE>) {
-  	  if( m/NR-UE-Variables DEFINITIONS AUTOMATIC TAGS ::=/){
-         
+      if( m/PC5-RRC-Definitions DEFINITIONS AUTOMATIC TAGS ::=/){
         syswrite OUTPUT_FILE,"$_ \n";
         syswrite OUTPUT_FILE,"BEGIN\n\n";
 
@@ -38,8 +37,15 @@ while (<INPUT_FILE>) {
         syswrite OUTPUT_FILE,"END\n\n";
           
         while(<INPUT_FILE>) {
-                  if( m/NR-InterNodeDefinitions DEFINITIONS AUTOMATIC TAGS ::=/){
+          if( m/NR-UE-Variables DEFINITIONS AUTOMATIC TAGS ::=/){
+            syswrite OUTPUT_FILE,"$_ \n";
+            syswrite OUTPUT_FILE,"BEGIN\n\n";
 
+            # Get all the text delimited by -- ASN1START and -- ASN1STOP
+            extract_asn1();
+            syswrite OUTPUT_FILE,"END\n\n";
+            while(<INPUT_FILE>) {
+              if( m/NR-Sidelink-Preconf DEFINITIONS AUTOMATIC TAGS ::=/){
                 syswrite OUTPUT_FILE,"$_ \n";
                 syswrite OUTPUT_FILE,"BEGIN\n\n";
 
@@ -47,17 +53,25 @@ while (<INPUT_FILE>) {
                 extract_asn1();
 
                 syswrite OUTPUT_FILE,"END\n\n";
+                while(<INPUT_FILE>) {
+                  if( m/NR-InterNodeDefinitions DEFINITIONS AUTOMATIC TAGS ::=/){
+                    syswrite OUTPUT_FILE,"$_ \n";
+                    syswrite OUTPUT_FILE,"BEGIN\n\n";
+
+                    # Get all the text delimited by -- ASN1START and -- ASN1STOP
+                    extract_asn1();
 
+                    syswrite OUTPUT_FILE,"END\n\n";
+                  }
+                }
+              }
+            }
           }
         }
-
 	    }
     }
-
     close(OUTPUT_FILE);
   }
-
-
 }
 
 close(INPUT_FILE);