[q-lang-cvs] q-audio/src audio_player.q,1.2,1.3

[<ag...@us...>]

Update of /cvsroot/q-lang/q-audio/src
In directory sc8-pr-cvs1:/tmp/cvs-serv20527

Modified Files:
	audio_player.q 
Log Message:
shorten long filesnames in display

Index: audio_player.q
===================================================================
RCS file: /cvsroot/q-lang/q-audio/src/audio_player.q,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** audio_player.q	23 Dec 2003 01:20:48 -0000	1.2
--- audio_player.q	4 Jan 2004 08:41:26 -0000	1.3
***************
*** 242,246 ****
  
  show_name VIS NAME	= ggi_set_foreground VIS FORE ||
! 			  ggi_puts VIS (100,5) NAME;
  
  /* Main program to be invoked from the shell. */
--- 242,254 ----
  
  show_name VIS NAME	= ggi_set_foreground VIS FORE ||
! 			  ggi_puts VIS (100,5) (shorten NAME);
! 
! def MAXLEN = 30, DELIM = ifelse (pos "mingw" sysinfo >= 0) "/\\" "/";
! 
! shorten NAME		= NAME if #NAME <= MAXLEN;
! 			= ifelse (null SUFF) (last PARTS) (".../" ++ last SUFF)
!   where PARTS = split DELIM NAME,
!     SUFF = scan1 (lambda X (lambda Y (Y++"/"++X))) (reverse PARTS),
!     SUFF = takewhile (compose (<=MAXLEN-4) (#)) SUFF;
  
  /* Main program to be invoked from the shell. */