Add command to show current sequence

Command 'Z' displays the current sequence in the status line.

Signed-off-by: Claudio Matsuoka <cmatsuoka@gmail.com>

README

@@ -35,8 +35,9 @@ The following single key commands can be used during the playback:
           1 to 0      =>  mute/unmute channels 1 to 10
             !         =>  unmute all channels
             ?         =>  display available commands
-            l         =>  toggle loop mode
+            Z         =>  display current sequence
             z         =>  toggle subsong explorer mode
+            l         =>  toggle loop mode
             m         =>  display module information
             i         =>  display combined instrument/sample list
             I         =>  display instrument list

src/commands.c

@@ -184,6 +184,9 @@ void read_command(xmp_context handle, struct xmp_module_info *mi, struct control
 	case 'l':
 		ctl->loop ^= 1;
 		break;
+	case 'Z':
+		ctl->cur_seq = 1;
+		break;
 	case 'z':
 		ctl->explore ^= 1;
 		break;

src/common.h

@@ -42,6 +42,7 @@ struct control {
 	int display;		/* Info display flag */
 	int sequence;		/* Current sequence */
 	int explore;		/* Play all sequences */
+	int cur_seq;		/* Display current sequence */
 };
 
 

src/info.c

@@ -27,8 +27,9 @@ void info_help(void)
 "    1 - 0       Mute/unmute channels\n"
 "      !         Unmute all channels\n"
 "      ?         Display available commands\n"
-"      l         Toggle loop mode\n"
+"      Z         Display current sequence\n"
 "      z         Toggle subsong explorer mode\n"
+"      l         Toggle loop mode\n"
 "      m         Display module information\n"
 "      i         Display combined instrument/sample list\n"
 "      I         Display instrument list\n"

src/main.c

@@ -424,6 +424,11 @@ int main(int argc, char **argv)
 						control.display = 0;
 						refresh_status = 1;
 					}
+
+					if (control.cur_seq) {
+						info_message("Current sequence: %d (start at position %02X)", control.sequence, mi.seq_data[control.sequence].entry_point);
+						control.cur_seq = 0;
+					}
 				}
 
 				if (opt.max_time > 0 &&

src/xmp.1

@@ -200,10 +200,12 @@ Mute/unmute channels 1 to 10\&.
 Unmute all channels\&.
 .IP "\fB?\fP" 
 Display available commands\&.
-.IP "\fBl\fP" 
-Toggle module/sequence looping\&.
+.IP "\fBZ\fP" 
+Display current sequence\&.
 .IP "\fBz\fP" 
 Toggle subsong explorer mode\&.
+.IP "\fBl\fP" 
+Toggle module/sequence looping\&.
 .IP "\fBm\fP" 
 Display module information\&.
 .IP "\fBi\fP"