~ubuntu-branches/debian/squeeze/maxima/squeeze

(share-subdirs "{affine,algebra,calculus,combinatorics,contrib,contrib/nset,contrib/pdiff,diffequations,graphics,integequations,integration,macro,matrix,misc,numeric,physics,simplification,specfunctions,sym,tensor,trigonometry,utils,vector}"))

309

(share-subdirs-list

310

'("affine"

311

"algebra"

312

"algebra/charsets"

313

"algebra/solver"

314

"calculus"

315

"combinatorics"

316

"contrib"

317

"contrib/boolsimp"

318

"contrib/descriptive"

319

"contrib/diffequations"

320

"contrib/diffequations/tests"

321

"contrib/distrib"

322

"contrib/ezunits"

323

"contrib/format"

324

"contrib/gentran"

325

"contrib/gentran/test"

326

"contrib/Grobner"

327

"contrib/lurkmathml"

328

"contrib/maximaMathML"

329

"contrib/mcclim"

330

"contrib/numericalio"

331

"contrib/pdiff"

332

"contrib/prim"

333

"contrib/rand"

334

"contrib/sarag"

335

"contrib/simplex"

336

"contrib/simplex/Tests"

337

"contrib/solve_rec"

338

"contrib/state"

339

"contrib/stringproc"

340

"contrib/unit"

341

"contrib/Zeilberger"

342

"diffequations"

343

"lbfgs"

344

"linearalgebra"

345

"integequations"

346

"integration"

347

"macro"

348

"matrix"

349

"misc"

350

"numeric"

351

"orthopoly"

352

"physics"

353

"simplification"

354

"sym"

355

"tensor"

356

"tensor/tests"

357

"trigonometry"

358

"utils"

359

"vector"))

360

; Smash the list of share subdirs into a string of the form "{affine,algebra,...,vector}" .

361

(share-subdirs (format nil "{~{~A~^,~}}" share-subdirs-list)))

362

240

363

(setq $file_search_lisp

241

364

(list '(mlist)

242

365

;; actually, this entry is not correct.

265

388

(combine-path (list *maxima-sharedir* share-subdirs

266

389

usage-patterns))

267

390

(combine-path (list *maxima-docdir* usage-patterns))))

391

