home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / enviro / my_h.h < prev   
Encoding:
C/C++ Source or Header  |  1980-01-11  |  1.9 KB  |  66 lines
  1. /****************************************************************************/
  2. /*                             MY-H.H                                       */
  3. /*                                                                          */
  4. /* Meine persoenliche Standard-Include-Datei mit staendig benutzten DEFINES,*/
  5. /* TYPEDEFS und Hilfsfunktionen. (Noch im Wachstum.)                        */
  6. /****************************************************************************/
  7.  
  8. /* Ich komme auf meiner Tastatur so  schlecht an die geschweiften Klammern, */
  9. /* ausserdem programmiere ich gerne in Pascal. DAHER:                       */
  10. #define then
  11. #define begin {
  12. #define end   ;}
  13. #define repeat do{
  14. #define until(ARG) ;}while(not(ARG))
  15.  
  16. #define TRUE 1
  17. #define FALSE 0
  18. #define not(X) !(X)
  19. #define BACKSPACE 8
  20. #define LF 10
  21. #define CR 13
  22.  
  23. extern char *index(char *,char);
  24. #define wait_key() printf("\n>>>> Taste druecken <<<<");getch();
  25. #define member(ZEICHEN,STRING) !(NULL==index(STRING,ZEICHEN))
  26.  
  27. typedef char *string;
  28.  
  29.  
  30. void itoa(n,s) /* Wandelt Integer in Ziffernkette um */
  31.   string s;
  32.   int n;
  33.  
  34. begin
  35.   int sign, i;
  36.   void reverse(string);
  37.  
  38.   if ((sign = n) <0)
  39.     n = -n;
  40.   i = 0;
  41.   do begin /* Ziffernreihe von hinten nach vorne aufbauen */
  42.     s[i++] = (char)(n % 10 + (int)'0');
  43.   end while ((n /= 10) > 0); 
  44.   if (sign < 0) s[i++] = '-';
  45.   s[i] = '\0';
  46.   reverse(s) /* wieder umdrehen */
  47. end;
  48.  
  49.  
  50. void reverse(s) /* dreht String um */
  51.   string s;
  52.  
  53. begin
  54.   char hilf;
  55.   int i;
  56.  
  57.   for (i = 0; i < (strlen(s)/2); i++) begin /* Reihe umdrehen*/
  58.     hilf = s[i]; s[i] = s[strlen(s)-1-i]; s[strlen(s)-1-i] = hilf
  59.   end
  60. end
  61.  
  62.  
  63. /****************************************************************************/
  64. /***** ENDE MY-H.H **********************************************************/
  65. /****************************************************************************/
  66.