home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / P4⁄Mac 1.0 / Mac source / Changes for P4⁄Mac < prev    next >
Encoding:
Text File  |  1994-07-28  |  1.6 KB  |  30 lines  |  [TEXT/PJMM]
  1. {P4 for the Mac: P4Mac}
  2. {}
  3. {Changes to make it work under Think Pascal:}
  4. {Ingemar Ragnemalm july 1994}
  5. {}
  6. {}
  7. {pcom:}
  8. {- All variables or routines named "string" are changed. Variables to theString. The function string is now isString.}
  9. {- Cut apart to four part. The unit "block.p" is still too large to compile with debug on. :-( Most sub-procedures to}
  10. {block() was lifted out to the unit block1.p. Many of those procedures got an extra parameter fsys, which is a}
  11. {parameter to block.}
  12. {*** pcom would benefit a lot if block.p could be cut apart to two units, so we could turn debug on!!! ***}
  13. {}
  14. {pint:}
  15. {- Two large arrays (code and store) are allocated dynamically (to get under the 32k limit on global variables.).}
  16. {- The type "beta" was changed from packed array to a "string", to allow error messages to be smaller}
  17. {than the array.}
  18. {- getname used "pack", which Think Pascal doesn't understand. This was fixed by copying char by char.}
  19. {- In the main procedure, commented out:}
  20. {store^[inputadr].vc := input^; - caused the interpreter to stop and wait for input}
  21. {store^[prdadr].vc := prd^; - caused an unexpected end of file error}
  22. {- The "prr" file is not rewritten until it i needed. This saves us irritating empty files appearing all over}
  23. {the place, as well as unnecessary file dialogs.}
  24. {}
  25. {Both: Use OldFileName and NewFilName to prompt for input and output files. Also checks with the Segment Loader}
  26. {for drag-and-dropped files. This might break the day Apple decides that all drag-and-drop must be done by Apple}
  27. {Events, but let's not worry until then.}
  28. {}
  29. {}
  30. {/Ingemar}