| 773 | //////////////////////////////////////////////////////////////////// |
| 774 | |
| 775 | TSFile |
| 776 | TSfopen(const char *filename, const char *mode) |
| 777 | { |
| 778 | FileImpl *file; |
| 779 | |
| 780 | file = new FileImpl; |
| 781 | if (!file->fopen(filename, mode)) { |
| 782 | delete file; |
| 783 | return nullptr; |
| 784 | } |
| 785 | |
| 786 | return reinterpret_cast<TSFile>(file); |
| 787 | } |
| 788 | |
| 789 | void |
| 790 | TSfclose(TSFile filep) |