(setq $file_search_tests

392

`((mlist) ,(combine-path (list *maxima-testsdir* maxima-patterns))))

268

393

(setq $chemin

269

(concatenate 'string *maxima-symdir* "/"))

270

(setq cl-info::*info-paths* (list (concatenate 'string

271

*maxima-infodir* "/")))))

394

(list '(mlist)

395

(combine-path (list *maxima-symdir* lisp-patterns))

396

(combine-path (list *maxima-symdir* maxima-patterns))))

397

(setq cl-info::*info-paths* (list (concatenate 'string *maxima-infodir* "/")))

398

;; Share subdirs are not required here since all .info files are installed

399

;; in one directory *maxima-infodir* -- there is no info files in share.

400

;; vvzhy Jan 2, 2006

401

;(setq L (mapcar #'(lambda (x) (concatenate 'string *maxima-sharedir* "/" x "/")) share-subdirs-list))

402

;(setq cl-info::*info-paths* (append cl-info::*info-paths* L))

403

404

; Look for "foo.info" in share directory "foo".

405

(loop for d in share-subdirs-list do

406

(let ((name (if (find #\/ d) (unix-like-basename d) d)))

407

(when (cl-info::file-search name cl-info::*info-paths* '("info") nil)

408

#+debug (format t "SET-PATHNAMES: found an info file for share directory ~S~%" name)

409

(nconc cl-info::*default-info-files* `(,(concatenate 'string name ".info"))))))))

272

410

273

411

(defun get-dirs (path)

274

412

#+(or :clisp :sbcl)

282

420

(if (equal (subseq pathstring (- len 1) len) "/")

283

421

(progn (setf len (- len 1))

284

422

(setf pathstring (subseq pathstring 0 len))))

285

(subseq pathstring (+ (position #\/ pathstring :from-end t) 1) len)))

423

(subseq pathstring (+ (or (position #\/ pathstring :from-end t) (position #\\ pathstring :from-end t)) 1) len)))

286

424

287

425

(defun unix-like-dirname (path)

288

426

(let* ((pathstring (namestring path))

290

428

(if (equal (subseq pathstring (- len 1) len) "/")

291

429

(progn (setf len (- len 1))

292

430

(setf pathstring (subseq pathstring 0 len))))

293

(subseq pathstring 0 (position #\/ pathstring :from-end t))))

431

(subseq pathstring 0 (or (position #\/ pathstring :from-end t) (position #\\ pathstring :from-end t)))))

294

432

295

433

(defun list-avail-action ()

296

434

(let* ((maxima-verpkglibdir (if (maxima-getenv "MAXIMA-VERPKGLIBDIR")

325

463

(setf lisp-string (unix-like-basename lisp))

326

464

(when (search "binary-" lisp-string)

327

465

(setf lisp-string (subseq lisp-string (length "binary-")

328

(length lisp-string)))

466

(length lisp-string)))

329

467

(format t "version ~a, lisp ~a~%" version-string lisp-string))))

330

468

(bye)))

331

469

332

470

(defun process-maxima-args (input-stream batch-flag)

333

; (format t "processing maxima args = ")

334

; (mapc #'(lambda (x) (format t "\"~a\"~%" x)) (get-application-args))

335

; (terpri)

471

;; (format t "processing maxima args = ")

472

;; (mapc #'(lambda (x) (format t "\"~a\"~%" x)) (get-application-args))

473

;; (terpri)

336

474

(let ((maxima-options nil))

337

475

(setf maxima-options

338

476

(list

396

534

:action #'(lambda (file)

397

535

(load file))

398

536

:help-string "Preload <lisp-file>.")

537

(make-cl-option :names '("-q" "--quiet")

538

:action #'(lambda () (declare (special *maxima-quiet*)) (setq *maxima-quiet* t))

539

:help-string "Suppress Maxima start-up message.")

399

540

(make-cl-option :names '("--disable-readline")

400

541

:action #'(lambda ()

401

542

#+gcl

402

(si::readline-off)))

543

(si::readline-off))

544

:help-string "Disable readline support.")

403

545

(make-cl-option :names '("-s" "--server")

404

546

:argument "<port>"

405

547

:action #'(lambda (port-string)

429

571

(process-args (get-application-args) maxima-options))

430

572

(values input-stream batch-flag))

431

573

432

(defun user::run ()

574

(defun cl-user::run ()

433

575

"Run Maxima in its own package."

434

(in-package "MAXIMA")

576

(in-package :maxima)

435

577

(setf *load-verbose* nil)

436

578

(setf *debugger-hook* #'maxima-lisp-debugger)

437

579

(let ((input-stream *standard-input*)

443

585

444

586

(catch 'to-lisp

445

587

(set-pathnames)

588

(set-locale)

446

589

(setf (values input-stream batch-flag)

447

590

(process-maxima-args input-stream batch-flag))

448

#+(or cmu sbcl clisp allegro mcl)

449

591

(progn

450

592

(loop

451

(with-simple-restart (macsyma-quit "Macsyma top-level")

452

(macsyma-top-level input-stream batch-flag))))

453

#-(or cmu sbcl clisp allegro mcl)

454

(catch 'macsyma-quit

455

(macsyma-top-level input-stream batch-flag)))))

456

457

(import 'user::run)

458

459

($setup_autoload "eigen.mac" '$eigenvectors '$eigenvalues)

593

(with-simple-restart (macsyma-quit "Maxima top-level")

594

(macsyma-top-level input-stream batch-flag)))))))

595

596

(import 'cl-user::run)

460

597

461

598

(defun $to_lisp ()

462

(format t "~&Type (to-maxima) to restart~%")

599

(format t "~&Type (to-maxima) to restart, ($quit) to quit Maxima.~%")

463

600

(let ((old-debugger-hook *debugger-hook*))

464

601

(catch 'to-maxima

465

602

(unwind-protect

466

(maxima-read-eval-print-loop)

603

(maxima-read-eval-print-loop)

467

604

(setf *debugger-hook* old-debugger-hook)

468

605

(format t "Returning to Maxima~%"))))

469

)

606

)

470

607

471

608

(defun to-maxima ()

472

609

(throw 'to-maxima t))

482

619

(prin1 (eval form))))))

483

620

484

621

(defun maxima-lisp-debugger-repl (condition me-or-my-encapsulation)

622

(declare (ignore me-or-my-encapsulation))

485

623

(format t "~&Maxima encountered a Lisp error:~%~% ~A" condition)

486

624

(format t "~&~%Automatically continuing.~%To reenable the Lisp debugger set *debugger-hook* to nil.~%")

487

625

(throw 'to-maxima-repl t))

488

626

489

(defun $jfa_lisp ()

490

(format t "jfa was here"))

491

492

(defvar $help "type describe(topic) or example(topic);")

493

494

(defun $help () $help) ;

495

496

;; CMUCL needs because when maxima reaches EOF, it calls BYE, not $QUIT.

497

#+cmu

498

(defun bye ()

499

(ext:quit))

500

501

#+sbcl

502

(defun bye ()

503

(sb-ext:quit))

504

505

#+clisp

506

(defun bye ()

507

(ext:quit))

508

509

#+allegro

510

(defun bye ()

511

(excl:exit))

512

513

#+mcl

514

(defun bye ()

515

(ccl::quit))

516

517

(defun $maxima_server (port)

518

(load "/home/amundson/devel/maxima/archive/src/server.lisp")

519

(user::setup port))

627

(defvar $help "type `describe(topic);' or `example(topic);' or `? topic'")

628

629

(defun $help (&rest args)

630

(declare (ignore args))

631

$help)

632

633

;;; Now that all of maxima has been loaded, define the various lists

634

;;; and hashtables of builtin symbols and values.

635

636

;;; The symbols in problematic-symbols contains properties with

637

;;; circular data structures. Attempting to copy a circular structure

638

;;; into *builtin-symbol-props* would cause a hang. Lacking a better

639

;;; solution, we simply avoid those symbols.

640

(let ((problematic-symbols '($%gamma $%phi $global $%pi $%e)))

641

(do-symbols (s (find-package :maxima))

642

(when (and (eql (symbol-package s) (find-package :maxima))

643

(memq (getchar s 1) '($ % &)))

644

(push s *builtin-symbols*)

645

(when (not (memq s problematic-symbols))

646

(setf (gethash s *builtin-symbol-props*)

647

(copy-tree (symbol-plist s)))))))

648

649

(dolist (s *builtin-symbols*)

650

(when (boundp s)

651

(push s *builtin-symbols-with-values*)))

652

653

(dolist (s *builtin-symbols-with-values*)

654

(setf (gethash s *builtin-symbol-values*) (symbol-value s)))

655

656

(setf *builtin-$props* (copy-list $props))

657

(setf *builtin-$rules* (copy-list $rules))

Older »