package.lisp
108 lines
| 3.3 KiB
| text/x-common-lisp
|
CommonLispLexer
/ src / package.lisp
r1 | ||||
(in-package cl-user) | ||||
r46 | (defpackage :txt2web.js) | |||
r25 | ||||
r46 | (defpackage :txt2web.main | |||
(:use :cl :ps :txt2web.js) | ||||
r25 | (:export #:api-call #:by-id | |||
r41 | #:has | |||
r39 | ||||
r45 | #:*globals #:*objs #:*current-location | |||
r39 | #:*started-at #:*timer-interval #:*timer-obj #:*loaded-games | |||
#:*acts #:*state-stash #:*playing #:*locals | ||||
r40 | #:*games #:*main-game #:*locs #:*menu-resume | |||
r39 | )) | |||
r25 | ||||
r37 | (defpackage :code-walker | |||
(:use :cl) | ||||
(:export #:deftransform | ||||
#:deftransform-stop | ||||
#:walk | ||||
#:whole | ||||
#:walk-continue)) | ||||
r25 | ;;; API functions | |||
r46 | (defpackage :txt2web.api | |||
(:use :cl :ps :txt2web.main :txt2web.js) | ||||
r25 | (:export #:with-frame #:with-call-args | |||
#:stash-state | ||||
r42 | #:report-error #:sleep #:init-dom #:call-serv-loc #:*serv-vars* | |||
r25 | #:newline #:clear-id #:prepare-contents #:get-id #:set-id #:append-id | |||
#:init-args #:get-result #:call-loc #:call-act | ||||
#:get-frame #:add-text #:get-text #:clear-text #:enable-frame | ||||
#:add-act #:del-act #:clear-act #:update-acts | ||||
r42 | #:set-str-element #:set-any-element #:set-serv-var | |||
r25 | #:*var #:new-value #:index-num #:get #:set #:kill | |||
#:var-real-name #:ensure-var #:var-ref #:get-var #:set-var | ||||
#:get-array #:set-array #:kill-var #:array-size | ||||
#:push-local-frame #:pop-local-frame #:current-local-frame #:new-local | ||||
#:update-objs | ||||
#:menu | ||||
#:clean-audio | ||||
#:show-image | ||||
#:opengame #:savegame | ||||
)) | ||||
;;; QSP library functions and macros | ||||
r46 | (defpackage :txt2web.lib | |||
(:use :cl :ps :txt2web.main :txt2web.js) | ||||
(:local-nicknames (#:api :txt2web.api) | ||||
r37 | (#:walker :code-walker)) | |||
r60 | (:export #:str #:exec #:qspblock #:qsploop #:game #:location | |||
r28 | #:qspcond #:qspvar #:set #:local #:jump | |||
r25 | ||||
#:killvar #:killall | ||||
#:obj #:loc #:no | ||||
#:qspver #:curloc | ||||
#:rnd #:qspmax #:qspmin | ||||
#:arrsize #:len | ||||
#:mid #:ucase #:lcase #:trim #:replace #:val #:qspstr | ||||
#:exit #:desc | ||||
#:showstat #:msg | ||||
#:showacts #:delact #:cla | ||||
#:showobjs #:countobj #:getobj | ||||
#:isplay | ||||
#:view | ||||
#:showinput | ||||
#:wait #:settimer | ||||
#:local | ||||
#:opengame #:savegame | ||||
#:goto #:xgoto | ||||
#:rand | ||||
#:copyarr #:arrpos #:arrcomp | ||||
#:instr #:isnum #:strcomp #:strfind #:strpos | ||||
#:iif | ||||
#:gosub #:func | ||||
#:dynamic #:dyneval | ||||
#:main-p #:main-pl #:main-nl #:maintxt #:desc #:main-clear | ||||
#:stat-p #:stat-pl #:stat-nl #:stattxt #:stat-clear #:cls | ||||
#:curacts | ||||
#:addobj #:delobj #:killobj | ||||
#:menu | ||||
#:play #:close #:closeall | ||||
#:refint | ||||
#:usertxt #:cmdclear #:input | ||||
#:msecscount | ||||
#:rgb | ||||
#:openqst #:addqst #:killqst | ||||
)) | ||||
r46 | (setf (ps:ps-package-prefix "TXT2WEB.MAIN") "qsp_") | |||
(setf (ps:ps-package-prefix "TXT2WEB.API") "qsp_api_") | ||||
(setf (ps:ps-package-prefix "TXT2WEB.LIB") "qsp_lib_") | ||||
r36 | ||||
r25 | ;;; The compiler | |||
r46 | (defpackage :txt2web | |||
r1 | (:use :cl) | |||
r25 | (:local-nicknames (#:p #:esrap) | |||
r46 | (#:lib :txt2web.lib) | |||
(#:api :txt2web.api) | ||||
(#:main :txt2web.main) | ||||
r37 | (#:walker :code-walker)) | |||
r1 | (:export #:parse-file #:entry-point)) | |||
r25 | ||||