/* This programm enables easy filetransfer between different computers using the standard V24 port. This programm must run as independend job on both computers. Commands are passed in a file on the RAM disk on one of both computers. The Default filename is RAM:SERQL.IN Commands: localfilename > remotefilename send local file to host localfilename < remotefilename transfer host file END last command in file FINISH stop programm Machine dependend routines: short getser() reads one byte as integer from V24 void putser(i) write one integer as byte to V24 void initraps() initialize serial port void restoretraps() restore system parameters long fsize(str) return length of a file void delay(n) suspend job for n/50 seconds */ #include "stdio.h" main() { short a,c,d,cflg; long i,atoli(); FILE *fopen() , *fp; char local[80],remote[80],s[80],*fgets(); printf("File Transfer Programm by Rainer Kowallik\n"); printf("Commands are given in RAM:SERQL.IN\nCommands:\n"); printf("localfilename > remotefilename send local file to host\n"); printf("localfilename < remotefilename transfer host file\n"); printf("END last command in file\n"); printf("FINISH stop programm\n"); initraps(); cflg=1; while(cflg == 1) { fp=fopen("RAM:SERQL.IN","r"); /* try to open command file */ if(fp != NULL) { while(1 == 1) { if(fgets(s,80,fp) == NULL) break; a=strlen(s)-1; if(s[a] == '\n') s[a]=0; printf("command: %s\n",s); if(lexcmp(s,"END") == 0) break; if(lexcmp(s,"FINISH") ==0) {cflg=-1; break; } a=instr(" ",s); midstr(local,s,0,a-1); /* get AMIGA filename */ rightstr(s,s,a+1); left(s); d=0; if(s[0] == '<') d=1; /* get direction of transfer */ if(s[0] == '>') d=-1; if(d == 0) { printf("SERQL: bad syntax in command line\n"); break; } rightstr(remote,s,1); left(remote); /* get remote filename */ /* transmit files */ switch(d) { case 1 : /* get remotefile from host computer */ writestr(".Send"); writestr(remote); readfile(local); break; case -1 : /* write local file to host computer */ writestr(".Receive"); writestr(remote); writefile(local); break; } } fclose(fp); unlink("RAM:SERQL.IN"); /* remove command file */ } c=getser(); if(c == '.') { readstr(s); d=0; if(lexcmp(s,"Send") == 0) d=-1; if(lexcmp(s,"Receive") == 0) d=1; switch(d) { case 1 : /* receive file from host */ readstr(local); readfile(local); break; case -1 : /* send file to host */ readstr(local); writefile(local); break; case 0: /* illegal command */ printf("illegal command received from host:\n%s\n",s); break; } } delay( 2 ) ; } printf("Finish\n"); restoretraps(); } /* ----------------------------------- write file to serial port ----------------------------------- */ writefile(fnam) char fnam[]; { short c,i,n; long fl,csum,fsize(); char s[80]; FILE *fp; fl=fsize(fnam); /* get length of file */ if( fl < 0L) return(); fp=fopen(fnam,"r"); /* open file */ if(fp == NULL) { printf("can not open input file: %s\n",fnam); return(); } sendsync() ; /* try to synchronize */ litoa(fl,s); writestr(s); /* send length of file */ c=0; csum=0; /* initialize checksum */ while(c != EOF) { /* now begin to send ... */ c=fgetc(fp); if(c == EOF) break; /* the file contents ... */ putser(c); csum = csum + c; } /* to the serial port */ sendsync() ; /* try to synchronize */ litoa(csum,s); writestr(s); /* and send checksum */ fclose(fp); } /* ----------------------------------- read file from serial port ----------------------------------- */ readfile(fnam) char fnam[]; { short c,i,n; long cnt,fl,csum,atoli(); char s[80]; FILE *fp; fp=fopen(fnam,"w"); /* open file */ if(fp == NULL) { printf("can not open outputfile: %s\n",fnam); return(); } synchron(); /* get synchronization */ readstr(s); fl=atoli(s); /* get file length */ csum=0; /* initialize checksum */ for(cnt=1; cnt <= fl; cnt++) { c=wtgetser(); csum = csum + c; /* read text from V24 */ putc(c,fp); /* and write to file */ } fclose(fp); /* close and flush file */ synchron(s); /* get synchronization */ readstr(s); cnt=atoli(s); /* get checksum */ if(csum != cnt) printf("Checksum error on file : %s\n",fnam); } /* ------------------------------ send synchronization sequence ------------------------------ */ sendsync() { short i ; writestr( "//////" ) ; writestr( "0123456789" ) ; } /* --------------------------------------------- read synchronization string from serial port --------------------------------------------- */ synchron() { short i ; char s[80] ; while( 1 == 1 ) { readstr( s ) ; if( lexcmp( s, "0123456789" ) == 0 ) break ; } } /* ------------------------------------------- return position of a substring in a string ------------------------------------------- */ instr(substr,str) char str[],substr[]; { short i,p,flg,l1,l2; l1=strlen(str); l2=strlen(substr); for(p=0; p < l1; p++) { flg=0; for(i=0; i < l2; i++) { if(str[p+i] != substr[i]) { flg=-1; break; } } if(flg == 0) return(p); } return(-1); } /* ------------------------------------------------- return a substring from within a mainstring ------------------------------------------------- */ midstr(substr,str,ss,es) char substr[],str[]; short ss,es; { short i,j; i=0; for(j=ss; j <= es; j++) substr[i++]=str[j]; substr[i]=0; } /* --------------------------------------------------- return right hand end of a string --------------------------------------------------- */ rightstr(substr,str,ss) char substr[],str[]; short ss; { short l; l=strlen(str); midstr(substr,str,ss,l-1); } /* ----------------------------------------------------- return left hand side of a string ----------------------------------------------------- */ leftstr(substr,str,es) char substr[],str[]; short es; { midstr(substr,str,0,es); } /* ------------------------------------------------------- adjust string to the left, removing spaces ------------------------------------------------------- */ left(str) char str[]; { short i; i=0; while(str[i] == ' ') i++; rightstr(str,str,i); } /* ------------------------------------------------------- reverse a string ------------------------------------------------------- */ reverse(str) char str[]; { short l,n,i,c; l=strlen(str)-1, n=l/2; for(i=0; i <=n; i++) { c=str[l-i]; str[l-i]=str[i]; str[i]=c; } } /* ------------------------------------------------------ compare two strings equating upper and lower case ------------------------------------------------------ */ lexcmp(str1,str2) char str1[],str2[]; { char s1[256],s2[256]; strcpy(s1,str1); strcpy(s2,str2); strupc(s1); strupc(s2); return(strcmp(s1,s2)); } /* --------------------------------------------- convert string to upper case --------------------------------------------- */ strupc(str) char str[]; { short l,i; l=strlen(str); for(i=0; i < l; i++) str[i]=toupper(str[i]); } /* ------------------------------- Convert Long integer to string ------------------------------- */ litoa(n,s) char s[]; long n; { long i,sign; if ((sign = n) < 0) n = -n; /* take absolute value */ i = 0; do { /* generate numbers from right side */ s[i++] = n % 10 + '0'; /* next number */ } while((n /= 10) > 0); /* remove number */ if (sign < 0) s[i++] = '-'; s[i] = '\0'; reverse(s); } /* --------------------------------------------------- convert string to long integer number --------------------------------------------------- */ long atoli(s) char s[]; { long i,n,sign; for(i=0; s[i] == ' ' || s[i] == '\n' || s[i] == '\t'; i++) ; /* forget spaces */ sign = 1L; if(s[i] == '+' || s[i] == '-') /* sign ? */ sign = (s[i++] == '+') ? 1 : -1; for (n = 0; s[i] >= '0' && s[i] <= '9'; i++) n = 10 * n + s[i] - '0'; return(sign * n); } /* ----------------------------------------------------- send string to serial port. send LF after string. ----------------------------------------------------- */ writestr(s) char s[]; { int i,l,c; l=strlen(s); for(i = 0 ; i