optall.scm

(use-module '{logger optimize})
(config! 'optalltest #t)
(config! 'traceload #t)
;(config! 'optimize:rails #t)
;(config! 'optimize:checkusage #f)
(config! 'mysql:lazyprocs #f)
(define %loglevel %info%)

(config! 'loadpath 
	 (let ((dir (dirname (get-component "optall.scm"))))
	   (glom dir "%/module.scm:" dir "%.scm:"
	     dir "safe/%/module.scm:" dir "safe/%.scm:" )))

(optimize! 'optimize)

(define check-modules
  (macro expr
    `(begin
       (use-module ,(cadr expr))
       (do-choices (mod ,(cadr expr))
	 (loginfo |Load All| "Optimizing module " mod)
	 (optimize-module! mod)))))

(check-modules '{cachequeue calltrack checkurl codewalker
		 couchdb ctt curlcache dopool dropbox ellipsize
		 email extoids ezrecords fakezip fifo fillin
		 findcycles getcontent gpath gravatar gutdb
		 hashfs hashstats zipfs histogram hostinfo i18n
		 ice isbn jsonout logctl logger
		 meltcache mergeutils mimeout mimetable
		 mttools oauth openlibrary ;; optimize
		 opts packetfns parsetime bugjar
		 pump readcsv rulesets samplefns
		 savecontent saveopt signature speling ;; soap
		 stringfmts tinygis tracer trackrefs twilio
		 updatefile usedb varconfig whocalls ximage})

(check-modules '{aws aws/v4 aws/roles
		 aws/s3 aws/ses aws/simpledb aws/sqs 
		 aws/associates aws/dynamodb})

(check-modules '{domutils domutils/index domutils/localize
		 domutils/styles domutils/css domutils/cleanup
		 domutils/adjust domutils/analyze
		 domutils/hyphenate})

(check-modules '{facebook facebook/fbcall facebook/fbml})

(check-modules '{google google/drive})

(check-modules '{knodules knodules/drules
		 knodules/html knodules/plaintext})

(check-modules '{misc/oidshift})

(check-modules '{paypal paypal/checkout paypal/express paypal/adaptive})

(check-modules '{textindex textindex/domtext textindex/linkup})

(check-modules '{twitter})

(define (have-morph) (and (get-module 'morph) (get-module 'morph/en)))
(define (have-brico)
  (and (config 'bricosource)
       (onerror (begin (use-module 'brico) #t) #f)))						    
(define (have-lexdata)
  (and (config 'lexdata)
       (onerror (and (exists? (get (get-module 'tagger) 'lextags))
		     ((get (get-module 'tagger) 'lextags)))
	 (lambda () #f))))

(when (and (have-brico) (have-morph))
  (check-modules '{brico brico/dterms brico/indexing brico/lookup
		   brico/analytics brico/maprules brico/xdterms
		   brico/wikipedia
		   knodules/usebrico knodules/defterm
		   xtags rdf audit}))

(when (have-lexdata)
  (check-modules '{lexml}))