summaryrefslogtreecommitdiff
path: root/muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C
diff options
context:
space:
mode:
authorRobert Jonsson <spamatica@gmail.com>2011-03-07 19:01:11 +0000
committerRobert Jonsson <spamatica@gmail.com>2011-03-07 19:01:11 +0000
commite40fc849149dd97c248866a4a1d026dda5e57b62 (patch)
treeb12b358f3b3a0608001d30403358f8443118ec5f /muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C
parent1bd4f2e8d9745cabb667b043171cad22c8577768 (diff)
clean3
Diffstat (limited to 'muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C')
-rw-r--r--muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C533
1 files changed, 0 insertions, 533 deletions
diff --git a/muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C b/muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C
deleted file mode 100644
index 0f35faf2..00000000
--- a/muse_qt4_evolution/synti/zynaddsubfx/Misc/XMLwrapper.C
+++ /dev/null
@@ -1,533 +0,0 @@
-/*
- ZynAddSubFX - a software synthesizer
-
- XMLwrapper.C - XML wrapper
- Copyright (C) 2003-2005 Nasca Octavian Paul
- Author: Nasca Octavian Paul
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of version 2 of the GNU General Public License
- as published by the Free Software Foundation.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License (version 2) for more details.
-
- You should have received a copy of the GNU General Public License (version 2)
- along with this program; if not, write to the Free Software Foundation,
- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-
-*/
-
-#include "XMLwrapper.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include <zlib.h>
-
-#include "../globals.h"
-#include "Util.h"
-
-int xml_k=0;
-char tabs[STACKSIZE+2];
-
-const char *XMLwrapper_whitespace_callback(mxml_node_t *node,int where){
- const char *name=node->value.element.name;
-
- if ((where==MXML_WS_BEFORE_OPEN)&&(!strcmp(name,"?xml"))) return(NULL);
- if ((where==MXML_WS_BEFORE_CLOSE)&&(!strcmp(name,"string"))) return(NULL);
-
- if ((where==MXML_WS_BEFORE_OPEN)||(where==MXML_WS_BEFORE_CLOSE)) {
-/* const char *tmp=node->value.element.name;
- if (tmp!=NULL) {
- if ((strstr(tmp,"par")!=tmp)&&(strstr(tmp,"string")!=tmp)) {
- printf("%s ",tmp);
- if (where==MXML_WS_BEFORE_OPEN) xml_k++;
- if (where==MXML_WS_BEFORE_CLOSE) xml_k--;
- if (xml_k>=STACKSIZE) xml_k=STACKSIZE-1;
- if (xml_k<0) xml_k=0;
- printf("%d\n",xml_k);
- printf("\n");
- };
-
- };
- int i=0;
- for (i=1;i<xml_k;i++) tabs[i]='\t';
- tabs[0]='\n';tabs[i+1]='\0';
- if (where==MXML_WS_BEFORE_OPEN) return(tabs);
- else return("\n");
-*/
- return("\n");
- };
-
- return(0);
-};
-
-
-XMLwrapper::XMLwrapper(){
- ZERO(&parentstack,(int)sizeof(parentstack));
- ZERO(&values,(int)sizeof(values));
-
- minimal=true;
- stackpos=0;
-
- information.PADsynth_used=false;
-
- tree=mxmlNewElement(MXML_NO_PARENT,"?xml version=\"1.0\" encoding=\"UTF-8\"?");
-/* for mxml 2.1 (and older)
- tree=mxmlNewElement(MXML_NO_PARENT,"?xml");
- mxmlElementSetAttr(tree,"version","1.0");
- mxmlElementSetAttr(tree,"encoding","UTF-8");
-*/
-
- mxml_node_t *doctype=mxmlNewElement(tree,"!DOCTYPE");
- mxmlElementSetAttr(doctype,"ZynAddSubFX-data",NULL);
-
- node=root=mxmlNewElement(tree,"ZynAddSubFX-data");
-
- mxmlElementSetAttr(root,"version-major","1");
- mxmlElementSetAttr(root,"version-minor","1");
- mxmlElementSetAttr(root,"ZynAddSubFX-author","Nasca Octavian Paul");
-
- //make the empty branch that will contain the information parameters
- info=addparams0("INFORMATION");
-
- //save zynaddsubfx specifications
- beginbranch("BASE_PARAMETERS");
- addpar("max_midi_parts",NUM_MIDI_PARTS);
- addpar("max_kit_items_per_instrument",NUM_KIT_ITEMS);
-
- addpar("max_system_effects",NUM_SYS_EFX);
- addpar("max_insertion_effects",NUM_INS_EFX);
- addpar("max_instrument_effects",NUM_PART_EFX);
-
- addpar("max_addsynth_voices",NUM_VOICES);
- endbranch();
-
-};
-
-XMLwrapper::~XMLwrapper(){
- if (tree!=NULL) mxmlDelete(tree);
-};
-
-bool XMLwrapper::checkfileinformation(char *filename){
- stackpos=0;
- ZERO(&parentstack,(int)sizeof(parentstack));
- information.PADsynth_used=false;
-
- if (tree!=NULL) mxmlDelete(tree);tree=NULL;
- char *xmldata=doloadfile(filename);
- if (xmldata==NULL) return(-1);//the file could not be loaded or uncompressed
-
-
- char *start=strstr(xmldata,"<INFORMATION>");
- char *end=strstr(xmldata,"</INFORMATION>");
-
- if ((start==NULL)||(end==NULL)||(start>end)) {
- delete(xmldata);
- return(false);
- };
- end+=strlen("</INFORMATION>");
- end[0]='\0';
-
- tree=mxmlNewElement(MXML_NO_PARENT,"?xml");
- node=root=mxmlLoadString(tree,xmldata,MXML_OPAQUE_CALLBACK);
- if (root==NULL) {
- delete(xmldata);
- mxmlDelete(tree);
- node=root=tree=NULL;
- return(false);
- };
-
- root=mxmlFindElement(tree,tree,"INFORMATION",NULL,NULL,MXML_DESCEND);
- push(root);
-
- if (root==NULL){
- delete(xmldata);
- mxmlDelete(tree);
- node=root=tree=NULL;
- return(false);
- };
-
- information.PADsynth_used=getparbool("PADsynth_used",false);
-
- exitbranch();
- if (tree!=NULL) mxmlDelete(tree);
- delete(xmldata);
- node=root=tree=NULL;
-
- return(true);
-};
-
-
-/* SAVE XML members */
-
-int XMLwrapper::saveXMLfile(char *filename){
- char *xmldata=getXMLdata();
- if (xmldata==NULL) return(-2);
-
- int compression=config.cfg.GzipCompression;
-
- int fnsize=strlen(filename)+100;
- char *filenamenew=new char [fnsize];
- snprintf(filenamenew,fnsize,"%s",filename);
-
- int result=dosavefile(filenamenew,compression,xmldata);
-
- delete(filenamenew);
- delete(xmldata);
- return(result);
-};
-
-char *XMLwrapper::getXMLdata(){
- xml_k=0;
- ZERO(tabs,STACKSIZE+2);
-
- mxml_node_t *oldnode=node;
-
- node=info;
- //Info storing
- addparbool("PADsynth_used",information.PADsynth_used);
-
- node=oldnode;
- char *xmldata=mxmlSaveAllocString(tree,XMLwrapper_whitespace_callback);
-
- return(xmldata);
-};
-
-
-int XMLwrapper::dosavefile(char *filename,int compression,char *xmldata){
- if (compression==0){
- FILE *file;
- file=fopen(filename,"w");
- if (file==NULL) return(-1);
- fputs(xmldata,file);
- fclose(file);
- } else {
- if (compression>9) compression=9;
- if (compression<1) compression=1;
- char options[10];
- snprintf(options,10,"wb%d",compression);
-
- gzFile gzfile;
- gzfile=gzopen(filename,options);
- if (gzfile==NULL) return(-1);
- gzputs(gzfile,xmldata);
- gzclose(gzfile);
- };
-
- return(0);
-};
-
-
-
-void XMLwrapper::addpar(char *name,int val){
- addparams2("par","name",name,"value",int2str(val));
-};
-
-void XMLwrapper::addparreal(char *name,REALTYPE val){
- addparams2("par_real","name",name,"value",real2str(val));
-};
-
-void XMLwrapper::addparbool(char *name,int val){
- if (val!=0) addparams2("par_bool","name",name,"value","yes");
- else addparams2("par_bool","name",name,"value","no");
-};
-
-void XMLwrapper::addparstr(char *name,char *val){
- mxml_node_t *element=mxmlNewElement(node,"string");
- mxmlElementSetAttr(element,"name",name);
- mxmlNewText(element,0,val);
-};
-
-
-void XMLwrapper::beginbranch(char *name){
- push(node);
- node=addparams0(name);
-};
-
-void XMLwrapper::beginbranch(char *name,int id){
- push(node);
- node=addparams1(name,"id",int2str(id));
-};
-
-void XMLwrapper::endbranch(){
- node=pop();
-};
-
-
-
-/* LOAD XML members */
-
-int XMLwrapper::loadXMLfile(const char *filename){
- if (tree!=NULL) mxmlDelete(tree);
- tree=NULL;
-
- ZERO(&parentstack,(int)sizeof(parentstack));
- ZERO(&values,(int)sizeof(values));
-
- stackpos=0;
-
- char *xmldata=doloadfile(filename);
- if (xmldata==NULL) return(-1);//the file could not be loaded or uncompressed
-
- root=tree=mxmlLoadString(NULL,xmldata,MXML_OPAQUE_CALLBACK);
-
- delete(xmldata);
-
- if (tree==NULL) return(-2);//this is not XML
-
-
- node=root=mxmlFindElement(tree,tree,"ZynAddSubFX-data",NULL,NULL,MXML_DESCEND);
- if (root==NULL) return(-3);//the XML doesnt embbed zynaddsubfx data
- push(root);
-
- values.xml_version.major=str2int(mxmlElementGetAttr(root,"version-major"));
- values.xml_version.minor=str2int(mxmlElementGetAttr(root,"version-minor"));
-
- return(0);
-};
-
-
-char *XMLwrapper::doloadfile(const char *filename){
- char *xmldata=NULL;
- int filesize=-1;
-
- //try get filesize as gzip data (first)
- gzFile gzfile=gzopen(filename,"rb");
- if (gzfile!=NULL){//this is a gzip file
- // first check it's size
- while(!gzeof(gzfile)) {
- gzseek (gzfile,1024*1024,SEEK_CUR);
- if (gztell(gzfile)>10000000) {
- gzclose(gzfile);
- goto notgzip;//the file is too big
- };
- };
- filesize=gztell(gzfile);
-
- //rewind the file and load the data
- xmldata=new char[filesize+1];
- ZERO(xmldata,filesize+1);
-
- gzrewind(gzfile);
- gzread(gzfile,xmldata,filesize);
-
- gzclose(gzfile);
- return (xmldata);
- } else {//this is not a gzip file
- notgzip:
- FILE *file=fopen(filename,"rb");
- if (file==NULL) return(NULL);
- fseek(file,0,SEEK_END);
- filesize=ftell(file);
-
- xmldata=new char [filesize+1];
- ZERO(xmldata,filesize+1);
-
- rewind(file);
- fread(xmldata,filesize,1,file);
-
- fclose(file);
- return(xmldata);
- };
-};
-
-bool XMLwrapper::putXMLdata(char *xmldata){
- if (tree!=NULL) mxmlDelete(tree);
- tree=NULL;
-
- ZERO(&parentstack,(int)sizeof(parentstack));
- ZERO(&values,(int)sizeof(values));
-
- stackpos=0;
-
- if (xmldata==NULL) return (false);
-
- root=tree=mxmlLoadString(NULL,xmldata,MXML_OPAQUE_CALLBACK);
-
- if (tree==NULL) return(false);
-
- node=root=mxmlFindElement(tree,tree,"ZynAddSubFX-data",NULL,NULL,MXML_DESCEND);
- if (root==NULL) return (false);;
- push(root);
-
- return(true);
-};
-
-
-
-int XMLwrapper::enterbranch(char *name){
- node=mxmlFindElement(peek(),peek(),name,NULL,NULL,MXML_DESCEND_FIRST);
- if (node==NULL) return(0);
-
- push(node);
- return(1);
-};
-
-int XMLwrapper::enterbranch(char *name,int id){
- snprintf(tmpstr,TMPSTR_SIZE,"%d",id);
- node=mxmlFindElement(peek(),peek(),name,"id",tmpstr,MXML_DESCEND_FIRST);
- if (node==NULL) return(0);
-
- push(node);
- return(1);
-};
-
-
-void XMLwrapper::exitbranch(){
- pop();
-};
-
-
-int XMLwrapper::getbranchid(int min, int max){
- int id=str2int(mxmlElementGetAttr(node,"id"));
- if ((min==0)&&(max==0)) return(id);
-
- if (id<min) id=min;
- else if (id>max) id=max;
-
- return(id);
-};
-
-int XMLwrapper::getpar(char *name,int defaultpar,int min,int max){
- node=mxmlFindElement(peek(),peek(),"par","name",name,MXML_DESCEND_FIRST);
- if (node==NULL) return(defaultpar);
-
- const char *strval=mxmlElementGetAttr(node,"value");
- if (strval==NULL) return(defaultpar);
-
- int val=str2int(strval);
- if (val<min) val=min;
- else if (val>max) val=max;
-
- return(val);
-};
-
-int XMLwrapper::getpar127(char *name,int defaultpar){
- return(getpar(name,defaultpar,0,127));
-};
-
-int XMLwrapper::getparbool(char *name,int defaultpar){
- node=mxmlFindElement(peek(),peek(),"par_bool","name",name,MXML_DESCEND_FIRST);
- if (node==NULL) return(defaultpar);
-
- const char *strval=mxmlElementGetAttr(node,"value");
- if (strval==NULL) return(defaultpar);
-
- if ((strval[0]=='Y')||(strval[0]=='y')) return(1);
- else return(0);
-};
-
-void XMLwrapper::getparstr(char *name,char *par,int maxstrlen){
- ZERO(par,maxstrlen);
- node=mxmlFindElement(peek(),peek(),"string","name",name,MXML_DESCEND_FIRST);
-
- if (node==NULL) return;
- if (node->child==NULL) return;
- if (node->child->type!=MXML_OPAQUE) return;
-
- snprintf(par,maxstrlen,"%s",node->child->value.element.name);
-
-};
-
-REALTYPE XMLwrapper::getparreal(char *name,REALTYPE defaultpar){
- node=mxmlFindElement(peek(),peek(),"par_real","name",name,MXML_DESCEND_FIRST);
- if (node==NULL) return(defaultpar);
-
- const char *strval=mxmlElementGetAttr(node,"value");
- if (strval==NULL) return(defaultpar);
-
- return(str2real(strval));
-};
-
-REALTYPE XMLwrapper::getparreal(char *name,REALTYPE defaultpar,REALTYPE min,REALTYPE max){
- REALTYPE result=getparreal(name,defaultpar);
-
- if (result<min) result=min;
- else if (result>max) result=max;
- return(result);
-};
-
-
-/** Private members **/
-
-char *XMLwrapper::int2str(int x){
- snprintf(tmpstr,TMPSTR_SIZE,"%d",x);
- return(tmpstr);
-};
-
-char *XMLwrapper::real2str(REALTYPE x){
- snprintf(tmpstr,TMPSTR_SIZE,"%g",x);
- return(tmpstr);
-};
-
-int XMLwrapper::str2int(const char *str){
- if (str==NULL) return(0);
- int result=strtol(str,NULL,10);
- return(result);
-};
-
-REALTYPE XMLwrapper::str2real(const char *str){
- if (str==NULL) return(0.0);
- REALTYPE result=strtod(str,NULL);
- return(result);
-};
-
-
-mxml_node_t *XMLwrapper::addparams0(char *name){
- mxml_node_t *element=mxmlNewElement(node,name);
- return(element);
-};
-
-mxml_node_t *XMLwrapper::addparams1(char *name,char *par1,char *val1){
- mxml_node_t *element=mxmlNewElement(node,name);
- mxmlElementSetAttr(element,par1,val1);
- return(element);
-};
-
-mxml_node_t *XMLwrapper::addparams2(char *name,char *par1,char *val1,char *par2, char *val2){
- mxml_node_t *element=mxmlNewElement(node,name);
- mxmlElementSetAttr(element,par1,val1);
- mxmlElementSetAttr(element,par2,val2);
- return(element);
-};
-
-
-
-
-void XMLwrapper::push(mxml_node_t *node){
- if (stackpos>=STACKSIZE-1) {
- printf("BUG!: XMLwrapper::push() - full parentstack\n");
- return;
- };
- stackpos++;
- parentstack[stackpos]=node;
-
-// printf("push %d - %s\n",stackpos,node->value.element.name);
-
-};
-mxml_node_t *XMLwrapper::pop(){
- if (stackpos<=0) {
- printf("BUG!: XMLwrapper::pop() - empty parentstack\n");
- return (root);
- };
- mxml_node_t *node=parentstack[stackpos];
- parentstack[stackpos]=NULL;
-
-// printf("pop %d - %s\n",stackpos,node->value.element.name);
-
- stackpos--;
- return(node);
-};
-
-mxml_node_t *XMLwrapper::peek(){
- if (stackpos<=0) {
- printf("BUG!: XMLwrapper::peek() - empty parentstack\n");
- return (root);
- };
- return(parentstack[stackpos]);
-};
-
-
-