int main(int argc, char **argv)
{
char maxima[10];
char dc[10];
int64_t i, sum = 0;
int j;
char c;
for(i = 0; i < 10; i++)
maxima[i] = 0;
init_sieve();
for(i = next_prime((PMAX/10)-1); i < PMAX && i > 0; i = next_prime(i)) {
dcount(i, dc);
for(j = 0; j < 10; j++)
if(dc[j] > maxima[j])
maxima[j] = dc[j];
}
for(j = 0; j < 10; j++) {
c = j == 9 ? '\n' : ',';
printf("%d%c", maxima[j], c);
}
for(i = next_prime((PMAX/10)-1); i < PMAX && i > 0; i = next_prime(i)) {
dcount(i, dc);
for(j = 0; j < 10; j++)
if(dc[j] == maxima[j])
sum += i;
}
printf("%ld\n", sum);
return 0;
}
program()
{
//hard coded editor at the moment
//http://www.nano-editor.org/docs.php
var editor="nano";
//restrict to editing records for now
//#define ALLOW_EDIC
#ifdef ALLOW_EDIC
if (dcount(COMMAND,FM)<3) {
#else
if (dcount(COMMAND,FM)<2) {
#endif
//quit if arguments
if (dcount(COMMAND,FM)<2)
abort(
"Syntax is:"
"\nedit databasefilename key ..."
#ifdef ALLOW_EDIC
"\nor"
"\nedit osfilename"
#endif
);
//switch to edic if only one argument
osshell(COMMAND.replace(1,0,0,"edic").convert(FM," "));
stop();
}
var filename=COMMAND.a(2);
var key=COMMAND.a(3);
//connect to the database
if (not connect())
stop("Please login");
//check the file exists
var file;
if (not open(filename,file))
stop("Cannot open file " ^ filename);
//get the record from the database
var record;
if (not read(record,file,key)) {
//check if exists in upper or lower case
var key2=key.ucase();
if (key2 eq key)
key2.lcaser();
if (read(record,file,key2))
key=key2;
else
record="";
}
//convert to text format
record.swapper("\\","\\\\");
record.swapper("\n","\\n");
record.swapper(FM,"\n");
//put the record on a temp file in order to edit it
var temposfilename=filename^ "~" ^ key;
var invalidfilechars=L"\"\'\u00A3$%^&*(){}[]:;#<>?,./\\|";
temposfilename.converter(invalidfilechars,str("-",len(invalidfilechars)));
temposfilename^=".tmp";
oswrite(record,temposfilename);
//record file update timedate
var fileinfo=osfile(temposfilename);
if (not fileinfo)
abort("Couldnt write local copy for editing "^temposfilename);
//fire up the editor
var editcmd=editor ^ " " ^ temposfilename.quote();
printl(editcmd);
osshell(editor ^ " " ^ temposfilename);
//if the file has been updated
var fileinfo2=osfile(temposfilename);
if (fileinfo2 eq fileinfo) {
//file has not been edited
osdelete(temposfilename);
} else {
//file has been edited
var record2;
osread(record2,temposfilename);
//remove trailing lf or cr or crlf
trimmerb(record2,"\r\n");
//convert to record format
record2.swapper("\n",FM);
record2.swapper("\\n","\n");
record2.swapper("\\\\","\\");
if (record2 ne record) {
//print("Ok to update? ");
//var reply=inputl();
var reply="Y";
//keep trying to update - perhaps futilely
//at least temp file will be left in the directory
while (ucase(reply)[1] eq "Y" and true) {
if (write(record2,file,key)) {
printl(filename^" written "^key);
osdelete(temposfilename);
break;
}
var temp;
temp.input();
}
}
}
}
program()
{
//check command syntax
//edit filename
if (dcount(COMMAND,FM)<2)
abort("Syntax is 'edic osfilename'");
var verbose=OPTIONS.ucase().index("V");
var editor=osgetenv("VISUAL");
var linenopattern="$LINENO ";
if (not editor)
editor.osgetenv("EDITOR");
//TODO simplify this editor finding code
//enable edit at first error for crimson editor (no quotes around filename for cedt)
if (editor.lcase().index("cedt") and not editor.index("$") )
editor^=" /L:$LINENO $FILENAME";
//look for installed nano
//if (SLASH eq "\\" and not index(PLATFORM_,"x64")) {
var nanopath="";
if (SLASH eq "\\") {
//look for nano.exe next to edic.exe
if (not editor)
nanopath=EXECPATH.swap("edic","nano");
if (nanopath.osfile())
editor="nano $LINENO'$FILENAME'";
}
//look for nano in parent bin
if (not editor) {
nanopath="..\\bin\\nano.exe";
if (nanopath.osfile())
editor="nano $LINENO'$FILENAME'";
}
//look for nano in release directory during exodus development
if (not editor) {
nanopath="..\\..\\release\\cygwin\\bin\\nano.exe";
if (nanopath.osfile())
editor="..\\..\\release\\cygwin\\bin\\nano $LINENO'$FILENAME'";
else {
nanopath="..\\"^nanopath;
if (nanopath.osfile())
editor="..\\..\\..\\release\\cygwin\\bin\\nano $LINENO'$FILENAME'";
}
}
if (editor.index("nano"))
linenopattern="+$LINENO ";
//otherwise on windows try to locate CYGWIN nano or vi
var cygwinpath="";
if (not editor and SLASH eq "\\") {
//from environment variable
cygwinpath=osgetenv("CYGWIN_BIN");
//else from current disk
if (not cygwinpath)
cygwinpath="\\cygwin\\bin\\";
//else from c:
if (not osdir(cygwinpath))
cygwinpath="c:\\cygwin\\bin\\";
//else give up
if (not osdir(cygwinpath))
cygwinpath="";
if (cygwinpath and cygwinpath[-1] ne SLASH)
cygwinpath^=SLASH;
//editor=cygwinpath^"bash --login -i -c \"/bin/";
editor=cygwinpath;
if (osfile(cygwinpath^"nano.exe") or osfile("nano.exe")) {
editor="nano $LINENO'$FILENAME'";
if (osfile(cygwinpath^"nano.exe"))
editor.splicer(1,0,cygwinpath);
//editor^="\"";
linenopattern="+$LINENO ";
} else if (osfile(cygwinpath^"vi.exe") or osfile("vi.exe")) {
editor="vi -c \":$LINENO\" $FILENAME";
if (osfile(cygwinpath^"vi.exe"))
editor.splicer(1,0,cygwinpath);
//editor^="\"";
} else
editor="";
}
if (SLASH eq "\\") {
//configure nanorc (on windows)
//TODO same for non-windows
//nano on windows looks for nanorc config file as follows (probably merges all found)
//C:\cygwin\usr\local\etc\nanorc
//C:\cygwin\etc\nanorc (only if cygwin exists)
//C:\Documents and Settings\USERNAME\.nanorc ($HOMEDRIVE$HOMEPATH)
var nanorcfilename;
if (cygwinpath) {
nanorcfilename=cygwinpath.field(SLASH,1,dcount(cygwinpath,SLASH)-2) ^ SLASH ^ "etc" ^ SLASH ^ "nanorc";
} else {
nanorcfilename=osgetenv("HOME");
if (not nanorcfilename)
nanorcfilename=osgetenv("HOMEDRIVE") ^ osgetenv("HOMEPATH");
if (nanorcfilename[-1] ne SLASH)
nanorcfilename^=SLASH;
nanorcfilename^=".nanorc";
}
if (not osfile(nanorcfilename)) {
//var nanorctemplatefilename=EXECPATH.field(SLASH,1,dcount(EXECPATH,SLASH)-1) ^ SLASH ^ "nanorc";
var nanorctemplatefilename=nanopath.field(SLASH,1,dcount(nanopath,SLASH)-1) ^ SLASH ^ "nanorc";
if (not osfile(nanorctemplatefilename))
nanorctemplatefilename.swapper("release","..\\release");
//if (not osfile(nanorctemplatefilename))
// nanorctemplatefilename.swapper("release","..\\"^PLATFORM_^"\\release");
if (oscopy(nanorctemplatefilename,nanorcfilename)) {
printl("Copied " ^ nanorctemplatefilename.quote() ^ " to " ^ nanorcfilename.quote());
var ().input("Note: nano c++ syntax highlighting has been installed. Press Enter ... ");
} else {
errputl("Could not copy " ^ nanorctemplatefilename.quote() ^ " to " ^ nanorcfilename.quote());
if (not osfile(nanorctemplatefilename))
errputl("nano syntax highlighting file is missing.");
}
}
if(not osgetenv("HOME"))
ossetenv("HOME",osgetenv("HOMEDRIVE") ^ osgetenv("HOMEPATH"));
}
if (not editor) {
if (SLASH eq "/")
editor="nano ";
else
editor="notepad";
printl("Environment EDITOR not set. Using " ^ editor);
}
//editor="vi";
editor.swapper("nano ", "nano --const --nowrap --autoindent --suspend ");
if (editor.index("nano"))
printl("http://www.nano-editor.org/dist/v2.1/nano.html");
//configure nano syntax highlighting
var filenames=field(COMMAND,FM,2,99999);
var nfiles=dcount(filenames,FM);
var filen=0;
while (filen<nfiles) {
filen+=1;
var filename=filenames.a(filen).unquote();
//split out trailing line number after :
var startatlineno=field(filename,":",2);
if (startatlineno.isnum())
filename=field(filename,":",1);
else
startatlineno="";
filename.trimmerb(".");
if (not index(field2(filename,SLASH,-1),"."))
filename^=".cpp";
var iscompilable=filename.field2(".",-1)[1].lcase() ne "h";
//make absolute in case EDITOR changes current working directory
var editcmd=editor;
if (editcmd.index("$ABSOLUTEFILENAME")) {
editcmd.swapper("$ABSOLUTEFILENAME","$FILENAME");
filename=oscwd()^SLASH^filename;
}
//prepare a skeleton exodus cpp file
var newfile=false;
if (iscompilable and not osfile(filename)) {
var basefilename=field2(filename,SLASH,-1);
basefilename=basefilename.field(".",dcount(basefilename,".")-1);
var progtype;
var question="1=Normal Program, 2=External Subroutine or Function";
//question^="\n3=main(), 4=simple so/dll\n";
question^="\n"^basefilename.quote()^" does not exist. Create what? (1-2) ";
while (true) {
if (basefilename.substr(1,5).lcase() eq "dict_")
progtype=5;
else
progtype.input(question);
if (progtype eq 2)
progtype="classlib";
else if (progtype eq 3)
progtype="main";
else if (progtype eq 4)
progtype="mainlib";
else if (progtype eq 1)
progtype="class";
else if (progtype eq 5)
progtype="dict";
else
stop();
break;
}
newfile=true;
var blankfile="";
if (progtype eq "main" or progtype eq "mainlib") {
startatlineno="4,9";
blankfile^="#include <exodus/exodus.h>\n";
blankfile^="\n";
blankfile^="program() {\n";
blankfile^="\tprintl(\""^basefilename^" says 'Hello World!'\");\n";
if (progtype eq "mainlib")
blankfile^="\treturn 0;\n";
blankfile^="}\n";
if (progtype eq "mainlib")
blankfile.swapper("program()","function "^basefilename^"()");
} else if (progtype eq "class" or progtype eq "classlib") {
startatlineno="6,9";
blankfile^="#include <exodus/program.h>\n";
//programinit() as 2nd line to avoid ppl in external functions before programinit
//blankfile^="\n";
blankfile^="programinit()\n";
blankfile^="\n";
blankfile^="function main(";
//the .h maker not able to parse this yet and is rather clumsy anyway
//if (progtype eq "classlib")
// blankfile^="/*in arg1, out arg2*/";
blankfile^=") {\n";
blankfile^="\tprintl(\""^basefilename^" says 'Hello World!'\");\n";
blankfile^="\treturn 0;\n";
blankfile^="}\n";
blankfile^="\nprogramexit()";
blankfile^="\n";
if (progtype eq "classlib")
blankfile.swapper("program","library");
} else if (progtype eq "dict") {
startatlineno="6,9";
blankfile^="#include <exodus/dict.h>\n\n";
//programinit() as 2nd line to avoid ppl in external functions before programinit
//blankfile^="\n";
blankfile^="dict(EXAMPLEDICTID1) {\n";
blankfile^="\tANS=RECORD(1)^\"x\";\n";
blankfile^="}\n\n";
blankfile^="dict(EXAMPLEDICTID2) {\n";
blankfile^="\tANS=RECORD(2)^\"x\";\n";
blankfile^="}\n";
}
if (blankfile[1] ne "\n")
blankfile^="\n";
if (SLASH ne "/")
blankfile.swapper("\n","\r\n");
if (not oswrite(blankfile,filename))
stop("Cannot create "^filename^". Invalid file name, or no rights here.");
// startatlineno="4,9";
//startatlineno="";
}
var editcmd0=editcmd;
var linenopattern0=linenopattern;
//keep editing and compiling until no errors
while (true) {
editcmd=editcmd0;
linenopattern=linenopattern0;
//record the current file update timestamp
var fileinfo=osfile(filename);
//build the edit command
if (editcmd.index("$LINENO")) {
if (not startatlineno)
linenopattern="";
else
linenopattern.swapper("$LINENO",startatlineno.field(",",1));
editcmd.swapper("$LINENO",linenopattern);
}
if (editcmd.index("$FILENAME"))
editcmd.swapper("$FILENAME",filename);
else
editcmd ^= " " ^ filename;
//call the editor
if (verbose)
printl(editcmd);
osshell(editcmd);
//if the file hasnt been updated
var fileinfo2=osfile(filename);
if (fileinfo2 ne fileinfo)
newfile=false;
else {
//delete the skeleton
printl("File unchanged. Not saving.");
if (newfile)
osdelete(filename);
//move to the next file
break;
}
//clear the screen (should be cls on win)
if (SLASH eq "/")
osshell("clear");
//else
// osshell("cls");
if (not iscompilable)
break;
//build the compiler command
var compiler="compile";
var compileoptions="";
var compilecmd=compiler ^ " " ^ filename.quote() ^ compileoptions;
//capture the output
var compileoutputfilename=filename ^ ".2";
if (SLASH eq "/")
compilecmd ^= " 2>&1 | tee " ^ compileoutputfilename.quote();
else
compilecmd ^= " > " ^ compileoutputfilename.quote() ^ " 2>&1";
//call the compiler
if (verbose)
printl(compilecmd);
osshell(compilecmd);
//var tt;
//tt.inputl("Press Enter ...");
//if any errors then loop back to edit again
var errors;
if (osread(errors,compileoutputfilename)) {
osdelete(compileoutputfilename);
if (SLASH ne "/")
print(errors);
startatlineno="";
var charn;
//gnu style error lines
if (charn=index(errors, ": error:")) {
startatlineno=errors.substr(charn-9,9);
//printl(startatlineno);
startatlineno=startatlineno.field2(":",2);
//printl(startatlineno);
//msvc style error lines
//test.cpp(6) : error C2143: syntax error : missing ';' before '}'
} else if (charn=index(errors,") : error ")) {
startatlineno=errors.substr(charn-10,10).field2("(",2);
}
if (startatlineno) {
print("Press any key to re-edit at line "^startatlineno^" ... ");
var().input("");
continue;
}
}
break;
}
}
}