PolymakeInstanceWrapper.mm

/***********************************************************************
 * Created by Andreas Paffenholz on 01/07/14.
 * Copyright 2012-2014 by Andreas Paffenholz.
 
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version: http://www.gnu.org/licenses/gpl.txt.
 
 * 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 for more details.
 *
 * PolymakeInstanceWrapper.mm
 * PolyViewer
 **************************************************************************/


#import "PolymakeInstanceWrapper.h"
#import "polymake/Main.h"
#import "polymake/Matrix.h"
#import "polymake/Array.h"
#import "polymake/Set.h"
#import "polymake/SparseMatrix.h"
#import "polymake/Rational.h"

@interface PolymakeInstanceWrapper () {
    
    polymake::Main pm_instance;
    
}
@end



@implementation PolymakeInstanceWrapper

#pragma mark init

- (id)init {
	NSLog(@"[PolymakeInstanceWrapper init] entering");

	self = [super init];
    if ( self ) {
        NSLog(@"[PolymakeInstanceWrapper init] leaving");
        return self;
    }
    
    NSLog(@"[PolymakeInstanceWrapper init] leaving, init failed");
    return nil;
}



/********************************************************************
 *
 * create a scope within our instance
 *
 ********************************************************************/
- (void)createScope {
	NSLog(@"[PolymakeInstanceWrapper createScope] entering");

    polymake::perl::Scope main_polymake_scope(polymake::perl::Scope(pm_instance.newScope()));
    pm_instance.set_application("common");

	NSLog(@"[PolymakeInstanceWrapper createScope] leaving");
}


# pragma mark config-info

/***************************************************************/
-(NSArray *)configuredExtensions {
    
    NSMutableArray * extensions = [NSMutableArray array];
    
    NSLog(@"[PolymakeInstanceWrapper configuredExtensions] called");
    
    NSString *filePath = [[NSBundle mainBundle] pathForResource:@"get_configured_extensions" ofType:@"pl"];
    polymake::perl::ListResult results = ListCallPolymakeFunction("script",[filePath UTF8String]);
    for (int i=0, end=results.size(); i<end; ++i) {
        NSString *  ext = [[NSString alloc] initWithUTF8String:results[i]];
        [extensions addObject:ext];
    }
    
    NSLog(@"[PolymakeInstanceWrapper configuredExtensions] found the following configured extensions: %@", extensions);
    return extensions;
}



# pragma mark database

/********************************************************************
 *
 * functions not bound to a particular polymake object
 * executed in the main scope of polymake
 *
 ********************************************************************/

// get the list of databases
-(NSArray *)databaseNames {
    NSLog(@"[PolymakeInstanceWrapper databaseNames] entering");
    
    NSString *filePath = [[NSBundle mainBundle] pathForResource:@"get_db_list" ofType:@"pl"];
    polymake::perl::ListResult results = ListCallPolymakeFunction("script",[filePath UTF8String]);
    
    if ( results.size() == 1 ) {
        NSLog(@"[PolymakeInstanceWrapper databaseNames] checking success");
        const char* dbstring = results[0];
        char * err = strstr(dbstring, "ERROR");
        if (err != NULL) {
            char * err_db = strstr(dbstring, "connect to server");
            char * err_timeout = strstr(dbstring, "timed out");
            if (err_db != NULL) {
                [self showCommandFailedAlert:@"could not connect to database server"];
            } else if (err_timeout != NULL) {
                [self showCommandFailedAlert:@"database query time out"];
            } else {
                [self showCommandFailedAlert:@"an unknown error occured"];
            }
            return nil;
        }
    }
    

    NSMutableArray * databases = [NSMutableArray array];

    for (int i=0, end=results.size(); i<end; ++i) {
        NSLog(@"[PolymakeInstanceWrapper databaseNames] in loop");
        const char* dbstring = results[i];
        if (strlen(dbstring) > 0) {
            NSString * db = [[NSString alloc] initWithUTF8String:dbstring];
            [databases addObject:db];
        }
    }

    NSLog(@"[PolymakeInstanceWrapper databaseNames] leaving");
    return databases;
}



