Nordsjøen.weblog

Nordsjøen has been upgraded! New look, new pages, new style for the blog.

Observatörer av de Tre Essenser

“I tid vi finna fristad.”

De Dikotomier
—————-

0. kvinnligt / manligt
1. avsaknaden / förekomsten
2. fält / gräns
3. yttre / inre
4. obalans / balans
5. integrera / sönderfalla

Nordsjøen.[transc]end is online.

It’s a collection of quotes and articles about the meaning of life, current state of the world, and various psychological topics.

I also added a spiffy PHP code snippet that puts a random header image at the top.

'
' << XrSo v0.3 >>
'
' Notation Operators
'--------------------
'
' ->   Synthesis
' =>   Aposynthesis
' :>   Definition
' []   Field Unifier
' {}   State
' .    End Statement
' ,    List
' @    Origin
'
'--------------------

DECLARE FUNCTION expand$ (cmd AS STRING)
DECLARE FUNCTION contract$ (cmd AS STRING)

CONST True = -1
CONST False = 0
CONST CHARSETNULL = 0
CONST CHARSETABC = 1
CONST CHARSETCTRL = 2
CONST CHARSETSPACE = 4

DIM SHARED chControl AS STRING
DIM SHARED chAlphanum AS STRING
DIM SHARED chWhitespace AS STRING

chControl = "-=>.,:[]{}"
chAlphanum = "@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\"
chWhitespace = " " + CHR$(9) + CHR$(10) + CHR$(13)

SCREEN 0
CLS

test$ = "time => {{refuge -> {find}} -> we}."

COLOR 15
PRINT
PRINT test$
PRINT
COLOR 7

dummy$ = contract$(expand$(test$))

test$ = "my :> [I =>], [{I -> {have}} =>]."

COLOR 15
PRINT
PRINT test$
PRINT
COLOR 7

dummy$ = contract$(expand$(test$))

END

FUNCTION contract$ (cmd AS STRING)

 '[CODE HERE]

 contract$ = cmd

END FUNCTION

FUNCTION expand$ (cmd AS STRING)

 DIM n AS INTEGER
 DIM fCharset AS INTEGER
 DIM fCurWord AS INTEGER
 DIM fExit AS INTEGER
 DIM StateDepth AS INTEGER   '{}
 DIM FieldDepth AS INTEGER   '[]
 DIM ch AS STRING * 1
 DIM CurWord AS STRING

 DIM outcmd AS STRING

 n = 0
 fCharset = CHARSETNULL
 fExit = False
 CurWord = ""

 DO

  n = n + 1
  ch = MID$(cmd, n, 1)

  fCharset = -(INSTR(chAlphanum, ch) > 0)
  fCharset = fCharset OR (-(INSTR(chControl, ch) > 0) * 2)
  fCharset = fCharset OR (-(INSTR(chWhitespace, ch) > 0) * 4)

  IF CurWord = "" THEN
   CurWord = ch
   fCurWord = fCharset
  ELSE
   IF fCharset  fCurWord THEN

    COLOR fCurWord + 8
    IF fCurWord <> CHARSETSPACE THEN PRINT CurWord + " ";

    CurWord = ""
    n = n - 1
   ELSE
    CurWord = CurWord + ch
   END IF
  END IF

  IF fCurWord = CHARSETCTRL THEN
   SELECT CASE CurWord
    CASE "->", "=>", ":>", ",", ".", "[", "]", "{", "}"

     COLOR fCurWord + 8
     PRINT CurWord + " ";

     CurWord = ""
    CASE ELSE
   END SELECT
  END IF

  IF n > LEN(cmd) THEN fExit = True     '[TEMPORARY]

 LOOP UNTIL fExit = True

 expand$ = outcmd

 PRINT

END FUNCTION

'
' << XrSo v0.2 >>
'
' XRSO1v01.BAS
'             originally chronos.bas
'
'
' Notation Operators
'--------------------
'
' ->   Synthesis
' =>   Aposynthesis
' :>   Definition
' []   Field Unifier
' {}   State
' .    End Statement
' ,    List
' @    Origin
'
'--------------------

DECLARE FUNCTION expand$ (cmd AS STRING)
DECLARE FUNCTION contract$ (cmd AS STRING)

