main.c

   1 /*
   2
   3     Ann Hell Ex Machina - Music Software
   4     Copyright (C) 2003/2005 Angel Ortega <angel@triptico.com>
   5
   6     main.c - Miscellaneous functions and startup
   7
   8     This program is free software; you can redistribute it and/or
   9     modify it under the terms of the GNU General Public License
  10     as published by the Free Software Foundation; either version 2
  11     of the License, or (at your option) any later version.
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16     GNU General Public License for more details.
  17
  18     You should have received a copy of the GNU General Public License
  19     along with this program; if not, write to the Free Software
  20     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21
  22     http://www.triptico.com
  23
  24 */
  25
  26 #include "config.h"
  27
  28 #include <stdio.h>
  29 #include <string.h>
  30 #include <stdlib.h>
  31
  32 #include "annhell.h"
  33
  34 /*******************
  35         Data
  36 ********************/
  37
  38 /* output information */
  39
  40 static char * devfile=NULL;
  41 static char * driver="default";
  42
  43 /* seconds to skip */
  44 static int skip_secs=0;
  45
  46 /*******************
  47         Code
  48 ********************/
  49
  50 static void read_config(void)
  51 {
  52 }
  53
  54
  55 static int main_usage(void)
  56 {
  57         printf("Ann Hell Ex Machina %s - Music Writing Software\n", VERSION);
  58         printf("Copyright (C) 2003-2005 Angel Ortega <angel@triptico.com>\n");
  59         printf("This software is covered by the GPL license. NO WARRANTY.\n\n");
  60         printf("Usage: annhell [options] {script.ahs}\n\n");
  61         printf("Options:\n\n");
  62         printf("-o {output file or device} Set output file [default: driver dependent].\n");
  63         printf("-d {driver}                Output driver [default: 'default'].\n");
  64         printf("-L {path}                  Add path to script / data library search path.\n");
  65         printf("-r {sampling rate}         Set sampling rate [default: 44100]\n");
  66         printf("-c {# of channels}         Set number of channels [default: 2]\n");
  67         printf("-v {master volume}         Set master volume [default: 0.5]\n");
  68         printf("-s {seconds to skip}       Seconds to skip from the start of the song.\n");
  69         printf("                           [default: 0, start from the beginning]\n");
  70         printf("-i {interpolation}         Set interpolation algorithm\n");
  71         printf("                           (0, none; 1, linear; 2, cubic spline,\n");
  72         printf("                           3, Lagrange) [default: 3]\n");
  73         printf("-M                         Output song to MIDI device instead of softsynth.\n");
  74         printf("-I                         Interactive; read from MIDI device and\n");
  75         printf("                           use {script} as instrument.\n");
  76
  77         return(1);
  78 }
  79
  80
  81 static int main_interactive(char * script_or_ins)
  82 {
  83         return(0);
  84 }
  85
  86
  87 static int main_midi(char * script)
  88 {
  89         if(compile_file(script))
  90                 return(3);
  91
  92         midi_song_play(skip_secs);
  93
  94         return(0);
  95 }
  96
  97
  98 static int main_ss(char * script)
  99 {
 100         if(ss_output_open(driver, devfile) < 0)
 101         {
 102                 printf("Error: can't init driver\n");
 103                 return(2);
 104         }
 105
 106         if(compile_file(script))
 107                 return(3);
 108
 109         ss_song_render(skip_secs);
 110
 111         ss_output_close();
 112
 113         printf("clipped: %d optimal volume: %f\n",
 114                 ss_output_clipped, ss_optimal_volume);
 115
 116         return(0);
 117 }
 118
 119
 120 static int annhell_main(int argc, char * argv[])
 121 {
 122         int ret=1;
 123         int n=1;
 124         char * opt=NULL;
 125         char * script=NULL;
 126         int midi=0;
 127         int interactive=0;
 128
 129         if(argc == 1)
 130                 return(main_usage());
 131
 132         read_config();
 133
 134         while(n < argc - 1)
 135         {
 136                 opt=argv[n++];
 137
 138                 if(strcmp(opt, "-o") == 0)
 139                 {
 140                         /* set output device of file */
 141                         devfile=argv[n++];
 142                 }
 143                 else
 144                 if(strcmp(opt, "-d") == 0)
 145                 {
 146                         /* set driver */
 147                         driver=argv[n++];
 148                 }
 149                 else
 150                 if(strcmp(opt, "-L") == 0)
 151                 {
 152                         /* add path to library */
 153                         add_to_library_path(argv[n++], 0);
 154                 }
 155                 else
 156                 if(strcmp(opt, "-r") == 0)
 157                 {
 158                         /* set sampling rate */
 159                         ss_frequency=atoi(argv[n++]);
 160                 }
 161                 else
 162                 if(strcmp(opt, "-c") == 0)
 163                 {
 164                         /* set number of channels */
 165                         ss_nchannels=atoi(argv[n++]);
 166                 }
 167                 else
 168                 if(strcmp(opt, "-v") == 0)
 169                 {
 170                         /* set master volume */
 171                         ss_master_volume=(double) atof(argv[n++]);
 172                 }
 173                 else
 174                 if(strcmp(opt, "-i") == 0)
 175                 {
 176                         /* set interpolation type */
 177                         ss_interpolation=atoi(argv[n++]);
 178                 }
 179                 else
 180                 if(strcmp(opt, "-s") == 0)
 181                 {
 182                         /* seconds to skip */
 183                         skip_secs=atoi(argv[n++]);
 184                 }
 185                 else
 186                 if(strcmp(opt, "-I") == 0)
 187                 {
 188                         /* activate interactive mode */
 189                         interactive=1;
 190                 }
 191                 else
 192                 if(strcmp(opt, "-M") == 0)
 193                 {
 194                         /* activate MIDI mode */
 195                         midi=1;
 196                 }
 197                 else
 198                         return(main_usage());
 199         }
 200
 201         script=argv[argc - 1];
 202
 203         if(*script == '-')
 204                 return(main_usage());
 205
 206         /* default path */
 207         add_to_library_path("~/annhell", 0);
 208
 209         if(interactive)
 210                 ret=main_interactive(script);
 211         else
 212         if(midi)
 213                 ret=main_midi(script);
 214         else
 215                 ret=main_ss(script);
 216
 217         return(ret);
 218 }
 219
 220
 221 int main(int argc, char * argv[])
 222 {
 223         return(annhell_main(argc, argv));
 224 }