#include <dos/rdargs.h>
#include <dos/dos.h>
#include <exec/exec.h>
#include <exec/types.h>
#include <exec/libraries.h>
#include <exec/memory.h>
#include <libraries/dos.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <clib/exec_protos.h>
#include <clib/dos_protos.h>
#include <utility/tagitem.h>
#include "prelude.h"
#include "prelude_protos.h"
#include "prelude_pragmas.h"

extern long file_length(char *file);  
extern void out_put(char *s);
extern void itoa(int n,char s[]);
extern void ltoa(long n,char s[]);
extern void reverse(char *s);

struct PreludeBase *PreludeBase;

char template[] ="Filename/A,FREQ/K,LENGTH/K,MSB16/S,LSB16/S,8BIT/S,ADPCM/S,MONO/S,CARDID/K,GAIN/K,BUFSIZE/K,LINE/S,AUX1/S,MIC/S";
char version_string[]="$VER: PrlRec (25.06.97)";
char no_memory[]="\nSorry - I need SOME MORE bytes of memory.\n";
char no_file[]="\nSorry - I need something to record to.\n";

#define a_filename 0
#define a_freq 1
#define a_length 2
#define a_msb16 3
#define a_lsb16 4
#define a_8bit 5
#define a_adpcm 6
#define a_mono 7
#define a_cardid 8
#define a_volume 9
#define a_bufsize 10
#define a_line 11
#define a_aux1 12
#define a_mic 13

UWORD PlayMode,PlayFreq,CardID,Volume;
ULONG Offset,BufSize;
long Length;
ULONG signal,signals;

long args[14];
struct RDArgs *myargs;
STRPTR FileName;
APTR buffer[2];
BPTR fhandle;

struct TagItem tags[]= {
        PRL_INPUT_LEFT,0,       // 0
        PRL_INPUT_RIGHT,0,      // 1
        PRL_ING_LEFT,0,         // 2
        PRL_ING_RIGHT,0,        // 3
        PRL_SMPL_MODE,0,        // 4
        PRL_FREQUENCY,0,        // 5
        TAG_DONE,0              // 6
        };

struct TagItem rectags[]={
	PRL_BUFF1,0,           // [0]
	PRL_BUFF2,0,           // [1]
	PRL_BUFF_LENGTH,0,     // [2]
	PRL_SIG_TASK,0,        // [3]
	PRL_SIG_MASK,0,        // [4]
	PRL_SIG_ADR,1,         // [5]
	TAG_DONE,0
        };                                    