CONST True = -1
CONST False = 0
CONST CHARSETNULL = 0
CONST CHARSETABC = 1
CONST CHARSETCTRL = 2
CONST CHARSETSPACE = 4

DIM SHARED chControl AS STRING
DIM SHARED chAlphanum AS STRING
DIM SHARED chWhitespace AS STRING

chControl = "-=>.,:[]{}"
chAlphanum = "@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\"
chWhitespace = " " + CHR$(9) + CHR$(10) + CHR$(13)

dummy$ = contract$(expand$("time => {{refuge -> {find}} -> we}."))

END

FUNCTION contract$ (cmd AS STRING)

 '[CODE HERE]

 contract$ = cmd

END FUNCTION

FUNCTION expand$ (cmd AS STRING)

 DIM n AS INTEGER
 DIM fCharset AS INTEGER
 DIM fCurWord AS INTEGER
 DIM fExit AS INTEGER
 DIM StateDepth AS INTEGER   '{}
 DIM FieldDepth AS INTEGER   '[]
 DIM ch AS STRING * 1
 DIM CurWord AS STRING

 DIM outcmd AS STRING

 n = 0
 fCharset = 0    '[MAKE CONST'S FOR THIS FOR EASIER REFERENCE]
 fExit = False
 CurWord = ""

 CLS

 DO

  n = n + 1
  ch = MID$(cmd, n, 1)

  fCharset = -(INSTR(chAlphanum, ch) > 0)
  fCharset = fCharset OR (-(INSTR(chControl, ch) > 0) * 2)
  fCharset = fCharset OR (-(INSTR(chWhitespace, ch) > 0) * 4)

  IF CurWord = "" THEN
   CurWord = ch
   fCurWord = fCharset
  ELSE
   IF fCharset  fCurWord THEN

    '[DO SOMETHING WITH CURWORD HERE BEFORE IT'S RESET]
      COLOR fCurWord + 5
      IF fCurWord <> CHARSETSPACE THEN PRINT "[" + CurWord + "]"

    CurWord = ""
    n = n - 1
   ELSE
    CurWord = CurWord + ch
   END IF
  END IF

  IF n > LEN(cmd) THEN fExit = True     '[TEMPORARY]

 LOOP UNTIL fExit = True

 expand$ = outcmd

END FUNCTION

THE MARS VOLTA – CUT THAT CITY

from

Tremulant EP

neonecropopulace has no reflection
neocaeczaristic phallic ruins
just east of the river denial the techs are breathing
welcome to this neotokyo
gridlocks will warn the chromlech alarms
bouquet of cuticles
landscape tantrums
tramontane torching the tramontane
i’ve heard the mumbling of citadels shifting on this richter scale
the alleys will flow marble intercourse
roil the pantheon… of subterfuge
tramontane torching the tramontane
this marabout isn’t untouchable
indentured by servitude
neoinfidels – let’s plug them in
neopolygraphic, trip chords
centrocircuiphobia the fallacy
welcome to neotokyo
tore the wings off seraphin, fed them to the anglophiles
in this stag caberat the bark of buildings surged, through the whipping volt abode
go to the lexicon you sluggard, if you will.

'
' chronos.bas - Unfinished.
'

'
' OPERATORS
'
' ->   Synthesis
' =>   Aposynthesis
' :>   Definition
' []   Field Unifier
' {}   State
' .    End Statement
' ,    List
' @    Origin

DECLARE FUNCTION expand$ (cmd AS STRING)
DECLARE FUNCTION contract$ (cmd AS STRING)

CONST True = -1
CONST False = 0

DIM SHARED chControl AS STRING
DIM SHARED chAlphanum AS STRING
DIM SHARED chWhitespace AS STRING

chControl = "-=>.,:[]{}"
chAlphanum = "@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\"
chWhitespace = " " + CHR$(9) + CHR$(10) + CHR$(13)

dummy$ = contract$(expand$("time => {{refuge -> {find}} -> we}."))

END

FUNCTION contract$ (cmd AS STRING)

 '[CODE HERE]

 contract$ = cmd

END FUNCTION

