home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / moremodules / rexxc / rexxcsupport.e < prev    next >
Text File  |  1977-12-31  |  555b  |  35 lines
  1. ->
  2. ->    rexxCSupport.e
  3. ->
  4. ->    29-Jul-95
  5. ->
  6.  
  7. OPT MODULE, REG = 5
  8.  
  9. CONST    TEMP_STR_LENGTH    = 12    -> should be enough for any number
  10.  
  11.  
  12. ->
  13. ->
  14. ->
  15. EXPORT PROC longToStr( long )
  16.     DEF    temp_str_ptr
  17.  
  18.     temp_str_ptr := String( TEMP_STR_LENGTH )
  19.  
  20. ENDPROC StringF( temp_str_ptr, '\d', long )
  21.  
  22. -> ---------------------------------------------------------------
  23.  
  24. ->
  25. ->
  26. ->
  27. EXPORT PROC charToStr( char )
  28.     DEF    temp_str_ptr
  29.  
  30.     temp_str_ptr := String( TEMP_STR_LENGTH )
  31.  
  32. ENDPROC StringF( temp_str_ptr, '\c', char )
  33.  
  34. -> ---------------------------------------------------------------
  35.