home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / dirdemo.zip / FULLPATH.CLA < prev    next >
Text File  |  1990-03-21  |  595b  |  22 lines
  1.          MEMBER()                 !FULLPATH.CLA
  2.  
  3. FULL_PATH    FUNCTION( BASE, ADD_ON )
  4.  
  5. BASE         STRING(60)
  6. ADD_ON         STRING(60)
  7. RET_STRING   STRING(60)
  8.  
  9.   CODE
  10.  
  11.     IF SUB(ADD_ON, 1, 1) <> '\'             !MAKE SURE NOT PRECEDING \
  12.       ADD_ON = '\' & ADD_ON             ! AND ADD
  13.     .    ! END IF SUB(ADD_ON, 1, 1) <> '\'
  14.  
  15.     IF SUB( CLIP(BASE), -1, 1 ) = '\'                 !IF TRAILING \
  16.       RET_STRING = SUB( BASE, 1, LEN(CLIP(BASE)) -1 ) & ADD_ON     ! STRIP IT OFF
  17.     ELSE                             !ELSE
  18.       RET_STRING = CLIP(BASE) & ADD_ON                 !CONCANT
  19.     .    ! END IF SUB( CLIP(BASE), -1, 1 ) = '\'
  20.  
  21.     RETURN(RET_STRING)
  22.