home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GGETALIA.PRG < prev    next >
Encoding:
Text File  |  1991-05-09  |  389 b   |  16 lines
  1. /*
  2.     Function: GGetAlias()
  3.     Purpose:  Return alias name associated with a particular GET
  4.     Author:   Greg Lief
  5.     Dialect:  Clipper 5.x
  6.     Copyright (c) 1991 Greg Lief
  7. */
  8. function ggetalias(target)
  9. local oget, ret_val := ''
  10. if ( oget := gfindget(target) ) != NIL
  11.    ret_val := substr(oget:name, 1, at('->', oget:name) - 1)
  12. endif
  13. return ret_val
  14.  
  15. * eoef GGETALIA.PRG
  16.