main()
{
int i,actbuf;

for(i=0;i<11;i++)  args[i]=0;

PreludeBase=(struct PreludeBase *)OpenLibrary("prelude.library",1);
if(!PreludeBase) printf("Sorry, no Prelude available\n");

signal=AllocSignal(-1);
if(!signal) {
        PreludeBase->PrlCtrl->PL_SigTask=0;
        CloseLibrary((struct Library *)PreludeBase);
        return(0);
        };

rectags[3].ti_Data=(ULONG)FindTask((UBYTE *)NULL);
rectags[4].ti_Data=1L<<signal;

  myargs = (struct RDArgs *)ReadArgs(template,args,0);

  if(args[a_filename]) printf("%s with:\n",args[a_filename]);
  if(args[a_freq]) printf("Freq: %ld\n",atoi((STRPTR)args[a_freq]));
  if(args[a_length]) printf("Length: %ld\n",atoi((STRPTR)args[a_length]));
  if(args[a_cardid]) printf("Record on Card ID %ld\n",atoi((STRPTR)args[a_cardid]));
  printf("Mode: ");
  if(args[a_msb16]) printf("MSB 16Bit ");
  if(args[a_lsb16]) printf("LSB 16Bit ");
  if(args[a_8bit]) printf("8 Bit ");
  if(args[a_adpcm]) printf("ADPCM ");
  if(args[a_mono]) printf("Mono ");
  else             printf("Stereo ");
  printf("\n");
  if(args[a_volume]) printf("Gain: %ld\n",atoi((STRPTR)args[a_volume]));
  if(args[a_line]) printf("Input from Line\n");
  if(args[a_aux1]) printf("Input from Aux1\n");
  if(args[a_mic]) printf("Input from Mic\n");
  if(args[a_bufsize]) printf("Using %ldk buffers\n",atoi((STRPTR)args[a_bufsize]));


  if(args[a_freq]) PlayFreq=atoi((STRPTR)args[a_freq]); else PlayFreq=44100;
  if(args[a_length]) Length=atoi((STRPTR)args[a_length]); else Length=0;
  if(args[a_bufsize]) BufSize=atoi((STRPTR)args[a_bufsize])*1024; else BufSize=64*1024;
  PlayMode=0;
  if(args[a_msb16]) PlayMode=PRL_FMT|PRL_FMTX;
  if(args[a_lsb16]) PlayMode=PRL_FMT;
  if(args[a_8bit])  PlayMode=0;
  if(args[a_adpcm]) PlayMode=PRL_FMTX|PRL_Compressed;
  if(!args[a_mono])  PlayMode|=PRL_Stereo;

  if(args[a_cardid]) CardID=atoi((STRPTR)args[a_cardid]);
  if(args[a_volume]) Volume=atoi((STRPTR)args[a_volume]); else Volume=0;

  if(args[a_line]) { tags[0].ti_Data=PRL_InLINE; tags[1].ti_Data=PRL_InLINE; };
  if(args[a_mic]) { tags[0].ti_Data=PRL_InMIC; tags[1].ti_Data=PRL_InMIC; };
  if(args[a_aux1]) { tags[0].ti_Data=PRL_InAUX1; tags[1].ti_Data=PRL_InAUX1; };

  tags[2].ti_Data=Volume;
  tags[3].ti_Data=Volume;
  
  if(args[a_filename]) { FileName=(STRPTR)AllocVec(strlen((STRPTR)args[a_filename])+16,MEMF_CLEAR);
                         strcpy(FileName,(STRPTR)args[a_filename]);
                         } else FileName=0;
    
  FreeArgs(myargs);

  buffer[0]=(APTR)AllocVec(BufSize,MEMF_CLEAR);  
  buffer[1]=(APTR)AllocVec(BufSize,MEMF_CLEAR);

  rectags[0].ti_Data=(ULONG)buffer[0];
  rectags[1].ti_Data=(ULONG)buffer[1];
  rectags[2].ti_Data=BufSize;

  if((!buffer[0])||(!buffer[1])) {
                if(buffer[0]) FreeVec(buffer[0]);
                if(buffer[1]) FreeVec(buffer[1]);
                if(FileName) FreeVec(FileName);
                printf("%s\n",no_memory);
                PreludeBase->PrlCtrl->PL_SigTask=0;
                FreeSignal(signal);
                CloseLibrary((struct Library *)PreludeBase);
                return(0);
                };

  fhandle=Open(FileName,MODE_NEWFILE);
  if(!fhandle) {
                if(buffer[0]) FreeVec(buffer[0]);
                if(buffer[1]) FreeVec(buffer[1]);
                if(FileName) FreeVec(FileName);
                printf("%s\n",no_file);
                PreludeBase->PrlCtrl->PL_SigTask=0;
                FreeSignal(signal);
                CloseLibrary((struct Library *)PreludeBase);
                return(0);
                };
  
  tags[4].ti_Data=PlayMode;
  tags[5].ti_Data=PlayFreq;
  
  SetPrlCtrl(tags);
  PrlRecord(rectags);

  for(actbuf=0;;actbuf=1-actbuf) {
        signals=Wait(1L<<signal|SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D);
        if((signals&SIGBREAKF_CTRL_C)||(signals&SIGBREAKF_CTRL_D)) break;
        Write(fhandle,buffer[actbuf],BufSize);
        if(Length!=0) {
                Length=(Length-BufSize)|1;
                if(Length<2) break;
                };
        };

  PrlStop(0);
  FreeSignal(signal);
  CloseLibrary((struct Library *)PreludeBase);
  if(fhandle) Close(fhandle);
  if(buffer[0]) FreeVec(buffer[0]);
  if(buffer[1]) FreeVec(buffer[1]);
  if(FileName) FreeVec(FileName);
  return(0);
}

void out_put(char *outtxt)
{
Write(Output(),outtxt,strlen(outtxt));
}

long file_length(file)   /* returns 0      if file doesn't exist  */
char *file;             /* returns -1     if file is a directory */
{                      /* returns length of file            */
long length;
BPTR lock;
struct FileInfoBlock *fib_ptr;

fib_ptr = AllocVec(sizeof(struct FileInfoBlock),MEMF_CLEAR|MEMF_PUBLIC);
if(!fib_ptr) return 0L;
   lock = Lock((char *)file,SHARED_LOCK);
   if(!lock) {
        FreeVec(fib_ptr);
        return(0L);
        };
   if(!Examine((BPTR)lock,fib_ptr))
            {
             FreeVec(fib_ptr);
                return(0L);
            };
 length=fib_ptr->fib_Size;
 UnLock((BPTR)lock);
 FreeVec(fib_ptr);

if(!length) length--;
return(length);
}

void itoa(n,s)
register int n;
register char s[];
{
ltoa((long)(n),s);
}
void ltoa(n,s)
register long n;
register char s[];
{
register int i = 0, vorz = 0;
if(n<0) { vorz=TRUE;
          n=-1;
        };
do      {
        s[i++] = n % 10 + '0';
        } while((n/=10)>0);
if(vorz)
s[i++]='-';
s[i]=0;
reverse(s);
}
void reverse(s)
register char *s;
{
register int c,i,j;
for(i=0,j=strlen(s)-1;i<j;i++,j--) {
        c=s[i];
        s[i]=s[j];
        s[j]=c;
        }
}