home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 308.lha / treewalk / mginsert.ftw < prev    next >
Encoding:
Text File  |  1980-12-05  |  918 b   |  27 lines
  1. /*
  2.  * treewalk macro to insert the file name found into an mg buffer.
  3.  *
  4.  *    Copyright (C) 1989  Mike Meyer
  5.  *
  6.  *    This program is free software; you can redistribute it and/or modify
  7.  *    it under the terms of the GNU General Public License as published by
  8.  *    the Free Software Foundation; either version 1, or any later version.
  9.  *
  10.  *    This program is distributed in the hope that it will be useful,
  11.  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.  *    GNU General Public License for more details.
  14.  *
  15.  *    You should have received a copy of the GNU General Public License
  16.  *    along with this program; if not, write to the Free Software
  17.  *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  */
  19. if ~show('Ports', 'mg') then do
  20.     address command
  21.     'run mg'
  22.     'waitforport mg'
  23.     end
  24.  
  25. address 'mg' 'rexx-insert "'arg(1) || arg(2)'\n"'
  26. return 1
  27.