home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l075 / 1.ddi / WHEREIS.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-05  |  7.4 KB  |  138 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│                             WHEREIS.BAS                                   │
  3. '│                             VERSION 4.0                                   │
  4. '│                                                                           │
  5. '│                   Turbo Basic                     │
  6. '│        (C) Copyright 1988 by Borland International             │
  7. '│                                                                           │
  8. '│                                                                           │
  9. '│ System Requirements:                                                      │
  10. '│   - DOS Version 2.0 or later                                              │
  11. '│   - 320K                                                                  │
  12. '│                                                                           │
  13. '│   This  program is a  utility that  will perform a search  for a file or  │
  14. '│ group of files that the user specifies.  The program is designed to dem-  │
  15. '│ onstrate a couple of features that are unique to Turbo Basic. One of the  │
  16. '│ features is a  concept called "recursion."  To put it briefly, recursion  │
  17. '│ means  that a procedure  or function  may call  itself!  The other Turbo  │
  18. '│ Basic feature that  WHEREIS demonstrates is  INLINE  procedures.  INLINE  │
  19. '│ procedures are Turbo Basic's method    of providing an interface to assem-  │
  20. '│ bler language routines.  If you are interested in using routines written  │
  21. '│ in assembly language,  we suggest that you  read Appendix C of the Turbo  │
  22. '│ Basic  manual and study this program as an example.                       │
  23. '│                                                                           │
  24. '│   In order to use this program do the following:                          │
  25. '│                                                                           │
  26. '│     1) Using the MicroSoft Assembler(MASM.EXE), linker(LINK.EXE) and      │
  27. '│        conversion program(EXE2BIN.EXE) compile and link the files:        │
  28. '│          SETDTA.ASM                                                       │
  29. '│          GETDTA.ASM                                                       │
  30. '│          GETDIR.ASM                                                       │
  31. '│          GETDRIVE.ASM                                                     │
  32. '│        In order to compile them use the following commands:               │
  33. '│          A:>MASM filename;     - creates a .OBJ file                      │
  34. '│          A:>LINK filename;     - creates a .EXE file                      │
  35. '│          A:>EXE2BIN filename   - creates the .BIN file used by WHEREIS    │
  36. '│                                                                           │
  37. '│     2) Load WHEREIS.BAS into Turbo Basic and compile it to a .EXE file:   │
  38. '│          a) At the DOS prompt type:                                       │
  39. '│              A:>TB                                                        │
  40. '│          b) In the File pulldown menu select the Main file option and     │
  41. '│             enter WHEREIS as the main file.                               │
  42. '│          c) Specify that you want to compile to a .EXE file in the          │
  43. '│             OPTIONS pulldown menu under Compile to.                 │
  44. '│          c) Compile the program by selecting Compile from the Main Menu   │
  45. '│                                                                           │
  46. '│     3) Exit Turbo Basic and at the DOS prompt type:                       │
  47. '│          A:>WHEREIS filespec                                              │
  48. '│        where filespec is the name of the file you want to look for.       │
  49. '│        Note that you may use any legal DOS filename including wildcards   │
  50. '│        like ? and * and drive names like A or C. An example might be:     │
  51. '│          A:>WHEREIS C:\TB\*.BAS                                           │
  52. '│                                                                           │
  53. '│                                                                           │
  54. '│   If  you would  like more  technical information about how this program  │
  55. '│ works, we suggest the following sources:                                  │
  56. '│                                                                           │
  57. '│   Programmer's Guide to the IBM-PC - Published by MicroSoft Press         │
  58. '│   Advanced MS-DOS                  - Published by MicroSoft Press         │
  59. '│   DOS Technical Reference Manual   - Published by IBM                     │
  60. '│                                                                           │
  61. '└───────────────────────────────────────────────────────────────────────────┘
  62.  
  63.  
  64. $STACK 32767    ' set up plenty of stack space since this is a recursive
  65.         ' program
  66.  
  67. ' named constant declarations
  68. %DOSPathLength = 64        ' maximum length for DOS path
  69. %True           = -1        ' boolean flag
  70. %False           = 00        ' boolean flag
  71. %DTASize       = 43        ' size of DOS Data Transfer Area
  72. %FileNameOfs   = 31        ' offset into DTA of file name
  73. %FileNameLen   = 12        ' length of DOS file name
  74. %DosCall       = &H21        ' DOS Function call
  75. %Directory     = &H10        ' attribute for DOS sub-directory
  76.  
  77.  
  78.  
  79. '┌───────────────────────────── MAIN PROGRAM ────────────────────────────────┐
  80.  
  81.   CLS
  82.   CALL Initialize            ' initialize global data
  83.   CALL GetFileName(Path$, FileSpec$)    ' get file spec. and starting path
  84.   CALL FindFiles(FNStripWhiteSpace$(Path$), FileSpec$) ' do recursive search
  85.   CALL ByeBye                ' call exit routine
  86.  
  87. '└───────────────────────────────────────────────────────────────────────────┘
  88.  
  89.  
  90. $INCLUDE "REGNAMES.INC" ' named constant definitions for register handling
  91. $INCLUDE "WHEREIS.INC"    ' include file of routines to get input from the
  92.             ' user and search for the files
  93.  
  94. SUB Initialize
  95. ' This procedure saves the current drive and directory since we want the
  96. ' program to return to that place when it is done searching. This routine
  97. ' also stores the address of the current Data Transfer Area. We must do this
  98. ' because if we don't restore the address of the Data Transfer Area, other
  99. ' programs may not be able to do file I/O. Finally, we set up a couple of
  100. ' key board event traps so the user can pause or break the program while
  101. ' it is executing.
  102.  
  103.   SHARED OldDTASegment%, OldDTAOffset%, FileMask$, HomeDirectory$
  104.   LOCAL Drive%
  105.  
  106.   HomeDirectory$ = SPACE$(%DOSPathLength)    ' allocate space for path
  107.   CALL GetDrive(Drive%)                ' get the current drive
  108.   CALL GetDir(0%, HomeDirectory$)        ' get the current directory
  109.  
  110.   ' save the current Drive\Directory in HomeDirectory$
  111.   HomeDirectory$ = CHR$(Drive% + &H41) + ":\" + HomeDirectory$
  112.  
  113.   CALL GetDTA(OldDTASegment%, OldDTAOffset%)    ' save the current DTA address
  114.  
  115.   FileMask$ = "????????.???" + CHR$(0)    ' create mask for DOS directory
  116.                     ' searching
  117. END SUB ' procedure Initialize
  118.  
  119.  
  120. SUB ByeBye
  121. ' This procedure is the route by which the program is always terminated.
  122. ' Upon termination of the program we must restore the original drive\
  123. ' directory and we must restore the original Disk Transfer Area.
  124.  
  125.   SHARED OldDTASegment%, OldDTAOffset%, HomeDirectory$
  126.  
  127.   CALL ChangeDir(HomeDirectory$)    ' change back to original directory
  128.  
  129.   CALL SetDTA(OldDTASegment%, OldDTAOffset%, "") ' restore original DTA
  130.  
  131.   ' tell user we're done
  132.   LOCATE 24,1 : PRINT SPACE$(80); : LOCATE 24,1 : PRINT "Search complete!";
  133.   BEEP
  134.  
  135.   END            ' terminate execution
  136.  
  137. END SUB ' procedure ByeBye
  138.