FUNCTION expand$ (cmd AS STRING)

 DIM n AS INTEGER
 DIM iAbc AS INTEGER
 DIM iCtrl AS INTEGER
 DIM iBlank AS INTEGER
 DIM fExit AS INTEGER
 DIM fWord AS INTEGER
 DIM StateDepth AS INTEGER   '{}
 DIM FieldDepth AS INTEGER   '[]
 DIM ch AS STRING * 1
 DIM w AS STRING
 DIM outcmd AS STRING

 n = 1
 iOperand = 0
 fExit = False
 fWord = False
 w = ""

 CLS

 DO

  ch = MID$(cmd, n, 1)

  iAbc = INSTR(chAlphanum, ch)
  iBlank = INSTR(chWhitespace, ch)
  iCtrl = INSTR(chControl, ch)

  IF LEN(w) THEN tmp$ = w ELSE tmp$ = ch

  PRINT "("; n; ")"; iAbc; iBlank; iCtrl,

  IF iAbc THEN
   IF INSTR(chAlphanum, tmp$) THEN
    w = w + ch
   ELSE
    fWord = True
   END IF
  ELSEIF iBlank THEN
   IF INSTR(chWhitespace, tmp$) THEN
    w = w + ch
   ELSE
    fWord = True
   END IF
  ELSEIF iCtrl THEN
   IF INSTR(chControl, tmp$) THEN
    w = w + ch
   ELSE
    fWord = True
   END IF
  ELSE

   '[CODE HERE]

  END IF

  IF iCtrl THEN
   SELECT CASE w
    CASE "-", "=", ":"
     fWord = False
    CASE "->"

     fWord = True
    CASE "=>"

     fWord = True
    CASE ":>"

     fWord = True
    CASE "."

     fWord = True
    CASE ","

     fWord = True
    CASE "["

     FieldDepth = FieldDepth + 1
     fWord = True
    CASE "]"

     FieldDepth = FieldDepth - 1
     fWord = True
    CASE "{"

     StateDepth = StateDepth + 1
     fWord = True
    CASE "}"

     StateDepth = StateDepth - 1
     fWord = True
    CASE ELSE

     fWord = True
   END SELECT
  END IF

  IF fWord = True THEN

   '[CODE HERE]

   COLOR 3
   PRINT "'" + ch + "'";
   COLOR 8
   PRINT " / ";
   COLOR 3
   PRINT CHR$(34) + w + CHR$(34),
   COLOR 8
   PRINT tmp$,

   COLOR 15
   PRINT w
   COLOR 8

   w = ch
   n = n + 1

  END IF

  IF n > LEN(cmd) THEN fExit = True

 LOOP UNTIL fExit = True

 expand$ = outcmd

END FUNCTION

…and output, showing it messing up word-grabbing:

"Time flies like an arrow."

[{fly} -> arrow] -> time.

or

[{fly} -> arrow] -> [{fly} -> time].

time				:>	time
time flies			:>	time <- {fly}
time flies like			:>	[time <- {fly}] <- [{fly}
time flies like an arrow	:>	[time <- {fly}] <- [{fly} <- arrow]
time flies like an arrow.	:>	{[{fly} -> arrow] -> [{fly} -> time]} -> @.

Subject vs. object:

{[a -> ball] -> {kick}} -> Bob.	:>	"Bob kicks a ball."
{Bob -> {kick}} -> [a -> ball].	:>	"A ball kicks Bob."

express time/space arrangements

-> >		SYN
=> >>		APO

lim [ in
ex  ] lim

The ball is red.

(@ < @.)

@ < {{ball << @} < red}.
{red > {@ >> ball}} > @.
{red -> {@ => ball}} -> @.

[@ >> ball] <:> 12345678-1234-1234-1234-123456789012 <;> (timestamp).

@ < {{12345678-1234-1234-1234-123456789012} < red}.

#1: 12345678-1234-1234-1234-123456789012 < {red}.
#2: @ < {12345678-1234-1234-1234-123456789012}.

[form/content]
{arrangement/context}

  {red}
---ball---

@ 

# -> SYN (In)
# => APO (Out)
# :> Coupla.

red -> ball	red ball
red => ball	red's ball

{red} -> ball
red -> {ball}
{red} -> {ball}
red -> {ball}

{red} -> [ball]		state of "red" SYN into form of "ball"
{red} -> ball		same... so [] should cat. multiple instances.

[the -> ball] :> [@ => ball]

[the -> *] :> [@ => *].