home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / cpmsd.arc / CPMSD.C next >
Text File  |  2019-04-13  |  8KB  |  327 lines
  1. /*
  2. ** CPMSD.C - FILTER ├ LANGUAGE SOURCE
  3. **           FILE TO/FROM C-POWER AND
  4. **           MS-DOS
  5. **
  6. ** THIS SOURCE FILE CONTAINS SOME
  7. ** CHANGES TO THE MS-DOS VERSION TO
  8. ** ACCOMMODATE C-POWER PECULIARITIES
  9. ** IE. - 'UNSIGNED'S RATHER THAN 'INT'S
  10. **     - USE OF PRINTF() RATHER THAN
  11. **       PUTS() WHICH IS MORE EFFICIENT
  12. **       WITHIN THE SHELL
  13. **     - FILE SIZE ASSUMED TO BE UNDER 
  14. **       65535 BYTES
  15. **     - SPECIFIC DECLARATION OF 'AUTO'
  16. **       STORAGE WHEN POINTERS ARE TO BE
  17. **       PASSED DUE TO THE WAY C-POWER
  18. **       USES THE 65XX'S ZERO PAGE
  19. **
  20. ** MAR88 BEN PEDERSEN SYSOP C-POWER BBS
  21. ** FEB90 MINOR UPDATES BEN PEDERSEN
  22. **
  23. ** NOTE: ORIGINAL C-POWER LIBRARY 
  24. ** FREAD() AND FWRITE() CONTAIN A BUG.
  25. ** THEY DO NOT RETURN THE NUMBER OF
  26. ** ELEMENTS READ OR WRITTEN IF FEWER ARE
  27. ** AVAILABLE THAN ARE SPECIFIED -- THEY
  28. ** RETURN ZERO INSTEAD OF THE ACTUAL 
  29. ** NUMBER READ OR WRITTEN WHICH IS 
  30. ** NON-STANDARD. THIS PROGRAM REQUIRES
  31. ** THE CORRECTED VERSIONS TO FUNCTION
  32. ** PROPERLY. OBTAIN UPDATED FREAD() AND
  33. ** FWRITE() OR FIX THE OLD ONES YOURSELF
  34. ** USING ═ARK ╥INFRET'S ╥┴ (╥EVERSE 
  35. ** ┴SSEMBLER) AND ├┴╙╙═ (├ ┴SSEMBLER).
  36. **
  37. ** ╠EARNING ┼XPERIENCE ┬┬╙ 416-665-3263
  38. **                         ╟╘ ╬ODE 053/012
  39. */
  40.  
  41. #INCLUDE <STDIO.H>
  42.  
  43. /* C-POWER TO MS-DOS OUTPUT BUFFER MUST
  44.    BE BIGGER DUE TO LINE-FEED INSERTION */
  45. #DEFINE ╧╒╘╙╔┌┼  32 * 254   /* BLOCK SIZE OF OUTPUT FILE BUFFER */
  46. #DEFINE ╔╬╙╔┌┼   28 * 254   /* BLOCK SIZE OF INPUT FILE BUFFER */
  47.  
  48. /* ├╘╠-┌ CHAR USED FOR MS-DOS END-OF-FILE
  49.    AND FOR PADDING THE FINAL BLOCK OF
  50.    XMODEM TRANSFERS BUT ISN'T USED ON ├┬═
  51.    SYSTEMS SO THEY'RE STRIPPED IN MSDTOCP() */
  52. #DEFINE ├╘╠ñ┌   0X001A
  53.  
  54. /* PROGRAM STATUS CODES */
  55. #DEFINE ╧╦┴┘    0
  56. #DEFINE ╘┼╥═╔╬  1
  57. #DEFINE ╔╬┬╒╞╞  2
  58. #DEFINE ╧╒╘┬╒╞  3
  59. #DEFINE ╔╬╞╔╠┼  4
  60. #DEFINE ╧╒╘╞╔╠  5
  61. #DEFINE ╥┼┴─╔╬  6
  62. #DEFINE ╫╥╘╧╒╘  7
  63. #DEFINE ╞╔╬╔╙╚  8
  64.  
  65. /* PROGRAM STATUS MESSAGES */
  66. CHAR *S[] = █
  67.  "",
  68.  " USER TERMINATED",
  69.  " ERROR ALLOCATING INPUT BUFFER",
  70.  " ERROR ALLOCATING OUTPUT BUFFER",
  71.  " ERROR OPENING INPUT FILE",
  72.  " ERROR OPENING OUTPUT FILE",
  73.  " ERROR READING INPUT FILE",
  74.  " ERROR WRITING OUTPUT FILE",
  75.  " FILE TRANSLATION COMPLETE"
  76. ▌;
  77.  
  78. CHAR *MALLOC();
  79. UNSIGNED CPTOMSD(), MSDTOCP(); /* TRANSLATION FUNCTIONS */
  80.  
  81. ╞╔╠┼ INñFN, OUTñFN;            /* FILE NUMBERS */
  82. CHAR *INñBUF, *OUTñBUF;        /* DATA BUFFER POINTERS */
  83.  
  84. MAIN()
  85. █
  86.  AUTO UNSIGNED TOTALñIN, TOTALñOUT;  /* DATA BYTE TOTALS */
  87.  AUTO UNSIGNED (*FUNCñPTR)();   /* POINTER TO TRANSLATION OPTION FUNCTION */
  88.  CHAR INñFIL[17],OUTñFIL[17];   /* FILE NAME BUFFERS */
  89.  UNSIGNED STATUS;               /* FUNCTION ERROR STATUS */
  90.  
  91.  TOTALñIN = TOTALñOUT = 0;
  92.  
  93.  /* GET OPTION FROM USER */
  94.  IF(STATUS = GETñOPT(&FUNCñPTR))
  95.   EXSTAT(STATUS);
  96.  
  97.  /* ALLOCATE BUFFERS */
  98.  IF(STATUS = MAKEñBUFFS())
  99.   EXSTAT(STATUS);
  100.  
  101.  /* GET AN INPUT FILE */
  102.  IF(STATUS = GETñINFILE(INñFIL))
  103.   EXSTAT(STATUS);
  104.  
  105.  /* GET AN OUTPUT FILE */
  106.  IF(STATUS = GETñOUTFILE(OUTñFIL))
  107.   EXSTAT(STATUS);
  108.  
  109.  /* DO FILE TRANSLATION */
  110.  DO █
  111.   IF(STATUS = TRANSFILE(&TOTALñIN, &TOTALñOUT, FUNCñPTR))
  112.    EXSTAT(STATUS);
  113.  ▌ WHILE(!FEOF(INñFN));
  114.  
  115.  PRINTF("\N %-16S: %U BYTES\N %-16S: %U BYTES\N", INñFIL, TOTALñIN, OUTñFIL, TOTALñOUT);
  116.  
  117.  /* BYE! */
  118.  EXSTAT(╞╔╬╔╙╚);
  119. ▌
  120.  
  121. /* ALLOCATE DATA BUFFERS */
  122. MAKEñBUFFS()
  123. █
  124.  /* ALLOCATE ╔╬╙╔┌┼ INPUT BUFFER */
  125.  IF((INñBUF = (CHAR *)MALLOC(╔╬╙╔┌┼ * SIZEOF(CHAR))) == ╬╒╠╠)
  126.   RETURN(╔╬┬╒╞╞);
  127.  
  128.  /* ALLOCATE ╧╒╘╙╔┌┼ OUTPUT BUFFER */
  129.  /* C-POWER TO MS-DOS OUTPUT FILE WILL BE BIGGER DUE TO INSERTED LINE-FEEDS */
  130.  IF((OUTñBUF = (CHAR *)MALLOC(╧╒╘╙╔┌┼ * SIZEOF(CHAR))) == ╬╒╠╠)
  131.   RETURN(╧╒╘┬╒╞);
  132.  
  133.  RETURN(╧╦┴┘);
  134. ▌
  135.  
  136. /* GET AN INPUT FILE */
  137. GETñINFILE(INñFIL)
  138. CHAR *INñFIL;
  139. █
  140.  /* GET PATH TO INPUT FILE */
  141.  PRINTF("\N INPUT FILE : ");
  142.  SCANF("%16S", INñFIL);
  143.  
  144.  /* OPEN INPUT FILE */
  145.  IF((INñFN = FOPEN(INñFIL, "R")) == ╬╒╠╠ ▀▀ FERROR(INñFN))
  146.   RETURN(╔╬╞╔╠┼);
  147.  ELSE RETURN(╧╦┴┘);
  148. ▌
  149.  
  150. /* GET AN OUTPUT FILE */
  151. GETñOUTFILE(OUTñFIL)
  152. CHAR *OUTñFIL;
  153. █
  154.  /* GET PATH TO OUTPUT FILE */
  155.  PRINTF(" OUTPUT FILE: ");
  156.  SCANF("%16S", OUTñFIL);
  157.  
  158.  /* OPEN OUTPUT FILE */
  159.  IF((OUTñFN = FOPEN(OUTñFIL, "W")) == ╬╒╠╠ ▀▀ FERROR(OUTñFN))
  160.   RETURN(╧╒╘╞╔╠);
  161.  ELSE RETURN(╧╦┴┘);
  162. ▌
  163.  
  164. /* DO FILE TRANSLATION */
  165. TRANSFILE(TOTñIN, TOTñOUT, FñPTR)
  166. UNSIGNED *TOTñIN, *TOTñOUT;
  167. UNSIGNED (*FñPTR)();
  168. █
  169.  AUTO UNSIGNED INBYTES;
  170.  UNSIGNED OUTBYTES, STATUS;
  171.  
  172.  IF(STATUS = DATAñIN(&INBYTES))
  173.   RETURN(STATUS);
  174.  *TOTñIN += INBYTES;
  175.  OUTBYTES = (*FñPTR)(INBYTES);
  176.  *TOTñOUT += OUTBYTES;
  177.  IF(STATUS = DATAñOUT(OUTBYTES))
  178.   RETURN(STATUS);
  179.  RETURN(╧╦┴┘);
  180. ▌
  181.  
  182. /* DO MS-DOS TO C-POWER DATA TRANSLATION */
  183. UNSIGNED MSDTOCP(INBYTES)
  184. UNSIGNED INBYTES;
  185. █
  186.  UNSIGNED OUTBYTES;
  187.  CHAR *INñPTR, *OUTñPTR;
  188.  
  189.  INñPTR = INñBUF;
  190.  OUTñPTR = OUTñBUF;
  191.  
  192.  FOR(OUTBYTES = 0; INñPTR <= INñBUF + INBYTES; INñPTR++, OUTñPTR++, OUTBYTES++) █
  193.   IF(*INñPTR == ├╘╠ñ┌) BREAK;                    /* STRIP ├╘╠-┌ CHARS */
  194.   ELSE IF(*INñPTR >= 0X0041 && *INñPTR <= 0X005A)
  195.    *OUTñPTR = *INñPTR + 0X0080;                  /* UPPER CASE */
  196.   ELSE IF(*INñPTR >= 0X0061 && *INñPTR <= 0X007A)
  197.    *OUTñPTR = *INñPTR - 0X0020;                  /* LOWER CASE */
  198.   ELSE IF(*INñPTR == 0X005F) *OUTñPTR = 0X00A4;  /* UNDERSCORE */
  199.   ELSE IF(*INñPTR == 0X007E) *OUTñPTR = 0X00AF;  /* TILDE */
  200.   ELSE IF(*INñPTR == 0X007B) *OUTñPTR = 0X00DB;  /* LEFT BRACE */
  201.   ELSE IF(*INñPTR == 0X007D) *OUTñPTR = 0X00DD;  /* RIGHT BRACE */
  202.   ELSE IF(*INñPTR == 0X007C) *OUTñPTR = 0X00DF;  /* VERTICAL BAR */
  203.   ELSE IF(*INñPTR == 0X0009) *OUTñPTR = 0X0020;  /* TAB TO SPACE */
  204.   ELSE IF(*INñPTR == 0X000A) █                   /* STRIP LINE FEEDS */
  205.    --OUTñPTR;
  206.    --OUTBYTES;
  207.   ▌
  208.   ELSE *OUTñPTR = *INñPTR;                       /* NO TRANSLATION */
  209.  ▌
  210.  RETURN(--OUTBYTES);
  211. ▌
  212.  
  213. /* DO C-POWER TO MS-DOS DATA TRANSLATION */
  214. UNSIGNED CPTOMSD(INBYTES)
  215. UNSIGNED INBYTES;
  216. █
  217.  UNSIGNED OUTBYTES;
  218.  CHAR *INñPTR, *OUTñPTR;
  219.  
  220.  INñPTR = INñBUF;
  221.  OUTñPTR = OUTñBUF;
  222.  
  223.  FOR(OUTBYTES = 0; INñPTR <= INñBUF + INBYTES; INñPTR++, OUTñPTR++, OUTBYTES++) █
  224.   IF(*INñPTR >= 0X00C1 && *INñPTR <= 0X00DA)
  225.    *OUTñPTR = *INñPTR - 0X0080;                  /* UPPER CASE */
  226.   ELSE IF(*INñPTR >= 0X0041 && *INñPTR <= 0X005A)
  227.    *OUTñPTR = *INñPTR + 0X0020;                  /* LOWER CASE */
  228.   ELSE IF(*INñPTR == 0X00A4) *OUTñPTR = 0X005F;  /* UNDERSCORE */
  229.   ELSE IF(*INñPTR == 0X00AF) *OUTñPTR = 0X007A;  /* TILDE */
  230.   ELSE IF(*INñPTR == 0X00DB) *OUTñPTR = 0X007B;  /* LEFT BRACE */
  231.   ELSE IF(*INñPTR == 0X00DD) *OUTñPTR = 0X007D;  /* RIGHT BRACE */
  232.   ELSE IF(*INñPTR == 0X00DF) *OUTñPTR = 0X007C;  /* VERTICAL BAR */
  233.   ELSE IF(*INñPTR == 0X000D) █                   /* ADD LINE-FEEDS */
  234.    *OUTñPTR = *INñPTR;
  235.    ++OUTñPTR;
  236.    *OUTñPTR = 0X000A;
  237.    ++OUTBYTES;
  238.   ▌
  239.   ELSE *OUTñPTR = *INñPTR;                       /* NO TRANSLATION */
  240.  ▌
  241.  RETURN(--OUTBYTES);
  242. ▌
  243.  
  244. /* GET DATA TRANSLATE OPTION */
  245. GETñOPT(FñPTR)
  246. UNSIGNED (**FñPTR)();
  247. █
  248.  PRINTF("\N C-POWER <=> MS-DOS FILE TRANSLATION\N MAR88  BEN PEDERSEN\N");
  249.  PRINTF("\N 1) C-POWER TO MS-DOS\N 2) MS-DOS TO C-POWER\N 3) QUIT\N\N OPTION: ");
  250.  
  251.  
  252.  SWITCH(GETCHAR()) █
  253.   CASE '1':
  254.    PRINTF("\N C-POWER TO MS-DOS\N");
  255.    *FñPTR = CPTOMSD;
  256.    RETURN(╧╦┴┘);
  257.    BREAK;
  258.   CASE '2':
  259.    PRINTF("\N MS-DOS TO C-POWER\N");
  260.    *FñPTR = MSDTOCP;
  261.    RETURN(╧╦┴┘);
  262.    BREAK;
  263.   CASE '3':
  264.   DEFAULT:
  265.    RETURN(╘┼╥═╔╬);
  266.    BREAK;
  267.  ▌
  268. ▌
  269.  
  270. /* READ DATA TO INPUT BUFFER */
  271. DATAñIN(INBYTES)
  272. UNSIGNED *INBYTES;
  273. █
  274.  
  275.  *INBYTES = FREAD(INñBUF, SIZEOF(CHAR), ╔╬╙╔┌┼, INñFN);
  276.  IF(FERROR(INñFN)) RETURN(╥┼┴─╔╬);
  277.  RETURN(╧╦┴┘);
  278. ▌
  279.  
  280. /* WRITE DATA TO OUTPUT FILE */
  281. DATAñOUT(OUTBYTES)
  282. UNSIGNED OUTBYTES;
  283. █
  284.  IF((FWRITE(OUTñBUF, SIZEOF(CHAR), OUTBYTES, OUTñFN) != OUTBYTES) ▀▀ FERROR(OUTñFN))
  285.   RETURN(╫╥╘╧╒╘);
  286.  ELSE RETURN(╧╦┴┘);
  287. ▌
  288.  
  289. /* EXIT FROM PROGRAM */
  290. EXSTAT(STATUS)
  291. UNSIGNED STATUS;
  292. █
  293.  PRINTF("\N%S\N\N",S[STATUS]);
  294.  
  295.  SWITCH(STATUS) █
  296.   CASE 0:
  297.   CASE 1:
  298.    BREAK;
  299.   CASE 2:
  300.    FREE(INñBUF);
  301.    BREAK;
  302.   CASE 3:
  303.    FREE(INñBUF);
  304.    FREE(OUTñBUF);
  305.    BREAK;
  306.   CASE 4:
  307.    FREE(INñBUF);
  308.    FREE(OUTñBUF);
  309.    FCLOSE(INñFN);
  310.    BREAK;
  311.   CASE 5:
  312.   CASE 6:
  313.   CASE 7:
  314.    FREE(INñBUF);
  315.    FREE(OUTñBUF);
  316.    FCLOSE(INñFN);
  317.    FCLOSE(OUTñFN);
  318.    BREAK;
  319.   CASE 8:
  320.   DEFAULT:
  321.    BREAK;
  322.  ▌
  323.  EXIT();
  324. ▌
  325.  
  326. /* END OF CPMSD.C */
  327.