home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / BDSC / BDSC-4 / BDSLIB.ARK / INIT.C < prev    next >
Text File  |  1983-07-15  |  640b  |  31 lines
  1. /*
  2.  * Initialization functions
  3.  * These functions are included `as-is' from the BDS C Libraries
  4.  * for reasons of compatibility.
  5.  */
  6.  
  7. initw(var,string)
  8. int *var;
  9. char *string;
  10. {
  11.     int n;
  12.     while ((n = getval(&string)) != -32760) *var++ = n;
  13. }
  14.  
  15. initb(var,string)
  16. char *var, *string;
  17. {
  18.     int n;
  19.     while ((n = getval(&string)) != -32760) *var++ = n;
  20. }
  21.  
  22. int getval(strptr)
  23. char **strptr;
  24. {
  25.     int n;
  26.     if (!**strptr) return -32760;
  27.     n = atoi(*strptr);
  28.     while (**strptr && *(*strptr)++ != ',');
  29.     return n;
  30. }
  31.