From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/tools/am4up.c | 120 ---------------------------------------------- 1 file changed, 120 deletions(-) delete mode 100644 amforth-6.5/tools/am4up.c (limited to 'amforth-6.5/tools/am4up.c') diff --git a/amforth-6.5/tools/am4up.c b/amforth-6.5/tools/am4up.c deleted file mode 100644 index 3c9a46f..0000000 --- a/amforth-6.5/tools/am4up.c +++ /dev/null @@ -1,120 +0,0 @@ -// Filter to upload files to amforth from minicom - // Al Williams http://www.hotsolder.com -// Originally for the elf (if you were wondering about the names) -// 17 Sept 2010 -- Public Domain -// 22 Sept 2010 -- Added forced return at end of file - #include - #include - #include - #include - - // Minicom uploader has stdin connected to serial input, - // stdout connected to serial output - // stderr connects back to minicom - // exit code 0 for success or non zero for fail - - // To set this up, use Control+AO and configure file transfer - // protcols. Set a name and the program file name - // Set Name=Y, U/D to U, FullScrn to N, IO-Red to Y, and Multi to N - -// OR you can put this in /etc/minicom/minirc.amforth - -/**************** Start file on line below -# Machine-generated file - use setup menu in minicom to change parameters. -pu pname10 YUNYNamforth -pu pprog10 am4up -pu baudrate 9600 -pu bits 8 -pu parity N -pu stopbits 1 -pu minit -pu mreset -pu backspace BS -pu rtscts No - - **************** Line above was the last line of the file */ -// Then start minicom like this: -// minicom -w -D /dev/ttyUSB1 amforth -// This presumes you have am4up (this file compiled with gcc) on your path -// and you are using /dev/ttyUSB1. -// -// To compile this file: -// gcc -o am4up am4up.c -// Then copy the am4up executable to your path somewhere - - // The character pacing is handled by waiting for the echo - // The line pacing is handled by waiting for > or k - // A ? in the prompt output indicates an error - // Note you might still be in a defining word so - // when you get an error you might have to enter a ; to get back - // to a normal prompt. - - - // wait for prompt -- errc is an error character - void elfwait(int errc) - { - int c; - // wait for response - while ((c=getchar())!='>' && c!='k') - { - fputc(c,stderr); - if (c==errc) { fprintf(stderr,"\nError - %c\n",errc); exit(2); } - } - fputc(c,stderr); - } - - - int main(int argc, char *argv[]) - { - FILE *f=NULL; - time_t t0,t1; - int c; - int lastchar; - fprintf(stderr,"am4up V2 by Al Williams\nhttp://www.hotsolder.com\nUploading "); - if (argc>1) - { - fprintf(stderr,"%s...\n",argv[1]); - f=fopen(argv[1],"r"); - } - if (!f) { fprintf(stderr, "No file\n"); exit(1); } - putchar('\r'); putchar('\n'); - elfwait('\0'); - time(&t0); - lastchar='\n'; - while (lastchar!=EOF) - { - int c1; - c= getc(f); - if (c==EOF && lastchar=='\n') break; - // newline == CRLF - if ((c=='\n'||c=='\r') && lastchar=='\n') continue; // blank line - if (c=='\\' && lastchar=='\n') - { - // comment - while (c!='\n' && c!=EOF) c=getc(f); - if (c==EOF) break; - continue; - } - // remember last character except leading blanks - if (c==EOF || lastchar!='\n' || !isspace(c)) lastchar=c; - if (c=='\t') c=' '; - if (c=='\n') c='\r'; - if (c==EOF) c='\r'; // final return - putchar(c); - // read echo - do - { - c1=getchar(); - fputc(c1,stderr); - } while (c1!=c); - - if (c=='\r' || c==EOF) - { - elfwait('?'); - } - } - time(&t1); - fprintf(stderr,"\nTransfer time=%ld seconds\n",t1-t0); - - return 0; - } -- cgit v1.2.3