开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
PSTR.C
资源名称：c_compiler.zip　[点击查看]
上传用户：hlzzc88
上传日期：2007-01-06
资源大小：220k
文件大小：2k
源码类别：

编译器/解释器

开发平台：

Others

PSTR.C：源码内容
  1. /*
  2.  * 68K/386 32-bit C compiler.
  3.  *
  4.  * copyright (c) 1997, David Lindauer
  5.  * 
  6.  * This compiler is intended for educational use.  It may not be used
  7.  * for profit without the express written consent of the author.
  8.  *
  9.  * It may be freely redistributed, as long as this notice remains intact
  10.  * and either the original sources or derived sources 
  11.  * are distributed along with any executables derived from the originals.
  12.  *
  13.  * The author is not responsible for any damages that may arise from use
  14.  * of this software, either idirect or consequential.
  15.  *
  16.  * v1.35 March 1997
  17.  * David Lindauer, gclind01@starbase.spd.louisville.edu
  18.  *
  19.  * Credits to Mathew Brandt for original K&R C compiler
  20.  *
  21.  */
  22. /*
  23.  * String functions on shorts.  This is a translation to C... some functions
  24.  * may not work but those that are actually used in the compiler do
  25.  */
  26. int pstrncmp(short *str1, short *str2,int n)
  27. {
  28. while (n &&*str1++ == *str2++) n--;
  29. if (!n)
  30. return 0;
  31. return(--str1 > --str2) ? 1 : -1;
  33. }
  34. int pstrcmp(short *str1, short *str2)
  35. {
  36. while (*str1 && *str1 == *str2) {
  37. str1++;
  38. str2++;
  39. }
  40. if (*(str1) == 0)
  41. if ( *(str2) == 0)
  42. return 0;
  43. else
  44. return -1;
  45. return str1 > str2 ? 1 : -1;
  46. }
  47. void pstrcpy(short *str1, short *str2)
  48. {
  49. while (*str2)
  50. *str1++ = *str2++;
  51. *str1 = 0;
  52. }
  53. void pstrncpy(short *str1, short *str2, int len)
  54. {
  55. memcpy(str1,str2,len*sizeof(short));
  56. }
  57. void pstrcat(short *str1,short *str2)
  58. {
  59. while (*str1++) ;
  60. while (*str2)
  61. *str1++ = *str2++;
  62. *str1++ = 0;
  63. }
  64. short *pstrchr(short *str, short ch)
  65. {
  66. while (*str && *str != ch)
  67. str++;
  68. if (*str)
  69. return str;
  70. return 0;
  71. }
  72. short *pstrrchr(short *str, short ch)
  73. {
  74. short *start = str;
  75. while (*str++) ;
  76. str--;
  77. while (str != start-1 && *str != ch)
  78. str--;
  79. if (str != start-1)
  80. return str;
  81. return 0;
  82. }
  83. int pstrlen(short *s)
  84. {
  85.   int len = 0;
  86. while (*s++) len++;
  87. return len;
  88. }
  89. short *pstrstr(short *str1, short *str2)
  90. {
  91. while (1) {
  92. short *pt = pstrchr(str1,str2[0]);
  93. if (!pt)
  94. return 0;
  95. if (!pstrcmp(pt,str2))
  96. return pt;
  97. str1 = pt + 1;
  98. }
  99. }