STDMETHODIMP FbPlaylistManager::CreateAutoPlaylist(UINT idx, BSTR name, BSTR query, BSTR sort, UINT flags, UINT * p)
{
TRACK_FUNCTION();
if (!name || !query) return E_INVALIDARG;
if (!p) return E_POINTER;
UINT pos = 0;
HRESULT hr = CreatePlaylist(idx, name, &pos);
if (FAILED(hr)) return hr;
pfc::stringcvt::string_utf8_from_wide wquery(query);
pfc::stringcvt::string_utf8_from_wide wsort(sort);
try
{
*p = pos;
static_api_ptr_t<autoplaylist_manager>()->add_client_simple(wquery, wsort, pos, flags);
}
catch (...)
{
*p = pfc_infinite;
}
return S_OK;
}
void sortintovp(int i, int m, double vpw) {
int iv, pc;
double vnom; /* vtru; */
vnom=spp.freq[i]/(double)m;
iv=0; pc=FALSE; /* pc = near coincidence of pitches */
do {
if(fabs(vpp.nomp[iv]-vnom)<0.03*vnom) {
pc=TRUE; /* yes, near coincidence */
/* if new weight > weight of old coinciding pitch, replace: */
if(vpw > vpp.weight[iv]) {
vpp.weight[iv]= vpw;
vpp.nomp[iv]= vnom;
if(shiftflag)
vpp.trup[iv]=truvp(vnom, i, m);
wsort();
}
}
iv++;
} while(!(pc || iv > vpp.count));
if(pc) return; /* pitch is already present with a higher weight */
/* here comes another, non-coinciding virtual pitch: */
if(vpp.count == VPMAX-1) {
if(vpw > vpp.weight[vpp.count]) {
vpp.weight[vpp.count]=vpw;
vpp.nomp[vpp.count]=vnom;
if(shiftflag)
vpp.trup[vpp.count]=truvp(vnom, i, m);
wsort();
}
}
else { vpp.count=vpp.count+1;
vpp.weight[vpp.count]=vpw;
vpp.nomp[vpp.count]=vnom;
if(shiftflag)
vpp.trup[vpp.count]=truvp(vnom,i,m);
wsort();
}
}
int main(int argc, char **argv)
{
int i,j,cc=0,startpagenum=-1,ecount=0,chkopt=1;
const char *envbuff;
UVersionInfo icuVersion;
char icu_version[U_MAX_VERSION_STRING_LENGTH] = "";
#ifdef WIN32
char **av;
int ac;
_setmaxstdio(2048);
#endif
kpse_set_program_name(argv[0], "upmendex");
#ifdef WIN32
file_system_codepage = CP_UTF8;
is_cp932_system = 0;
if (get_command_line_args_utf8("utf-8", &ac, &av)) {
argv = av;
argc = ac;
}
#endif
kp_ist.var_name = "INDEXSTYLE";
kp_ist.path = DEFAULT_INDEXSTYLES; /* default path. */
kp_ist.suffix = "ist";
KP_entry_filetype(&kp_ist);
kp_dict.var_name = "INDEXDICTIONARY";
kp_dict.path = DEFAULT_INDEXDICTS; /* default path */
kp_dict.suffix = "dict";
KP_entry_filetype(&kp_dict);
/* check options */
for (i=1,j=0; i<argc && j<256; i++) {
if ((argv[i][0]=='-')&&(strlen(argv[i])>=2)&&chkopt) {
switch (argv[i][1]) {
case 'c':
bcomp=1;
break;
case 'd':
if ((argv[i][2]=='\0')&&(i+1<argc)) {
dicfile=xstrdup(argv[++i]);
}
else {
dicfile=xstrdup(&argv[i][2]);
}
break;
case 'f':
force=1;
break;
case 'g':
gflg=1;
break;
case 'i':
fsti=1;
break;
case 'l':
lorder=1;
break;
case 'o':
if ((argv[i][2]=='\0')&&(i+1<argc)) {
indfile=xstrdup(argv[++i]);
}
else {
indfile=xstrdup(&argv[i][2]);
}
break;
case 'p':
if ((argv[i][2]=='\0')&&(i+1<argc)) {
i++;
if (strcmp(argv[i],"any")==0) fpage=2;
else if (strcmp(argv[i],"odd")==0) fpage=3;
else if (strcmp(argv[i],"even")==0) fpage=4;
else {
fpage=1;
startpagenum=atoi(argv[i]);
}
}
else {
if (strcmp(&argv[i][2],"any")==0) fpage=2;
else if (strcmp(&argv[i][2],"odd")==0) fpage=3;
else if (strcmp(&argv[i][2],"even")==0) fpage=4;
else {
fpage=1;
startpagenum=atoi(&argv[i][2]);
}
}
break;
case 'q':
verb=0;
break;
case 't':
if ((argv[i][2]=='\0')&&(i+1<argc)) {
logfile=xstrdup(argv[++i]);
}
else {
logfile=xstrdup(&argv[i][2]);
}
break;
case 'r':
prange=0;
break;
case 's':
if ((argv[i][2]=='\0')&&(i+1<argc)) {
styfile=xstrdup(argv[++i]);
}
else {
styfile=xstrdup(&argv[i][2]);
}
break;
case 'v':
debug=1;
break;
case '-':
if (strlen(argv[i])==2) chkopt=0;
if (strcmp(argv[i],"--help")!=0) break;
default:
u_getVersion(icuVersion);
u_versionToString(icuVersion, icu_version);
fprintf(stderr,"upmendex - index processor, %s (%s).\n",VERSION, TL_VERSION);
fprintf(stderr," Copyright 2009 ASCII MEDIA WORKS, 2015-2016 TANAKA Takuji\n");
fprintf(stderr," using ICU version %s\n",icu_version);
fprintf(stderr,"usage:\n");
fprintf(stderr,"%% upmendex [-ilqrcgf] [-s sty] [-d dic] [-o ind] [-t log] [-p no] [--] [idx0 idx1 ...]\n");
fprintf(stderr,"options:\n");
fprintf(stderr,"-i use stdin as the input file.\n");
fprintf(stderr,"-l use letter ordering.\n");
fprintf(stderr,"-q quiet mode.\n");
fprintf(stderr,"-r disable implicit page formation.\n");
fprintf(stderr,"-c compress blanks. (ignore leading and trailing blanks.)\n");
fprintf(stderr,"-g make Japanese index head <%s>.\n", AKASATANAutf8);
fprintf(stderr,"-f force to output unknown scripts.\n");
fprintf(stderr,"-s sty take sty as style file.\n");
fprintf(stderr,"-d dic take dic as dictionary file.\n");
fprintf(stderr,"-o ind take ind as the output index file.\n");
fprintf(stderr,"-t log take log as the error log file.\n");
fprintf(stderr,"-p no set the starting page number of index.\n");
fprintf(stderr,"idx... input files.\n");
exit(0);
break;
}
}
else {
cc=strlen(argv[i]);
if (cc<4) cc+=4;
else if (strcmp(&argv[i][cc-4],".idx")) cc+=4;
idxfile[j]=xmalloc(cc+1);
strcpy(idxfile[j++],argv[i]);
}
}
idxcount=j+fsti;
/* check option errors */
if (idxcount==0) idxcount=fsti=1;
if (styfile==NULL) {
envbuff=kpse_var_value("INDEXDEFAULTSTYLE");
if (envbuff!=NULL) {
styfile=xstrdup(envbuff);
}
}
/* init hangul tumunja table */
u_strcpy(tumunja,GANADA);
if (styfile!=NULL) styread(styfile);
if (!indfile &&(idxcount-fsti>0)) {
indfile=xmalloc(strlen(idxfile[0]+6));
for (i=strlen(idxfile[0]); i>=0; i--) {
if (idxfile[0][i]=='.') {
strncpy(indfile,idxfile[0],i);
sprintf(&indfile[i],".ind");
break;
}
}
if (i==-1) sprintf(indfile,"%s.ind",idxfile[0]);
}
if (!logfile && (idxcount-fsti > 0)) {
logfile=xmalloc(strlen(idxfile[0]+6));
for (i=strlen(idxfile[0]); i>=0; i--) {
if (idxfile[0][i]=='.') {
strncpy(logfile,idxfile[0],i);
sprintf(&logfile[i],".ilg");
break;
}
}
if (i==-1) sprintf(logfile,"%s.ilg",idxfile[0]);
}
if (logfile && kpse_out_name_ok(logfile))
efp=fopen(logfile,"wb");
if(efp == NULL) {
efp=stderr;
logfile=xstrdup("stderr");
}
set_icu_attributes();
if (strcmp(argv[0],"makeindex")==0) {
verb_printf(efp,"This is Not `MAKEINDEX\', But `UPMENDEX\' %s (%s).\n",
VERSION, TL_VERSION);
}
else {
verb_printf(efp,"This is upmendex %s (%s).\n",
VERSION, TL_VERSION);
}
/* init kanatable */
initkanatable();
/* read dictionary */
ecount+=dicread(dicfile);
switch (letter_head) {
case 0:
case 1:
if (gflg==1) {
u_strcpy(atama,akasatana);
}
else {
u_strcpy(atama,aiueo);
}
break;
case 2:
if (gflg==1) {
u_strcpy(atama,AKASATANA);
}
else {
u_strcpy(atama,AIUEO);
}
break;
default:
break;
}
/* read idx file */
lines=0;
ecount=0;
ind=xmalloc(sizeof(struct index));
for (i=0; i<idxcount-fsti; i++) {
ecount+=idxread(idxfile[i],lines);
}
if (fsti==1) {
ecount+=idxread(NULL,lines);
}
verb_printf(efp,"%d entries accepted, %d rejected.\n",acc,reject);
if (ecount!=0) {
verb_printf(efp,"%d errors, written in %s.\n",ecount,logfile);
lines=0;
}
if (lines==0) {
verb_printf(efp,"Nothing written in output file.\n");
if (efp!=stderr) fclose(efp);
exit(255);
}
/* sort index */
verb_printf(efp,"Sorting index.");
scount=0;
wsort(ind,lines);
verb_printf(efp,"...done(%d comparisons).\n",scount);
/* sort pages */
verb_printf(efp,"Sorting pages.");
scount=0;
pagesort(ind,lines);
verb_printf(efp,"...done(%d comparisons).\n",scount);
/* get last page */
if ((fpage>1)&&(idxcount-fsti>0)) cc=lastpage(idxfile[0]);
switch (fpage) {
case 2:
startpagenum=cc+1;
break;
case 3:
if ((cc+1)%2==0) startpagenum=cc+2;
else startpagenum=cc+1;
break;
case 4:
if ((cc+1)%2==1) startpagenum=cc+2;
else startpagenum=cc+1;
break;
default:
break;
}
/* write indfile */
verb_printf(efp,"Making index file.");
indwrite(indfile,ind,startpagenum);
verb_printf(efp,"...done.\n");
if (idxcount-fsti==0) indfile=xstrdup("stdout");
verb_printf(efp,"%d warnings, written in %s.\n",warn,logfile);
verb_printf(efp,"Output written in %s.\n",indfile);
if (efp!=stderr) fclose(efp);
return 0;
}
