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 #include <limits.h>
  32
  33 #include "annhell.h"
  34
  35 /*******************
  36         Data
  37 ********************/
  38
  39 /* output information */
  40
  41 static char * devfile = NULL;
  42 static char * driver = "default";
  43
  44 /* seconds to skip */
  45 static int skip_secs = 0;
  46
  47 /*******************
  48         Code
  49 ********************/
  50
  51 static void read_config(void)
  52 {
  53 }
  54
  55
  56 static int main_usage(void)
  57 {
  58         printf("Ann Hell Ex Machina %s - Music Writing Software\n", VERSION);
  59         printf("Copyright (C) 2003-2005 Angel Ortega <angel@triptico.com>\n");
  60         printf("This software is covered by the GPL license. NO WARRANTY.\n\n");
  61         printf("Usage: annhell [options] {script.ahs}\n\n");
  62         printf("Options:\n\n");
  63         printf("-o {output file or device} Set output file [default: driver dependent].\n");
  64         printf("-d {driver}                Output driver [default: 'default'].\n");
  65         printf("-L {path}                  Add path to script / data library search path.\n");
  66         printf("-r {sampling rate}         Set sampling rate [default: 44100]\n");
  67         printf("-c {# of channels}         Set number of channels [default: 2]\n");
  68         printf("-v {master volume}         Set master volume [default: 0.5]\n");
  69         printf("-s {seconds to skip}       Seconds to skip from the start of the song.\n");
  70         printf("                           [default: 0, start from the beginning]\n");
  71         printf("-z {track number}          Play track number in a solo\n");
  72         printf("-i {interpolation}         Set interpolation algorithm\n");
  73         printf("                           (0, none; 1, linear; 2, cubic spline,\n");
  74         printf("-b {size in frames}        Set maximum wave buffer size in frames, so\n");
  75         printf("                           wave files bigger than this will be paged\n");
  76         printf("                           (-1, load full wave in memory) [default: 441000]\n");
  77         printf("                           3, Lagrange) [default: 3]\n");
  78         printf("-P                         Show progress.\n");
  79         printf("-D                         Show debugging information.\n");
  80         printf("-T                         Show tracing information.\n");
  81         printf("-M                         Output song to MIDI device instead of softsynth.\n");
  82         printf("-I                         Interactive; read from MIDI device and\n");
  83         printf("                           use {script} as instrument (UNIMPLEMENTED).\n");
  84         printf("\n");
  85         printf("Internal sample size: %d bits (floating point)\n", sizeof(sample_t) * 8);
  86
  87         return(1);
  88 }
  89
  90
  91 static int main_interactive(char * script_or_ins)
  92 {
  93         printf("UNIMPLEMENTED; use the 'midiin' program instead.\n");
  94         return(0);
  95 }
  96
  97
  98 static int main_midi(char * script)
  99 {
 100         if(compile_ahs(script))
 101                 return(3);
 102
 103         if(midi_device_open(devfile) < 0)
 104         {
 105                 printf("Error: can't open MIDI device\n");
 106                 return(2);
 107         }
 108
 109         midi_song_play(skip_secs);
 110
 111         midi_device_close();
 112
 113         return(0);
 114 }
 115
 116
 117 static int main_ss(char * script)
 118 {
 119         if(ss_output_open(driver, devfile) < 0)
 120         {
 121                 printf("Error: can't init driver\n");
 122                 return(2);
 123         }
 124
 125         if(compile_ahs(script))
 126                 return(3);
 127
 128         ss_song_render(skip_secs);
 129
 130         ss_output_close();
 131
 132         printf("clipped: %d optimal volume: %f\n",
 133                 ss_output_clipped, ss_optimal_volume);
 134
 135         return(0);
 136 }
 137
 138
 139 static int annhell_main(int argc, char * argv[])
 140 {
 141         int ret = 1;
 142         int n = 1;
 143         char * opt = NULL;
 144         char * script = NULL;
 145         int midi = 0;
 146         int interactive = 0;
 147
 148         if(argc == 1)
 149                 return(main_usage());
 150
 151         read_config();
 152
 153         /* default path */
 154         add_to_library_path("~/annhell", 0);
 155
 156         while(n < argc - 1)
 157         {
 158                 opt = argv[n++];
 159
 160                 if(strcmp(opt, "-o") == 0)
 161                 {
 162                         /* set output device or file */
 163                         devfile = argv[n++];
 164                 }
 165                 else
 166                 if(strcmp(opt, "-d") == 0)
 167                 {
 168                         /* set driver */
 169                         driver = argv[n++];
 170                 }
 171                 else
 172                 if(strcmp(opt, "-L") == 0)
 173                 {
 174                         /* add path to library */
 175                         add_to_library_path(argv[n++], 0);
 176                 }
 177                 else
 178                 if(strcmp(opt, "-r") == 0)
 179                 {
 180                         /* set sampling rate */
 181                         ss_frequency = atoi(argv[n++]);
 182                 }
 183                 else
 184                 if(strcmp(opt, "-c") == 0)
 185                 {
 186                         /* set number of channels */
 187                         ss_nchannels = atoi(argv[n++]);
 188                 }
 189                 else
 190                 if(strcmp(opt, "-v") == 0)
 191                 {
 192                         /* set master volume */
 193                         ss_master_volume = (double) atof(argv[n++]);
 194                 }
 195                 else
 196                 if(strcmp(opt, "-i") == 0)
 197                 {
 198                         /* set interpolation type */
 199                         ss_interpolation = atoi(argv[n++]);
 200                 }
 201                 else
 202                 if(strcmp(opt, "-s") == 0)
 203                 {
 204                         /* seconds to skip */
 205                         skip_secs = atoi(argv[n++]);
 206                 }
 207                 else
 208                 if(strcmp(opt, "-I") == 0)
 209                 {
 210                         /* activate interactive mode */
 211                         interactive = 1;
 212                 }
 213                 else
 214                 if(strcmp(opt, "-M") == 0)
 215                 {
 216                         /* activate MIDI mode */
 217                         midi = 1;
 218                 }
 219                 else
 220                 if(strcmp(opt, "-z") == 0)
 221                 {
 222                         /* set solo track */
 223                         solo_track = atoi(argv[n++]);
 224                 }
 225                 else
 226                 if(strcmp(opt, "-b") == 0)
 227                 {
 228                         /* set page size */
 229                         ss_page_size = atoi(argv[n++]);
 230
 231                         /* if it's -1, set as 'no limit' */
 232                         if(ss_page_size < 0)
 233                                 ss_page_size = INT_MAX;
 234                 }
 235                 else
 236                 if(strcmp(opt, "-D") == 0)
 237                         debug = 1;
 238                 else
 239                 if(strcmp(opt, "-T") == 0)
 240                         trace = 1;
 241                 else
 242                 if(strcmp(opt, "-P") == 0)
 243                         show_progress = 1;
 244                 else
 245                         return(main_usage());
 246
 247         }
 248
 249         script = argv[argc - 1];
 250
 251         if(*script == '-')
 252                 return(main_usage());
 253
 254         if(interactive)
 255                 ret = main_interactive(script);
 256         else
 257         if(midi)
 258                 ret = main_midi(script);
 259         else
 260                 ret = main_ss(script);
 261
 262         return(ret);
 263 }
 264
 265
 266 int main(int argc, char * argv[])
 267 {
 268         return(annhell_main(argc, argv));
 269 }