1/* Part of plumdrum
    2	Copyright 2012-2015 Samer Abdallah (Queen Mary University of London; UCL)
    3	 
    4	This program is free software; you can redistribute it and/or
    5	modify it under the terms of the GNU Lesser General Public License
    6	as published by the Free Software Foundation; either version 2
    7	of the License, or (at your option) any later version.
    8
    9	This program is distributed in the hope that it will be useful,
   10	but WITHOUT ANY WARRANTY; without even the implied warranty of
   11	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   12	GNU Lesser General Public License for more details.
   13
   14	You should have received a copy of the GNU Lesser General Public
   15	License along with this library; if not, write to the Free Software
   16	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
   17*/
   18
   19:- module(refcodes,[ refcode/3 ]).

 refcode(+Code:atom, -Type:atom, -Desc:atom) is semidet

refcode(-Code:atom, -Type:atom, -Desc:atom) is nondet

Catalogue of known comment codes and their meanings.

   30	refcode('COM',name,'composer\'s name').
   31	refcode('COM1',name,'first composer\'s name').
   32	refcode('COM2',name,'second composer\'s name').
   33	refcode('COM3',name,'third composer\'s name').
   34	refcode('CDT',dates,'composer\'s dates').
   35	refcode('CDT1',dates,'first composer\'s dates').
   36	refcode('CDT2',dates,'second composer\'s dates').
   37	refcode('CDT3',dates,'third composer\'s dates').
   38	refcode('CNT',country,'composer\'s nationality').
   39   refcode('COC',name,'composer\'s corporate name').
   40	refcode('COL',name,'composer\'s alias or stage-name').
   41	refcode('COA',name,'attributed composer').
   42	refcode('COS',name,'suspected composer').
   43
   44	refcode('LYR',text,'lyricist').
   45	refcode('LIB',text,'librettist').
   46	refcode('LAR',text,'arranger').
   47	refcode('LOR',text,'orchestrator').
   48   refcode('LDT',date,'lyric date').
   49
   50	refcode('TXO',lang,'original language of vocal/choral text').
   51	refcode('TXL',lang,'language of encoded vocal/choral text').
   52	refcode('TRN',name,'translator of vocal/choral text').
   53
   54	refcode('MPN',name,'performer\'s name').
   55	refcode('MPS',name,'suspected performer').
   56	refcode('MRD',date,'date of performance').
   57	refcode('MLC',place,'place of performance').
   58	refcode('MCN',name,'conductor').
   59	refcode('MPD',date,'date of first performance').
   60
   61	refcode('RTL',text,'title of album').
   62	refcode('RMM',name,'manufacturer or sponsoring company').
   63	refcode('RC#',text,'recording company\'s catalogue number').
   64	refcode('RRD',date,'date of release').
   65	refcode('RDT',date,'date of recording').
   66	refcode('RLC',place,'place of recording').
   67	refcode('RNP',name,'producer\'s name').
   68	refcode('RT#',number,'track number').
   69
   70	refcode('OTL',text,'title (in original language)').
   71	refcode('OTP',text,'popular title').
   72	refcode('OCL',name,'collector').
   73	refcode('OCO',text,'commission').
   74	refcode('ODE',text,'dedication').
   75	refcode('OKY',text,'key').
   76	refcode('OTA',text,'alternative title').
   77	refcode('OPT',text,'title of parent work').
   78	refcode('OPR',text,'title of parent work').
   79	refcode('XEN',text,'title (English translation)').
   80	refcode('XFR',text,'title (French translation)').
   81	refcode('XDE',text,'title (German translation)').
   82	refcode('XNI',text,'title (Japanese translation)').
   83	refcode('OAC',number,'act number').
   84	refcode('OSC',number,'scene number').
   85	refcode('OMV',number,'movement number').
   86	refcode('OMD',text,'movement designation').
   87	refcode('OPS',text,'opus number').
   88	refcode('ONM',number,'number').
   89	refcode('OVM',number,'volume').
   90	refcode('ONB',text,'note').
   91	refcode('ODT',date,'date of composition').
   92	refcode('OPC',place,'place of composition').
   93	refcode('OCY',country,'country of composition').
   94
   95	refcode('GTL',text,'group title').
   96	refcode('GAW',text,'associated work').
   97
   98	refcode('PUB',text,'publication status').
   99	refcode('PPR',text,'first publisher').
  100	refcode('PPG',text,'page').
  101	refcode('PDT',date,'date first published').
  102	refcode('PPP',place,'place first published').
  103	refcode('PC#',text,'publisher\'s catalogue number').
  104
  105	refcode('SCT',text,'scholarly catalogue name & number').
  106	refcode('SCA',text,'scholarly cataloge name (unabbreviated)').
  107	refcode('SMS',text,'manuscript source name').
  108	refcode('SML',place,'manuscript location').
  109	refcode('SMA',text,'acknowledgement of manuscript access').
  110
  111
  112	refcode('EED',name,'electronic editor').
  113	refcode('EEV',text,'electronic edition version').
  114	refcode('EFL',text,'file number, e.g. 1 of 4 (1/4)').
  115	refcode('EMD',text,'document modification description').
  116	refcode('EST',text,'encoding status').
  117
  118	refcode('GCO',text,'collection designation').
  119	refcode('GNM',number,'group number').
  120
  121	refcode('YEP',name,'publisher of electronic edition').
  122	refcode('YED',date,'last edited').
  123	refcode('YEC',text,'date & owner of electronic copyright').
  124	refcode('YER',date,'date electronic edition released').
  125	refcode('YEM',text,'copyright message').
  126	refcode('YEN',country,'country of copyright').
  127	refcode('ENC',name,'encoder of electronic document').
  128   refcode('URL',url,'URL').
  129	refcode('VTS',number,'checksum validation number').
  130	refcode('YOR',text,'original document').
  131	refcode('YOO',name,'original document owner').
  132	refcode('YOY',date,'original copyright year').
  133	refcode('YOE',name,'original editor').
  134	refcode('END',date,'initial encoding date').
  135
  136	refcode('ACO',text,'analytic collection designation').
  137	refcode('AMT',metre,'metric classification').
  138	refcode('AIN',list(instr),'instrumentation').
  139	refcode('AFR',text,'form designation').
  140	refcode('AGN',text,'genre designation').
  141	refcode('AMD',text,'mode designation').
  142	refcode('AST',text,'style, period or type').
  143	refcode('ARE',place,'geographic region of origin').
  144	refcode('ARL',place,'geographic location of origin').
  145   refcode('ASW',text,'associated work').
  146
  147	refcode('HAO',text,'aural history').
  148	refcode('HTX',text,'free-form translation of vocal text').
  149
  150	refcode('RLN',text,'ASCII language setting').
  151	refcode('RDF',text,'user-defined signifiers').
  152	refcode('RDT',date,'date encoded').
  153	refcode('RNB',text,'representation note').
  154	refcode('RWG',text,'representation warning').
  155
  156ref_type(metre,V) :- member(V,[simple,compound, duple,triple,quadruple,irregular]).
  157ref_type(mode,V) :- member(V,[
  158   dorian,hypodorian,phrygian,hypophrygian,lydian,mixolydian,
  159   hypomixolydian,ionian,hypoionian,aeolian,hypoaeolian])