Andi Jahja 28-05-1999

harbour/ChangeLog

@@ -1,3 +1,10 @@
+19990528-23:15 WIB Andi Jahja <andij@aonlippo.co.id>
+  * source/tools/hb_f.c
+    - add hb_fselect
+
+  + tests/working/testsel.prg
+    test program for hb_fselect()
+
 19990529-10:11 EST Les Griffith
   * added both builddos.bat and makefile.dos for djgpp dos enviroment
 

harbour/source/tools/hb_f.c

@@ -1,3 +1,4 @@
+
 /*
 nanforum ft_f*() clones
 * hb_fuse
@@ -285,3 +286,15 @@ HARBOUR hb_flastrec( void )
    offset[area] = old_offset;
 
 }
+
+
+HARBOUR hb_fselect( void )
+
+{
+
+   _retni( area + 1 );
+
+   if ( ISNUM(1) )
+      area = _parni(1) - 1;
+
+}