home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / c / crcbbs.arc / CRCPC1A.C < prev    next >
Text File  |  1985-10-22  |  18KB  |  616 lines
  1. #include    "crcpchdr.h"
  2.  
  3. static struct cmd_list *rvs_cmdl(me,daddy)
  4. struct cmd_list *me, *daddy;
  5. {
  6. struct cmd_list *babysitter;
  7.  
  8. babysitter = me->next;        /* Babysit my child for a moment ... */
  9. me->next = daddy;        /* Fool computer: my daddy is now my child */
  10. if (babysitter!=NULL) {        /* If I had a child for babysitter to hold, */
  11.     return(rvs_cmdl(babysitter,me));    /* Then reverse me & my child */
  12.     }
  13. else return me;            /* Else I am the last of the lineage ... */
  14. }
  15.  
  16. #define        DLM    " ,\r\n\t"
  17. struct cmd_list *read_cmds()    /* Read commands from CMDFILE */
  18. {
  19. FILE *fp;
  20. struct cmd_list *start_list, *new_elmt;
  21. char disk_buffer[128];
  22. char name[13];
  23. char minbc[4], clasc[4];
  24. char id[2];
  25. int minbr, class;
  26. char *ptr, *incptr(), *stpblk();
  27.  
  28. start_list = NULL;
  29. if ((fp=fopen(CMDFILE,"r"))!=NULL) {
  30.     while (fgets(disk_buffer,sizeof(disk_buffer),fp)!=NULL) {
  31.         if (!notnull(disk_buffer)) continue;
  32.         ptr = stpblk(disk_buffer);
  33.         if (*ptr=='/' && *(ptr+1)=='*') continue;
  34.         ptr = stptok(ptr,name,sizeof(name),DLM);
  35.         ptr = stptok(incptr(ptr),minbc,sizeof(minbc),DLM);
  36.         ptr = stptok(incptr(ptr),id,sizeof(id),DLM);
  37.         ptr = stptok(incptr(ptr),clasc,sizeof(clasc),DLM);
  38.         if (!*minbc || sscanf(minbc,"%d",&minbr)==0) minbr=strlen(name);
  39.         if (!*clasc || sscanf(clasc,"%d",&class)==0) class=0;
  40.         if ((new_elmt=(struct cmd_list *)getmem(sizeof(struct cmd_list)
  41.                 + strlen(name)))==NULL) 
  42.             return NULL;    /* NOTE: Memory may still be alloc'd */
  43.         new_elmt->next = start_list;
  44.         strcpy(new_elmt->name,uppercase(name));
  45.         new_elmt->abrl = minbr;
  46.         new_elmt->class = class;
  47.         new_elmt->cmd_id = id[0];
  48.         start_list = new_elmt;
  49.         }
  50.     fclose(fp);
  51.     }
  52. return(rvs_cmdl(start_list,NULL));   /* Convert LIFO back to FIFO order first */
  53. }
  54. #undef    DLM
  55.  
  56. #define        PI    3.1415926
  57. float randf()            /* Return float random num 0 < num < 1 */
  58. {
  59. int hh,mm,ss1,ms1,ss2,ms2;
  60. float retn;
  61. systime(&hh,&mm,&ss1,&ms1);
  62. for (hh=ss1*ms1;hh!=0;hh--);    /* Waste 'random' amount of time */
  63. systime(&hh,&mm,&ss2,&ms2);    /* Assume nice number of ms passed by now */
  64. retn = (PI*(float)ms1*(float)ss1)+(PI*(float)ms2*(float)ss2)
  65.     +((float)ms1+(float)ms2)/PI; /* Create 'wierd' number */
  66. retn = (float)(retn - (int)retn);        /* Truncate ? */
  67. return((float)retn);
  68. }
  69. #undef PI
  70.  
  71. int randint(topnum)
  72. int topnum;
  73. {
  74. return((int)((float)topnum*randf())+(float)1);
  75. }
  76.  
  77. do_fort(c,args,options)
  78. char c;
  79. char *args, *options;
  80. {
  81. int quiet, gap, maxtimes, i;
  82.  
  83. quiet = find_options(options,'q');
  84. if (!(maxtimes=stoi(args))) maxtimes = 1;
  85.  
  86. if (fort_une) {
  87.     for (i=0;i<maxtimes && !quit;i++) {
  88.         gap = randint(fort_gap);
  89.         fortune(gap);   /* Do fortune if requested */
  90.         }
  91.     }
  92. else if (!quiet) printf("Fortunes not active at this time\r\n");
  93. }
  94.  
  95. fortune(skips)
  96. int skips;
  97. {
  98. int i;
  99. if (fort_fp==NULL) return;    /* Nothing to do if fortune file not open */
  100. if (skips<0 || skips>1000) return;  /* Ignore crazy requests-stupid caller ! */
  101.  
  102. for (i=0;fort_fp!=NULL && i<skips;i++) {
  103.     do {                        /* Skip a fortune */
  104.         if (fgets(file_buff,STR_SIZE,fort_fp)==NULL) {
  105.             reset_fortf();
  106.             *file_buff = '\0';
  107.             }
  108.         } while(*ltrim(file_buff));
  109.     }
  110.  
  111. if (fort_fp==NULL) return;
  112.  
  113.             /* We have located the fortune we want: type it out */
  114. printf("\r\n");
  115. do {
  116.     if (fgets(file_buff,STR_SIZE,fort_fp)==NULL) {
  117.         reset_fortf();
  118.         *file_buff = '\0';
  119.         }
  120.     else mputs(file_buff);
  121.     } while(*ltrim(file_buff) && fort_fp!=NULL);
  122. }
  123.  
  124. any_last_news() 
  125. { 
  126. typeifexist(ipath,LASTNWS_MSG,FALSE);
  127. }
  128.  
  129. any_news(c,args,opts) 
  130. char c, *args, *opts;
  131. { 
  132. if (typeifexist(ipath,NEWS_MSG,TRUE)) printf("No news.\r\n"); 
  133. }
  134.  
  135. other_systems(c,args,opts)
  136. char c, *args, *opts;
  137. {
  138. if (typeifexist(ipath,BBS_LIST,TRUE)) printf("Sorry, no list active today\r\n");
  139. }
  140.  
  141. int typeifexist(path,filename,lng)
  142. char *path;
  143. char *filename;
  144. int lng;
  145. { 
  146. FILE *fp; 
  147. char buffer[DIRSIZE];
  148. if (*path) filename = prefix_dir(buffer,filename,path);
  149. if ((fp=fopen(filename,"r"))==NULL) return(TRUE);
  150. if (beginner && lng) ctlsctlk();
  151. fileterm(fp,"p");         /* Page mode active */
  152. fclose(fp);
  153. return(FALSE);
  154. }
  155.  
  156. goodbye(who)
  157. char *who;
  158. {
  159. sprintf(workstr,"%s SHUTDOWN: %s",SYSNAME,who);
  160. logevent(workstr);
  161. closelog();
  162. printf("Welcome to PC-DOS!\r\n");
  163. sysdir(cur_dir,cur_root);        /* Leave him where he was */
  164. if (!prton) printer(ON);
  165. brkset(ON);
  166. exit(0);
  167. }
  168.  
  169. reset_fortf()
  170. {
  171. char fortfile[DIRSIZE+LINESIZE];
  172. if (fort_fp!=NULL) fclose(fort_fp);
  173. prefix_dir(fortfile,FORTUNE_DAT,fpath);
  174. fort_fp = fopen(fortfile,"r");
  175. }
  176.  
  177. scan_events(c,args,opts)
  178. char c, *args, *opts;
  179. {
  180. FILE *evfp;
  181. int quiet;
  182. quiet = find_option(opts,'q');
  183. sysdir("",MAILBOX);
  184. closelog();
  185. if ((evfp=fopen(EVENT_LOG,"r"))==NULL) {
  186.     mputs("There is currently no event log.\r\n");
  187.     }
  188. else {
  189.     quit = FALSE;
  190.     if (!quiet && beginner) ctlsctlk();
  191.     cr();
  192.     while (!quit && (fgets(file_buff,termwidth,evfp)!=NULL)) 
  193.         mputs(file_buff);
  194.     fclose(evfp);
  195.     }
  196. openlog();
  197. }
  198.  
  199. read_userfile()
  200. {
  201. FILE *fp;
  202. char *bufptr;
  203.  
  204. init_vars();        /* Init/refresh/default system status vars */
  205.  
  206. userclass=
  207. totconnect=0;
  208. timeson=1;
  209.  
  210. dn_tab.before[0]=
  211. dn_tab.after[0]=
  212. userphone[0]=
  213. userreason[0]=
  214. syspw[0]=
  215. username[0]=    
  216. medit_opts[0]=        '\0';
  217.  
  218. termdef[0]=
  219. usersys[0]=
  220. fxfer[0]=
  221. userloc[0]=
  222. userspclty[0]=
  223. laston[0]=        '\0';    
  224.  
  225. nousrto=
  226. nousrfort=
  227. userread= 
  228. userwrite= 
  229. sysread= 
  230. syswrite=         FALSE;
  231.  
  232. not_terminal = TRUE;
  233. if (sysdir("",MAILBOX)) return(baddir(MAILBOX));
  234. strcpy(workstr,home_dir);
  235. strcat(workstr,USER_EXT);
  236. if ((fp=fopen(workstr,"r"))==NULL) return;      /* No user file:  Return  */
  237. while(fgets(file_buff,STR_SIZE,fp)!=NULL) {
  238.         del_crlf(file_buff);
  239.     bufptr = ltrim(file_buff);
  240.         if (bufptr[0]) process_userfile(file_buff);
  241.     }
  242. fclose(fp);
  243. init_tty(termdef);
  244. }
  245.  
  246. static process_userfile(buffer)
  247. char buffer[];
  248. {
  249. char token1[12];
  250. char token2[20];
  251. char token3[5];
  252. char token4[10];
  253. char *parseptr, *thirdptr, *fourptr, *fiveptr;
  254. int notfound;
  255. int mo,dy,yr;
  256.  
  257. parseptr = stpblk(stptok(stpblk(buffer),token1,12," \r"));
  258. thirdptr = stpblk(stptok(parseptr,token2,20," \r"));
  259. fourptr = stpblk(stptok(thirdptr,token3,5," \r"));
  260. fiveptr = stpblk(stptok(fourptr,token4,10," \r"));
  261. uppercase(token1), uppercase(token2);
  262. notfound = FALSE;
  263.  
  264. if (!strcmp(token1,"PWD:")) strcpy(syspw,token2);
  265. else if (!strcmp(token1,"ID:")) stccpy(user_id,token2,sizeof(user_id));
  266. else if (!strcmp(token1,"LASTON:")) strcpy(laston,token2);      
  267. else if (!strcmp(token1,"PHONE:")) strcpy(userphone,parseptr);
  268. else if (!strcmp(token1,"DUPLEX:")) duplex = stoi(token2);
  269. else if (!strcmp(token1,"SPECIALTY:")) strcpy(userspclty,parseptr);
  270. else if (!strcmp(token1,"MAXTIME:")) {
  271.     if (stoi(token2)) maxconnect = stoi(token2);
  272.     else if (sys_test | debug) printf("Bad MAXTIME arg in uf\r\n");
  273.     }
  274. else if (!strcmp(token1,"TERMDEF:")) strcpy(termdef,parseptr);
  275. else if (!strcmp(token1,"FXFER:")) strcpy(fxfer,parseptr);
  276. else if (!strcmp(token1,"REASON:")) strcpy(userreason,parseptr);
  277. else if (!strcmp(token1,"USERLOC:")) strcpy(userloc,parseptr);
  278. else if (!strcmp(token1,"TIMESON:")) timeson = stoi(token2)+1;
  279. else notfound = TRUE;
  280.  
  281. if (notfound==FALSE) ;
  282. else if (notfound=FALSE) ;
  283. else if (!strcmp(token1,"CLASS:")) userclass = stoi(token2);
  284. else if (!strcmp(token1,"BOARD:")) {
  285.         /* NOTE: We don't track last BBS sessions for PUBLIC accts */
  286.     extr_date(fiveptr,&mo,&dy,&yr);
  287.     if (!no_account) a_u_msg(token2,stoi(token3),stoi(token4),mo,dy,yr);
  288.     }
  289. else if (!strcmp(token1,"TOTCONNECT:")) totconnect=stol(token2);
  290. else if (!strcmp(token1,"SUSPENDED")) not_terminal = FALSE;
  291. else if (!strcmp(token1,"SYSREAD")) sysread = TRUE;
  292. else if (!strcmp(token1,"UCTRANS")) uctrans = TRUE;
  293. else if (!strcmp(token1,"SYSWRITE")) syswrite = TRUE;
  294. else if (!strcmp(token1,"USERREAD")) userread = TRUE;
  295. else if (!strcmp(token1,"USERWRITE")) userwrite = TRUE;
  296. else if (!strcmp(token1,"EXPERT")) beginner = FALSE;
  297. else notfound = TRUE;
  298.  
  299. if (notfound==FALSE) ;
  300. else if (!strcmp(token1,"NOVICE")) beginner = TRUE;
  301. else if (!strcmp(token1,"NOTIMEOUT")) nousrto = TRUE;
  302. else if (!strcmp(token1,"NOFORTUNE")) nousrfort = TRUE;
  303. else if (!strcmp(token1,"MEDIT:")) strcpy(medit_opts,parseptr);
  304. else if (!strcmp(token1,"USERSYS:")) strcpy(usersys,parseptr);
  305. else if (!strcmp(token1,"BEFORETEXT:")) bin_list(dn_tab.before,parseptr,sizeof(dn_tab.before));
  306. else if (!strcmp(token1,"AFTERTEXT:")) bin_list(dn_tab.after,parseptr,sizeof(dn_tab.after));
  307. else if (!strcmp(token1,"NAME:")) strcpy(username,parseptr);
  308. else if (sys_test) printf("Invalid item in USERINFO file: '%s'.\r\n",file_buff);
  309. }
  310.  
  311. write_userfile()
  312. {
  313. FILE *fp;
  314. struct lmsg *lmsg_ptr, *lmsg_next;
  315. char buf[32];
  316.  
  317. if (sysdir("",MAILBOX)) return(baddir(MAILBOX));
  318. strcpy(workstr,home_dir);
  319. strcat(workstr,USER_EXT);
  320. if ((fp=fopen(workstr,"w"))==NULL) {
  321.     printf("Can't update userfile !?\r\n");
  322.     return;      /* Oops!:  Return  */
  323.     }
  324. if (syspw[0]) writeln2(fp,"PWD: ",syspw);
  325. if (timeson) {
  326.         sprintf(workstr,"%d",timeson);
  327.         writeln2(fp,"TIMESON: ",workstr);
  328.         }
  329. if (beginner) writeln2(fp,"NOVICE"," ");
  330. else writeln2(fp,"EXPERT"," ");
  331. if (username[0]) writeln2(fp,"NAME: ",username);
  332. writeln2(fp,"LASTON: ",date());
  333. if (userloc[0]) writeln2(fp,"USERLOC: ",userloc);
  334. if (userreason[0]) writeln2(fp,"REASON: ",userreason);
  335. if (userphone[0]) writeln2(fp,"PHONE: ",userphone);
  336. if (maxconnect != defmaxconnect) writeln2(fp,"MAXTIME: ",itos(maxconnect));
  337. if (userspclty[0]) writeln2(fp,"SPECIALTY: ",userspclty);
  338. if (medit_opts[0]) writeln2(fp,"MEDIT: ",medit_opts);
  339. if (fxfer[0]) writeln2(fp,"FXFER: ",fxfer);
  340. if (termdef[0]) writeln2(fp,"TERMDEF: ",termdef);
  341. if (usersys[0]) writeln2(fp,"USERSYS: ",usersys);
  342. sprintf(workstr,"%ld",totconnect+cnct_seconds());
  343. writeln2(fp,"TOTCONNECT: ",workstr);
  344. sprintf(workstr,"%d",duplex);
  345. if (duplex!=defduplex) writeln2(fp,"DUPLEX: ",workstr);
  346. if (dn_tab.before[0]!='\0') {
  347.     dec_list(workstr,dn_tab.before,sizeof(workstr));
  348.     writeln2(fp,"BEFORETEXT: ",workstr);
  349.     }
  350. if (dn_tab.after[0]!='\0') {
  351.     dec_list(workstr,dn_tab.after,sizeof(workstr));
  352.     writeln2(fp,"AFTERTEXT: ",workstr);
  353.     }
  354. if (uctrans) writeln2(fp,"UCTRANS","");
  355. if (userclass>0) writeln2(fp,"CLASS: ",itos(userclass));
  356. if (sysread) writeln2(fp,"SYSREAD","");
  357. if (syswrite) writeln2(fp,"SYSWRITE","");
  358. if (userread) writeln2(fp,"USERREAD","");
  359. if (userwrite) writeln2(fp,"USERWRITE","");
  360. if (nousrto) writeln2(fp,"NOTIMEOUT","");
  361. if (nousrfort) writeln2(fp,"NOFORTUNE","");
  362. if (!not_terminal) writeln2(fp,"SUSPENDED AND WAITING CANCELLATION OR"," REVALIDATION");
  363. for (lmsg_ptr=lmsg_start;lmsg_ptr!=NULL;lmsg_ptr=lmsg_next) {
  364.         sprintf(buf,"%s %d %d %02d/%02d/%02d",lmsg_ptr->boardname,lmsg_ptr->lmb,
  365.         lmsg_ptr->lmr,lmsg_ptr->mo,lmsg_ptr->dy,lmsg_ptr->yr);
  366.         writeln2(fp,"BOARD: ",buf);
  367.         lmsg_next = lmsg_ptr->next_lmsg;
  368.         if (rlsmem(lmsg_ptr,sizeof(*lmsg_ptr))) printf("RLSMEM bd err!\r\n");
  369.         }
  370. lmsg_start = NULL;              /* No more LAST_MSG list */
  371. fclose(fp);
  372. }
  373.  
  374. /* 
  375.     init_tty: initialize global system tty-related variables from
  376.             'termdef' record formatted in tokens as follows:
  377.  
  378.     <termdescriptor> <Direct | Standard> <utlength> <utwidth> <clseq>
  379.     
  380. */
  381. static init_tty(termdef)
  382. char *termdef;
  383. {
  384. char buf[LINESIZE];
  385.  
  386. termdef = skptok(termdef);            /* Terminal descriptor */
  387. termdef = stpblk(stptok(termdef,buf,LINESIZE," "));    /* Get display mode token */
  388. if (*buf) tflag = (toupper(*buf)=='D');        /* True for DIRECT output. */
  389. termdef = stpblk(stptok(termdef,buf,LINESIZE," "));    /* Pick up UTLENGTH */
  390. if (stoi(buf)) utlength = stoi(buf);
  391. termdef = stpblk(stptok(termdef,buf,LINESIZE," "));    /* Pick up UTWIDTH */
  392. if (stoi(buf)) utwidth = stoi(buf);
  393. termdef = stpblk(stptok(termdef,buf,LINESIZE," "));    /* And CLS sequence */
  394. bin_list(utcls,buf,sizeof(utcls));        /* Assign CLS sequence */
  395. }
  396.  
  397.  
  398. who_is(c,args,opts)
  399. char c, *args, *opts;
  400. {
  401. int lidx, quiet;
  402.  
  403. quiet = find_option(opts,'q');
  404. sysdir("",user_root);
  405. if (beginner && !quiet) disp_msg(7);
  406. if (!*args) disp_reply("Enter '*' for all users, or userid: ",workstr,9);
  407. else stptok(args,workstr,9," ");
  408. if (workstr[0]=='\0') return(nothing_done());
  409. if (setup_dir(workstr,DIR_TYP)) {
  410.     printf("Couldn't find any users!?\r\n");
  411.     return;
  412.     }
  413. create_list();
  414. cr();
  415. if (!quiet && beginner) ctlsctlk();
  416. for (lidx=0;lidx<list_idx && !quit;lidx++) {
  417.     if (strcmp("..",list[lidx]->filedata.filename_ext) && 
  418.          strcmp(".",list[lidx]->filedata.filename_ext)) {
  419.         printf("Userid:        %s\r\nAccount since: %s\r\n",
  420.             list[lidx]->filedata.filename_ext,
  421.             filedate(list[lidx]->filedata.file_date));
  422.         pruser_stats(list[lidx]->filedata.filename_ext);
  423.         }
  424.     }
  425. drop_list();
  426. }
  427.  
  428. static pruser_stats(username)
  429. char username[];
  430. {
  431. FILE *fp;
  432. char userfile[17];
  433. char *bufptr;
  434.  
  435. if (!sysdir("",MAILBOX)) {
  436.     strcpy(userfile,username);
  437.     strcat(userfile,USER_EXT);
  438.     if ((fp=fopen(userfile,"r"))!=NULL) {
  439.         while(fgets(file_buff,STR_SIZE,fp)!=NULL && !quit) {
  440.                 del_crlf(file_buff);
  441.             bufptr = ltrim(file_buff);
  442.                 if (bufptr[0]) show_userfile(file_buff,username);
  443.             }
  444.         fclose(fp);
  445.         }
  446.     }    
  447.  
  448. if (sysdir(username,user_root)) return(baddir(username));
  449. strcpy(userfile,home_dir);
  450. strcat(userfile,MAIL_EXT);
  451. if ((fp=fopen(INFO_USR,"r"))!=NULL) {
  452.     cr();
  453.     while(fgets(file_buff,termwidth,fp)!=NULL && !quit) mputs(file_buff);
  454.     fclose(fp);    
  455.     }
  456. cr();
  457. }
  458.  
  459. static show_userfile(buff,who)
  460. char buff[];
  461. char who[];
  462. {
  463. char token1[15], *parseptr;
  464. int owner;
  465.  
  466.     /* We show almost all stuff to current user, or SYSREAD user */
  467. owner = !strcmp(home_dir,who) || sysread;
  468. del_crlf(parseptr=stpblk(stptok(stpblk(buff),token1,sizeof(token1)," \r\n")));
  469. uppercase(token1);
  470. if (!strcmp(token1,"NAME:")) printf("Name:          %s\r\n",parseptr);
  471. else if (!strcmp(token1,"LASTON:")) printf("Last logon:    %s\r\n",parseptr);
  472. else if (!strcmp(token1,"PHONE:")) {
  473.     if (owner||*parseptr!='*') {
  474.         printf("Telephone:     %s",parseptr);
  475.         if (*parseptr=='*') printf("  ('*'=private number)");
  476.         printf("\r\n");
  477.         }
  478.     }
  479. else if (!strcmp(token1,"USERLOC:"))  printf("Location:      %s\r\n",parseptr);
  480. else if (!strcmp(token1,"SPECIALTY:")) printf("Specialty:     %s\r\n",parseptr);
  481. else if (!strcmp(token1,"USERSYS:")) printf("System type:   %s\r\n",parseptr);
  482. else if (!strcmp(token1,"FXFER:"))   printf("File xfers:    %s\r\n",parseptr);
  483. else if (!strcmp(token1,"TIMESON:")) printf("Times on:      %s\r\n",parseptr);
  484. else if (!strcmp(token1,"MEDIT:")) {
  485.     if (owner) printf("Medit options: %s\r\n",parseptr);
  486.     }
  487. else if (!strcmp(token1,"TERMDEF:")) {
  488.     if (owner) printf("T-settings:    %s\r\n",parseptr);
  489.     }
  490. else if (!strcmp(token1,"MAXTIME:")) {
  491.     if (sysread) printf("Maximum stay:  %d minutes\r\n",stoi(parseptr));
  492.     }
  493. }
  494.  
  495. message()
  496. {
  497. int msgf;
  498.  
  499. if (!(msgf=open(SYSTEM_MSG,FREAD))) {
  500.     printf("Sysmail pending: %s\r\n",SYSTEM_MSG);
  501.     if (beginner) printf("Please ERASE file after reading.\r\n");
  502.     close(msgf);
  503.     }
  504. }
  505.  
  506. char *good_morning()
  507. {
  508. int hh,mm,ss,ms;
  509.  
  510. systime(&hh,&mm,&ss,&ms);
  511. if (hh<NOON) return("Good morning");
  512. else if (hh<DUSK) return("Good afternoon");
  513. else return("Good evening");
  514. }
  515.  
  516. systat(c,args,opts)
  517. char c, *args, *opts;
  518. {
  519. long getfree(), gettots();
  520.  
  521. printf("System name:   %s ver %s\r\n",SYSNAME,SYSVER);
  522. printf("Running under: %s ver %d.%d\r\n",DOSNAME,_dos[0],_dos[1]);
  523. printf("System time:   %s\r\n",timedate());
  524. printf("Disk space:    %ld/%ld = %3.0f%% free\r\n",
  525.     getfree(0), gettots(0),
  526.     100.0 * (float)getfree(0)/(float)gettots(0)+(float)0.05);
  527. }
  528.  
  529. /*
  530.  This version of MINIT uses the INT14H calls, assuming that an acceptable
  531.  method for initializing the BAUD rate is provided by such interrupt.
  532.  
  533.  As of 08/22/84, CRCPC assumed to run in conjunction with the latest
  534.  NEW14H/HOST communication/keyboard link, by CRC.
  535. */
  536.  
  537. minit(baud,parity,wordlen,stopbits,opts)
  538. char *baud, *parity, *wordlen, *stopbits;
  539. char *opts;
  540. {
  541. int hayes;
  542. char m16PARMS, set_baud(), set_parity(), set_length(), set_stop();
  543.  
  544. hayes = find_option(opts,'h');
  545.  
  546. m16PARMS = set_baud(baud) | 
  547.       set_parity(parity) | 
  548.       set_length(wordlen) |
  549.       set_stop(stopbits) ; 
  550.  
  551. int14h(port_used,INIT_COM,m16PARMS);    /* Setup modem */
  552.  
  553. /* I REALLY DON'T KNOW IF THIS mcode MAKES ANY SENSE ... */
  554. /* BUT THE 1200B STILL FUCKS UP WHEN BAUD RATES CHANGED ON IT */
  555. if (hayes && !rdsr()) {
  556.     wait_sec(1);
  557.     prmodm("+++");
  558.     wait_sec(1);
  559.     prmodm("ATO\r");    /* Tell Hayes about our baud rate change ?! */
  560.     }
  561. }
  562.  
  563. static char set_baud(mcode)
  564. char *mcode;
  565. {
  566. char olcr;
  567.  
  568. olcr = *mcode;
  569. if (olcr=='3') return(B6);        /* 300 baud */
  570. if (olcr=='6') return(B6|B5);        /* 600      */
  571. if (olcr=='1') return(B7);          /* 1200        */
  572. if (olcr=='2') return(B7|B5);        /* 2400        */
  573. if (olcr=='4') return(B7|B6);        /* 4800        */
  574. if (olcr=='9') return(B7|B6|B5);    /* 9600     */
  575. printf("%s?",mcode);
  576. return(0);
  577. }
  578.  
  579. static char set_parity(mcode)
  580. char *mcode;
  581. {
  582. char olcr;
  583.  
  584. olcr = *mcode;
  585. if (olcr=='E') return(B3|B4);
  586. if (olcr=='O') return(B3);
  587. if (olcr=='N') return(0);
  588. printf("%s?",mcode);
  589. return(0);
  590. }
  591.  
  592. static char set_length(mcode)
  593. char *mcode;
  594. {
  595. char olcr;
  596.  
  597. olcr = *mcode;
  598. if (olcr=='7') return(B1);
  599. if (olcr=='8') return(B0|B1);
  600. printf("%s?",mcode);
  601. return(0);
  602. }
  603.  
  604. static char set_stop(mcode)
  605. char *mcode;
  606. {
  607. char olcr;
  608.  
  609. olcr = *mcode;
  610. if (olcr=='2') return(B2);
  611. if (olcr=='1') return(0);
  612. printf("%s?",mcode);
  613. return(0);
  614. }
  615. 
  616.