// given a database get all collections
-(NSArray *)collectionNamesofDatabase:(NSString *)db {
    NSLog(@"[PolymakeInstanceWrapper collectionNamesofDatabase] entering with database %@", db);
   
    if ( [db isEqualToString:@""] )
        return nil;
    
    NSString *filePath = [[NSBundle mainBundle] pathForResource:@"get_db_collection_list" ofType:@"pl"];
    polymake::perl::ListResult results = ListCallPolymakeFunction("script",[filePath UTF8String],[db cStringUsingEncoding:NSUTF8StringEncoding]);
    
    NSLog(@"[PolymakeInstanceWrapper collectionNamesofDatabase] found %d results", results.size());
    NSMutableArray * collections = [NSMutableArray array];
    
    if ( results.size() == 1 ) {
        NSLog(@"[PolymakeInstanceWrapper collectionNamesOfDatabase] checking success");
        const char* dbstring = results[0];
        char * err = strstr(dbstring, "ERROR");
        if (err != NULL) {
            char * err_db = strstr(dbstring, "connect to server");
            char * err_timeout = strstr(dbstring, "timed out");
            if (err_db != NULL) {
                [self showCommandFailedAlert:@"could not connect to database server"];
            } else if (err_timeout != NULL) {
                [self showCommandFailedAlert:@"database query time out"];
            } else {
                [self showCommandFailedAlert:@"an unknown error occured"];
            }
            return collections;
        }
    }
    
    for (int i=0, end=results.size(); i<end; ++i) {
        const char* collstring = results[i];
        if (strlen(collstring) > 0) {
            NSLog(@"[PolymakeInstanceWrapper collectionNamesofDatabase] in loop, adding %s", collstring);
            NSString *  coll = [[NSString alloc] initWithUTF8String:results[i]];
            [collections addObject:coll];
        }
    }
    
    NSLog(@"[PolymakeInstanceWrapper collectionNamesofDatabase] leaving");
    return collections;
}

    
    /***************************************************************/
// get amount many IDs for all elements in a collection of a database, skipping the first start many elements
-(NSArray *)idsForDatabase:(NSString *)db andCollection:(NSString *)coll withAddtionalProperties:(NSString *)additionalProps restrictToAmount:(NSNumber *)amount startingAt:(NSNumber *)start {

    NSMutableArray * ids = [NSMutableArray array];
    
    NSString *filePath = [[NSBundle mainBundle] pathForResource:@"get_db_ListOfIDs" ofType:@"pl"];
    polymake::perl::ListResult results =
        ListCallPolymakeFunction("script",[filePath UTF8String],[db cStringUsingEncoding:NSUTF8StringEncoding],
                                                                [coll cStringUsingEncoding:NSUTF8StringEncoding],
                                                                (long)amount,
                                                                (long)start,
                                                                [additionalProps cStringUsingEncoding:NSUTF8StringEncoding]);
    
    if ( results.size() == 1 ) {
        NSLog(@"[PolymakeInstanceWrapper idsForDatabase andCollection withAdditionalProperties restrictToAmount startingAt] checking success");
        const char* dbstring = results[0];
        char * err = strstr(dbstring, "ERROR");
        if (err != NULL) {
            char * err_db = strstr(dbstring, "connect to server");
            char * err_timeout = strstr(dbstring, "timed out");
            if (err_db != NULL) {
                [self showCommandFailedAlert:@"could not connect to database server"];
            } else if (err_timeout != NULL) {
                [self showCommandFailedAlert:@"database query time out"];
            } else {
                [self showCommandFailedAlert:@"an unknown error occured"];
            }
            return ids;
        }
    }
    
    NSLog(@"[PolymakeInstanceWrapper collectionNamesofDatabase] retrieved: %d", results.size());
    for (int i=0, end=results.size(); i<end; ++i) {
        NSString *  id = [[NSString alloc] initWithUTF8String:results[i]];
        [ids addObject:id];
    }
    
    return ids;
}



    /***************************************************************/
// get the number of elements in a collection of a database
-(NSInteger)countForDatabase:(NSString *)db andCollection:(NSString *)coll withAddtionalProperties:(NSString *)additionalProps {
    
    NSString *filePath = [[NSBundle mainBundle] pathForResource:@"get_db_CountOfIDs" ofType:@"pl"];
    int count = CallPolymakeFunction("script",[filePath UTF8String],[db cStringUsingEncoding:NSUTF8StringEncoding],
                                       [coll cStringUsingEncoding:NSUTF8StringEncoding],
                                       [additionalProps cStringUsingEncoding:NSUTF8StringEncoding]);
    return count;
}
    






    /***************************************************************/
// error function
- (void)showCommandFailedAlert:(NSString *)reason {
    NSAlert *alert = [NSAlert alertWithMessageText:reason
                                     defaultButton:@"OK"
                                   alternateButton:nil
                                       otherButton:nil
                         informativeTextWithFormat:@""];
    
    [alert runModal];
}
    
@end