home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTTSPAR1.DMS / in.adf / LWMmacros / GetTarget.lwm < prev    next >
Encoding:
Text File  |  2012-12-18  |  786 b   |  44 lines
  1. /* Get a SPARKS target file and put it on the current layer 
  2.  */
  3.  
  4. NUMERIC DIGITS 6
  5. call addlib "LWModelerARexx.port", 0
  6. signal on error
  7. signal on syntax
  8. call addlib "rexxsupport.library", 0, -30, 0
  9. MATHLIB="rexxmathlib.library"
  10. IF POS(MATHLIB , SHOW('L')) = 0 THEN
  11.   IF ~ADDLIB(MATHLIB , 0 , -30 , 0) THEN DO
  12.    call notify(1,"!Can't find "MATHLIB)
  13.    exit
  14.    END
  15. file="t:target"
  16.  
  17. If Exists(file)=0 then do
  18.    call notify(1,"!There is no SPARKS target file")
  19.    exit
  20.    END
  21. i=1
  22.  
  23.  
  24. If(~open(state,file,'R')) then break
  25.     do forever
  26.     If EOF(state) = 1 then leave
  27.     target.i = Readln(state)
  28.     i=i+1
  29. end
  30.  
  31. call add_begin()
  32. do j=1 to i-2
  33.     call add_point( target.j )
  34. end
  35. call add_end()
  36. exit
  37.  
  38. syntax:
  39. error:
  40.    t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
  41.    exit
  42.  
  43.  
  44.