Skip to content
Snippets Groups Projects
Commit ed96ff37 authored by rswindell's avatar rswindell
Browse files

Ported to 32-bit (tested for Win32) using xpdev.

parent aaca3cbb
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 98 additions and 199 deletions
src/tone/tone.c
+ 98
− 199
View file @ ed96ff37
/* TONE.C */ /* tone.c */
/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */ /* Tone Generation Utility (using PC speaker, not sound card) */
/* Linux modifications by Casey Martin 2000. /* $Id$ */
Note: Permissions on /dev/console must be at least 006 for this
to work properly
*/
/**************************************************************************** /****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) * * @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* * * *
* Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License *
* as published by the Free Software Foundation; either version 2 *
* of the License, or (at your option) any later version. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. * * Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/ ****************************************************************************/
/* Test sound freqs and durations from command line */
#ifdef __OS2__
#define INCL_DOS
#include <os2.h>
#endif
#ifndef __unix__
#include <io.h>
#include <dos.h>
#else
#include <unistd.h>
#include <math.h>
#include <time.h>
#include <sys/ioctl.h>
#include <sys/kd.h>
#include <sys/time.h>
#include <sys/types.h>
#include <termios.h>
#include <signal.h>
#endif
#include <math.h> #include <math.h>
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <fcntl.h> #include <ctype.h>
#ifdef __OS2__ #include "genwrap.h" /* BEEP */
#define mswait(x) DosSleep(x) #include "dirwrap.h" /* getfname */
#define delay(x) DosSleep(x) #include "conwrap.h" /* kbhit */
#define sound(x) DosBeep(x,0)
#define nosound() DosBeep(0,0)
#endif
#define NOT_ABORTABLE (1<<0) #define NOT_ABORTABLE (1<<0)
#define SHOW_DOT (1<<1) #define SHOW_DOT (1<<1)
#define SHOW_FREQ (1<<2) #define SHOW_FREQ (1<<2)
#define NO_VISUAL (1<<3) #define NO_VISUAL (1<<3)
#define USE_MSWAIT (1<<4)
#ifdef __unix__
#define nosound() ioctl(fd, KIOCSOUND, 0)
#define sound(f) ioctl(fd, KIOCSOUND, (int) (1193180 / f))
#define mswait(x) delay(x)
#define kbhit() select(1, &inp, NULL, NULL, &timeout)
#define delay(ms) usleep(ms * 1000)
#define OPENARGS O_RDONLY
#else
#define OPENARGS (O_RDONLY | O_BINARY | O_DENYNONE)
#endif
#if defined __OS2__ || defined __unix__
int mswtyp;
#else
extern mswtyp;
#endif
int aborted=0; /* Ctrl-C hit? */
int mode=0; /* Optional modes */ int mode=0; /* Optional modes */
int t=1; /* Timing */ int t=1; /* Timing */
int s=0; /* Stacato */ int s=0; /* Stacato */
int octave=4; /* Default octave */ int octave=4; /* Default octave */
#ifdef __unix__
int fd = 0; // file descriptor for the console
struct termios stored; // for storing old term settings
struct timeval timeout = {0, 0}; // passed in select() call
fd_set inp; // passes in select() call
#endif
double pitch=523.50/32.0; /* low 'C' */ double pitch=523.50/32.0; /* low 'C' */
void play(char *freq, char *dur) void play(char *freq, char *dur)
{ {
char *notes="c d ef g a b"; char* notes="c d ef g a b";
char *sharp="BC D EF G A "; char* sharp="BC D EF G A ";
int i,n,d,o=octave; int i,n,o,d;
double f; int len;
double f;
if(dur==NULL)
dur="0";
d=atoi(dur); d=atoi(dur);
if(isdigit(freq[0])) if(isdigit(*freq))
f=atoi(freq); f=atoi(freq);
else else
switch(toupper(freq[0])) { switch(toupper(*freq)) {
case 'O': /* default octave */ case 'O': /* default octave */
if(isdigit(dur[0])) if(isdigit(*dur))
octave=d; octave=d;
else else
octave+=d; octave+=d;
return; return;
case 'P': /* pitch variation */ case 'P': /* pitch variation */
if(isdigit(dur[0])) if(isdigit(*dur))
pitch=atof(dur)/32.0; pitch=atof(dur)/32.0;
else else
pitch+=atof(dur); pitch+=atof(dur);
return; return;
case 'Q': /* quit */ case 'Q': /* quit */
nosound();
exit(0); exit(0);
case 'R': /* rest */ case 'R': /* rest */
f=0; f=0;
break; break;
case 'S': /* stacato */ case 'S': /* stacato */
if(isdigit(dur[0])) if(isdigit(*dur))
s=d; s=d;
else else
s+=d; s+=d;
...@@ -141,60 +109,51 @@ void play(char *freq, char *dur) ...@@ -141,60 +109,51 @@ void play(char *freq, char *dur)
dur[n+1]=0; dur[n+1]=0;
if(dur[n]=='\\') { if(dur[n]=='\\') {
dur[n]=0; dur[n]=0;
printf("%s",dur); } printf("%s",dur);
else } else
printf("%s\r\n",dur); printf("%s\r\n",dur);
return; return;
case 'X': /* exit */ case 'X': /* exit */
exit(1); exit(1);
default: default:
for(n=0;notes[n];n++) for(n=0;notes[n];n++)
if(freq[0]==notes[n] || freq[0]==sharp[n]) if(*freq==notes[n] || *freq==sharp[n])
break; break;
if(isdigit(freq[1])) if(isdigit(freq[1]))
o=(freq[1]&0xf); o=(freq[1]&0xf);
else else
o=octave; o=octave;
f=pitch*pow(2,o+(double)n/12); f=pitch*pow(2,o+(double)n/12);
break; } break;
if(!f) }
nosound();
else
sound(f);
if(f && mode&SHOW_FREQ) { if(f && mode&SHOW_FREQ) {
for(i=0;freq[i]>' ';i++) for(i=0;freq[i]>' ';i++)
; ;
freq[i]=0; freq[i]=0;
printf("%-4.4s",freq); } printf("%-4.4s",freq);
}
if(mode&SHOW_DOT) if(mode&SHOW_DOT)
printf("."); printf(".");
if(t>10) { if(t>10)
if(mode&USE_MSWAIT) len=(d*t)-(d*s);
mswait((d*t)-(d*s)); else
else len=(d*t);
delay((d*t)-(d*s)); } if(f)
else { BEEP(f,len);
if(mode&USE_MSWAIT) else
mswait(d*t); SLEEP(len);
else
delay(d*t); }
if(s) { if(s) {
nosound(); if(t>10)
if(t>10) { SLEEP(d*s);
if(mode&USE_MSWAIT) else
mswait(d*s); SLEEP(s);
else }
delay(d*s); }
else {
if(mode&USE_MSWAIT)
mswait(s);
else
delay(s); } }
} }
void usage(void) void usage(void)
{ {
printf("usage: tone [/opts] [(note[oct]|freq) dur | (cmd val) [...]] " printf("usage: tone [-opts] [(note[oct]|freq) dur | (cmd val) [...]] "
"[+filename]\n\n"); "[+filename]\n\n");
printf("where: note = a,b,c,d,e,f, or g (naturals) or A,B,C,D,E,F, or " printf("where: note = a,b,c,d,e,f, or g (naturals) or A,B,C,D,E,F, or "
"G (sharps)\n"); "G (sharps)\n");
...@@ -217,76 +176,26 @@ void usage(void) ...@@ -217,76 +176,26 @@ void usage(void)
printf(" f display frequency or note value\n"); printf(" f display frequency or note value\n");
printf(" n not abortable with key-stroke\n"); printf(" n not abortable with key-stroke\n");
printf(" v disable visual text commands\n"); printf(" v disable visual text commands\n");
printf(" t use time-slice aware delays\n");
exit(0);
}
#ifdef __unix__
void cbreakh(int sig)
{
nosound();
exit(0); exit(0);
} }
#else /* !unix */
int cbreakh() /* ctrl-break handler */
{
aborted=1;
return(1); /* 1 to continue, 0 to abort */
}
#endif
int main(int argc, char **argv) int main(int argc, char **argv)
{ {
char *p,str[128]; char* p;
int i,j,file; char str[128];
FILE *stream; char revision[16];
int i,j;
#ifdef __unix__ FILE* stream;
// sets up the terminal for one key entry (to cancel playback) sscanf("$Revision$", "%*s %s", revision);
struct termios newterm;
tcgetattr(0,&stored);
memcpy(&newterm,&stored,sizeof(struct termios));
newterm.c_lflag &= (~ICANON);
newterm.c_cc[VTIME] = 0;
newterm.c_cc[VMIN] = 1;
tcsetattr(0,TCSANOW,&newterm);
// set up select() args
FD_ZERO(&inp);
FD_SET(0, &inp);
// install Ctrl-C handler...
signal(SIGINT, cbreakh);
#endif
#ifndef __OS2__
#ifndef __unix__
ctrlbrk(cbreakh);
#else
fd = open("/dev/console", O_NOCTTY);
if (fd < 0) {
perror("open(\"/dev/console\"");
exit(-1);
}
#endif
#endif
printf("\nTone Generation Utility v1.01 Developed 1993 Rob Swindell\n\n"); printf("\nTone Generation Utility %s Copyright 2003 Rob Swindell\n\n", revision);
if(argc<2) if(argc<2)
usage(); usage();
mswtyp=0;
delay(0);
for(i=1;i<argc;i++) { for(i=1;i<argc;i++) {
if(argv[i][0]=='/') { if(argv[i][0]=='-') {
for(j=1;argv[i][j];j++) for(j=1;argv[i][j];j++)
switch(toupper(argv[i][j])) { switch(toupper(argv[i][j])) {
case 'D': case 'D':
...@@ -301,49 +210,39 @@ int main(int argc, char **argv) ...@@ -301,49 +210,39 @@ int main(int argc, char **argv)
case 'V': case 'V':
mode^=NO_VISUAL; mode^=NO_VISUAL;
break; break;
case 'T':
mode^=USE_MSWAIT;
mswtyp=atoi(argv[i]+j+1);
while(isdigit(argv[i][j+1]))
j++;
break;
default: default:
usage(); } usage();
continue; } break;
}
continue;
}
if(argv[i][0]=='+') { if(argv[i][0]=='+') {
if((file=open(argv[i]+1, OPENARGS))==-1 || (stream=fdopen(file,"rb"))==NULL) { if((stream=fopen(argv[i]+1,"rb"))==NULL) {
/* Check directory of executable if file/path not found */
strcpy(str,argv[0]); strcpy(str,argv[0]);
p=strrchr(str,'\\'); *getfname(str)=0;
if(p)
*(p+1)=0;
strcat(str,argv[i]+1); strcat(str,argv[i]+1);
if((file=open(str, OPENARGS))==-1 if((stream=fopen(str,"rb"))==NULL) {
|| (stream=fdopen(file,"rb"))==NULL) {
printf("\7Error opening %s\n",argv[i]+1); printf("\7Error opening %s\n",argv[i]+1);
exit(1); } } continue;
}
}
while(mode&NOT_ABORTABLE || !kbhit()) { while(mode&NOT_ABORTABLE || !kbhit()) {
if(!fgets(str,81,stream)) if(!fgets(str,sizeof(str),stream))
break; break;
if(!isalnum(str[0])) if(!isalnum(*str))
continue; continue;
p=str; p=str;
while(*p>' ') FIND_WHITESPACE(p);
p++; SKIP_WHITESPACE(p);
while(*p && *p<=' ') play(str,p);
p++; }
play(str,p); }
fclose(stream); fclose(stream);
continue; } continue;
play(argv[i],argv[i+1]); }
i++; play(argv[i],argv[i++]);
if(aborted) }
break; }
nosound();
#ifdef __unix__
close(fd); // close /dev/console
tcsetattr(0,TCSANOW,&stored); // reset terminal to previous state
#endif
return(0); return(0);
} }
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment